XXX 


XXX 


MMM 




MMM 


000000000 


NNN 




NNN 


AAAAAAAAA 


000000000 


XXX 


XXX 


MMM 




MMM 


000000000 


NNN 




NNN 


AAAAAAAAA 


000000000 


XXX 


XXX 


MMM 




MMM 


000000000 


NNN 




NNN 


AAAAAAAAA 


000000000 


XXX 


XXX 


MMMM! 


VIM 


MMMMMM 


000 


000 


NNN 




NNN 


AAA 


AAA 


000 


000 


XXX 


XXX 


MMMMMM 


MMMMMM 


000 


coo 


NNN 




NNN 


AAA 


AAA 


000 


000 


XXX 


XXX 


MMMM! 


VIM 


MMMMMM 


000 


000 


NNN 




NNN 


AAA 


AAA 


oco 


000 


XXX 


XXX 


MMM 


MMM 


MMM 


000 


000 


NNNNNN 




NNN 


AAA 


AAA 


oco 


000000 


XXX 


XXX 


MMM 


MMM 


MMM 


000 


000 


NNNNNN 




NNN 


AAA 


AAA 


000 


000000 


XXX 


XXX 


MMM 


MMM 


MMM 


000 


000 


NNNNNN 




NNN 


AAA 


AAA 


oco 


000000 




XXX 


MMM 




MMM 


000 


000 


NNN 


NNN 


NNN 


AAA 


AAA 


oco 


000 000 




XXX 


MMM 




MMM 


000 


000 


NNN 


NNN 


NNN 


AAA 


AAA 


oco 


000 000 




XXX 


MMM 




MMM 


000 


000 


NNN 


NNN 


NNN 


AAA 


AAA 


000 


000 000 


XXX 


XXX 


MMM 




MMM 


000 


000 


NNN 




NNNNNN 


AAAAAAAAAAAAAAA 


ocoooo 


000 


XXX 


XXX 


MMM 




MMM 


000 


000 


NNN 




NNNNNN 


AAAAAAAAAAAAAAA 


000000 


000 


XXX 


XXX 


MMM 




MMM 


000 


000 


NNN 




NNNNNN 


AAAAAAAAAAAAAAA 


000000 


000 


XXX 


XXX 


MMM 




MMM 


000 


000 


NNN 




NNN 


AAA 


AAA 


oco 


000 


XXX 


XXX 


MMM 




MMM 


000 


000 


NNN 




NNN 


AAA 


AAA 


000 


000 


XXX 


XXX 


MMM 




MMM 


000 


000 


NNN 




NNN 


AAA 


AAA 


000 


000 


XXX 


XXX 


MMM 




MMM 


000000000 


NNN 




NNN 


AAA 


AAA 


000000000 


XXX 


XXX 


MMM 




MMM 


000000000 


NNN 




NNN 


AAA 


AAA 


000000000 


XXX 


XXX 


MMM 




MMM 


000000000 


NNN 




NNN 


AAA 


AAA 


000000000 



ssssssssssss 


EEEEEEEEEEEEEEE 


C 


>QQQQQC 


>QQ 


ssssssssssss 


EEEEEEEEEEEEEEE 


QQQQQQQQQ 


ssssssssssss 


EEEEEEEEEEEEEEE 


QQQQQQQQQ 


sss 


EEE 


000 




OQO 


sss 


EEE 


000 




OQQ 


sss 


EEE 


QQQ 




QQQ 


sss 


EEE 


000 




OQQ 


sss 


EEE 


000 




OQQ 


sss 


EEE 


000 




OQQ 


sssssssss 


EEEEEEEEEEEE 


000 




OOQ 


sssssssss 


EEEEEEEEEEEE 


OQO 




OQQ 


sssssssss 


EEEEEEEEEEEE 


000 




QQQ 


sss 


EEE 


ooo 


OQQ 


OQQ 


sss 


EEE 


OQO 


OOQ 


QQQ 


sss 


EEE 


OQO 


ooo 


QQQ 


sss 


EEE 


000 


ooo 


sss 


EEE 


OQO 


OOQ 


sss 


EEE 


ooo 


ooo 


ssssssssssss 


EEEEEEEEEEEEEEE 


OQQQOQ 


OQQ 


ssssssssssss 


EEEEEEEEEEEEEEE 


OQQOOO 


QQQ 


ssssssssssss 


EEEEEEEEEEEEEEE 


QOQOOO 


QQQ 
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♦START* User CARPENTER, SA [400,4372] Job XMONAO Seq. 4205 Date 25-Sep-78 12:27:16 Monitor IPC-F 603 [6B7J *START* 
/TG:ML21-4:CARPEN — Distribution to ML21-4, slot 133 

File: DSKZ:XMONAO.SEQ<057>[400,3341 ] Created: 2l-Sep-78 09:15:00 printed: 25-Sep-78 12:27:17 
QUEUE Switches: /FRINT:ARROW /FIL£:ASCII /COPIES:! /SPACING:! /LIMIT:4060 /FORMS : NORMAL 



IDENTIFICATION 

SE g 0001 



PRODUCT CODE: AC-F080A-MC 

PRODUCT NAME: CXMONAO DEC/X11 MONITOR LIBRARY 

PRODUCT DATE: SEPTEMBER 1978 

MAINTAINER: DEC/X1 1 Support Group 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 
BY DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT 
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS MANUAL. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER 
SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITALS 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

Digital Equipment Corporation assumes no responsibility for 
the use or reliability of its software on equipment that is 
not supplied by Digital. 

copyright (c) 1973,1978 digital equipment corporation 
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MNSPEC - MONITOR SPECIFICATION FILE 
MNSPEC.MAC 21-JUL-78 14:12 



MACY11 30A(1052) 20-SEP-76 
COMMON EQUATE MODULE 



17:26 PAGE 19 



SEO 0004 



508 




509 




510 




51 1 




512 


000001 


513 


000002 


514 


000004 


515 


000010 


516 


0C0020 


517 


000040 


513 


000100 


519 


000200 


520 
521 


000400 



TITLE MNSPEC - MONITOR SPECIFICATION FILE 



.SBTTL MONITOR TYPE CODE EQUATES 



000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 



SMALLEST MONITOR 

NO MEMORY MANAGEMENT 

MEMORY MANAGEMENT 

1 1/60 

1 1/70 

B WITH APT 

C WITH APT 

D WITH APT 

E WITH APT 



MNSPEC - MONITOR SPECIFICATION FILE MACY1.1 30A(1052) 20-SEP-78 17:26 PAGE 19-1 

MNSPEC.MAC 21-JUL-78 14:12 MONITOR TABLE SEQ 0005 

523 .SBTTL MONITOR TABLE 

52-4 

525 000000' 000101 

526 

527 000002' 000001 

523 

529 000004' 000102 

530 

531 000006' 000002 

532 

533 000010' 000103 

534 

535 000012' 000004 

536 

537 000014' 000104 

533 

539 000016' 000010 

540 

541 000020' 000105 

542 

543 000022' 000020 

544 

545 000024' 000106 

546 

547 000026' 000040 

543 

549 000030' 000107 

550 

551 000032' 000100 

552 

553 000034' 000110 

554 

555 000036' 000200 

556 

557 000040' 000111 

558 

559 000042' 000400 

560 

561 000044' 377 .BYTE -1 

562 



.ASCIZ 

.EVEN 

.WORD 


/A/. 
A 


.ASCIZ 

.EVEN 

.WORD 


/B/ 
B 


.ASCIZ 
• EVEN 
.WORD 


/c/ 

C 


.ASCIZ 

.EVEN 

.WORD 


/D/ 
D 


.ASCIZ 

.EVEN 
.WORD 


/E/ 

E 


.ASCIZ 

.EVEN 
.WORD 


/F/ 

F 


.ASCIZ 

.EVEN 
.WORD 


/G/ 
G 


.ASCIZ 

.EVEN 
.WORD 


/H/ 

H 


.ASCIZ 

.EVEN 

.WORD 


/I/ 
I 



MNSPEC 


- MONITC 


)R SPECIFICATION 


FILE 


MNSPEC. 


MAC 21-JUL-78 


14: 12 




564 










565 










566 










567 










568 










569 










570 










571 










572 


000045' 


104 


041505 


000130 


573 










574 


000052' 


000777 






575 










576 


000054' 
000062' 


050101 

000 


046524 


0421 17 


577 




000064' 






578 


000064' 


000740 






579 










580 










581 


000066' 


042502 


051123 


000126 


582 










583 


000074' 


000777 






584 










585 


000076' 
000104' 


046102 

000 


043517 


030066 


586 




000106' 






587 


000106' 


0C0210 






583 










589 


0001 10' 
0001 16' 


046102 
000 


043517 


030067 


590 




000120' 






591 


000120' 


C00420 






592 










593 










594 


000122' 


050107 


000101 




595 










596 


000126' 


00C777 






597 










598 


000130' 


0521 13 


051105 


000122 


599 










600 


0001 36' 


000777 






601 










602 


000140 ' 


0521 13 


042523 


000124 


603 










604 


C00146' 


000734 






605 










606 


000150' 
000156' 


040520 
OCO 


042522 


051122 


607 




000160' 






608 


000160' 


00 C 777 






609 










610 


000162' 
000170' 


041520 
000 


040504 


040524 


611 




00C172' 






612 


000172' 


000777 






613 










614 


000174' 


041520 


051124 


041514 



MACY11 30A(1052) 20-SEP-78 17:26 PAGE 19-2 
MODULE LIST WITH MONITOR TYPE CODES 

SBTTL MODULE LIST WITH MONITOR TYPE CODES 

+ 
THE FOLLOWING MODULES ARE LISTED FIRST BECAUSE THEY MUST 
LIE WITHIN THE LOWEST 4K OF THE RUNTIME EXERCISER. 



.ASCIZ /DECX/ 

.EVEN 

.WORD A!B!C!D!E!F!G!H!I 



SEO 0006 



.ASCI 2 /APTMQD/ 

.EVEN 

.WORD F!G!H!I 



.ASCIZ /BESRV/ 

.EVEN 

.WORD A!B!C!D!ElF!G!H!I 

,ASCIZ /BLOG60/ 

■ EVEN 

.WORD D!H 

.ASCIZ /BL0G70/ 

.EVEN 

.WORD E!I 



.ASCIZ /GPA/ 

.EVEN 

.WORD A!B!C!D!E!F!G!H!I 

ASCIZ /KTERR/ 
.EVEN 

WORD A!B!C!D!E!F!G!H!I 

.ASCIZ /KTSET/ 

. EV EN 

.WORD C!D!E!G!H!I 

.ASCIZ /PARERR/ 

.EVEN 

.WORD A!B!C!D!E!F!G!H! I 

.ASCIZ /PCDATA/ 

.EVEN 

.WORD A!B!C!D!E1F!G!H!I 

•ASCIZ /PCTRLC/ 



MNS. 3 EC - MONITOR SPECIFICATION FILE MACY11 30A(1052) 20-SEP-7E 17:26 PAGE 19-3 

MNSPEC.MAC 21-JUL-78 14:12 MODULE LIST WITH MONITOR TYPE CODES SEQ 0007 

000202' 000 

515 000204' .EVEN 

616 000204' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 

617 

613 000206' 043120 044501 000114 .ASCIZ /PFAIL/ 

619 .EVEN 

620 000214' 000777 .WORD A ! B ! C ! D 1 E ! F ! G ! H ! I 
S21 

622 000216' 051120 046122 041517 . ASCIZ /PRRLOC/ 
000224' 000 

623 000226' .EVEN 

624 000226' 000734 .WORD C!D!E!G!H!I 
325 

626 000230' 042522 047514 000103 .ASCIZ /RELOC/ 

627 .EVEN 

328 000236' 000734 .WORD C!D!EIG!H!I 

629 

630 000240' 050122 051111 000121 .ASCIZ /RPIRQ/ 

631 .EVEN 

632 000246' 000777 .WORD A ! B ! C ! D ! E 1 F ! G ! H ! I 
633 

634 000250' 051522 051124 054503 .ASCIZ /RSTRCY/ 

.EVEN 

.WORD A!B!C!D!E!F!G!H!I 

; + 

; THE FOLLOWING MODULES MAY LIE ANYWHERE WITHIN THE 

; RUNTIME EXERCISER. 

044524 000126 .ASCIZ /ACTIV/ 
• EVEN 
•WORD A!B!C!D!E! F!G!H! I 

041507 045510 .ASCIZ /ARGCHK/ 

.EVEN 

.WORD A!B!C!D!E!F!G!H!I 

040502 052103 053111 .ASCIZ /BACTIV/ 

.EVEN 

.WORD A!B!C!D!E!F!GlHU 
654 

655 000316' 040502 046504 046505 .ASCIZ /BADMEM/ 
000324' 000 

656 C00326' .EVEN 

657 000326' 000734 .WORD C!D!E!G!H!I 
658 
65S 000330' 042102 041501 053116 .ASCIZ /BDACNV/ 

000336' 000 

660 000340' .EVEN 

661 000340' 000777 .WORD A 1 B ! C ! D ! E i F ! G ! H 1 I 
662 
663 000342' 042102 051526 053122 .ASCIZ /BDVSRV/ 





000256' 


000 


635 




000260 


635 


000260' 


000777 


637 






633 






639 






640 






541 






S42 






643 


000262' 


041501 


544 






645 


000270' 


000777 


646 






647 


000272' 


051 101 




000300' 


000 


548 




000302 


649 


000302' 


000777 


650 






651 


000304' 


040502 




000312' 


000 


652 




000314 


653 


000314' 


000777 



MNSPEC 
MNSPEC 



664 
665 
665 
667 
563 
669 
670 
571 
672 
673 
674 
675 

676 
677 
678 
579 

680 
681 
682 
683 

684 
685 
586 
687 

686 
689 
6S0 
691 

692 
693 
694 
695 

696 

697 
698 
699 

700 
701 
702 
703 

704 
705 
706 
707 

708 
709 



- MONITOR SPECIFICATION FILE 
.MAC 21-JUL-78 14:12 



MACY11 30A(1052) 20-SEP-78 17:26 PAGE 19-4 
MODULE LIST WITH MONITOR TYPE CODES 



SEQ 0008 



000350 

000352 

000354 

000362 

000364 

000372 

000374 
000402 

000404 

000406 
000414 

000416 

000420 
000426 

000430 

000432 
000440 

000442 

000444 
000452 

000454 

000456 
000464 

000466 

000470 
000476 

000500 

000502 
000510 

000512 



000 
000352' 
000776 

047502 041501 

000362' 

000777 

047502 030501 

000777 

046103 042522 
000 

000404' 
000777 

046503 041504 

occ 

000416' 
000777 

04.6503 042104 

000 
000430' 
000777 

046503 050104 

000 
000442' 
000777 

045503 051104 

000 
000454' 
000777 

046503 052104 

000 
000465' 
000734 

046503 052104 

000 
000500' 
000001 

046503 052104 

000 
000512' 
000042 



000 



000066 



EVEN 
,WORD 

•ASCIZ 

■ EVEN 
.WORD 

,ASCIZ 

.EVEN 

,WORD 



050117 .ASCIZ 

• EVEN 

• WORD 



B I C ! D l E 1 F ! G ! H ! I 

/BOAC/ 

A!B!C!D!E!F!G!H!I 

/B0A16/ 

A!B!C!D!E!F!G!H!I 

/CLREOP/ 



A!B!C!D!EIF!G!H!I 

054520 .ASCIZ /CMDCPY/ 

.EVEN 

.WORD AIB!C!D!E!F!G!HII 

042103 .ASCIZ /CMDDCD/ 

.EVEN 

.WORD A!B!C!D!E1F!G!H!I 

041522 .ASCIZ /CMDPRC/ 

• EVEN 

.WORD A!B!C!D!E!F!G!H!I 

052123 .ASCIZ /CMDRST/ 

.EVEN 

.WORD A!B!C!D!E!FIG!H!I 

030502 .ASCIZ /CMDTB1/ 

.EVEN 

.WORD C!D!E!G!H!I 

031102 .ASCIZ /CMDTB2/ 

.EVEN 

.WORD A 

031502 .ASCIZ /CMDTB3/ 



000514' 052103 050514 
000522' 000 
000524' 
000524' 000777 



042525 



, EVEN 
.WORD 

, ASCIZ 

.EVEN 
.WORD 



B!F 
/CTLQUE/ 

A!B!C!D!E!FIG!H!I 



MNSPEC - MONITOR SPECIFICATION FILE MACY11 30A(1052) 20-SEP-78 17:26 PAGE 19-5 

MNSPEC.MAC 21-JUL-78 14:12 MODULE LIST WITH MONITOR TYPE CODES SEQ 0009 

710 

711 000526 1 047503 047516 000106 .ASCI2 /CONOF/ 

712 .EVEN 

713 000534' 000734 .WORD C!D!E!G!H!I 
714 

715 000536' 050104 047505 000120 .ASCIZ /DPEOP/ 

71S .EVEN 

717 000544' 0C0777 .WORD A ! B ! C ! D ! E ! F 1 G ! H ! I 

718 

719 000546' 050104 052123 052122 .ASCIZ /DPSTRT/ 
000554' 000 

720 000556' .EVEN 

721 000556' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
722 

723 0C0560' 051104 046520 042117 .ASCIZ /DRPMOD/ 
000566' 000 

724 000570' .EVEN 

725 000570' 000777 .WORD A ! B I C 1 D ! E 1 F ! G ! H ! I 
726 

727 000572' 052504 041516 045510 .ASCIZ /DUNCHK/ 
000600' 000 

728 000602' .EVEN 

729 000602' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H I I 
730 

731 000604' 051105 042522 000103 .ASCIZ /ERREC/ 

732 .EVEN 

733 000612' 000777 .WORD A ! B ! C ! D ! E I F ! G I H 1 I 
734 

735 000614' 044506 046114 046115 .ASCIZ /FILLML/ 
000622' 000 

736 000624' .EVEN 

737 000624' 000001 .WORD A 
738 

739 000626' 044506 046114 051515 .ASCIZ /FILLMS/ 
000634' 000 

740 00C63S' .EVEN 

741 000636' 000776 .WORD B ! C 1 D ! E ! F 1 G! H ! I 
742 

743 000640' 042507 050124 053523 .ASCIZ /GETPSW/ 
000646' 000 

744 00C65C .EVEN 

745 000650' 000777 .WORD A ! B ! C ! D ! E I F ! G ! H ! I 

746 000652' 051110 040504 051104 .ASCIZ /HRDADR/ 
000660' 000 

747 000662' .EVEN 

748 000662' 000777 .WORD A ! B i C ! D ! E ! F ! G ! H ! I 
749 

750 000664' 052110 040522 000120 .ASCIZ /HTRAP/ 

751 .EVEN 

752 000672' 000777 .WORD A ! B 1 C ! D ! E ! F 1 G 1 H 1 I 
753 

754 000674' 041511 051123 047517 .ASCIZ /ICSROO/ 
000702' 000 

755 000704' .EVEN 

756 000704' 000420 .WORD Ell 
757 
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MNSPEC.MAC 21-JUL-78 14:12 MODULE LIST WITH MONITOR TYPE CODES SEQ 0010 

758 000706' 041511 051123 055123 .ASCIZ /ICSRS2/ 
000714' 000 

759 000716' .EVEN 

760 000716' C00420 .WORD E!I 
761 

762 000720' 042513 040530 000115 .ASCIZ /KEXAM/ 

763 .EVEN 

764 000726' 000776 .WORD B ! C ! D ! E ! F ! G ! H ! I 
765 

766 000730' 043113 046111 000114 .ASCIZ /KFILL/ 

767 .EVEN 

768 000736' 000777 .WORD A ! B ! C ! D ! E ! F I G ! H ! I 
769 

770 000740' 046513 050101 000 .ASCIZ /KMAP/ 

771 000746' .EVEN 

772 000746' 00C776 .WORD B ! C ! D ! E ! F ! G ! H ! I 
773 

774 000750' 046513 042117 000 .ASCIZ /KMOD/ 

775 000756' .EVEN 

776 000756' 000777 .WORD A ! B ! C ! D ! E ! F !G ! H ! I 
777 

778 000760' 046513 047117 043117 .ASCIZ /KMONQF/ 
000766' OOC 

779 C0077C .EVEN 

780 000770' 00073h .WORD C!D!E!G!H!I 
781 

782 000772' 051113 047125 000 .ASCIZ /KRUN/ 

783 001000' .EVEN 

784 001000' 000734 .WORD C!D!E!G!H!I 
785 

786 

787 001002' 051113 047125 000123 .ASCIZ /KRUNS/ 

788 .EVEN 

789 001010' 000043 .WORD A!B!F 
790 

791 001012' 051513 046525 000 .ASCIZ /KSUM/ 

792 001 02C ' . EVEN 

793 001020' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
794 

795 0C1022' 051513 051127 000 .ASCIZ /KSWR/ 

796 001030' .EVEN 

797 001030' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
798 

799 001032' 052113 047117 043117 .ASCIZ /KTONOF/ 
0C1040' OOC 

800 001042' .EVEN 

801 001042' 000734 .WORD C!D!E!G!H!I 
802 

803 001044' 050114 047117 043117 .ASCIZ /LPONOF/ 
001052' OOC 

804 001054' .EVEN 

805 001054' 000776 .WORD B ! C ! D ! E ! F ! G ! H ! I 
806 

807 001056' 051514 041524 045510 .ASCIZ /LSTCHK/ 
001064' 000 

808 001066' .EVEN 
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MNSPEC.MAC 21-JUL-78 14:12 MODULE LIST WITH MONITOR TYPE CODES SEQ 0011 

809 001066' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 

810 

311 001070' 051515 042107 050505 .ASCIZ /MSGDEQ/ 
001076' 000 

812 001100' .EVEN 

813 001100' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
314 

815 001102' 051515 042107 042507 .ASCIZ /MSGDGE/ 
001 110' 000 

816 001112' .EVEN 

817 001112' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
818 

819 001114' 051515 042107 047510 .ASCIZ /MSGDHO/ 
001122' 000 

820 001124' .EVEN 

821 001124' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
822 

323 001126' 040516 041515 045510 .ASCIZ /NAMCHK/ 
001134' OCO 

324 001136' .EVEN 

825 001136' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 

826 

327 001140' 042516 041127 000101 .ASCIZ /NEWBA/ 

828 .EVEN 

829 001146' 000734 .WORD C!D!E!G!H!I 
830 

831 001150' 052516 041515 045510 .ASCIZ /NUMCHK/ 
001156' 000 

832 001160' .EVEN 

833 001160' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
834 

335 001162' 041120 042522 045501 .ASCIZ /PBREAK/ 
001170' 000 

836 001172' .EVEN 

837 001172' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
838 

839 001174' 042520 042116 000 .ASCIZ /PEND/ 

840 001202' .EVEN 

841 001202' 000777 .WORD A ! 3 ! C ! D ! E ! F ! G ! H ! I 
842 

843 001204' 042520 042116 052111 .ASCIZ /PENDIT/ 
001212' 000 

844 001214' .EVEN 

845 001214' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
846 

847 001216' C42120 052101 051105 .ASCIZ /PDATER/ 
001224' 000 

848 001226' .EVEN 

849 001226' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
850 

851 001230' 043520 052105 040520 .ASCIZ /PGETPA/ 
001236' 000 

852 001240' .EVEN 

853 001240' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
854 

855 001242' 046520 050101 031062 .ASCIZ /PMAP22/ 



MNiSPEC - MONITOR SPECIFICATION FILE MACY11 30A(1052) 20-SEP-78 17:26 PAGE 19-8 

MNSPEC.MAC 21-JUL-78 14: 12 MODULE LIST WITH MONITOR TYPE CODES SEQ 0012 

001250' 000 

356 001252' .EVEN 

857 001252' 000777 .WORD A ! B! C ! D ! E ! F ! G ! H ! I 

858 

859 001254' 047520 047516 000106 .ASCIZ /PONOF/ 

860 .EVEN 

861 001262' 000776 .WORD B ! C ! D ! E ! F ! G! H ! I 
362 

363 001264' 051120 052102 042117 .ASCIZ /PRBTOD/ 
001272' 000 

864 001274' .EVEN 

865 001274' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
866 

867 001276' 051120 053105 000124 .ASCIZ /PREVT/ 

368 .EVEN 

369 001304' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
370 

871 001306' 051120 053507 000102 .ASCIZ /PRGWB/ 

872 .EVEN 

873 001314' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
874 

375 001318' 051120 040510 042122 .ASCIZ /PRHARD/ 

001324' 000 

876 001326' .EVEN 

S77 001326' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 

873 

879 001330' 051120 051515 000107 .ASCIZ /PRMSG/ 

880 .EVEN 

881 001336' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
882 

883 001340' 051120 051515 047107 .ASCIZ /PRMSGN/ 
001346' 000 

884 001350' .EVEN 

885 001350' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
886 

887 001352' 051120 051515 051507 .ASCIZ /PRMSGS/ 
001360' 000 

888 001362' .EVEN 

889 001362' C00777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
890 

891 001364' 051120 052117 040517 .ASCIZ /PROTOA/ 
001372' 000 

892 001374' .EVEN 

893 001374' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
894 

895 001376' 051120 040522 042116 .ASCIZ /PRRAND/ 
001404' 000 

896 001406' .EVEN 

897 001406' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
898 

899 001410' 051120 047523 052106 .ASCIZ /PRSOFT/ 
001416' 000 

900 001420' .EVEN 

901 001420' 000777 .WORD A ! B ! C I D ! E ! F ! G ! H ! I 
902 

903 001422' 040522 042116 046517 .ASCIZ /RANDOM/ 



MNSPEC - MONITOR SPECIFICATION FILE MACY11 30A(1052) 20-SEP-76 17:26 PAGE 19-9 

MNSPEC.MAC 21-JUL-78 14:12 MODULE LIST WITH MONITOR TYPE CODES SEQ 0013 

001430' 000 

304 00 1432' .EVEN 

905 001432' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 

90S 

907 001434' 042522 041514 046124 .ASCIZ /RELCTL/ 

001442' 000 

903 001444' .EVEN 

903 001444' 000734 .WORD C!D!E!G!H!I 

910 

911 001446' 047522 047516 000106 . ASCIZ /RONOF/ 

912 -EVEN 

913 001454' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
914 

915 001456' 040523 051126 051505 .ASCIZ /SAVRES/ 
001464' 000 

916 001466' .EVEN 

917 001466' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
913 

919 001470' 042523 042114 051505 .ASCIZ /SELDES/ 
001476' 000 

920 001500' .EVEN 

921 001500' 000777 .WORD A ! B ! C ! D ! E ! F i G ! H ! I 
922 

923 001502' 052123 0^0522 000120 .ASCIZ /STRAP/ 

924 .EVEN 

925 001510' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H I I 
926 

927 001512' 054523 041523 045514 .ASCIZ /SYSCLK/ 
001520' 000 

928 001522' .EVEN 

929 001522' 000776 .WORD B ! C ! D ! E 1 F ! G ! H 1 I 
930 

931 001524' 054524 050520 042525 .ASCIZ /TYPQUE/ 
001532' 000 

932 00 1534' .EVEN 

933 001534' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
934 

935 001536' 047125 046511 050101 .ASCIZ /UNIMAP/ 
001544' 000 

936 001546' .EVEN 

937 001546' 000420 .WORD E!I 
938 

939 001550' 047125 050111 000101 .ASCIZ /UNIPA/ 

940 .EVEN 

941 001556' 000420 .WORD E!I 
942 

943 001560' 041127 046106 046511 .ASCIZ /WBFLIM/ 
001566' 000 

944 001570' .EVEN 

945 001570' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
946 

947 001572' 051527 041124 051525 .ASCIZ /WSTBUS/ 
001600' 000 

948 00 1602' .EVEN 

949 001602' 000777 .WORD A ! B ! C ! D ! E t F ! G ! H ! I 
950 



MNSPEC - MONITOR SPECIFICATION FILE MACY1 1 30A(1052) 20-SEP-78 17:26 PAGE 19-10 

MNSPEC.MAC 21-JUL-78 14:12 MODULE LIST WITH MONITOR TYPE CODES SEQ 0014 

951 ; + 

952 ; THE FOLLOWING MODULES ARE LISTED LAST BECAUSE THEY MUST NOT 

953 ; LIE WITHIN THE BOTTOM 4K OF THE EXERCISER. 

954 

955 

955 001604' 041113 051104 000126 .ASCIZ /KBDRV/ 

957 .EVEN 

953 001612' 000777 .WORD A ! B ! C ! D ! E i F ! G ! H ! I 
959 

960 001614' 050114 051104 000126 . ASCIZ /LPDRV/ 

961 .EVEN 

962 001622' 000776 .WORD B ! C ! D ! E ! F ! G ! H ! I 
963 

954 001624' 052124 051104 000126 .ASCIZ /TTDRV/ 

965 .EVEN 

966 001632' 000777 .WORD A ! B ! C ! D ! E ! F ! G ! H ! I 
967 

968 001634' 044523 050132 040514 .ASCIZ /SIZPLA/ 
001642' OCO 

969 001544' 

970 001644' 000001 
971 

972 001646' 044523 050132 041114 
001554' 000 

973 001656' 

974 001656' 000042 
975 

976 001660' 044523 050132 041514 .ASCIZ /SIZPLC/ 
001666' 000 

977 001670' .EVEN 

978 001670' 000104 .WORD C!G 
979 
980 001672' 044523 050132 042114 .ASCIZ /SIZPLD/ 

001700' COO 

98" 001702' .EVEN 

982 001702' 000210 .WORD D!H 

983 

984 001704' 044523 050132 042514 .ASCIZ /SIZPLE/ 
001712' 000 

985 001714' .EVEN 

986 001714' 000420 .WORD Ell 
987 

988 001716' 377 .BYTE -1 

989 000001 .END 



.EVEN 




.WORD 


A 


.ASCIZ 


/SIZPLB/ 


.EVEN 




.WORD 


B!F 



MNSPEC - MONITOR SPECIFICATION FILE 
iV.NSPEC .MAC 21-UUC-73 14:12 



MACY1 1 
SYMBOL 



30A(1052) 
TABLE 



20-SEP-78 17:26 PAGE 20 



SEQ 0015 



A 


= 


000001 


/'CSR 


= 


0001 02 


ACT SIT 




C04000 


ADDR22 




001000 


ADR 


= 


000005 


APTrER 




000004 


APT PRE 




CC0200 


ASB 


= 


000106 


AS TAT 


= 


COC1 04 


AUTO 


= 


00C010 


AUTOST 


= 


020000 


AW AS 


= 


C001 10 


Li 


= 


000002 


Lil TO 


= 


C00001 


HI TOO 


= 


000001 


Ci 1 T 1 


= 


000002 


HIT 02 


= 


000004 


3 IT 03 


= 


000010 


BIT 04 


= 


000020 


BIT05 


= 


000040 


BIT 06 


= 


0001 00 


HIT 07 


= 


000200 


BIT 08 


= 


000400 


BIT09 


= 


001000 


31 T 1 


= 


0000C2 


13 1 T 1 


= 


002000 


3 I T 1 1 


= 


0040CO 


BIT12 


= 


01 0000 


BIT 1 3 


= 


020000 


3IT14 


= 


040000 


131 T 1 5 


= 


100000 


BIT 2 


= 


000004 


L3IT3 


= 


010 


31 T4 


= 


0C0020 


31 T5 


= 


000040 


3 1 T 6 


= 


000100 


BIT 7 


= 


000200 


BITS 


= 


000^00 


3IT9 


= 


001 000 


3KCEF 


= 


000002 


3KM0D 


= 


000020 


3KIV0DE 


= 


040000 


3KSLSH 


= 


0001 34 


o 


= 


000004 


CAPRES 


= 


000004 


CASTA" 


= 


0C0004 


CDERC T 


= 


001 46 


CDUDC7 


= 


000144 


CKTIM 


= 


100000 


CLKPRE 


= 


000C01 


CONFIG 


i = 


CO 56 


CQCVF 


= 


000001 


OR 


= 


000015 



CSRA = 

CSRC = 

CTRLC = 

CTRLO = 

CTRLU = 

D 

DCEVNT= 

DEFRTN= 

DROPMO= 

DSEVNT= 

DT.ADD= 

DT.AP = 

DT.APK^ 

DT.BLS= 

DT.CFO= 

DT.CF1= 

DT.ERR= 

DT.ESI= 

DT.EVN= 

DT.EXS= 

DT.FCH= 

DT.FCN^ 

DT.HNIX = 

DT.KBE= 

DT.KBP= 

DT.KBR= 

DT.KBU= 

DT.MLS= 

DT.MTI= 

DT.OFF= 

DT.PAS= 

DT.PC = 

DT.PFL= 

DT.PSW= 

DT.PTA= 

DT.RCS= 

DT.REL= 

DT.SCT= 

DT.SMX= 

DT.SP = 

DT.SSI= 

DT.STO= 

DT.SI1= 

DT.SWR= 

DT.SYP= 

DT.WBU= 

DT.WHL= 

DT.WLL= 

DVID1 = 

E 

ECCMEM= 

ECCSTA= 

EN3E0P= 



000100 
000102 
000003 
000017 
000025 
000010 
00001 1 
000400 
100000 
000014 
000042 
000100 
000076 
000034 
0000 14 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
0C0024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
0C0064 
000102 
000040 
000066 
000105 
000006 
000046 
000010 
00C012 
000056 
000072 
000050 
000054 
000052 
000014 
000020 
000100 
000010 
01 0000 



ENBNUL= 

ENDLST= 

EOPBIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

F 

FATERR= 

G 

H 

HRDCNT= 

HRDPAS= 

I 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT = 

INTR = 

IQMOD = 

IOMODP= 

IGMODRs 

IOIVIODX = 

JACK = 

KIPARO= 

KIPAR1 = 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 



000001 
000000 
000001 
000103 
000200 
000200 
000203 
000202 
000201 
000040 
100000 
000100 
000200 
000044 
000050 
000400 
000036 
000040 
000122 
C00100 
000040 
040000 
020000 
001000 
000400 
000030 
000120 
100000 
1C2000 
1 12000 
1 10000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 



LPSTAT= 

MAPSTA= 
MED 

MEMPAS: 
MODEXH= 
MODHOL= 
MODSEL = 
MSGCKD= 
MSGCKS = 
MSGDER = 
MSGDRP = 
MSGECH= 
MSGEOP = 
MSGHDR = 
MSGHNG= 
MSGHRD= 
MSGMAP = 
MSGNUL = 
MSGPOP = 
MSGPRM= 
MSGRES= 
MSGSFT = 
MSGSKE = 
MSGSMB = 
MSGSMH= 
MSGSMS= 
MSGSTD= 
MSGSYS= 
MSGVEC= 
NBKMOD= 
NCPUOP = 
NOAPTY = 
NULL = 
OWEN = 
PAERR = 
PARPRE = 
PARSTA= 
PASCNT= 
PDPLSI = 
PDP60 = 
PDP70 = 
PR 10 = 
PRI.1 = 
PRI4 = 
PRI5 = 
PRI6 = 
PRI7 = 
PRO 
PR4 
PR5 
PR6 
PR7 
PS 



000001 
000200 
076600 
040000 
004000 
002000 
00 I 000 
000010 
00001 1 
000005 
000017 
177777 
000013 
000004 
000022 
000007 
000021 
177775 
900002 
177776 
000001 
000006 
000003 
000015 
000014 
000018 
000000 
000012 
000020 
001000 
000020 
000002 
000000 
024020 
000010 
002000 
000100 
000034 
020000 
004000 
010000 
000000 
000040 
000200 
000240 
000300 
000340 
COOOOO 
000200 
000240 
000300 
000340 
177776 



PSW 

RANNUM= 

R3UF£A= 

RBUFPA= 

R3UFSZ= 

R3UFVA = 

ROSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

R£LTIM=: 

RES1 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBOUT= 

RUNMOD= 

R5VALU= 

SAM 

S3ADR = 

SBKMOD= 

SBKSEL= 

SC.ADR= 

SC. ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

S£NDLS= 

SOFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SV'RO = 

SVR1 = 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 

SVR6 = 

SY5CNT= 



177776 
000054 
000130 
000126 
000132 
000124 
000101 
000022 
000020 
020000 
010000 
000056 
000060 
031060 
002000 
u001 12 
000177 
100000 
001740 
075464 
000102 
000000 
010000 
000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 
000027 
000001 
000062 
000064 
000066 
000070 
000072 
000074 
000076 
000052 



MNSPEC 


- MONITOR 


SPECIFICATION FILE MACY11 


30A(1052) 20-SEP-7 


1V1NSPEC. 


MAC 21- 


-JUL-78 


14:12 


SYMEOL 


TABLE 




SYSERR= 


0001 00 




UIPAR4= 


177650 


UIPDR3= 


177606 


TMPiO = 


000002 




UIPAR5= 


177652 


UIPDR4= 


177610 


TQOVF = 


000002 




UIPAR6= 


177654 


UIPDR5= 


177612 


UIPAR0= 


177640 




UIPAR7= 


177656 


UIPDR6= 


177614 


UIPAR1 = 


177642 




UIPDRO= 


177600 


UIPDR7= 


177616 


UIPAR2= 


177644 




UIPDR1= 


177602 


WASADR= 


000104 


UIPAR3= 


177646 




UIPDR2= 


177604 


WBSTAT= 


000040 


. ABS. 


000000 
001717 


000 

001 











17:26 PAGE 20-1 



WBUFEA= 000136 
WBUFPA= 000134 
WBUFRQ= 000140 
WBUFSZ= 000142 
WDFR = 000116 
WDTO = 000114 
WTINRE= 000352 



SEQ 0016 



WTWHMI= 000222 
XFLAG = 000005 
XOFF = 000023 
XQN = 000021 
= 001717R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ:MNS PEC, DSKZ:MNSPEC=SPMAC/ML, EQUATE, MNSPEC 
RUN-TIME: 1 1 .3 SECONDS 
RUN-TIME RATIO: 9/2=3.2 
CORE USED: 5K (9 PAGES) 



.MAIN. MACY11 30A(1052) 20-5EP-78 17:26 

EQUATE. MAC 13-SEP-78 16:13 TABLE Or CONTENTS SEQ 0017 

3 COMMON EQUATE MODULE 

- MODULE HEADER 

- TRAP AND VECTOR GLOBAL DEFINITIONS 

- STUFF TRAP AND VECTOR AREAS 

- DATA TABLE GL03AL DEFINITIONS 

- DATA TABLE VALUES GLOBAL DEFINITIONS 

- DATA TABLE ALLOCATION 

- PARITY TABLE — PARTAB — GLOBAL DEFINITION 

- PARITY TABLE — PARTAB — ALLOCATION 

- SYSTEM CLOCK TABLE — SCTAB — GLOBAL DEFINITIONS 

- SYSTEM CLOCK TABLE AND OFFSET ADDRESSES 

- DEVICE REGISTER GLOBAL DEFINITIONS 

- DEVICE REGISTER DEFINITIONS 

- CPU RELATED REGISTERS GLOBAL DEFINITIONS 

- CPU RELATED REGISTER DEFINITIONS 

- MISCELLANEOUS STORAGE GLOBAL DEFINITIONS 

- MISCELLANEOUS STORAGE 
MODULE HEADER 
COMMON DEFINITIONS AND REFERENCES 

.PRINT ;SPMAC: VERSION 1.1 
START UP ROUTINE 
RESTART ROUTINE 
INITIALIZATION ROUTINE 

CAPTURE EVENT: DISPATCH TO SERVICE ROUTINE 
CAPTURE EVENT: RETURN FROM SERVICING EVENT 
KERNE.. - DE-QUEUE NEXT MODULE IN CONTROL QUEUE ROUTINE 

- DE-QUEUE NEXT MODULE: PASS CPU CONTROL TO MODULE 



531 


DATABASE 


573 


DATABASE 


594 


DATABASE 


665 


DATABASE 


372 


DATABASE 


67e 


DATABASE 


727 


DATABASE 


734 


DATABASE 


745 


DATABASE 


763 


DATABASE 


785 


DATABASE 


803 


DATABASE 


819 


DATABASE 


843 


DATABASE 


867 


DATABASE 


885 


DATABASE 


390 


KERNEL - 


947 


KERNEL - 


952 001236 


1059 


KERNEL - 


1222 


KERNEL - 


1286 


KERNEL - 


1381 


KERNE:. - 


1467 


KERNEL. - 


1537 


KERNE.. - 


1723 


KERNEL - 



DECX- 
DECX. 



1 1 
MAC 



CONTROL 
19-Sc 



508 
509 
510 
51 1 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
525 
527 
528 
529 



MODU 
P-7S 



.E MACY11 30A(1052) 20-SEP-78 17:26 PAGE 19 
14:52 COMMON EQUATE MODULE 



SEQ 0018 



TITLE 
IDENT 



DECX-11 
/VO.O/ 



CONTROL MODULE 



++ 
MODULE NAME: 
DECX-11 

MODULE DESCRIPTION: 

THIS MODULE IS THE DEC/X-11 MONITOR CONTROL MODULE AND CONTAINS 
BOTH THE MONITOR'S DATABASE AND KERNEL ROUTINES 



VERSION: 

EDIT DATE BY REASON 



DECX-11 CONTROL MODULE MACY11 30A(1052) 20-SEP-78 17:26 PAGE 20 
DECX.MAC 19-SEP-76 14:52 DATABASE - MODULE HEADER 



SEO 0019 



531 
532 
533 
534 
535 
535 
537 
533 
539 
540 
541 
542 
543 
544 
545 
546 
547 
543 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
56c 
567 
563 
569 
570 
571 



SBTTL DATABASE - MODULE HEADER 



++ 
MODULE NAME: 

MONITOR DATABASE AREA 

FUNCTIONAL DESCRIPTION: 

THE MONITOR'S DATABASE CONTAINS ALL OF THE PARAMETERS AND VALUES 
THAT ARE USED BY BOTH THE MONITOR'S KERNEL ROUTINE AND THE 
SUBORDINATE MONITOR ROUTINES. 

INPUTS: 

NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
NONE 

FUNCTIONAL SIDE EFFECTS: 

NONE 

CALLING SEQUENCE: 
NONE 

VERSION: 
0.0 



EDIT 



BY 



DATE 



REASON 



DECX-11 CONTROL MODULE MACY11 30A(1052) 20-SEP-78 17:26 PAGE 21 

DECX.MAC 19-SEP-73 14:52 DATABASE - TRAP AND VECTOR GLOBAL DEFINITIONS SEQ 0020 

573 .SBTTL DATABASE - TRAP AND VECTOR GLOBAL DEFINITIONS 

574 

575 

573 

577 

573 

573 

580 

581 

582 

583 

584 

585 

585 

587 

583 

589 

590 

591 

592 



GLOBL 


HTBUSS 


GLOBL 


HTREIN 


GLOBL 


RPIRO 


GLOBL 


PWRFL 


GLOBL 


PWRDOWN 


GLOBL 


PBDVEC 


GLOBL 


STINT 


GLOBL 


KBINT 


GLOBL 


TTINT 


GLOBL 


MEMPAR 


GLOBL 


MEMGMT 


GLOBL 


AP.PB 


GLOBL 


$ENDAD 


GLOBL 


CAST 



DECX-11 CONTROL MODULE MACY11 30A(1052) 20-SEP-78 17:26 TAGE 22 

CECX.MAC 12-SCP-73 14=52 DATABASE - STUFF TRAP AND VECTOR AREAS 

.SBTTL DATABASE - STUFF TRAP AND VECTOR AREAS 



SEQ 0021 



594 






595 






595 






597 






593 




000000 


599 




000000 


600 






501 






602 






503 






604 






505 






506 


000000 


105000 


507 


C00002 


000000 


603 


000004 


OOOOOOG 


509 


C00006 


000340 


510 


000010 


OOOOOOG 


61 1 


000012 


C00340 


612 


000014 


C 'i 6 


513 


000016 


000000 


614 


C00020 


OOOOOOG 


615 


000022 


000340 


616 


000024 


OOOOOOG 


617 


C00026 


000340 


51S 


000030 


OOOOOOG 


319 


000032 


000000 


620 


000034 


OOOOOOG 


621 


000036 


000000 


622 


000040 


000000 


623 


000042 


000000 


624 


000044 


OOOOOOG 


625 


000046 


OOOOOOG 


626 


000050 


000000 


627 


000052 


000000 


62B 


000054 


OOOOOOG 


629 


000055 


000001 


63C 






631 




COOObO 


632 


000060 


OOOOOOG 


633 


000062 


000040 


634 


000064 


OOOOOOG 


635 


000066 


000040 


636 






637 






638 






639 






640 






641 






642 






64 3 






644 






645 




000022 


646 






647 






648 






649 







.ASECT 
.=0 



LOAD TRAP AND VECTOR AREA 



;START THIS AT ABSOLUTE 



(RESERVED) 

TIME OUT AND OTHER ERRORS 

RESERVED INSTRUCTION VECTOR 

HALT IF T BIT SETS 

IOT INSTRUCTION VECTOR 

POWER FAILURE VECTOR 

EMT INSTRUCTION VECTOR 

TRAP INSTRUCTION 

40 

42 

44 - APT PARAMETER BLOCK 

46 

50 

52 

54 

56 

;KEYBOARD INTERRUPT VECTOR 
;TERMINAL INTERRUPT VECTOR 



70 TO 176 AND 204 TO 776 hAVE .+2 AND HALT. THESE VECTOR LOCATIONS 
MAY BE STUFFED BY CERTAIN MONITORS WITH THE ADDRESS OF THE BAD 
VECTOR SERVICE ROUTINE. THE PARITY AND KT VECTORS (114 & 250) MAY 
ALSO BE STUFFED WITH PARITY AND KT TRAP ROUTINES. 





.WORD 


105000 




.WORD 





TIMOUT: 


.WORD 


HTBUSS 




• WORD 


PRI7 


RESERV: 


.WORD 


HTREIN 




.WORD 


PRI7 




.+2 






HALT 




IOT INS: 


.WORD 


RPIRO 




.WORD 


PRI7 


PWRFL: 


• WORD 


PWRDOWN 




.WORD 


PRI7 


EMT INS: 


.WORD 


PBDVEC 




.WORD 


PRIO 


TRPINS: 


.WORD 


STINT 




.WORD 


PRIO 




.WORD 







.WORD 





APT\/EC: 


.WORD 


AP.PB 




.WORD 


$ENDAD 




.WORD 







.WORD 







.WORD 


CAST 




.WORD 


1 




.=60 




KBVEC: 


.WORD 


KBINT 




.WORD 


PRI1 


TTVEC: 


.WORD 


TTINT 




.WORD 


PRI1 



.REPT 

.NLIST 

.+2 

HALT 

.LIST 



- D<18> 
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DECX.MAC 19-SEP-78 14:52 DATABASE - STUFF TRAP AND VECTOR AREAS 



SEQ 0022 



650 










.ENDR 




551 














652 




' 000200 






.=200 




653 


000200 


000167 


001774 


START: 


JMP 


DX.STRT 


654 














655 




00 0137 






.REPT 


~D<S5> 


656 














657 










.NLIST 




653 










.+2 




659 










HALT 




660 










.LIST 




561 










.ENDR 




662 














663 




001000 






.=1000 




664 


001000 


000167 


001174 


RESTART: 




JMP DX. 



GO TO START ADDRESS 
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DECX.WAC 19-SEP-78 14:52 DATABASE - DATA TABLE GLOBAL DEFINITIONS 



SEQ 0023 



666 
667 
568 
669 
370 



SBTTL DATA3ASE - DATA TABLE GLOBAL DEFINITIONS 



.GLOBL DTABLE 
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DECX.MAC 19-5EP-78 14:52 DATABASE - DATA TABLE VALUES GLOBAL DEFINITIONS SEQ 0024 

672 .SBTTL DATABASE - DATA TABLE VALUES GLOBAL DEFINITIONS 

373 

574 

675 .GLOBL OV.KBBUF ;ADDRESS OF KEYBOARD INPUT BUFFER 

676 .GLOBL AC.MODQ ; MODULE-QUEUE-LIST ADDRESS 



DF.CX-1 1 


CONTRC 


L MODULE 


DECX.MAC 19" 


SEP-78 1 


678 






679 






680 






681 






682 






683 






684 






585 






685 






687 


001004 




588 


001004 


000000 


5e3 


001006 


000000 


690 


001010 


ooooco 


691 


001012 


000000 


692 


001014 


000000 


693 


001016 


ocoooo 


694 


001020 


000000 


695 


001022 


ooooco 


695 


001 024 


000000 


697 


001026 


000000 


698 


001030 


000000 


699 


001032 


000000 


700 


001034 


OOOOCOG 


701 


001036 


OOOOOOG 


702 


001040 


000000 


703 


001042 


004 


704 


001043 


01 5 


705 


001044 


000200 


706 


001 046 


000200 


707 


001050 


000003 


708 


001052 


00 0000 


709 


001 054 


000003 


710 


001056 


000000 


71 1 


001060 


00 3 


712 


001062 


000000 


713 


001064 


000000 


714 


001066 


000000 


715 


001070 


001 1 1 6 


716 


001072 


001 160 


717 


001074 


ooooco 


718 


001076 


001 100 


719 


001 100 


000000 


720 


001 1 02 


001 1 04 


721 


001 1 04 


000000 


722 


001 106 


000000 


723 


001 1 10 


000024 


724 


001 1 12 


000050 


725 


0011 14 


001604 



14:52 
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DATABASE - DATA TABLE ALLOCATION 

.SBTTL DATABASE - DATA TABLE ALLOCATION 



DATA TABLE ALLOCATION 



SEQ 0025 



DTABLE: 






.WORD 





DT.EVNT 


.WORD 





DT.PC - 


.WORD . 





DT.PSW - 


.WORD 





DT.SP - 


.WORD 





DT.STO - 


.WORD 





DT.ST1 - 


.WORD 





DT.CFO - 


.WORD 





DT.CF1 - 


.WORD 





DT.ERR - 


.WORD 





DT.KBRSP 


.WORD 





DT.KBECH 


.WORD 





DT.KBPRM 


• WORD 


0V.KB3UFF 


DT.KBUF 


.WORD 


AC.MODQ 


DT.MLST 


.WORD 





DT.BLST 


.BYTE 


4 


DT.FCNT 


.BYTE 


<CR> 


DT.FCHAR 


.WORD 


200 


DT.REL - 


.WORD 


200 


DT.ADDR 


.WORD 





DT.ESIZ 


.WORD 





DT.SSIZ 


.WORD 





DT.WBUF 


.WORD 





DT.WLLMT 


.WORD 





DT.WHLMT 


.WORD 





DT.SWR - 


.WORD 





DT.EXS - 


.WORD 





DT.PFL - 


.WORD 


PARTAB 


DT .PTA - 


.WORD 


SCTAB 


DT.SCT - 


.WORD 





DT.OFFSE 


.WORD 


DTABLE+DT.PAS 


DT.SYP - 


.WORD 





DT.PAS - 


.WORD 


DTABLE+DT.AP 


DT.APK - 


.WORD 





DT.AP - 


.WORD 





DT.RCS - 


.WORD 


~D20 


DT.HMX - 


.WORD 


~D40 


DT.SMX - 


.WORD 


"0900 


DT.MTIME 



EVENT CODE 
PC+ OF TRAP 

PSW AT TIME OF TRAP 
STACK POINTER AT TIME OF TRAP 

STATUS INDICATOR 

STATUS INDICATOR 1 

CONFIGURATION WORD 

CONFIGURATION WORD 1 

ERROR WORD 

- ADDRESS OF KEYBOARD RESPONSE BUFFER 

- ADDRESS OF KEYBOARD ECHO BUFFER 

- ADDRESS OF KEYBOARD PROMPT 

- ADDRESS OF KEYBOARD BUFFER POINTER 

- ADDRESS OF MODULE LIST 

- ADDRESS OF MODULE LIST 

- FILLED COUNT (# OF NULLS) 

- CHARACTER AFTER WHICH NULLS ARE 0/P 
RELOCATION CONSTANT 

- CURRENT ADDRESS 
EXERCISER SIZE 
SYSTEM SIZE IN PAR FORMAT 

- ADDR OF WRITE- BUFFER 

- WRITE BUFFER LOW LIMIT 

- WRITE BUFFER HIGH LIMIT 

SOFTWARE SWITCH REG(FRONT PANEL MEANS NOTHING) 
H OF EXERCISER SYS ERRORS 
# OF POWER FAILS 
ADDRESS OF PARITY TABLE 
ADDRESS OF CLOCK TABLE 

IT - OFFSET INTO CURRENT 1 24K BANK 
SYSTEM END OF PASS COUNT POINTER 
SYSTEM END OF PASS COUNT IF NOT UNDER APT 
KEEP ALIVE COUNTER POINTER 

KEEP ALIVE IF NOT UNDER APT 
FAKE K3 ADDRESS FOR APT USE 

MAX U OF HARD ERRORS ALLOWED BY OPTION MODULE 
MAX # OF SOFT ERRORS ALLOWED BY OPTION MODULE 

- MAX END OF PASS TIME(15 MIN.) BY A MODULE 
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DECX.MAC 19-SEP-78 14:52 DATABASE - PARITY TABLE — PARTAB — GLOBAL DEFINITION 



SEO 0026 



727 

728 
729 
730 
731 
732 
733 
734 
735 
735 
737 
733 
73S 
740 
741 
742 



743 



001124 000000 

001132 000000 

001140 000000 

001146 000000 

001154 000000 



000000 000000 

000000 000000 

000000 000000 

000000 000000 
000000 



SBTTL DATABASE - PARITY TABLE — PARTAB — GLOBAL DEFINITION 



.GLOBL PARTAB 



SBTTL DATABASE - PARITY TABLE — PARTAB ~ ALLOCATION 



16 LOCATIONS FOR PARITY CSRS. THE TABLE IS TERMINATED WITH A 



001116 000000 000000 000000 PARTAB 



WORD 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
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DECX.MAC 19-SEP-78 14:52 DATABASE - SYSTEM CLOCK TABLE — SCTAB — GLOBAL DEFINITIONS 



SEQ 0027 



745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
75S 
759 
760 
761 
762 
763 
764 
765 
765 



.SBTTL DATABASE - SYSTEM CLOCK TABLE — SCTAB — GLOBAL DEFINITIONS 



; + 



SYSTEM CLOCK TABLE GLOBAL DEFINITIONS 



.GLOBL SCTAB 

.GLOBL CLOCK 

.GLOBL CLOCKL 

.GLOBL CLOCKP 

; + 

; GLOBALS REFERENCED BY THIS DATABASE 



.GLOBL KW11L 

.GLOBL KW11P 

.GLOBL LCLEAR 

•GLOBL PCLEAR 



POINTS TO THE HEADER ADDRESS OF KW11-L 

OPTION MODULE 

POINTS TO THE HEADER ADDRESS OF KW11-P 

OPTION MODULE 

INITIALIZE MODULE TIME TABLE IN KW11-L 

INITIALIZE MODULE TIME TABLE IN KW11-P 
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DECX.MAC 19-SEP-78 14:52 DATABASE - SYSTEM CLOCK TABLE AND OFFSET ADDRESSES 



SEQ 0028 



763 






769 






770 






771 






772 






773 






774 






775 






775 


001 160 




777 


001 160 


ocooco 


773 


001 162 


000000G 


779 


001 164 


OOOOOOG 


780 


001 166 


000000 


781 


001 1 70 


000000 


782 


001 172 


000000 


783 


001174 


OOOOOOG 


784 


001 176 


COOOOCG 



SBTTL DATABASE - SYSTEM CLOCK TABLE AND OFFSET ADDRESSES 



SYSTEM CLOCK TABLE ALLOCATION 



SCTAB: 










CLOCK: 


.WORD 





SC 


CLO 


CLOCKL: 


.WORD 


KW11 L 


SC 


CKL 


CLOCKP: 


.WORD 


KW1 1P 


SC 


CKP 




.WORD 





SC 


ADR 




.WORD 





SC 


HLD 




.WORD 





SC 


SCA 




.WORD 


LCLEAR 


SC 


ALC 




.WORD 


PCLEAR 


SC 


APC 
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DECX.MAC 19-SEP-78 14:52 DATABASE - DEVICE REGISTER GLOBAL DEFINITIONS 



SEQ 0029 



783 
787 
783 
783 
790 
791 
792 
793 
794 
795 
795 
797 
798 
799 
300 
301 
802 
803 
304 
305 
806 
807 
808 
309 
810 
81 1 
812 
813 
314 
815 
816 
817 



SBTTL DATABASE - DEVICE REGISTER GLOBAL DEFINITIONS 



001200 
001202 
001204 
001206 
001210 
001212 



177560 
177562 
177564 
177566 
17 7514 
177516 



GLOBL 


RCSR 


GLOBL 


RBUF 


GLOBL 


XCSR 


GLOBL 


XBUF 


GLOBL 


LPCSR 


GLOBL 


LPBUF 



SBTTL DATABASE - DEVICE REGISTER DEFINITIONS 



RCSR: 


.WORD 


177560 


RBUF: 


.WORD 


177562 


XCSR: 


.WORD 


177564 


XBUF: 


• WORD 


177566 


LPCSR: 


.WORD 


177514 


LPBUF: 


.WORD 


177516 



DL-11 RECEIVER CONTROL AND STATUS REGISTER 

DL-11 RICEIVER DATA SUFFER REGISTER 

DL-11 TRANSMITTER COMTROL AND STATUS REGISTER 

DL-11 TRANSMITTER DATA BUFFER REGISTER 

LP 11 CONTROL STATUS REGISTER 

LP 11 BUFFER REGISTER 
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DECX.MAC 19-SEP-78 14:52 DATABASE - CPU RELATED REGISTERS GLOBAL DEFINITIONS 



SEO 0030 



819 

820 

821 

822 

823 

824 

825 

825 

327 

823 

829 

830 

331 

832 

833 

834 

335 

835 

837 

838 

839 

340 

841 

842 

843 

844 

345 

846 

847 

843 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 



.SBTTL DATABASE - CPU RELATED REGISTERS GLOBAL DEFINITIONS 



00 
00 
00 
00 
00 
00 



1214 
1216 
1220 
1222 
1224 
1226 



177740 
177742 
177744 
177750 
177766 
177760 



+ 




11/70 




GLOBL 


CPULAR 


GLOBL 


CPUHAR 


GLOBL 


CPUMER 


GLOBL 


CPUMNT 


GLOBL 


CPUCPE 


GLOBL 


CPULSZ 



CACHE CONTROL REGISTER AND TEMPORARY STORAGE 



■GLOBL CCNTRL 
.GLOBL KONTRL 



SBTTL DATABASE - CPU RELATED REGISTER DEFINITIONS 



11/70 



CPULAR: .WORD 177740 

CPUHAR: .WORD 177742 

CPUMER: .WORD 177744 

CPUMNT: .WORD 177750 

CPUCPE: .WORD 177766 



CPULSZ: .WORD 



177760 



LOW ERROR ADDRESS REGISTER 
HIGH ERROR ADDRESS REGISTER 
MEMORY SYSTEM ERROR REGISTER 
MAINTENANCE REGISTER 
CPU ERROR REGISTER 
LOW SIZE REGISTER 



CACHE CONTROL REGISTER AND TEMPORARY STORAGE 



00 
00 



1230 
1232 



177746 
000000 



CCNTRL: .WORD 177746 
KONTRL: .WORD 



;CACHE CONTROL REGISTER 

; TEMPORARY STORAGE FOR CACHE OPERATIONS 
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DECX.MAC 19-SEP-78 14:52 DATABASE - MISCELLANEOUS STORAGE GLOBAL DEFINITIONS 



SEO 0031 



367 
863 
869 
370 
371 
872 
873 
374 
875 
376 
377 
878 
379 
880 
381 
882 
833 
884 
885 
385 
887 
383 



SBTTL DATABASE - MISCELLANEOUS STORAGE GLOBAL DEFINITIONS 



.GLOBL CTRLOF 



SBTTL DATABASE - MISCELLANEOUS STORAGE 



001234 000000 



CTRLOF: .WORD 



; ENABLE/DISABLE TERMINAL OUTPUT FLAG 
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SEO 0032 



890 
391 
392 
893 
894 
395 
39S 
397 
393 
893 
900 
901 
902 
903 
904 
905 
906 
907 
903 
309 
910 
91 1 
912 
913 
914 
915 
916 
917 
918 
913 
920 
921 
922 
923 
924 
925 
926 
927 
923 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 



S3TTL KERNEL - MODULE HEADER 



++ 
MODULE NAME: 

KERNEL ROUTINE 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE CONTROLS THE EXECUTION OF THE DEC/X-11 SYSTEM 
EXERCISER, I.E., IT IS RESPONSIBLE FOR STARTING THE EXERCISER 
WHEN FIRST LOADED INTO MEMORY, INITIALIZING TKE ACTUAL RUNNING 
OF IT, COORDINATING THE RECEIVING AND SERVICING OF THE REAL TIME 
EVENTS AND PERFORMING SCHEDULING AND ACTIVATING FUNCTIONS OF THE 
EXERC I SER . 
THIS IS ACCOMPLISHED WITH THE USE OF THE FOLLOWING ROUTINES: 

TINE PERFORMS THE DUTIES REQUIRED 
HE EXERCISER GOING WHEN FIRST 
NTO MEMORY 

TINE PERFORMS THOSE FUNCTIONS NEC- 
GET THE EXERCISE RESTARTED 

HAS BEEN RUNNING 
TINE IS RESPONSIBLE FOR INITIAL- 
THE EXERCISER 

TINE COORDINATES THE RECEIVING 
XERCISER'S REALTIME EVENTS AND 
ATCHING OF CONTROL TO THE AP- 
E SERVICE ROUTINES 

TINE PERFORMS THE DE-QUEUING AND 
NG FUNCTIONS OF THE MONITOR 



DX 


STRT 


THIS ROU 
TO GET T 
LOADED I 


DX 


RSTRT 


THIS ROU 
ESSARY T 
AFTER IT 


DX 


INI 


THIS ROU 
IZATING 


DX 


CAPTURE 


THIS ROU 
OF THE E 
THE DISP 
PROPRIAT 


DX 


DEQUEUE 


THIS ROU 
ACTIVATI 


INPUTS: 






NONE 






IMPLICIT INPUTS: 






NONE 






OUTPUTS: 






NONE 






IMPLICIT OUTPUTS 






NONE 






PATHOLOGICAL CONNECTIONS: 




MANY 







SUBORDINATE ROUTINES CALLED: 
1 . 

FUNCTIONAL SIDE EFFECTS: 

VERSION: 
0.0 

EDIT BY 



DATE 



REASON 
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SEQ 0033 



947 
943 
949 
350 
951 
952 
(1) 
953 
954 
955 
956 
957 
958 
959 
963 
961 
962 
963 
964 
965 
965 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 



001236 
001236 



000001 
000001 



SBTTL KERNEL - COMMON DEFINITIONS AND REFERENCES 



.MCALL STRUCT 
STRUCT 
PRINT ;SPMAC: VERSION 1.1 
$LSTIN = 1 
SLSTTAG = 1 



J**************** 



; REFERENCED BY OTHER MODULES 



GLOBL 


DX 


CAP 


GLOBL 


DX 


DEO 


GLOBL 


DX 


RSTRT 


GLOBL 


DX 


INI 


GLOBL 


DX 


HDR 


GLOBL 


DX 


RET 


GLOBL 


DX 


MON 


GLOBL 


DX 


R5 


GLOBL 


DX 


KFL 


GLOBL 


DX 


SP 



^ft************** 



GLOBAL REFERENCES 



.GLOBL 


ST. EXT 


.GLOBL 


HT.EXT 


.GLOBL 


APTSLP 


.GLOBL 


RSTRCY 


.GLOBL 


KBINI 


.GLOBL 


CMDRST 


.GLOBL 


PREVT 


.GL03L 


PWRDOW 


.GLOBL 


MSGDEQ 


.GLOBL 


MSGDHOOK 


.GLOBL 


SAVREG 


.GLOBL 


RESREG 


•GLOBL 


LPINT 


•GLOBL 


CQINI 


.GLOBL 


TQINI 


. GLOBL 


CHKACT 


.GLOBL 


CHKEOP 


.GLOBL 


CLREOP 


•GLOBL 


ACTIV 


•GLOBL 


AC.TPTR 


•GLOBL 


AC. TYPE 


•GLOBL 


AC.MPTR 


•GLOBL 


BACTIV 



CAPTURE EVENT ROUTINE ENTRY POINT 
DE-QUEUING ROUTINE ENTRY POINT 
RESTART EXERCISER ENTRY POINT 
INITIALIZATION ROUTINE 
MONITOR'S NEXT-TO-EXECUTE SLOT 
MONITOR'S NEXT-TO-EXECUTE SLOT 
MONITOR ID 

;CR FLAG 



MODULE'S HEADER ADDRESS 
MODULE'S RESUME ADDRESS 



SOFTWARE TRAP HANDLER EXIT ADDRESS 

HARD ERROR TRAP HANDLER EXIT ADDRESS 

APT SIZING AND SLEEP ROUTINE 

RESTART RECOVERY ROUTINE 

KEYBOARD DRIVER ENTRY POINT 

OUTPUT KEYBOARD PROMPT ROUTINE 

PROCESS EVENT MODULE ENTRY POINT 

POWER DOWN MODULE ENTRY POINT 

MESSAGE DE-QUEUING MODULE ENTRY POINT 

MESSAGE HOOK MODULE ENTRY POINT 

SAVE REGISTERS ROUTINE 

RESTORE REGISTERS ROUTINE 

LP11 INTERRUPT ROUTINE 

CONTROL QUEUE INIT I ALIZATOR MODULE ENTTRY POINT 

TYPE QUEUE IN IT I ALIZATOR MODULE ENTRY POINT 

CHECK FOR ACTIVE MODULES 

CHECK FOR END OF PASS TIME 

CLEAR EOP INDICATORS 

ACTIVATE NEXT OPTION MODULE ROUTINE 

MODULE-TYPE-LIST POINTER 

MODULE-TYPE-LIST 

MODULE-QUEUE-LIST POINTER 

BACKGROUND MODULE ACTIVATE ROUTINE 
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SEO 0034 



1002 
1003 
1004 
1005 
1 006 
1 007 
1008 
1009 
1010 
101 1 
1012 
1013 
1014 
1015 
1015 
1017 
1013 
1019 
1 020 
1021 
1022 
1023 
1024 
1025 
1 025 
1 027 
1023 
1 025 
1030 
1031 
1032 
1033 
1034 
1035 
1035 
1037 
1 038 
1039 
1040 
1041 
1042 



1043 

1044 
1045 



1046 



001 236 
001240 
001 242 
001244 
001 246 
001250 



001252 
001260 
001266 
001 274 
001302 
00131C 
001316 
001324 
001332 
001333 
001340 
001345 
001353 
001360 
001366 
001371 



000000 
000000 

ocoooo 

000000 
001740 
002200 



042045 
030455 
051 1 05 
020122 
0521 1 1 
030060 
0421 15 
054 1 03 
101 
045 
047524 
020040 
045 
046505 
035105 
000005 



041505 
020061 
044503 
046450 
051 1 17 
030056 
055055 
047515 

047515 
035122 
020040 
054523 
051440 
040 



054057 
0541 05 
042523 
0471 17 
053040 
020051 
026532 
02S516 

044516 
020040 
000 
052123 
0551 11 



GLOBL 


BA.STAT 


GLOBL 


CMDPRC 


GLOBL 


BA.MPTR 


GLOBL 


BA.HDR 


GLOBL 


BA.RET 


GLOBL 


BA.STAT 


GLOBL 


MD.BSY 


GLOBL 


DEOCQ 


GLOBL 


IERRLO 


GLOBL 


ERREC 


GLOBL 


RELCTL 


GLOBL 


SIZPOL 


GLOBL 


PRRLOC 


GLOBL 


BDACNV 


GLOBL 


KTSET 


GLOBL 


KCON 


GLOBL 


KKTON 


GLOBL 


KMON 


GLOBL 


KPON 


GLOBL 


KRUN 


GLOBL 


KROTON 


GLOBL 


DPSTRT 


GLOBL 


DPEOP 



BACKGROUND MODULE STATUS WORD 

COMMAND PROCESS 

BACKGROUND MODULE LIST POINTER 

BACKGROUND NEXT-TO-EXECUTE SLOT 

BACKGROUND NEXT-TO-EXECUTE SLOT 

BACKGROUND MECHANISM STATUS WORD 

MESSAGE DE-QUEUE BUSY INDICATOR 

DE-OUEUE NEXT ENTRY IN CONTROL QUEUE 

INITIALIZE ERROR LOGGING CPU'S ROUTINE 

ERROR RECOVERY ROUTINE 

RELOCATION MODULE 

SIZE AND POLL SYSTEM 

PROCESS RELOCATION 

BINARY TO DECIMAL ASCII CONVERSION 

KT APRS SETUP 

CACHE ON KEYBOARD COMMAND 

KT ON KEYBOARD COMMAND 

MAP BOX ON KEYBOARD COMMAND 

PARITY ON KEYBOARD COMMAND 

RUN COMMAND 

WRITE BUFFER ROTATION KEYBOARD COMMAND 

AUTOMATIC MODE START-UP 

AUTOMATIC MODE EQP ROUTINE 



**************** 



LOCAL STORAGE - PROGRAM IMPURE STORAGE 



DX.KFL: 

DX.HDR: 

DX.RET: 

DX.QFLG: 

DX.R5: 



WORD 

WORD 

WORD 

.WORD 

WORD 



DX.SP: .WORD 








R5VALUE 
SPVALUE 



SET WHEN A CR HAS BEEN STRUCK 

MONITOR'S NEXT-TO-EXECUTE SLOT: MODULE'S HEADER ADDRESS 

MONITOR'S NEXT-TO-EXECUTE SLOT: MODULE'S RESUME ADDRESS 

CONTROL QUEUE UNDERFLOW INDICATOR 

POINTER TO MONITOR'S R5 STACK 

POINTER TO MONITOR'S R6 STACK 



**************** 



LOCAL STORAGE - MESSAGES, ETC. 
DX. TITLE: .ASCII ?%DEC/X-1 1 EXERCISER (MONITOR VOO.O) MD-ZZ-CXMON-A? 



ASCII 



/%MONITOR: / 



DX.MON: .ASCIZ / / 
DX.SIZ : .ASCII /%SYSTEM SIZE: / 



DX.SZK : .BLKB ~D<5> 
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SEQ 0035 



1047 
1048 



1049 
1 050 
1051 
1052 
1053 
1054 
1055 
1053 
1057 



001376 
001402 
001410 
001416 
001424 
C01432 



001440 
001442 



045440 
047524 
02 0124 
042105 
051 1 1 4 
032040 
001440 



001442 
000015 



000045 
052040 
0421 14 
040511 
046040 
022460 



051505 
046440 
041440 
041517 
000 



DX.MED 



DX.FAK 
DX. FK1 



•ASCIZ / K%/ 

.ASCIZ /TO TEST LD MEDIA CLR LOC 40%/ 



EVEN 



• WORD 
.WORD 



DX.FK1 
CR 



;FAKE KEYBOARD BUFFER 



BOTTOM OF R5 STACK 
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SEQ 0036 



1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1063 
1069 
1070 
1 071 
1072 
1073 
1074 
1 075 
1075 
1077 

(4) 
1073 

(4) 
1079 

(4) 
1080 
1081 
1082 
1083 
1084 
1085 
1086 

(4) 
1087 

(6) 
1088 
1089 
1090 

(2) 
1091 
1092 
1093 
1094 
1095 
1096 

(6) 

(9) 
1097 
1098 
1099 
1 100 
1 101 
1 102 
1 103 

(4) 
1 104 

(4) 



002200 



002200 
002200 
002206 
002206 
002212 
002212 



002216 
002216 
002224 
002224 



002232 
002232 



002234 
002234 
002240 



002242 
002242 
002250 
002250 



002200 



012767 OOOOOOG 175616 
012706 002200 
012705 001740 



012767 177560 176754 
042767 000002 176566 

000005 



005767 176610 
001022 



012767 003242 OOOOOOG 
012767 003242 OOOOOOG 



.SBTTL KERNEL - START UP ROUTINE 



.=2200 



THIS ROUTINE IS RESPONSIBLE FOR SETTING UP THE DIFFERENT SOFTWARE COMPONENTS 

OF THE MONITOR WHEN THE EXERCISER IS FIRST LOADED INTO MEMORY OR RESTARTED AT LOC . 100 



DX.STRT : 

+ 



STUFF THE POWERFAILURE VECTOR AND SET UP THE STACKS 

LET PWRFL := tfPWRDOWN 
LET SP := tfSPVALUE 
LET R5 : = #R5VALUE 



MOV 
MOV 
MOV 



#PWRDOWN, PWRFL 

#SPVALUE,SP 

#R5VALUE,R5 



IF UNDER APT, WE MAY OR MAY NOT HAVE A SYSTEM TTY. FOR NOW, ASSUME 
WE DO AND STUFF THE TTY ADDRESS. ALSO, CLEAR THE "NO APT TTY" BIT IN 
CONFIGURATION WORD 0. 



LET RCSR := #177560 

LET DTABLE+DT.CFO := DTABLE+DT . CFO CLR.BY 0NOAPTY 

INLINE <RESET> 

IF FIRST TIME THROUGH DO THE FOLLOWING 
IF DTABLE+DT. ESIZ EQ #0 THEN 



STUFF THE EXIT ADDRESS FOR THE TWO TRAP HANDLERS: SOFTWARE 
AND HARDWARE 



MOV 
BIC 

RESET 



#177560, RCSR 
#NOAPTY,DTABLE+D 



TST 

BNE 



DTABLE+DT. ESIZ 
50000$ 



LET ST. EXT := #DX.CAP 
LET HT.EXT := 0DX.CAP 



MOV 
MOV 



#DX.CAP,ST.EXT 
#DX. CAP, HT.EXT 
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SEO 0037 



05 
03 
07 
03 
09 
10 
1 1 
4) 
12 
4) 
13 
3) 
4) 
3) 
3) 
14 
2) 
15 
15 
17 
13 
4) 
3) 
1 9 
2D 
21 
22 
25 
24 
6) 
25 
4) 
25 
3) 
4) 
3) 
3) 
27 
23 
29 
30 
31 
32 
6) 
9) 
33 
3) 
5) 
4) 
3) 
3) 
34 
4) 
35 
4) 
36 



002256 
002256 
002262 
0C2262 
C02266 
002266 
002270 
C02274 
002300 
002302 
002302 



002304 
002304 
002306 



002306 
002306 
002314 
00231 4 
002320 
002320 
002322 
002326 
002332 



002334 
002334 
002342 
002344 
002344 
002346 
002352 
023 56 
002362 
002364 
002364 
0C2364 
C02364 



026727 
00 141 

01 0546 
01 2745 
01 2745 
004767 
012605 



SIZE AND POLL THE SYSTEM AND SORT MODULE LIST. THEN DO ANOTHER RESET. 
CLEAR THE STAT INDICATORS 



005067 176532 

005067 176530 

01 0546 

012745 001004 

004767 OOOOOOG 

012605 

000005 



000427 



042767 177400 176500 

005067 176476 

01 0546 

012745 001004 

004767 OOOOOOG 
01 2605 



LET DTABLE+DT.STO : = #0 

LET DTABLE+DT.ST1 := #0 
CALL SIZPOL IN <#DTABLE> 

INLINE <RESET> 

ELSE THIS IS NOT THE FIRST TIME THROUGH. 
ELSE 

GO RECOVER FROM THE RESTART, AND DON'T BE LONG 

LET DTABLE+DT.STO := DTABLE+DT.STO CLR.BY #177400 
LET DTABLE+DT.ST1 := #0 
CALL RSTRCY IN <#DTABLE> 



CLR 

CLR 

MOV 
MOV 
JSR 
MOV 

RESET 



BR 



50000$ 



BIC 

CLR 

MOV 
MOV 
JSR 
MOV 



IF THE RTE IS RELOCATED, THEN RELOCATE BACK DOWN 



IF DTABLE+DT.ADDR NE #200 THEN 



DTABLE+DT.STO 

DTABLE+DT.ST1 

R5,-(SP) 
#DTABLE,-(R5) 
PC, SIZPOL 
(SP)+,R5 



50001$ 



#177400, DTABLE+D 

DTABLE+DT.ST1 

R5,-(SP) 
#DTABLE,-(R5) 
PC, RSTRCY 
(SP)+,R5 



176506 000200 



000200 
001004 
OOOOOOG 



CmLL PRRLOC IN <#DTABLE,#200> 



ENDIF 



ENDIF 





CMP 


DTABLE+DT.ADDR,# 




BEO 


50002$ 




MGV 


R5 t -(SP) 




MOV 


#200, -(R5) 




MOV 


#DTABLE,-(R5) 




JSR 


PC, PRRLOC 




MOV 


(SP)+,R5 


50002$: 






50001$: 
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SEO 0038 



1 137 








1 133 








1 133 








1 140 








1 141 








1 142 


002364 






(6) 


0023S4 


005737 


000044 


(9) 


002370 


001407 




1 143 


0C2372 






(3) 


002372 


01 0546 




(4) 


002374 


01 2745 


001004 


(3) 


002400 


004767 


OOOOOOG 


(3) 


0C2404 


012605 




1 144 


002406 






(4) 


002406 


000403 




(3) 


002410 






1 145 


002410 






(6) 


002410 


042767 


000200 176402 


1 146 


002416 






(4) 


002416 






1 147 








1 146 








1 149 








1 150 








1 151 








1 152 


002416 






(4) 


002416 


005046 




1 153 


002420 






(4) 


002420 


012746 


002426 


1 154 


002424 






(2) 


002424 


000002 




1 155 


002426 






(2) 


002426 






1 156 








1 157 








1 158 








1 159 








1 160 








1 161 


002426 






(3) 


002426 


01 0546 




(7) 


002430 


01 2745 


002452 


(6) 


002434 


01 2745 


001252 


(5) 


002440 


01 2745 


000002 


(4) 


002444 


01 2745 


001004 


(3) 


002450 


004767 


OOOOOOG 


(3) 


002454 


012605 




1 162 


002456 






(2) 


002456 






1 163 


002456 






(2) 


002456 


000240 




1 164 


002460 






(2) 


002460 


000776 




1 165 


002462 






(2) 


002462 






1 166 








1167 









IF LOADED UNDER APT, DO APT INITIALIZATION. OTHERWISE, CLEAR THE APT 
PRESENT BIT. 



IF @#44 NE #0 THEN 

CALL APTSLP IN <#DTABLE> 



TST 


@>#44 


BEO 


50003$ 


MOV 


R5,-(SP) 


MOV 


#DTA3LE,-(R5) 


JSR 


PC, APTSLP 


MOV 


(SP)+,R5 



ELSE 



ENDIF 



LET DTABLE+DT.CFO 



50003$: 
= DTABLE+DT.CFO CLR.BY #APTPRES 



50004$: 



BR 



BIC 



LOWER THE PRIORITY 

LET "(SP) := #0 
LET ~(SP) := #7$ 
INLINE <RTI> 
INLINE <7$:> 

OUTPUT MESSAGE TO IDENTIFY SELF 
CALL MSGDHOOK IN <#DTABLE , #MSGPOP , #DX. TIT LE , #2$> 



CLR 
MOV 
RTI 
7$: 



INLINE <1$:> 

INLINE <NOP> 

INLINE <BR 1$> 

INLINE <2$:> 

; + 



50004$ 



#APTPRES,DTABLE+ 



"(SP) 
#7$,-(SP) 



MOV 


R5,-(SP) 


MOV 


#2$,~{R5) 


MOV 


#DX. TITLE, ~(R5) 


MOV 


#MSGP0P,-(R5) 


MOV 


#DTA3LE,-(R5) 


JSR 


PC, MSGDHOOK 


MOV 


(SP)+,R5 


1$: 




NOP 




ER 1$ 




2$: 
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; NOW DETERMINE SYSTEM SIZE IN THOUSANDS 



LET RO := #0 

LET R1 := DTABLE+DT.SSI2 

WHILE R1 GT #0 DO 



SEO 0039 



168 








169 








170 








171 


002462 






(4) 


C02462 


0050CO 




172 


002464 






(4) 


002464 


01 6701 


176362 


173 


002470 






(4) 


002470 






(6) 


C02470 


005701 




(9) 


002472 


003404 




174 


002474 






(6) 


002474 


1627C1 


000040 


175 


002500 






(6) 


002500 


005200 




175 


C02502 






(4) 


002502 


000772 




(3) 


002504 






177 








178 








179 








18C 








181 








182 








183 


002504 






(3) 


002504 


01 0546 




(5) 


002506 


01 2745 


001371 


(4) 


002512 


01 0045 




(3) 


002514 


004767 


OOOOOOG 


(3) 


002520 


012605 




184 








185 








186 








187 








188 








139 


002522 






(3) 


002522 


01 0546 




(7) 


002524 


012745 


002556 


(6) 


002530 


01 2745 


001353 


(5) 


002534 


012745 


000002 


(4) 


002540 


01 2745 


001004 


(3) 


002544 


004767 


OOOOOOG 


(3) 


002550 


01 2605 




190 


002552 






(2) 


002552 






191 


002552 






(2) 


002552 


000240 




192 


002554 






(2) 


002554 


000775 




193 


002556 






(2) 


002556 






194 








1S5 








196 








197 








198 









LET R1 :- R1 - #40 

LET RO := RO + #1 



ENDDO 





CLR 


RO 




MOV 


DTABLE 


50005$: 








TST 


R1 




BLE 


50006$ 




SUB 


#40, R1 




INC 


RO 




BR 


50005$ 


50006$: 







CONVERT SIZE TO DECIMAL ASCIZ 



CALL BDACNV IN <R0,#DX.SZK> 



MOV R5,-(SP) 

MOV #DX.SZK,-(R5) 

MOV R0,-(R5) 

JSR PC, BDACNV 

MOV (SP)+,R5 



OUTPUT SYSTEM SIZE MESSAGE 



CALL MSGDHOOK IN <#DTABLE , #MSGPOP , #DX . SIZ , #4$> 



MOV 


R5,-(SP) 


MOV 


#4$,-(R5) 


MOV 


#DX.SIZ,-(R5) 


MOV 


#MSGP0P,-(R5) 


MOV 


#DTABLE,-(R5) 


JSR 


PC, MSGDHOOK 


MOV 


(SP)+,R5 



INLINE <3$:> 

INLINE <NOP> 

INLINE <BR 3$> 

INLINE <4$:> 

IF KT PRESENT GO SET UP APRS 



3$: 

NOP 
BR 3$ 
4$: 



DECX-1 1 CONTROL MODULE MACY1 1 
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1 199 


002556 






(6) 


002556 


032767 


000400 176234 


(9) 


002564 


00 140 6 




1200 


002566 






(3) 


002563 


01 0546 




(4) 


002570 


01 2745 


001004 


(3) 


002574 


004767 


000000G 


(3) 


C02600 


012505 




1201 


002602 






(4) 


002602 






1202 








1203 








1204 








1205 








1206 








1207 








1203 


002602 






(3) 


002602 


004767 


002064 


1209 








1210 








121 1 








1212 








1213 








1214 


002606 






(6) 


002606 


005737 


000040 


(9) 


002612 


00141 6 




1215 


002614 






(3) 


002614 


01 0545 




(7) 


002616 


01 2745 


002650 


(6) 


002622 


01 2745 


001402 


(5) 


002626 


01 2745 


000002 


(4) 


002632 


01 2745 


001004 


(3) 


002536 


004767 


OOOOOOG 


(3) 


002642 


012605 




1216 


002644 






(2) 


0G2644 






1217 


002644 






(2) 


002644 


000240 




1218 


002646 






(2) 


002646 


000776 




1219 


002550 






(4) 


002650 






1220 


002650 






(2) 


002650 







30A(1C52) 20-SEP-7S 17:26 PAGE 34-4 
KERNEL - START UP ROUTINE 

IF 0KTPRES SETIN DTA3LE+DT . CFO THEN 



CALL KTSET IN <#DTABLE> 



SEO 0040 



ENDIF 



50007$: 



GO TURN ON PROCESSOR OPTIONS ACCORDING TO CONF. WD. 
AND UPDATE STATUS INDICATOR WORD. 



CALL DX.TURNON 



IF EXERCISER LOADED BY XXDP MEDIUM, OUTPUT MESSAGE, 



IF <M40 NE #0 THEN 



CALL MSGDHOOK IN <#DTABLE , #MSGPOP , #DX . MED , #6$> 



INLINE <5$:> 

INLINE <NOP> 
INLINE <BR 5$> 

ENDIF 

INLINE <6$:> 



50010$: 



BIT 
BEQ 

MOV 
MOV 
JSR 
MOV 



JSR 



#KTPPES,DTABLE+D 
50007$ 

R5,-(SP) 
#DTABLE,-(R5) 
PC, KTSET 
(SP)+ f R5 



PC, DX.TURNON 



TST 


@#40 


BEQ 


50010$ 


MOV 


R5,-(SP) 


MOV 


#6$,-(R5) 


MOV 


#DX.MED,-(R5) 


MOV 


#MSGP0P,-(R5) 


MOV 


#DTABLE,-(R5) 


JSR 


PC, MSGDHOOK 


MOV 


(SP)+,R5 


5$: 




NOP 




BR 5$ 





6$: 
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SEQ 0041 



1222 
1223 
1224 
1225 
1223 
1227 
1 223 
1229 
1230 

(4) 
1231 

(4) 
1232 

(4) 
1233 

(4) 
1234 
1235 
1236 
1237 
1238 
1239 

(4) 
1240 
1241 
1242 
1243 
1244 

(4) 
1245 
1245 
1247 
1243 
1249 
1250 
1251 
1252 

(3) 
1253 
1254 
1255 
1256 
1257 
1258 
125£ 
1260 
1261 
1262 

(6) 

(9) 
1263 

(6) 

(9) 
1264 

(3) 

(4) 



002650 

002650 012706 002200 

002654 

002654 010567 176370 

002660 

C02560 012705 001740 

002664 

002664 010567 176356 



002670 

002670 005067 176130 



002674 

002674 016767 176140 OOOOOOG 



002702 
002702 



002706 
002706 
002714 
002716 
002716 
002724 
002726 
002726 
002730 



004767 000112 



032767 
001031 

032767 
001405 

01 0546 
012745 



020000 176102 



000010 176074 



.SBTTL KERNEL - RESTART ROUTINE 



THIS ROUTINE PERFORMS THOSE FUNCTIONS NEEDED TO GET THE MONITOR GOING AGAIN 
AFTER IT HAS BEEN RUNNING 



DX.RSTRT: LET SP := #SPVALUE 
LET DX.SP : = SP 
LET R5 := #R5VALUE 
LET DX.R5 := R5 

CLEAR THE ERROR WORD. 
LET DTABLE+DT.ERR : = #0 

RESET THE BACKGROUND POINTER 



MOV 


#SPVALUE 


SP 


MOV 


SP, DX.SP 




MOV 


0R5VALUE 


R5 


MOV 


R5,DX.R5 





LET BA.MPTR 



DTABLE+DT. BLST 



CLR 



MOV 



DTABlE+DT.ERR 



DTABLE+DT. BLST,B 



GO DO THE NECESSARY MONITOR INITIALIZATION, AND HURRY BACK 



CALL DX.INI 



JSR 



PC, DX.INI 



IF THIS IS INITIAL START-UP AND WE ARE IN AUTOMATIC MODE (XXDP OR ACT— I 1 ) , 
THEN MOVE THEXXDP MONITOR (EVEN IF IT DOESN'T EXIST., SINCE WE DON"T KNOW 
WHETHER WE'RE UNDER XXDP OR ACT-1 1 ) TO JUST ABOVE THE 
EXERCISER. THEN FAKE A "RUN" COMMAND TO GET STARTED. 



IF tfAUTOST NOTSETIN DTABLE+DT . ST 1 THEN 



IF #AUTO SETIN DTABLE+DT . CFO THEN 



CALL DPSTRT IN <#DTABLE> 



001004 



BIT #AUTOST,DTABLE+D 

BNE 50011$ 

BIT #AUTO, DTABLE+DT. 

6EQ 50012$ 

MOV R5,-(SP) 

MOV #DTABLE,-(R5) 



DECX-11 CONTROL MODULE MACY11 30A(1052) 20-SEP-78 17:26 PAGE 35-1 
DECX.'ViAC 19-SEP-73 14:52 KERNEL - RESTART ROUTINE 



SEO 0042 



(3) 


002734 


004767 


OOOOOOG 


(3) 


002740 


01 2605 




1265 


002742 






(4) 


002742 






1265 








1267 








1263 








1269 








1270 








1271 


002742 






(6) 


C02742 


032767 


000200 176050 


(9) 


002750 


00141 




1272 


002752 






(3) 


002752 


01 0546 




(5) 


002754 


01 2745 


000000 


(4) 


002760 


01 2745 


001004 


(3) 


002764 


004767 


OOOOOOG 


(3) 


0C2770 


012605 




1273 


002772 






(4) 


002772 






1274 


002772 






(6) 


002772 


052767 


020000 176016 


1275 


003000 






(4) 


003000 






1275 








1277 








1273 








1279 








1280 








1281 








1282 








1283 


003000 






(3) 


003000 


01 0546 




(4) 


003002 


01 2745 


001004 


(3) 


003006 


004767 


OOOOOOG 


(3) 


003012 


012605 




1284 


003014 






(2) 


003014 


000137 


003634 



JSR 
MOV 



ENDIF 



PC.DPSTRT 
(SP)+,R5 



50012S: 



IF THIS IS INITIAL START-UP WE ARE UNDER APT - GET THIS THING RUNNING RIGHT AWAY ! 



IF 0APTPRES SETIN DTABLE+DT . CFO THEN 



CALL KRUN IN <#DTABLE,#0> 



ENDIF 



LET DTABLE+DT. ST1 : = DTABLE+DT . ST1 SET. BY 



ENDIF 



OUTPUT THE KEYBOARD PROMPT AND LET THE OPERATOR KNOW THAT THE 
SYSTEM IS NOW AWAITING KEYBOARD INPUT 



CALL CMDRST IN <#DTABLE> 





BIT 


#APTPRES,DTABLE+ 




BEO 


50013$ 




MOV 


R5,-(SP) 




MOV 


#0,-(R5) 




MOV 


ROTABLE, -(R5) 




JSR 


PC, KRUN 




MOV 


(SP)+,R5 


50013$: 






#AUTOST 








BIS 


#AUTOST,DTABLE+D 


50011$: 







INLINE <JMP 



@#DX.DEQ> 



MOV 


R5,-(SP) 


MOV 


#DTABLE,-(R5) 


JSR 


PC, CMDRST 


MOV 


(SP)+,R5 


JMP 


@#DX.DEQ 



DECX-1 1 
DECX.MA 

1286 
1287 
1288 
1289 
1290 
1 291 
1292 
1293 
1294 
1295 

(2) 
1296 
1297 

(3) 
1296 
1299 
1300 
1301 
1302 
1303 
1304 

(3) 
1305 

(3) 
1306 
1307 
1306 
130S 
1 310 
131 1 

(6) 

(9) 
1312 

(3) 
1313 

(4) 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 

(4) 
1323 

(4) 
1324 

(6) 
1325 

(6) 
1326 

(6) 
1327 
1328 
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.SBTTL KERNEL - INITIALIZATION ROUTINE 



SEQ 0043 



003020 
C03020 

00302C 
003020 



030 34 
003034 
003042 
003044 
003044 
003050 
003050 



004767 000000G 



003024 

003024 004767 OOOOOOG 

003030 

003030 004767 OOOOOOG 



032767 
001402 



014000 175756 



004767 OOOOOOG 



THIS ROUTINE PERFORMS THE INITIALIZATION FUNCTIONS THAT ARE REQUIRED 
TO GET THE DEC/X-1 1 MONITOR GOING. ONCE THE INITIALIZATION IS COMPLETE 
AND THE MONITOR IS RUNNING, CONTROL IS RETURNED TO THE CALLER 



ROUTINE DX.INI 
CALL SAVREG 



DX.INI: 



JSR 



PC, SAVREG 



INITIALIZE THE QUEUE STRUCTURES - BOTH THE CONTROL QUEUE AND THE 
TYPE QUEUE 



CALL CQINI 
CALL TQINI 

INITIALIZE THE ERROR LOGGING STUFF 
IF *PDP70!PDP60 SETIN DTABLE+DT . CFO THEN 

CALL IERRLO 

ENDIF 



JSR 
JSR 



PC, CQINI 
PC.TQINI 



BIT 
BEQ 

JSR 



#PDP70!PDP60,DTA 
50002$ 

PC, IERRLO 



50002$: 



INITIALIZE THE OPTION MODULE SERVICING MECHANISM, WHICH CONSISTS OF RESETTING 
THE POINTERS FOR THE MODULE-TYPE-LIST AND THE MODULE-QUEUE-LI ST , CLEARING THE 
RELOCATION-MODE FLAGS, RESETTING THE ASSOCIATED BITS IN THE STATUS INDICATOR WORD 
ALSO, CLEAR THE SBKSEL BIT. 



003050 LET AC.TPTR := tfAC.TYPE 

003050 012767 OOOOOOG OOOOOOG MOV 

003056 LET AC.MPTR := tfAC.MODQ 

003056 012767 OOOOOOG OOOOOOG MOV 

003064 LET DTABLE+DT . ST1 := DTABLE+DT . ST 1 SET. BY #CK7IM 

003064 052767 100000 175724 BIS 

003072 LET DTABLE+DT . STO := DTABLE+DT . STO CLR.BY #MODEXH IMODHOLD ! BKMODE ! TMPIO 

003072 042767 046002 175714 BIC 

003100 LET DTABLE+DT. ST1 : = DTABLE+DT . ST 1 CLR.BY #SBKSEL 

003100 042767 010000 175710 BIC 

; + 



#AC. TYPE, AC.TPTR 
0AC.MODQ, AC.MPTR 
#CKTIM, DTABLE+DT 
#MODEXH IMODHOLD! 
#SBKSEL,DTABLE+D 



005067 000000G 



016700 175720 

00571 
001412 

011001 

042761 004000 00C026 

142761 000001 000005 

062700 000002 

000764 



DECX-11 CONTROL MODULE MACY11 30A(1052 
DECX.MAC 19-SEP-78 14:52 



1329 
1330 
1 331 

1332 003106 
(4) 003106 
1333 
1334 
1335 
133S 
1337 

1338 0C3112 
(4) 003112 

1339 003116 
(4) 003116 
(6) 003116 
(9) 003120 

1340 003122 
(4) 003122 

1341 003124 
(6) 003124 

1342 003132 
(6) 003132 

1343 CC3140 
(6) 003140 

1344 003144 
(4) 003144 

(3) 003146 
1345 

1346 
1347 
1 34B 
1 349 
1350 

1351 003146 

(4) 003145 

1352 003152 
(4) 003152 
(6) 003152 
(9) 003156 

1353 003160 
(4) 003160 

1354 003162 
(6) 003162 

1355 003170 
(6) 003170 

1356 003176 
(6) 003176 

1357 003202 
(4) 003202 
(3) 003204 

1356 
1359 
1360 
1361 
1362 
1363 



016700 175666 

021027 000000 
001412 

01 1 001 

042761 100000 000026 

052761 000020 000026 

062700 000002 

000763 
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; RESET THE BACKGROUND STATUS WORD 



LET BA.STAT := #0 



SEQ 0044 



CLR BA.STAT 



NOW RESET THE OPTION MODULES, WHICH CONSISTS OF RESETTING THEIR ACTBIT AND EOPBIT BITS 



LET RO := DT4BLE+DT .MLST 
WHILE (RO) NE #0 DO 

LET R1 := (RO) 

LET 5TAT(R1) := STAT(RI) CLR. BY #ACTBIT 
LET XFLAG(R1) :B= XFLAG(R1) CLR. BY 0EOPBIT 
LET RO := RO + #2 

ENDDO 



MOV 



50004$ 



GET BACKGROUND MODULE LIST POINTER AND MAKE SURE THAT THEY ARE 
ALL BKMODS. DUE TO THE TMPIO CONDITION. 



MOV 



LET RO := DTABLE+DT . 3LST 
WHILE (RO) NE #ENDLST DO 

LET R1 := (RO) 

LET STAT(R1) := STAT(R1) CLR. BY #IOMOD 
LET STAT(R1) := STAT(R1) SET. BY #BKMOD 
LET RO := RO + #2 
ENDDO 



INITIALIZE THE MESSAGE DE-QUEUING MECHANISM BY RESETTING IT'S BUSY 
INDICATOR 



DTABLE+DT. MLST t R 



50003S: 


TST 

BEQ 


(RO) 
50004$ 






MOV 


(RO) ,R1 






3IC 


#ACTBIT 


STAT(R1 ) 




BICB 


#EOPBIT 


XFLAG(R1 




ADD 


#2,R0 






BR 


50003$ 





DTABLE+DT. BLST,R 



50005$: 


CMP 
BEQ 


(RO) ,#ENDLST 
50006$ 




MOV 


(RO) ,R1 




BIC 


#I0M0D,STAT(R1) 




BIS 


#BKM0D,STAT(R1) 




ADD 


#2,R0 


50006$: 


BR 


50005$ 
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SEO 0045 



1364 

(4) 

1365 

1 363 

1367 

1363 

1369 

1370 

1371 

1372 

(6) 

(9) 

1373 

(3) 

(4) 

(3) 

(3) 

1374 

(4) 

1375 

1376 

(3) 

1377 

1373 

1379 

(3) 

(3) 

(2) 



003204 
003204 



LET MD.BSY 



#0 



003210 
003210 
003216 
003220 
003220 
003222 
003226 
003232 
003234 
003234 

003234 
003234 



005067 OOOOOOG 



032767 
001006 

01 0546 
01 2745 
004767 
012605 



003240 
003240 
003240 
003240 000207 



010000 175576 



001004 
OOOOOOG 



004767 OOOOOOG 



CLR 



IF IT IS NOT YET TIME TO RELOCATE, 

GET THE KEYBOARD GOING, WHICH CONSISTS OF CALLING THE KEYBOARD DRIVER 

AT ITS I/O INITIALIZATION ENTRY POINT 



IF #RELTIME NOTSETIN DTA3LE+DT . STO THEN 



CALL KBINI IN <#DTABLE> 



ENDIF 



CALL RESREG 



ENDRTN 



50007$: 



50000$: 
50001$: 



BIT 
BNE 

MOV 
MOV 
JSR 
MOV 



JSR 



RTS 



MD.BSY 



#RELTIME,DTABLE+ 
50007$ 

R5,-(SP) 
#DTABLE,-(R5) 
PC, KBINI 
(SP)+,R5 



PC, RESREG 



PC 
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SEQ 0046 



1381 
1382 
1383 
1384 
1385 
138S 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1395 
1397 
1393 
1399 
1400 
1401 
1402 

(6) 

(9) 
1403 

(6) 
1404 

(4) 
1405 
140S 
1407 
1408 
1409 
1410 
141 1 

(2) 
1412 

(2) 
1413 

(2) 
1414 

(4) 
1415 
1416 
1417 
1418 
1419 
1420 
1421 

(6) 

(9) 
1422 

(6) 

(9) 
1423 

(2) 



C03242 



003242 
003242 
003250 
003252 
003252 
003260 
003260 



003260 
003260 
003264 
003264 
003270 
003270 
003274 
003274 



003300 
003300 
003306 
003310 
003310 
003316 
00332C 
003320 



032767 040000 
001403 

042767 040000 



175544 
175534 



012667 175520 

012667 175516 

012667 175514 

010667 175512 



026727 175500 
002405 

026727 175476 
101001 

000423 



000200 



002200 



.SBTTL KERNEL - CAPTURE EVENT: DISPATCH TO SERVICE ROUTINE 



THIS ROUTINE FIELDS THE PHYSICAL EVENTS THAT ARE RECEIVED BY THE DECX/1 1 
MONITOR, I.E., SOFTWARE GENERATED TRAPS AND HARDWARE ERROR TRAPS. 
THE TYPE OF EVENT IS DETERMINED AND THE CORRESPONDING EVENT 
CODE IS ENTERED INTO THE MONITOR'S DATA TABLE. THE LINKAGE INFORMATION 
ON THE STACK IS THEN REMOVED AND ALSO ENTERED INTO THE DATA TABLE. THEN, 
BASED ON THE TYPE OF EVENT (DIRECT-RETURN OR DEFERRED-RETURN), THE MODULE'S 
REGISTERS MAY HAVE TO BE SAVED IN THE MODULE'S HEADER. CONTROL IS THEN 
PASSED TO THE APPROPRIATE SERVICE ROUTINE. 

DX.CAP: 

IF THIS EVENT ORIGINATED WITH A BACKGROUND MODULE, RESET THE MONITOR'S BACKGROUND MODE 
INDICATOR, THUS ALLOWING THE EVENT TO BE SERVICED IN IT'S ENTIRETY 



IF #BKMODE SETIN DTABLE+DT . STO THEN 

LET DTABLE+DT. STO : = DTABLE+DT. STO CLR.BY #BKMODE 
ENDIF 

SAVE THE INFORMATION FOR THE NEW EVENT 

POP DTABLE+DT. EVNT 

POP DTABLE+DT. PC 

POP DTABLE+DT. PSW 

LET DTABLE+DT. SP := SP 





BIT 


#BKMODE,DTABLE+D 


E 


BEQ 


50010$ 


BIC 


#BKMODE,DTABLE+D 


50010$: 







MOV 
MCV 
MOV 
MOV 



(SP)+, DTABLE+DT. 
(SP)+, DTABLE+DT. 
(SP)+, DTABLE+DT. 
SP, DTABLE+DT. SP 



DETERMINE IF THE EVENT ORIGINATED FROM THE MONITOR, IF SO DON'T BOTHER 
SAVING THE REGISTERS AND SWITCHING STACKS 



IF DTABLE+DT. EVNT GE #EVNTHD THEN 

IF DTABLE+DT. SP LOS #SPVALUE THEN 
INLINE <BR 1$> 



CMP 
BLT 



DTABLE + DT. EVNT, # 
5001 1$ 



CMP DTABLE+DT. SP,#SP 
BHI 50012$ 

BR 1$ 
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SEO 0047 



1424 

(4) 
1425 

(4) 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 

(2) 
1434 

(4) 
1435 

(6) 
1436 

(6) 
1437 

(2) 
1438 

(4) 
1439 

(4) 
1440 

(4) 
1441 

(4) 
1442 

(4) 
1443 

(4) 
1444 

(4) 
1445 

(4) 
1446 
1447 

(2) 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 

(6) 

(9) 
1456 

(6) 
1457 

(4) 

(3) 
1458 



003322 
003322 
003322 
003322 



003322 
003322 
003324 
003324 
C03330 
C03330 
003336 
003336 
003342 
003342 
003344 
003344 
003346 
003346 
003350 
003350 
003352 
003352 
003354 
003354 
C03356 
003356 
003360 
003360 
003364 
003364 

003370 
003370 



003370 
003370 
003376 
003400 
003400 
003406 
003406 
003410 
003410 



01 0046 

016700 175710 

156760 175454 000026 

062700 000062 

01 2620 

010120 

01 0220 

01 0320 

01 0420 

01 0520 

01 0620 

016705 175662 

016706 175660 



026727 
002004 



175410 000014 



052767 000400 175406 



000403 



ENDIF 



ENDIF 



50012$ 
50011$: 



THE EVENT WAS EITHER DECLARED EXPLICITLY BY AN OPTION MODULE, OR CAUSED 
UNINTENTIONALLY BY ONE, SO SAVE THE REGISTERS IN ITS HEADER AREA AND SWITCH 
TO THE MONITOR'S R6 AND R5 STACKS 



PUSH RO 

LET RO := DX.HDR 

LET STAT(RO) : B= STAT(RO) SET. BY DTABLE+DT . PSW 

LET RO := RO + #SVRO 

POP (R0) + 

LET (R0)+ := R1 

LET (R0)+ := R2 

LET (R0)+ := R3 

LET (R0)+ := R4 

LET (R0)+ := R5 

LET (R0)+ := SP 

LET R5 := DX.R5 

LET SP := DX.SP 



MOV 


R0,-(SP) 


MOV 


DX.HDR, RO 


BISB 


DTABLE+DT. PSW, ST 


ADD 


#SVRO,RO 


MOV 


(SP)+, (R0) + 


MOV 


R1 , (R0)+ 


MOV 


R2, (R0)+ 


MOV 


R3, (R0)+ 


MOV 


R4, (R0)+ 


MOV 


R5, (R0)+ 


MOV 


SP, (R0)+ 


MOV 


DX.R5.R5 


MOV 


DX.SP, SP 



INLINE <1$:> 



1$: 



NOW DETERMINE THE EVENT TYPE AND MARK THE RETURN-TYPE BIT ACCORDINGLY 
(DIRECT OR DEFERRED RETURN.) 



IF DTABLE+DT. EVNT LT #DSEVNT THEN 



ELSE 



LET DTABLE+DT. STO := DTABLE+DT . STO SET. BY #DEFRTN 



50013$: 
LET DTABLE+DT. STO := DTABLE+DT . STO CLR.BY #DEFRTN 



CMP 
BGE 

SIS 

BR 



DTABLE+DT. EVNT, # 
50013$ 

#DEFRTN,DTABLE+D 

50014$ 



DECX-1 1 


CONTROL MODULE 


MACY11 30A(105 


DECX.MAC 19- 


■SEP-78 14:52 


(6) 


00341C 


042767 


000400 175376 


1459 


003416 






(4) 


003416 






1460 








1461 








1462 








1463 








1464 








1465 


003416 






(3) 


003416 


01 0546 




(4) 


003420 


01 2745 


001004 


(3) 


003424 


004767 


000000G 


(3) 


003430 


012605 
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ENDIF 



BIC 



50014$: 



NOW GO SERVICE THE EVENT 



CALL PREVT IN <#DTABLE> 



MOV 
MOV 
JSR 
MOV 



SEO 0043 
#DEFRTN,DTABLE+D 



R5,-(SP) 
#DTABLE,-(R5) 
PC, PREVT 
(SP)+,R5 
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1467 










1463 










1469 










1470 










1471 










1472 










1473 










1474 










1475 










1476 










1477 


003432 








(6) 


003432 


005767 


175366 




(9) 


003436 


001406 






1478 


003440 








(3) 


003440 


01 0546 






(4) 


003442 


01 2745 


001004 




(3) 


003446 


004767 


000000G 




(3) 


003452 


012605 






1479 


003454 








(4) 


003454 








1480 










1481 










1482 










1483 










1484 










1485 










1485 










1487 










1488 










1489 










1490 


003454 








(4) 


003454 


016700 


175560 




1491 


003460 








(6) 


003460 


032760 


000020 


000026 


(9) 


003466 


001426 






1492 


003470 








(6) 


CC3470 


042760 


004000 


000026 


1 493 


003476 








(6) 


003476 


C32767 


000400 


175310 


(9) 


003504 


00101 1 






1494 


003506 








(4) 


003505 


010067 


OOOOOOG 




1495 


003512 








(4) 


003512 


01 6767 


175270 


OOOOOOG 


1496 


003520 








(6) 


003520 


C52767 


000001 


OOOOOOG 


1497 


003526 








(4) 


003526 


000403 






(3) 


003530 








149B 


003530 








(6) 


003530 


052767 


000002 


OOOOOOG 


1499 


003536 








(4) 


003536 








1500 


003536 








(6) 


003536 


052767 


000400 


175250 


1501 


003544 
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WAS THE EVENT AN ERROR, OR DID THE SERVICING OF THE EVENT RESULT 
IN AN ERROR? IF SO PASS CONTROL TO THE ERROR RECOVERY HANDLER AND 
DON'T EXPECT TO GET CONTROL BACK 



SEO 0049 



IF DTABLE+DT.ERR NE #0 THEN 
CALL ERREC IN <#DTABLE> 

ENDIF 



TST 
BEQ 

MOV 
MOV 
JSR 
MOV 



DTABLE+DT.ERR 
50015$ 

R5,-(SP) 

#DTABLE,-(R5) 
PC, ERREC 
(SP)+,R5 



50015S 



IF THE EVENT ORIGINATED WITH A BACKGROUND MODULE, DETERMINE IF DEFERRED 

RETURN. IF SO, LOAD THE HEADER ADDRESS AND RETURN ADDRESS INTO THE BACKGROUND 

QUEUE, AND SET THE "BK" SUSPEND BIT. 

OTHERWISE, THE MODULE IS WORKING ITS WAY THROUGH THE MONITOR 

QUEUES, SO SET THE BKDEF BIT IN THE BK STATUS WORD. 

IN EITHER CASE, SET THE DEFERRED RETURN BIT IN THE STATUS INDICATOR. 



LET RO := DX.HDR 

IF #BIT04 SETIN STAT(RO) THEN 

LET STAT(RO) := STAT(RO) CLR.BY #ACTBIT 
IF #DEFRTN NOTSETIN DTABLE+DT . STO THEN 

LET BA.HDR := RO 

LET BA.RET := DTABLE+DT. PC 

LET BA. STATUS := BA. STATUS SET. BY tfSUSPND 



ELSE 



MOV 


DX.HDR, RO 


BIT 


#BIT04,STAT(R0) 


BEQ 


50016$ 


BIC 


#ACTBIT,STAT(R0) 


BIT 


#DEFRTN,DTABLE+D 


BNE 


50017$ 


MOV 


RO, BA.HDR 


MOV 


DTABLE+DT. PC, BA. 


D 




BIS 


#SUSPND,BA. STATU 


BR 


50020$ 



50017$: 
LET BA.STAT := BA.STAT SET. BY #BKDEF 



BIS 



ENDIF 

LET DTABLE+DT. STO 



50020$: 
DTABLE+DT. STO SET. BY #DEFRTN 

BIS 



#BKDEF, BA.STAT 



#DEFRTN,DTABLE+D 



ENDIi 
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SEQ 0050 



(4) 
15C2 
1503 
1 504 
1 505 
1 505 
1507 
1508 
1509 

(6) 

(9) 
1510 

(6) 
151 1 

(2) 
1512 

(4) 
1513 
1514 
1515 
1516 
151 7 
1518 

(4) 
1519 

(4) 
1520 

(4) 

(6) 
1521 

(4) 
1522 

(4) 
1523 

(4) 
1524 

(4) 
1525 

(4) 
1526 

(4) 
1527 

(4) 
1528 
1529 
1530 
1531 
1532 
1533 

(2) 
1534 

(2) 
1535 

(2) 



003544 



003544 
003544 
003552 
003554 
003554 
003562 
003562 
003564 
003564 



003564 
002564 
003570 
003570 
003574 
003574 
003600 
003604 
C03604 
003606 
002606 
003610 
00 36 10 
003612 
003612 
003514 
003614 
003616 
003616 
003620 
003620 



0C3622 
003622 
003626 
003626 
003632 
003632 



032767 
001404 



016700 
062700 



01 1006 



014005 



01 4004 



014003 



01 4002 



01 400* 



014000 



01 6745 

01 6746 
000002 



000400 175242 



042767 000400 175232 



000424 



010667 175460 



010567 175452 



175440 
000076 



175162 
175154 



50016$: 



#DEFRTN,DTABLE+D 
50021$ 

#DEFRTN,DTABLE+D 



WAS THE EVENT JUST SERVICED OF THE 'DEFERRED-RETURN' TYPE WHERE 
CONTROL IS NOT RETURNED IMMEDIATELY TO THE MODULE/PROCESS THAT ISSUED 
THE EVENT. IF IT IS, GO GET THE NEXT MODULE FROM THE CONTROL QUEUE 

IF 0DEFRTN SETIN DTABLE+DT . STO THEN 

BIT 
BEO 
LET DTABLE+DT. STO := DTABLE+DT . STO CLR.BY #DEFRTN 

BIC 
INLINE <BR DX.DEQ> 

BR OX. DEO 
ENDIF 

50021$: 



THE EVENT ORIGINATED WITH AN OPTION MODULE, SO RESTORE IT'S REGISTERS AND SWITCH STACK 

LET DX.SP := SP 
LET DX.R5 := R5 
LET RO := DX.HDR + #SVR6 



LET SP 

LET R5 

LET R4 

LET R3 

LET R2 

LET R1 

LET RO 



= (RO) 

= -(RO) 

= -(RO) 

= -(RO) 

= -(RO) 

= -(RO) 

= -(RO) 



MOV 


SP, DX.SP 


MOV 


R5.DX.R5 


MOV 


DX.HDR, RO 


ADD 


#SVR6,R0 


MOV 


(RO) ,SP 


MOV 


-(RO) ,R5 


MQV 


-(RO) ,R4 


MOV 


-(RO) ,R3 


MOV 


-(RO) ,R2 


MOV 


-(RO) ,R1 


MOV 


-(RO) ,R0 



NOW RETURN CONTROL 

PUSH DTABLE+DT. PSW 
PUSH DTABLE+DT. PC 
INLINE <2$: RTI> 



MOV DTABLE+DT. PSW, -( 
MOV DTABLE+DT. PC, -<S 
2$: RTI 
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SEQ 0051 



1537 

1 533 

152S 

1 540 

1541 

154 2 

1543 

1 544 

1545 

1546 

1547 

1543 

1 549 

1550 

(4) 

1551 

1 552 

(2) 

1553 

1 554 

1555 

1 556 

1557 

(6) 

1553 

1559 

1560 

1561 

1562 

1563 

(3) 

(4) 

(3) 

(3) 

1564 

1565 

1 566 

1567 

1568 

156S 

1570 

(6) 

(9) 

1571 

(3) 

(4) 

(3) 

(3) 

1572 

(4) 

1573 

(4) 

1574 

1575 

1576 

1577 



003634 
003634 

003640 
003640 



003640 
003640 



00366C 
003660 
3666 
003670 
003670 
003672 
003676 
0C3702 
003704 
003704 
003710 
003710 



005067 175404 



005277 175236 



003644 

003644 010546 

003646 012745 001004 

003652 004767 OOOOOOG 

003656 012605 



026727 
00101 

01 0545 
01 2745 
004767 
01 2605 



175352 000001 



001 004 
OOOOOOG 



005067 175326 



SBTTL KERNEL - DE-QUEUE NEXT MODULE IN CONTROL QUEUE ROUTINE 

+ 3dwfOuUEP 
THIS ROUTINE IS ENTERED ONLY WHEN NO OTHER MONITOR MODULES OR OPTION 
MODULES ARE EXECUTING. ITS MAIN FUNCTIONS ARE TO DE-QUEUE THE NEXT 
MESSAGE TO BE PRINTED, ACTIVATE THE NEXT MODULE IN THE MODULE-QUEUE- 
LIST, AND TO DE-QUEUE THE NEXT MODULE IN THE CONTROL QUEUE AND ALLOW 
IT TO BEGIN EXECUTION. IF THERE ARE NO MODULES WAITING IN THE MODULE- 
QUEUE-LIST OR IN THE CONTROL QUEUE, THIS ROUTINE SIMPLY KEEPS CONTROL 
BY SITTING IN A CLOSED LOOP. 



DX.DEQ: LET DX.QFLG := #0 

; REPEAT 
INLINE <3$:> 



INCREMENT THE APT "KEEP-ALIVE" COUNTER, 



LET @DTABLE+DT.APK := @DTA5LE+DT . APK + #1 



CHECK THE MESSAGE QUEUE FIRST 



CALL MSGDEQ IN <#DTABLE> 



CLR DX.QFLG 



3$: 



INC 



MOV 
MOV 
dSR 
MOV 



IF THE KB FLAG IS SET - WE HAD A CR - SO GO SERVICE 
IF DX.KFL EQ #1 THEN 

CALL CMDPRC IN <#DTABLE> 

LET DX.KFL := #0 
ENDIF 



CMP 
BNE 

MOV 
MOV 
JSR 
MOV 

CLR 



50022$: 



©DTABLE+DT.APK 



R5,-(SP) 
ROTABLE, -(R5) 
PC, MSGDEQ 
(SP)+,R5 



DX.KFL, #1 
50022$ 

R5,-(SP) 
#DTA3LE,-(R5) 
PC, CMDPRC 
(SP)+,R5 

DX.KFL 



IF WE ARE EXECUTING IN RUN MODE, GO THRU THE SCHEDULING ALGORITHM 
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IF #RUNMODE NOTSETIN DTABLE+DT . STO THEN 
INLINE <JMP 6$> 



SEQ 0052 



1573 








1579 


003710 






(6) 


003710 


032767 


100000 175076 


(9) 


003716 


001002 




1580 


003720 






(2) 


003720 


000167 


000614 


1581 


003724 






(4) 


003724 






1582 








1583 








1584 








1585 








1585 








1587 


003724 






(6) 


003724 


032767 


010000 175062 


(9) 


003732 


001415 




1583 


003734 






(3) 


003734 


01 0546 




(4) 


003736 


01 2745 


001004 


(3) 


003742 


004757 


OOOOOOG 


(3) 


003746 


01 26C5 




1589 


003750 






(6) 


003750 


103406 




1590 


003752 






(3) 


003752 


01 0546 




(4) 


003754 


01 2745 


001004 


(3) 


003760 


004767 


OOOOOOG 


(3) 


003764 


01 2605 




1591 


0C3766 






(4) 


003766 






1592 


C03766 






(4) 


003766 






1593 








1 594 








1595 








1 596 








1597 








1 598 








1599 








1600 








1601 








1502 








1503 








1604 


003766 






(6) 


003766 


032767 


040000 175022 


(9) 


003774 


001434 




1605 


0037 76 






(3) 


003776 


01 C543 




(4) 


004000 


01 2745 


001004 


(3) 


004004 


004767 


OOOOOOG 


(3) 


04010 


01 2605 




1606 


004012 






(6) 


004012 


103425 




1607 


004014 






(6) 


004014 


032767 


000010 174776 


(9) 


004C22 


001406 





BIT 
BNE 

JMP 6$ 



#RUNMODE,DTABLE+ 
50023$ 



ENDIF 



50023$ 



START BY LOOKING AT THE RELOCATION STUFF. IF IT'S TIME TO RELOCATE, GO SEE 
IF ALL MODULE ACTIVE BITS ARE CLEAR. IF SO, RELOCATE. 



IF #RELTIME SETIN DTABLE+DT . STO THEN 
CALL CHKACT IN <#DTABLE> 

IF. NO. ERROR THEN 

CALL RELCTL IN <#DTABLE> 



BIT #RELTIME,DTABLE+ 

BEQ 50024$ 

MOV R5,-(SP) 

MOV #DTABLE,-(R5) 

JSR PC, CHKACT 

MOV (SP)+,R5 

BCS 50025$ 

MOV R5,-(SP) 

MOV #DTABLE,-(R5) 

JSR PC, RELCTL 

MOV (SP)+,R5 



ENDIF 



ENDIF 



50025$: 
50024$: 



IF THE LAST SYSTEM EOP WAS IN LOWEST MEMORY (MEMPAS=1), IT IS 
TIME TO CHECK FOR A COUPLE OF THINGS. 

(1) IF WE ARE RUNNING UNDER XXDP OR ACT-11 (AUT0=1), THEN IT IS TIME 
TO RETURN THE THE XXDP/ACT-11 MONITOR. 

(2) IF THERE ARE SBK MODULES THAT ARE SELECTED, IT IS TIME TO 
STOP ALL. MODULES AND THEN RESTART THEM SO THE 

SBK MODULES WILL RESTART. 



IF tfMEMPAS SETIN DTABLE+DT . ST1 THEN 
CALL CHKACT IN <#DTABLE> 

IF. NO. ERROR THEN 

IF ffAUTO SETIN DTABLE+DT . CFO THEN 



BIT 


#MEMPAS,DTABLE+D 


BEQ 


50026$ 


MOV 


R5,-(SP) 


MOV 


#DTABLE,-(R5) 


JSR 


PC, CHKACT 


MOV 


(SP)+,R5 



BCS 

BIT 
BEQ 



50027$ 

#AUTO, DTABLE+DT. 
50030$ 
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1608 


004C24 








(3) 


004024 


01 0546 






(4) 


004026 


012745 


C01004 




(3) 


0G4032 


004767 


000000G 




(3) 


004036 


012605 






1309 


004040 








(4) 


004040 








1S10 


004040 








(6) 


004040 


032757 


010000 


174750 


(9) 


004046 


001407 






161 1 


004050 








(3) 


004050 


0C4767 


176744 




1612 


004054 








(6) 


004054 


042767 


040000 


174734 


1313 


004062 








(2) 


004062 


000167 


177546 




1314 


004066 








(4) 


004066 








1615 


C04066 








(4) 


004066 








1616 


004066 








(4) 


004066 








1617 










1518 










1SiS 










1620 










1621 










1522 










1523 










1624 










1625 


004066 








(6) 


0C4066 


C32767 


010000 


174720 


(9) 


004074 


001022 






(6) 


004076 


032767 


040000 


174712 


(9) 


004104 


001015 






1626 


0041 06 








(6) 


004106 


032767 


006000 


174700 


(8) 


0041 14 


001404 






(6) 


0041 16 


032767 


005000 


174670 


(9) 


004124 


00 1406 






(6) 


004126 








1627 


04126 








(3) 


0041 26 


01 0545 






(4) 


0C4130 


01 2745 


001004 




(3) 


004134 


004767 


OOOOOOG 




(3) 


004140 


012605 






1628 


004142 








(4) 


004142 








1629 


004142 








(4) 


004142 








1630 










1631 










1632 










1633 










1634 










1635 


004142 









ODULE IN CONTROL QUEUE ROUTINE 




SEQ 0053 


CALL DPEOP IN <#DTABLE> 








MOV 


R5,-(SP) 




MOV 


#DTABLE,-(R5) 




JSR 


PC, DPEOP 




MOV 


(SP)+,R5 


ENCIF 






50030$: 






IF tfSBKSEL SETIN DTABLE+DT . ST1 THEN 








BIT 


#SBK3EL,DTABLE+D 




BEQ 


50031$ 



ENDIF 



ENDIF 



ENDIF 



CALL DX. INI 

JSR PC.DX.INI 
LET DTABLE+DT. ST1 : = DTABLE+DT . ST 1 CLR.BY #MEMPAS 

BIC #MEMPAS,DTABLE+D 
INLINE <JMP DX.DEQ> 

JMP DX.DEQ 

50031$: 
50027$: 
50026$: 



IF ITS NOT RELOCATION TIME AND NOT TIME FOR XXDP RETURN, THEN 

IF WE'RE NOT IN A 'HOLD' STATE WAITING ON A SBK OR NBK MODULE, SEE IF WE CAN 

GET SOMETHING GOING 

IF #RELTIME NOTSETIN DTABLE+DT . STO AND #MEMPAS NOTSETIN DTABLE+DT . ST1 THEN 

BIT *RELTIME,DTABLE+ 
BNE 50032$ 
BIT #MEMPAS,DTABLE+D 
BNE 50032$ 
IF #MODEXH!MODHOLD NOTSETIN DTABLE+DT . STO OR 4M0DEXH! MODSE L SETIN DTABLE 



CALL ACTIV IN <#DTABLE> 



ENDIF 



ENDIF 





BIT 


#MODEXH!MODHOLD, 




BEQ 


50033$ 




BIT 


#MODEXH!MODSEL,D 




BEQ 


50034$ 


50033$: 








MOV 


R5,-(SP) 




MOV 


#DTA3LE,-(R5) 




JSR 


PC, ACTIV 




MOV 


(SP)+,R5 


50034$: 






50032$: 







IS THERE AN OPTION MODULE IN THE CONTROL QUEUE AWAITING EXECUTION? 



CALL DEQCQ OUT <DX . HDR , DX . RET> 
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IF. NO. ERROR THEN 

LET RO := DX.HDR 



(4) 


004142 


162705 


000004 




(3) 


C04146 


004767 


OOOOOOG 




(4) 


004152 


01 2567 


175062 




(4) 


0041 55 


012567 


175060 




1336 


004162 








(6) 


004162 


10 3451 






1S37 


004164 








(4) 


004164 


016700 


175050 




1S33 










1339 










1640 










1 341 










1642 










1543 










1544 










1545 










1546 


004170 








(6) 


004170 


005767 


175046 




(8) 


004174 


00141 






(6) 


0041 76 


032760 


040000 


000026 


(8) 


004204 


001404 






(6) 


004206 


032760 


020000 


000026 


(9) 


004214 


001410 






(6) 


00421 6 








1647 


004216 








(6) 


004216 


032760 


000020 


000026 


(9) 


004224 


001403 






1 543 


004226 








(6) 


004226 


042767 


000002 


OOOOOOG 


1649 


004234 








(4) 


004234 








1650 


004234 








(2) 


004234 


000470 






1651 


004236 








(4) 


004236 








1652 










1653 










1654 










1655 










1656 










1657 










1658 










1659 


004236 








(6) 


004236 


032760 


000020 


000026 


(9) 


004244 


001415 






1660 


004246 








(4) 


004246 


016767 


174766 


OOOOOOG 


1661 


004254 








(4) 


004254 


01 6767 


174762 


OOOOOOG 


1662 


0C4262 








(6) 


004262 


052767 


000001 


OOOOOOG 


1663 


004270 








(6) 


004270 


042767 


000002 


OOOOOOG 


1664 


004276 








(2; 


004276 


000447 






1665 


004300 











SEQ 0054 


SU3 
JSR 
MOV 
MOV 


#2*2, R5 
PC.DEQCQ 
(R5)+, DX.HDR 
(R5)+, DX.RET 


BCS 


50035$ 


MOV 


DX.HDR, RO 



IF THE RETURN ADDRESS IS ZERO OR A MODULE IS DESELECTED OR DROPPED, 
SEE IF IT'S A BKMQD AND IF SO, CLEAR THE BKDEF BIT IN BA.STAT SO 
WE CAN GET ADDITIONAL BKMODS ON THE AIR 

IF DX.RET EQ #0 OR 0BIT14 NOTSETIN STAT(RO) OR #BIT13 SETIN STAT(RO) THE 



IF #BKMOD SETIN STAT(RO) THEN 



TST 


DX.RET 




BEQ 


50036$ 




BIT 


#BIT14 


STAT(RO) 


BEQ 


50036$ 




BIT 


#BIT13 


STAT(RO) 


BEQ 


50037$ 




50036$: 






BIT 


#BKMOD 


STAT(RO) 


BEQ 


50040$ 





LET BA.STAT := BA.STAT CLR.BY #BKDEF 

BIC 



ENDIF 
INLINE <BR 



1$> 



ENDIF 



50040$: 



50037$: 



BR 



#BKDEF, BA.STAT 



1$ 



DETERMINE IF IT'S A BACKGROUND MODULE, IF SO, ENTER IT INTO 
THE BACKGROUND QUEUE AND CONTINUE DE-QUEUING FROM THE CONTROL 

QUEUE 



IF #BIT04 SETIN STAT(RO) THEN 



LET BA.HDR := DX.HDR 
LET BA.RET := DX.RET 



BIT 
BEQ 

MOV 

MOV 



LET BA. STATUS := BA. STATUS SET. BY tfSUSPND 

BIS 

LET BA.STAT : = BA.STAT CLR.BY #BKDEF 

BIC 

INLINE <BR 1$> 

BR 1$ 



#BIT04,STAT(R0) 
50041$ 

DX.HDR, BA.HDR 

DX.RET, BA.RET 

#SUSPND,BA. STATU 

#BKDEF, BA.STAT 



ENDIF 
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SEQ 0055 



(4) 


004300 








1666 










1667 










1663 










1669 










1670 


004300 








(4) 


004300 


012767 


177777 


17473S 


1671 


004306 








(4) 


004306 








1672 










1673 










1674 










1375 










1676 










1377 










1673 










1679 


004306 








(6) 


0043C6 


032767 


012000 


174500 


(9) 


004314 


001040 






(6) 


004316 


026727 


174722 


177777 


(9) 


004324 


001434 






(6) 


004326 


032767 


040000 


174462 


(9) 


004334 


00 1030 






1380 


004336 








(3) 


00433S 


01 054S 






(4) 


0C4340 


01 2745 


001004 




(3) 


004344 


004767 


000000G 




(3) 


004350 


01 2605 






1581 


004352 








(6) 


004352 


10 3421 






1682 


004354 








(4) 


004354 


01 6700 


174660 




1683 


004360 








(6) 


C04360 


032760 


040000 


000026 


(8) 


004366 


00 1404 






(6) 


004370 


032760 


020000 


000026 


(9) 


004376 


001404 






(6) 


004400 








1684 


004400 








(6) 


004400 


042760 


004000 


000026 


1685 


004406 








(4) 


004406 


C00403 






(3) 


004410 








1686 


004410 








(4) 


004410 


012767 


177777 


174626 


1687 


004416 








(4) 


004416 








1688 


004416 








(4) 


004416 








1689 


004416 








(4) 


004416 








1690 










1691 


004416 






I 


(2) 


004416 








1692 










1693 








i 



50041$ 



THE MODULE IS ELIGIBLE TO RUN, SO SET THE DE-QUEUING FLAG ACCORDINGLY 



LET DX.QFLG : = #-1 



MOV 



#-1 , DX.QFLG 



ENDIF 



50035$: 



IF THE CONTROL QUEUE IS EMPTY GO SEE IF THERE IS A MODULE IN THE BACKGROUND QUEUE 
THAT WANTS TO RUN (SELECTED AND NOT DROPPED). 
IF SO, SET THE DE-QUEUING FLAG. 

IF #MODHOLD!RELTIME NOTSETIN DTABLE+DT . STO AND DX.QFLG NE #-1 AND # MEM? AS NOTSET 



BIT 


#M0DH0LD!RELTIME 


BNE 


50042$ 


CMP 


DX.QFLG, #-1 


BEQ 


50042$ 


BIT 


#MEMPAS,DTABLE+D 


BNE 


50042$ 


MOV 


R5,~(SP) 


MOV 


#DTABLE,-(R5) 


JSR 


PC, BACTIV 


MOV 


(SP)+,R5 


BCS 


50043$ 


MOV 


DX.HDR,RO 



CALL BACTIV IN <#DTABLE> 

IF. NO. ERROR THEN 

LET RO := DX.HDR 

IF #BIT14 NOTSETIN STAT(RO) OR #BIT13 SETIN STAT(RO) THEN 

BIT *BIT14,STAT(R0) 
BEQ 50044$ 
BIT #BIT13,STAT(R0) 
BEQ 50045$ 
50044$: 
LET STAT(RO) := STAT(RO) CLR.BY #ACTBIT 

BIC #ACTBIT,STAT(RO) 

ELSE 



LET DX.QFLG 



#-1 



ENDIF 



ENDIF 



ENDIF 



INLINE <1$:> 



; + 





BR 


50046$ 


50045$: 








MOV 


#-1 .DX.QFLG 


50046$: 






50043$: 






50042$: 







1$: 
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SEQ 0056 



1694 

1S95 

1596 

1697 

(6) 

(9) 

1 593 

(6) 

1599 

(3) 

(4) 

(3) 

(3) 

1700 

1701 

1702 

1 703 

1704 

1705 

(6) 

1705 

(6) 

1707 

(6) 

(9) 

1708 

(6) 

170S 

(4) 

(3) 

1710 

(3) 

(4) 

(3) 

(3) 

171 1 

(6) 

(8) 

(6) 

(9) 

(6) 

1712 

(6) 

1713 

(4) 

1714 

(4) 

1715 

(4) 

1716 

(4) 

1717 

1718 

(2) 

1719 

(2) 



004416 
0C4416 
004424 
004426 
0C4426 
004434 
004434 
004436 
004442 
004446 



004450 
004450 
004452 
004452 
004456 
004456 
004464 
004466 
004466 
004474 
004474 
004476 
004476 
004476 
004500 
04 504 
004510 
04512 
004512 
004520 
004522 
004530 
004532 
004532 
004532 
004540 
004540 
004540 
004540 
004540 
004540 
004540 
004540 

034540 
004540 
004544 
004544 



032767 
001445 



01 0546 
01 2745 
004767 
012605 



10 3433 

005277 

032767 
001404 

052767 

000421 



01 0546 
01 2745 
004767 
01 2605 

032767 
001004 
032767 
001403 



005767 
001002 



IF IT IS TIME TO SEE IF ALL MODULES HAVE COMPLETED AN EOP, DO IT. 



100000 174372 



042767 100000 174362 



IF #CKTIM SETIN DTABLE-i-DT . ST 1 THEN 

LET DTABLE+DT.ST1 : = DTABLE+DT . ST1 CLR.BY #CKTIM 
CALL CHKEOP IN <#DTABLE> 



001004 
OOOOOOG 



BIT 
BEQ 

BIC 

MOV 
MOV 
JSR 
MOV 



#CKTIM, DTABLE+DT 
50047$ 

iCCKTIM, DTABLE+DT 

R5,-(SP) 
#DTABLE,-(R5) 
PC, CHKEOP 
(SP)+,R5 



174420 

020000 174330 

010000 174320 



001004 
OOOOOOG 



000010 174300 
010000 174266 



IF ALL MODULES HAVE DONE AN EOP, INCR. SYSTEM PASS COUNT AND SET 
"RELTIME" IF IN RELMCDE. IF NOT RELMODE, CLEAR EOP INDICATORS AND 
IF "AUTO" MODE OR "SBKSEL" SET "MEMPAS". 

IF. NO. ERROR THEN 

LET @DTABLE+DT.SYP := @DTABLE+DT . SYP + #1 

IF #RELMODE SETIN DTABLE+DT . STO THEN 

LET DTABLE+DT. STO := DTABLE+DT. STO SET. BY ^RELTIME 

BIS #RELTIME,DTABLE+ 



BCS 


50050$ 


INC 


@DTABLE+DT.SYP 


BIT 


#RELMODE, DTABLE+ 


BEQ 


50051$ 



ELSE 



BR 50052$ 



50051$: 



CALL CLREOP IN <#DTABLE> 



052767 040000 174256 



ENDIF 



ENDIF 



ENDIF 



MOV R5 r -(SP) 

MOV #DTABLE,-(R5) 

JSR PC, CLREOP 

MOV (SP)+,R5 

IF #AUTO SETIN DTABLE+DT . CFO OR #SBKSEL SETIN DTABLE+DT . ST 1 THEN 

BIT #AUTO, DTABLE+DT. 

ENE 50053$ 

BIT #SBKSEL,DTABLE+D 

BEQ 50054$ 
50053$: 
LET DTABLE+DT. ST1 := DTABLE+DT . ST1 SET . BY ^MEMPAS 

BIS #MEMPAS,DTABLE+D 
ENDIF 

50054$: 

50052$: 

50050$: 

50047$: 



174500 



; UNTIL DX.QFLG NE #0 
INLINE <6$: TST LX.QFLG> 

INLINE <BNE 4$> 



6$: TST DX.QFLG 
BNE 4$ 
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1720 004546 INLINE <JMP 3$> 

(2) 00*546 000167 177066 JMP 3$ 

1721 004552 INLINE <4$ : > 

(2) 004552 4$: 
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SEO 0058 



1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 

(4) 
1733 

(4) 
1734 

(4) 
1735 

(6) 
1735 

(4) 
1737 

(4) 
173S 

(4) 
1739 

(4) 
1740 

(4) 
1741 

(4) 
1742 

(4) 
1742 
1744 
1745 
174S 
1747 
1743 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 

(2) 
1757 

(6) 
1758 

(6) 

(S) 
1759 

(4) 
1760 

(2) 
1761 



004552 
004552 
004556 
004556 
004562 
004552 
004566 
004566 
C04572 
004572 
004574 
004574 
004576 
004576 
004600 
004600 
004602 
004602 
004604 
004604 
004606 
004606 



010567 174470 

010667 174466 

016700 174452 

062700 000076 

01 1006 

01 4005 

014004 

014003 

014002 

01 4001 

014000 



004610 

004510 016746 174424 

004614 

004614 062716 000026 

004620 

004620 032776 000020 000000 

004526 001415 

004530 

004630 017616 000000 

004634 

004634 042716 177020 



.SBTTL KERNEL - DE-QUEUE NEXT MODULE: PASS CPU CONTROL TO MODULE 



THERE IS A MODULE IN THE MONITOR'S NEXT-TO-EXECUTE SLOT AWAITING EXECUTION, 

SO LETS GET IT GOING. THIS CONSISTS OF RESTORING ITS REGISTERS AND SWITCHING 

FROM THE MONITOR'S R5 AND R6 STACKS TO THE MODULE'S R6 STACK, AND THEN PASSING CONTROL 



LET DX.R5 := R5 
LET DX.SP := SP 



LET RO 
LET RO 
LET SP 
LET R5 
LET R4 
LET R3 
LET R2 
LET R1 
LET RO 



= DX.HDR 

= RO + #SVR6 

= (RO) 

= -(RO) 

= -(RO) 

= -(RO) 

= -(RO) 

= -(RO) 

= -(RO) 



MOV 


R5,DX.R5 


MOV 


SP, DX.SP 


MOV 


DX.HDR, RO 


ADD 


#SVR6,R0 


MOV 


(RO) ,SP 


MOV 


-(RO) ,R5 


MOV 


-(RO) ,R4 


MOV 


-(RO) ,R3 


MOV 


-(RO) ,R2 


MOV 


-(RO) ,R1 


MOV 


-(RO) ,R0 



************************************************************************* 

**************** CONTROL WILL NOW BE PASSED TO THE MODULE *************** 
************************************************************************* 



IF THE OPTION MODULE IS A BACKGROUND MODULE, SET THE MONITOR'S STATUS 
INDICATOR WORD #0 ACCORDINGLY. ALSO, SET UP TO RESTORE THE MODULE'S PSW. 



PUSH DX.HDR 

LET (SP) := (SP) + #STAT 

IF #BIT04 SETIN @(SP) THEN 

LET (SP) := @(SP) 

INLINE <BIC #177020, (SP)> 



MOV DX.HDR, -(SP) 
ADD #STAT,(SP) 



BIT 
BEQ 



#BIT04,@(SP) 
50055$ 



MOV @(SP),(SP) 
BIC #177020, (SP) 



DECX-11 CONTROL MODULE MACY1 1 30A(1052) 20-SEP-78 17:26 PAGE 4C-1 

DECX.MAC 19-SEP-78 14:52 KERNEL - DE-QUEUE' NEXT MODULE: PASS CPU CONTROL TO MODULE 



RAISE THE PRIORITY TO LEVEL #7 BEFORE SETTING THE BKMODE INDICATOR 
THUS ALLOWING US TIME TO GET THE BKMOD ON THE AIR - BEFORE 
THE BKMOD CAN BE PREEMPTED 



SEQ 0059 



1762 








1 763 








1764 








1765 








1765 








1767 








1768 


004640 






(2) 


004640 


01 2746 


000340 


1769 


004644 






(2) 


004644 


012746 


004652 


1770 


004550 


0000C2 




1771 








1772 


004652 






(2) 


004552 






1773 


004652 






(6) 


004652 


052767 


040000 174134 


1774 


004660 






(4) 


004560 


000401 




(3) 


004662 






1775 


004662 






(4) 


004662 


005016 




1776 


C04664 






(4) 


004664 






1777 


0046S4 






(2) 


004664 


016746 


174352 


1778 








1779 








1780 








1781 








1782 








1783 


004670 


000002 




1784 









PUSH #PRI7 

PUSH #5$ 

RTI 
INLINE <5$:> 

LET DTABLE+DT.STO 
ELSE 



= DTABLE+DT.STO SET. BY #BKMODE 



LET (SP) := #0 



ENDIF 



50055S: 



50056$: 



PUSH DX.RET 



DO IT 



MOV 
MOV 

5$: 
BIS 
BR 

CLR 
MOV 



#PRI7,-(SP) 
#5$,-(SP) 



#BKMODE,DTABLE+D 
50056$ 



(SP) 



DX.RET.-(SP) 



RTI 



DECX-1 1 


CONTR 


DECX.MAC 19 


1786 




1767 




1763 




1769 




1790 




17S1 


C04672 


(2) 


CC4672 


1792 




1 793 




1794 




1795 




1795 




1797 


C04672 


(6) 


004672 


(9) 


004700 


1793 




1799 


004702 


(3) 


004702 


(5) 


004704 


(4) 


C047 10 


(3) 


004714 


(3) 


004720 


1300 




1801 


004722 


(3) 


004722 


1302 


004726 


(4) 


004726 


1303 




1304 




1 805 




1805 




1807 




1803 


004726 


(6) 


004726 


(9) 


004734 


1809 


004736 


(3) 


004735 


(5) 


004740 


(4) 


004744 


(3) 


004750 


(3) 


004754 


1810 


004756 


(3) 


004756 


181 1 


004762 


(4) 


004762 


1812 




1813 




1814 




1815 




1816 




1817 


004762 


(6) 


004762 


(Si 


004770 


(6; 


004772 


(9,» 


005000 


(6) 


0C5002 



3L MODULE MACY11 
-SEP-76 14:52 



30A(1052) 2G-SEP-78 17:26 PAGE 41 

KERNEL - DE-QUEUE NEXT MODULE: 



PASS CPU CONTROL TO MODULE 



SEQ 0060 



THIS ROUTINE PERFORMS THE TURNING ON OF THE APPROPRIATE 
CPU OPTIONS. 



032767 000020 174120 

001012 



01 054 5 

016745 174530 

012745 001004 

004767 OOOOOOG 

012605 



004767 000172 



ROUTINE DX.TURNON 



CALL ROTON IF NOT SCRAWNY MONITOR 
AND OUTPUT APPROPRIATE MESSAGE 

IF tfNCPUOP NOTSETIN DTABLE+DT . CFO THEN 



CALL KROTON IN <#DTABLE , DX . FAK> 



DX.TURNON: 



CALL DX.TU1 



BIT 
BNE 



MOV 

MOV 
MOV 
JSR 
MOV 



JSR 



ENDIF 



500025: 



032757 000400 174064 

001412 

01 0546 

016745 174474 
012745 001004 
C04767 OOOOOOG 
01 2605 

004767 000136 



TURN ON KT IF AVAILABLE AND OUTPUT MESSAGE 



IF #KTPRES SETIN DTABLE+DT . CFO THEN 



CALL KKTON IN <#DTABLE , DX . FAK> 



CALL DX.TU1 



ENDIF 



TURN ON "PARITY" OR "ECC" MEMORY IF AVAILABLE, OUTPUT MESSAGE 



IF #ECCMEM SETIN DTABLE+DT . CFO OR #PARPRES SETIN DTABLE+DT . CFO THEN 



032767 000100 174030 

001004 

C32767 002000 174020 

001412 



#NCPUOP,DTABLE+D 
50002$ 



R5,-(SP) 
DX. FAK,-(R5) 
ROTABLE, -(R5; 
PC, KROTON 
(SP)+,R5 



PC.DX.TU1 





BIT 
BEQ 


#KTPRES,DTABLE+D 
50003$ 




MOV 
MOV 
MCV 
JSR 
MCV 


R5,-(SP) 

DX. FAK,-(R5) 

#DTABLE,-(R5) 

PC, KKTON 

(SP)+,R5 




JSR 


°C,DX.TU1 


50003$: 









BIT 


#ECCMEM,DTABLE+D 




BNE 


50004$ 




EIT 


#PARPRES,DTABLE+ 




BEQ 


50005$ 


50004$: 







DECX-11 CONTROL MODULE MACY11 
DECX.MAC 19-SEP-78 14=52 



30A(1052) 20-SEP-78 17:26 PAGE 41-1 
KERNEL - DE-QUEUt NEXT MODULE 



PASS CPU CONTROL TO MODULE 



SEQ 0061 



1818 

(3) 

(5) 

(4) 

(3) 

(3) 

1319 

(3) 

1320 

(4) 

1321 

1822 

1823 

1324 

1325 

1826 

(6) 

(9) 

1327 

(3) 

(5) 

(4) 

(3) 

(3) 

1823 

(3) 

1822 

(4) 

1830 

1831 

1832 

1833 

1834 

1335 

(6) 

(9) 

1835 

(3) 

(5) 

(4) 

(3) 

(3) 

1S37 

(3) 

1833 

(4) 

1839 

1840 

1341 

1842 

1843 

1844 

(3j 

(3) 

(2) 

1845 



005002 
005002 
005004 
005010 
005014 
005020 
005022 
005022 
005026 
005026 



005026 
005026 
005024 
005036 
005036 
0C5040 
005044 
005050 
005054 
005056 
005056 
005062 
005062 



005062 
005062 
005070 
005072 
005072 
005074 
005100 
0051 04 
C 5 1 1 
0051 12 
0051 12 
0051 16 
0051 16 



0051 16 
0051 16 
0051 16 
0051 16 



01 0546 
01 6745 
01 2745 
004767 
012605 



032767 
00141 2 

010546 
C1 6745 
01 2745 
004767 
012605 



032767 
00141 2 

01 0545 
01 6745 
01 2745 
004767 
01 2605 



174430 
001004 
OOOOOOG 



004767 000072 



000004 173764 



174374 
001004 
OOOOOOG 



004767 000036 



CALL KPON IN <#DTABLE , DX . FAK> 

CALL DX.TU1 
ENDIF 

TURN ON CACHE IF AVAILABLE AND OUTPUT MESSAGE 
IF tfCAPRES SETIN DTABLE+DT . CFO THEN 

CALL KCON IN <#DTABLE , DX . FAK> 

CALL DX.TU1 

ENDIF 



50005$ 



50006$: 



TURN ON UNIBUS MAP (MAP BOX) IF AVAILABLE AND OUTPUT MESSAGE 



IF 4ADDR22 SETIN DTABLE+DT . CFO THEN 



001000 173730 



174340 
001004 
OOOOOOG 



CALL KMON IN <#DTA3LE , DX . FAK> 



CALL DX.TU1 



004767 000002 



ENDIF 



50007$: 



RETURN TO CALLER 



ENDRTN 



50000$: 
50001$: 



MOV R5,-(SP) 

MOV DX.FAK,-(R5) 

MOV #DTABLE,-(R5) 

JSR PC, KPON 

MOV (SP)+,R5 

JSR PC.DX.TU1 



BIT 


#CAPRES,DTABLE+D 


BEO 


50006$ 


MOV 


R5,-(SP) 


MOV 


DX. FAK,-(R5) 


MOV 


ROTABLE, -(R5) 


JSR 


PC, KCON 


MOV 


(SP)+,R5 


JSR 


PC.DX.TU1 



BIT 


#ADDR22,DTABLE+D 


BEO 


50007$ 


MOV 


R5,-(SP) 


MOV 


DX. FAK,-(R5) 


MOV 


ROTABLE, -(R5) 


JSR 


PC, KMON 


MOV 


(SP)+,R5 


JSR 


PC.DX.TU1 



000207 



RTS 



PC 



DECX-11 CONTROL MODULE MACY11 30A(1052) 20-SEP-78 17:26 PAGE 41-2 
DECX.MAC 19-SEP-78 14=52 KERNEL - DE-QUEUE NEXT MODULE: 



ROUTINE DX.TU1 



PASS CPU CONTROL TO MODULE 



SEQ 0062 



1846 








1847 


005120 






(2) 


005120 






1843 








1349 








1850 








1351 








1852 








1353 








1854 








1855 


005120 






(3) 


005120 


01 C546 




(7) 


0051 22 


01 2745 


005154 


(6) 


005126 


01 6745 


173674 


(5) 


005132 


01 2745 


000002 


(4) 


005136 


01 2745 


001004 


(3) 


C05142 


004767 


OOOOOOG 


(3) 


005146 


012605 




1S5S 


0051 50 






(2) 


005150 






1857 


005150 






(2) 


005150 


000240 




1853 


005152 






(2) 


005152 


000776 




1959 


0051 54 






(2) 


005154 






1860 


005154 






(4) 


0G5154 


005067 


173646 


1861 


005160 






(3) 


005160 






(3) 


005160 






(2) 


005160 


000207 




1862 








1863 




002200 





DX.TU1 



RETRIEVE MESSAGE FROM DT.KBRSP WORD IN DTABLE AND OUTPUT 
MESSAGE AND WAIT FOR IT TO FINISH OUTPUTTING BEFORE RETURNING 
CONTROL 



CALL MSGDHOOK IN <#DTABLE , #MSGPOP , DTABLE+DT . KBRSP , #2$> 



INLINE <1$:> 

INLINE <NOP> 

INLINE <BR 1$> 

INLINE <2$:> 

LET DTABLE+DT. KBRSP := #0 

ENDRTN 





MOV 


R5,-(SP) 




MOV 


#2$,-(R5) 




MOV 


DTABLE+DT. KBRSP, 




MOV 


#MSGP0P,-(R5) 




MOV 


#DTABLE,-(R5) 




JSR 


PC, MSGDHOOK 




MOV 


(SP)+,R5 




1$: 






NOP 






BR 1$ 






2$: 






CLR 


DTABLE+DT. KBRSP 


50000$: 






50001$: 







RTS 



PC 



END 



DX.STRT 
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SEQ 0063 



ACSR = 


000102 




ACT3IT= 


004000 




ACTIV = 


****** 


G 


AC. MOD = 


****** 


G 


AC..7IPT = 


****** 


G 


AC.TPT= 


****** 


G 


AC. TYP = 


****** 


G 


ADDr?22 = 


001000 




ADR 


000006 




APTFER= 


000004 




A?TPRE= 


000200 




APTSLP= 


****** 


G 


APTVEC 


000044 




AP.PB = 


**>:*** 


G 


ASB 


0001 OS 




ASSEMB= 


000010 




ASTAT = 


000104 




AUTO = 


000010 




AUTOST= 


020000 




AW AS = 


0001 10 




BACTIV= 


****** 


G 


BA.HDR= 


****** 


G 


BA.MPT= 


****** 


G 


BA.RET= 


****** 


G 


3A. STA= 


****** 


G 


BDACIMV = 


****** 


G 


3IT0 = 


000001 




BITQO = 


000001 




3IT01 = 


000002 




3IT02 = 


000004 




3IT03 = 


000010 




31T04 = 


000020 




3IT05 = 


000040 




BIT06 = 


C 1 




3IT07 = 


000200 




3IT03 r 


000400 




3IT09 = 


001 000 




BIT1 


000002 




3IT10 = 


002000 




3IT11 = 


004Q00 




BIT12 = 


01 0000 




3IT13 = 


020000 




BIT14 = 


04C000 




B1T15 = 


1 00000 




3IT2 = 


000004 




3IT3 = 


000010 




3IT4 = 


000020 




3175 = 


000040 




B I T 6 = 


0001 00 




3IT7 = 


000200 




BIT8 = 


000400 




SIT9 » 


001000 




3KDEF * 


000002 





BKMOD = 


000020 




BKMODE= 


040000 




BKSLSH= 


000134 




CAPRES= 


000004 




CAST = 


****** 


G 


CASTAT= 


000004 




CCNTRL 


001230 


G 


CDERCT= 


000146 




CDWDCT= 


000144 




CHKACT= 


****** 


G 


CHKEOP= 


****** 


G 


CKTIM = 


100000 




CLKPRE= 


000001 




CLOCK 


001 160 


G 


CLOCKL 


001 162 


G 


CLOCKP 


001 164 


G 


CLREOP= 


****** 


G 


CMDPRC= 


****** 


G 


CMDRST= 


****** 


G 


CONFIG= 


000056 




CPUCPE 


001224 


G 


CPUHAR 


001216 


G 


CPULAR 


001214 


G 


CPULSZ 


001226 


G 


CPUMER 


001220 


G 


CPUMNT 


001222 


G 


CQINI = 


****** 


G 


CQOVF = 


000001 




CR 


000C15 




CSRA = 


000100 




CSRC = 


000102 




CTRLC = 


000003 




CTRLO = 


00001 7 




CTRLOF 


001 234 


G 


CTRLU = 


000025 




DCEVNT= 


00001 1 




DEFRTN= 


000400 




DEQCO = 


****** 


G 


DIAGMC= 


000000 




DPEOP = 


****** 


G 


DPSTRT= 


****** 


G 


DROPMO= 


100000 




DSEVNT= 


000014 




DTABLE 


001004 


G 


DT.ADD= 


000042 




DT.AP = 


000100 




DT.APK= 


000076 




DT.BLS= 


000034 




DT.CFO= 


000014 




DT.CF1= 


000016 




DT.ERR= 


000020 




DT.ESI= 


000044 




DT.EVN= 


000000 





DT.EXS* 

DT.FCH» 

DT.FCN* 

DT-.KMXa 

DT.KBE= 

DT.KBP= 

DT.KBR= 

DT.K3U= 

DT.MLS= 

DT.MT1= 

DT.OFF= 

DT.PAS= 

DT.PC = 

DT.PFL= 

DT.PSWs 

DT.PTA= 

DT.RCS= 

DT.REL= 

DT.SCT= 

DT.SMX= 

DT.SP = 

DT.SSI= 

DT.STO= 

DT.ST1= 

DT.SWR= 

DT.SYP= 

DT.W3U= 

DT.WHL= 

DT.WLL= 

DVID1 = 

DX.CAP 

DX.DEQ 

DX. FAK 

DX.FK1 

DX.HDR 

DX. INI 

DX.KFL 

DX.MED 

DX.MON 

DX.QFL 

DX.RET 

DX.RST 

DX.R5 

DX.SIZ 

DX.SP 

DX.STR 

DX.SZK 

DX.TIT 

DX.TUR 

DX.TU1 

ECCMEM= 

ECCSTA= 

EMTINS 



000050 
000037 
00003S 
C00104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
C00C66 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
003242 
003634 
001440 
001442 
001240 
003020 
001235 
001402 
001345 
001244 
001242 
002650 
001246 
001353 
001250 
002200 
001371 
001252 
004672 
005120 
000100 
000010 
000030 



G 
G 
G 

S G 

G 
G 
G 



ENBEOP= 


010C00 


ENBNUL= 


000001 


ENDLST= 


000000 


EOPBIT- 


000001 


ERREC = 


****** Q 


ERRTYP= 


000106 


EVNTBE= 


000200 


EVNTHD= 


000200 


EVNTKT= 


000203 


EVNTPE= 


000202 


EVNTRE= 


000201 


FATERR= 


100000 


HRDCNT= 


000044 


HRDPAS= 


000050 


HTBUSS= 


****** Q 


HTREIN= 


* * -k * * * G 


HT.EXT= 


**♦.•*** Q 


ICONT = 


000036 


ICOUNT= 


000040 


IDNUM = 


000122 


IE 


000100 


IERRLO= 


****** g 


INDPAR= 


000040 


INHDRP= 


040000 


INHEPR= 


020000 


INHREL= 


001000 


INHRRE= 


000400 


INIT = 


000030 


INTR = 


000120 


IOMOD = 


100000 


IOMODP= 


102000 


IOMODR= 


1 12000 


IOMODX= 


1 10000 


IOTINS 


000020 


JACK = 


035060 


KBINI = 


****** g 


KBINT = 


****** g 


KBVEC 


000060 


KCON = 


****** g 


KIPAR0= 


172340 


KIPAR1= 


172342 


KIPAR2= 


172344 


KIPAR3= 


172346 


KIPAR4= 


172350 


KIPAR5= 


172352 


KIPAR6= 


172354 


KIPAR7= 


172356 


KIPDRO= 


172300 


KIPDR1= 


172302 


KIPDR2= 


172304 


KIPDR3= 


172306 


KIPDR4= 


172310 


KIPDR5= 


172312 



KIPDR6= 
KIPDR7= 
KKTON = 

KMQN = 

KONTRL 

KPON = 

KROTON= 

KRUN = 

KTERRO= 

KTPRES= 

KTSET = 

KTSTAT= 

KTXTND= 

KW11L = 

KW11P = 

LCLEAR= 

LF 

LPBUF 

LPCSR 

LPINT = 

LPSTAT= 

MAPSTA= 

MD.BSY= 

IVIED 

MEMGMT= 

MEMPAR= 

MEMPAS= 

MODEXH= 

MODHOL= 

MCfDSEL = 

M3GCKD= 

MSGCKS= 

MSGDEQ= 

MSGDER= 

MSGDHO= 

MSGDRP= 

MSGECH= 

M3GE0P= 

MSGHDR* 

MSGHNG= 

MSGHRD= 

MSGMAP= 

MSGNUL= 

MSGPOP= 

MSGPRM= 

MSGRES= 

MSGSFT= 

MSGSKE= 

MSGSMB= 

MSGSMH= 

MSGSMS= 

IV;SGSTD = 

MSGSYS= 



1723 
1723 

* * * * 
** * * 

0012 

* * * * 
*** * 

* * * * 
0000 
0004 

* * * * 
0000 
0400 

* * * * 

* * * * 
*** * 
0000 
0012 
0012 

* * * * 
0000 
0002 
** * * 

0766 

* * * * 

* * * * 
0400 
0040 
0020 
0010 
0000 
0000 

* * * * 
0000 

* * * * 

0000 
1777 
0000 
0000 
0000 

oooc 

0000 
1777 
0000 
1777 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



14 
16 

** 
** 

32 

* * 

* * 
** 
40 
00 

* * 
20 
00 

* * 

* * 
** 
12 
12 
10 
** 

01 
00 

* * 
00 

* * 
00 
00 
00 
00 
10 

1 1 

** 

05 

** 

17 
77 
13 
04 
22 
07 
21 
75 
02 
76 
01 
06 
03 
15 
14 
16 
00 
12 
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SEQ 0064 



MSGVEC= 


000020 




N3KM0D= 


001000 




NCPUO?= 


000020 




NOAPTY= 


000002 




NULL = 


000000 




0V.KB3= 


* * * * * * 


G 


OWEN 


024020 




t^AERR = 


000010 




PARPR£= 


002000 




PARSTA= 


0001 00 




PARTA3 


001 1 16 


G 


PASCNT= 


000034 




P3DVEC= 


* * * * * * 


G 


PCLEAR= 


* * * -J; * * 


G 


PDPLSI= 


020000 




PDP30 = 


004000 




PDP70 = 


01 0000 




PRE7T = 


****** 


G 


PR 10 = 


000000 




PRI1 


000040 




PRI4 = 


000200 




PRI5 = 


000240 




PRI3 = 


000300 




P R I 7 


000340 




PRRLOC= 


****** 


G 


PRO 


000000 




PR4 


000200 




PR5 


000240 




PR6 


000300 




PR7 


000340 




PS 


177776 




PSW = 


1 77776 




PWRDOW= 


****** 


G 


PWRFL 


000024 


G 


RANNUM= 


000054 




R3UF 


001202 


G 


R3UFEA= 


0001 30 




R3UFPA= 


000126 




RBUFS2= 


0001 32 




R3UFVA= 


0001 24 




RCSR 


001 200 


G 


RDSERV= 


0001 01 




. ABS. 


005162 


000 




000000 


001 



RDWHMI= 000022 
RELCTI = ****** G 
RELERR= 000020 
RELMOD= 020000 
RELTIM= 010000 
RESERV 000010 
RESREG= ****** G 
RESTAR 001000 
RES1 = 000056 
RES2 = 000060 
RICHAR= 031060 
RPIRQ = ****** G 
RPTDAT= 002000 
RSTRCY= ****** G 
RSTRT = 0001 12 
RUBOUT= 000177 
RUNMOD= 100000 
R5VALU= 001740 
SAM = 075464 
SAVREG= ****** G 
SBADR = 000102 
SBKMOD= 000000 
SBKSEL= 010000 
SCTAB 001 160 G 
SC.ADR= 000006 
SC.ALC= 000014 
SC.APC= 000016 
SC.CKL= 000002 
SC.CKP= 000004 
SC.CLO= 000000 
SC.HlD= 000010 
SC.SCA= 000012 
SENDLS= 177777 
SIZPOL= ****** G 
SOFCNT= 000042 
SOFPAS= 000046 
SPACE = 000040 
SPOINT= 000032 
SPVALU= 002200 
SRO = 177572 
SR1 = 177574 
SR2 = 177576 



SR3 = 172515 
START 000200 
STAT = 000026 
STATBI= 064757 
STAT1 = C00027 
STINT = ****** G 
ST.EXT= ****** G 
SUSPND= 000001 
SVRO = O00OS2 
SVR1 = 000064 
SVR2 = 000066 
SVR3 = 000070 
SVR4 = 000072 
SVR5 = 000074 
SVR6 = 000076 
SYSCNT= 000052 
SYSERR= 000100 
TIMOUT 000004 
TMPIO = 000002 
TQINI = ****** G 
TQQVF = 000002 
TRPINS 000034 
TT INT = ****** G 
TTVEC 000064 
UIPAR0= 177640 
UIPAR1= 177642 
UIPAR2= 177644 
UIPAR3= 177645 
UIPAR4= 177650 
UIPAR5= 177552 
UIPAR6= 177654 
UIPAR7= 177655 
UIPDR0= 177600 
UIPDR1= 177602 
UIPDR2= 177604 
UIPDR3= 177606 
UIPDR4= 177610 
UIPDR5= 177612 
UIPDR6= 177614 
UIPDR7= 177616 
WASADR= 000104 
WBSTAT= 000040 



WBUFEA= 000136 
WBUFPA= 000134 
WBUFRQ= 00C140 
W3UFSZ= 000142 
WDFR = 000116 
WDTO = 000114 
WTINRE= 000352 
WTWHMI= 000222 
XBUF 001206 G 
XCSR 001204 G 
XFLAG = 000005 
XOFF = 000023 
XON = 000021 
$BGNLE= 177777 
$ENDAD= ****** G 
$ERFLG= 000400 
$F$AND= 000310 
$F$BAD= 000401 
$F$BLA= 000170 
$F$CAS= 000150 
$F$DEC= 000220 
$F$DO = 000340 
$F$FAL= 000405 
$F$GOO= 000400 
$F$IF = 000110 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 000160 
$F$NO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
SF$WHI= 000120 
$F$YES= 000402 
$IFLEV= 177777 
$ISKO = 000001 
$ISK1 - 000001 
$ISK2 = 000001 



SISK3 = 000001 

$LOCTA= 177777 

$LSTIN= 000001 

$LSTTA= 000001 

$NESTL= 177777 

$NSKO = 000300 

$NSK1 = 000110 

$NSK2 = 000110 

$NSK3 = 000110 

$5AVLE= 177777 

$SSKO = 050006 

$TAGLE= 177777 

$TAGNU= 050002 

$TEMP = 000300 

$TSKO = 050007 

$TSK1 = 050050 

$TSK2 = 050052 

$TSK3 = 050054 

$SARGC= 000000 

$$BYTE= 000403 

$$CASE= 000000 

$$DST = 000000 

$SELOC= 000402 

$$ERFL= 000000 

$$FLAG= 000001 

$$FROM= 000000 

$$LOC = 005070 

$$LOCN= OOCOOO 

$$REG = 177777 

$$RETU= 000000 

$$RTN1= 050000 

S$RTN2= 050001 

S$SRC = 000000 

S$TGSV= 000000 

S$TGS1= 000000 

$$TGS2= 000000 

$$T0 = 000004 

$$$TAG= 050000 

= 005162 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ:DECX,DSKZ:DECX=SPMAC/ML, EQUATE f DECX 
RUN-TIME: 45 36 .5 SECONDS 
RUN-TIME RATIO: 130/32=1.5 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30AM 052) 20~SEP-78 17:28 

EQUATE. MAC 13-SEP-73 IS: 13 TABLE OF CONTENTS SEQ 0065 

3 COMMON EQUATE MODULE 

532 APTMOD (COMMON DEFINITIONS <S REFERENCES) 

535 000000' .PRINT ;SPMAC: VERSION 1.1 

539 APTSLP APT SLEEF AND CONFIGURE ROUTINE 

G88 APTSLP ROUTINE 

78S APT5ER (APT SOFT ERROR HANDLER) 

339 APTSER CODE 

373 APTDED PUT OPTION MODULE NAME INTO MAILBOX 

922 APTDED ROUTINE 

954 APTHER (APT HARD ERROR HANDLER) 

1005 APTHER CODE 

1043 APTSEL - SELECT OPTION MODULES FROM MAP 

1090 APTSEL ROUTINE 

1140 APTKIL - KILL APT BY HALTING 

1187 APTKIL ROUTINE 



APTMOD (APT MODULE PACKAGE) 
APTMOD.MAC 14-SEP-78 12:22 

5C8 
5C9 
510 
51 1 
512 
513 
514 
515 
516 
517 
513 
519 
520 
521 
522 
523 
524 
525 
526 
527 
523 
529 
530 



MACY11 30A(1052) 20-SEP-78 17:23 
COMMON EQUATE MODULE 



PAGE 19 



SEQ 0066 



TITLE APTMOD (APT MODULE PACKAGE) 
IDENT /VO.O/ 

MODULE PACKAGE NAME: 
APTMOD 

FUNCTIONAL DESCRIPTION: 

THIS MODULE PACKAGE CONTAINS SEVERAL APT ROUTINES: 





1 . 
2. 
3. 
4. 
5. 
6. 


APTSLP 
APfSER 
APTDED 
APTHER 
APTSEL 
APTKIL 


VERSION: 
0.0 







APT SLEEP AND CONFIGURATION ROUTINE 

APT SOFT ERROR HANDLER 

STUFF APT MAILBOX WITH FAILING MODULE NAME 

APT HARD ERROR ROUTINE 

SELECT-DESELECT ROUTINE 

STUFF CODE TO MAILBOX IF MONITOR ERROR 

(I.E. SYSTEM ERROR) AND HALTS 



EDIT 



DATE 



BY 



REASON 



000000 

oooooo 



C00001 
000001 



APTMOD (APT MODULE PACKAGE) 
APTf.10D.MAC 14-SEP-78 12:22 



532 
533 
53-4 
535 
(D 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
545 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
553 
559 
560 
561 
562 
563 
564 
565 
565 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
57 7 
578 
579 
580 
581 
582 
583 
584 
585 
586 



OOOOOO ' 
OOOOOO ' 
000002 ' 
000004 
000006 



OOOOOO 
000014 1 
001604 
000170 



000010' OOOOOO 
000012' 000052 
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APTMOD (COMMON DEFINITIONS & REFERENCES) 

.SBTTL APTMOD (COMMON DEFINITIONS & REFERENCES) 

•MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 
$LSTTAG=1 

jit*************** 



REFERENCED BY OTHER MODULES 



SEO 0067 



GLCBL 


APTSLP ; 


GLOBL 


APTSER ; 


GLOBL 


APTHER ; 


GLOBL 


APTKIL ; 


GLOBL 


APTDED ; 


GLOBL 


APTSEL ; 


GLOBL 


AP.PB ; 


* * * * * * 


********** 


GLOBA 


L REFERENCES 


GLOBL 


SAVREG 


GLOBL 


RESREG ; 


GLOBL 


RSTRCY ; 


GLOBL 


KSUM ; 


GLOBL 


MD.COD ; 


GLOBL 


MSGDEQ ; 


GLOBL 


RCSR ; 



APT SLEEP ROUTINE 

SOFT ERROR HANDLER 

HARD ERROR HANDLER 

APT HALT ROUTINE 

STUFF FAILING MODULE NAME 

APT SELECT-DESELECT MODULE ROUTINE 

APT PARAMETER BLOCK 



RESET RECOVERY ROUTINE 
'SUM' COMMAND ROUTINE 
MSG CODE 
MESSAGE DEQUER 
KB CSR 



• **************** 
; LOCAL STORAGE 

; ******************** APT PARAMETER BLOCK *********************** 



AP.PB 
AP. PO 
AP.PO 
AP.PO 
AP.PO 



0: 

2: #AP.M 

4: 900. 

6: 120. 



B1 



AP.P10: 

AP.P12: <AP.END-AP.MB1>/2 



PTABLE WORD - BITS 16 & 17 OF MAILBOX ADDR 

LOWER 16 BITS OF MAILBOX ADDRESS 

RUN TIME (IN SECONDS) OF LONGEST TEST 

RUN TIME (IN SECONDS) OF FIRST PASS 

INCLUDES THE DELAY REQUIRED BY DEVICES TO 

RECOVER FROM POWER FAIL CAUSED BY APT TO 

START UP DEC-X11 EXERCISER. 

ADDITIONAL RUN TIME (IN SECONDS) OF FIRST 

PASS WHEN A SECOND DEVICE IS ADDED. 

; LENGTH (IN WORDS) OF E-TABLE + MAILBOX 



APTMGD (APT MODULE PACKAGE) 
APTMOD.MAC 14-SEP-78 12:22 
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APTMOD (COMMON DEFINITIONS & REFERENCES) 



SEO 0068 



587 








588 








589 








590 


000014' 


000000 




591 


000016' 


020040 




592 


000020 ' 


020040 




593 


000022' 


000000 




594 


0C0024 ' 


000000 




595 


000026' 


coooco 




595 


000030' 


000000 




597 


000032' 


000000 




593 








599 








SOO 








601 


000034' 


001 




502 








503 


000035' 


200 




604 








605 


000036' 


000000 




606 


000040' 


000037 




607 


000042' 


000000 




608 


000044' 


00 


1000C0 


509 


000050' 


C 


000000 


610 


000054' 


ooocoo 


000000 


61 1 


000060 ' 


000000 


000000 


612 


000064' 


000000 


000000 


613 


000070' 


000000 


000000 


614 


000074' 


000000 


000000 


615 








516 


000100' 


000020 




617 








618 


000140 ' 






619 








620 








621 








622 








623 


00014C ' 


047515 




624 


000142 ' 


050503 




625 


000144 ' 


o w) L irs -i-t 




626 


0001 46 ' 


000000 




627 


000150 ' 


042520 




628 


0001 52' 


042515 




629 


C00154' 


0521 13 




630 


000156' 


042523 




631 








632 


000160 ' 


000162' 




633 


000162' 


000015 




634 








635 








636 








637 









APT MAILSOX ******************* 

;MAILBOX WORD 1 - FATAL ERROR INDICATOR 
;MODULE NAME'S FIRST TWO CHARACTERS 
;MODULE NAME'S THIRD <& FIFTH CHARACTERS 
;PASS COUNT 
;T0 BE INCREMENTED EVERY 10 SECONDS 



**************** APT E— TABLE ********************** 



• *************** 


AP.MB1 : 





AP.MB2: 


20040 


AP.MB3: 


20040 


AP.MB4: 





AP.MB5: 





















AP.ET1 



BYTE 



BYTE 



200 



AP 


SR1 : 





AP 


SR2: 


~D<31> 


AP 


CPU: 





AP 


MMO: 


0, 100000 


AP 


MM1 : 


0,0 


AP 


MM 2 : 


0,0 


AP 


MM 3 • 


0,0 
0,0 
0,0 
0,0 



AP.MAP". . BLKW 



AP.END: 



16. 



E-TABLE - BYTE 1 - SOFT ENVIRONMENT 

DEFAULT TO APT MODE 

BYTE 2 - DEFAULT TO UUT TTY AND DON'T SIZE 



APT SW 1 

HARD ERROR LIMIT (1) AND SOFT ERROR LIMIT (31.) 

CPU OPTIONS, 15-1 1=TYPE, 1 0=RTC , 9= FPP , 8=MM 

MEMORY MAP, 1 00000=1 6K 

ONE BYTE FOR TYPE PLUS THREE BYTES 

FOR MAX ADDR OF THAT TYPE 

DECX 

DON' T CARE 

ABOUT THESE 

LOCATIONS 

;APT MODULE MAP 

;ONE BYTE REQD FOR EACH MODULE 



; *************** GENERAL LOCAL STORAGE ***************** 



AP.MCO: 


.ASCII 


/MO/ 


AP.MC1 : 


.ASCII 


/CO/ 




.AFC 11 


/TO/ 




.WORD 







.ASCII 


/PE/ 




.ASCII 


/ME/ 




.ASCII 


/KT/ 




•ASCII 


/SE/ 


.EVEN 






ap.fak: 


.WORD 


AP.CR 


AP.CR: 


.WORD 


CR 



.MONITOR ERROR - STUFF "MO" 
ICONTROL QUEUE OVERFLOW 
;TYPE QUEUE OVERFLOW 



INTO MAILBOX 



PARITY ERRORS 

MEMORY ERROR - A LOCATION IS BAD 

KT TRAP 

TRAP THROUGH LOC. 4 OR 10 

POINTER TO NEXT WORD 

A FAKE CARRIAGE RETURN FOR 'SUM' COMMAND 



APTMOD (APT MODULE PACKAGE) 
APTMOD.MAC 14-SEP-78 12:22 

539 
S40 
341 
642 
643 
644 
645 
646 
347 
543 
649 
S50 
551 
352 
653 
554 
655 
355 
557 
653 
659 
660 
6G1 
662 
563 
664 
565 
666 
667 
668 
669 
67C 
671 
672 
673 
674 
675 
676 
677 
67B 
679 
680 
681 
682 
683 
684 
68b 
686 
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APTSLP APT SLEEP AND CONFIGURE ROUTINE 



SEQ 0069 



.SBTTL 
.IDENT 



APTSLP 
/V0.0/ 



APT SLEEP AND CONFIGURE ROUTINE 



++ 
MODULE NAME: 
APTSLP 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE WILL DETERMINE FROM THE APT ENVIRONMENT WORD 1 
IF TRULY UNDER APT. IF SO A CHECK IS MADE ON AVAILABILITY OF 
U.U.T. TERMINAL. IF NONE, THE NOAPTY BIT IS SET IN CONFIG WORD 
0. IF UNDER APT, A 15 SECOND SLEEP ROUTINE IS ENTERED TO 
RECOVER FROM POWER LOGIC YANK. 

INPUTS: 



DTABLE 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.CFO 
DT.APK 
DT.SYP 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
SAVREG 
RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL APTSLP IN <DT> 

WHERE DT = ADDRESS OF DTABLE 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



APTMOD (APT MODULE PACKAGE) 
APTMOD.MAC 14-SEP-78 12:22 
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APTSLP ROUTINE 



17:23 PAGE 19-4 



688 
689 
690 
(2) 
691 
692 
693 
694 
695 
696 
697 
(3) 
693 
(4) 
699 
700 
701 
702 
703 
(4) 
704 
705 
706 
707 
708 
709 
(4) 
710 
711 
712 
713 
714 
715 
(6) 
(9) 
716 
(6) 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
(4) 



000164 1 
000164* 



000164' 

000164' C04767 OOOOOOG 

000170' 

000170' 016500 000000 



000174 
000174 



012703 000034' 



000200 ' 

000200' 005067 177610 



000204' 

000204' 032713 000001 

000210' 001440 

000212' 

000212' 052760 000200 000014 



000220 
000220 



SEO 0070 



.SBTTL APTSLP ROUTINE 
ROUTINE APTSLP <DTADR> 

SAVE REGISTERS, GET DTABLE ADDR. 

CALL SAVREG 

LET RO := DTADR(R5) 

+ 
GET ENVIRONMENT WORD 1 TO R3 

LET R3 := #AP.ET1 

ZERO FATAL BIT INDICATOR IN CASE IT WAS SET 



APTSLP: 



J3R PC, SAVREG 
MOV DTADR(R5),R0 



MOV 



#AP.ET1 ,R3 



LET AP.MB1 := #0 



CLR 



AP.MB1 



IF BITO SET IN ENVIRONMENT WORD 1, SET APTPRES BIT IN DT.CFO, SET UP KEEP ALIVE 
AND SYSTEM PASS COUNT 



IF 0BITOO SETIN (R3) THEN 

LET DT.CFO(RO) : * DT.CFO(RO) SET . BY #APTPRES 



BIT 

BEQ 

BIS 



#BITOO, (R3) 
50002$ 

#APTPRES,DT.CFO( 



!!! NOTE: KEEP ALIVE COUNTER FOLLOWS - ! 

REMOVE SEMI-COLON IF YOU EVER WANT ! 

A DEC/X11 KEEP-ALIVE COUNTER. IF ! 

YOU DO, IT WILL BE UPDATED ! 

I VERY OFTEN (MANY TIMES A SECOND) ! 1 

! IN DECX . ! ! 



! ! 



i ! 
! ! ! 



#**1|!***J|!*******#******************************+** 



LET DT.APK(RO) := #AP.MB5 



012760 000022' 000072 



LET DT.SYP(RO) 



0AP.MB4 



MOV 



#AP.MB4,DT.SYP(R 



APTMOD (APT MODULE PACKAGE) 
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APTSLP ROUTINE 
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SEQ 0071 



735 








735 








737 








738 








739 








740 


000226' 






(6) 


000226 1 


032713 


020000 


(9) 


000232' 


001410 




741 


000234' 






(6) 


000234' 


052760 


000002 000014 


742 


000242' 






(4) 


000242' 


01 0067 


OOOOOOG 


(6) 


000246' 


062767 


000102 OOOOOOG 


743 


000254' 






(4) 


000254' 






744 








745 








746 








747 








748 








749 


000254' 






(4) 


000254' 


012701 


000025 


750 


000260' 






(4) 


000260' 


012702 


177777 


751 








752 








753 








754 








755 


000264' 






(4) 


000264' 






(6) 


000264' 


005701 




(9) 


000266 1 


001410 




756 


000270' 






(4) 


000270 ' 






(6) 


000270' 


0057C2 




(9) 


000272 ' 


001402 




757 


000274' 






(6) 


000274' 


005302 




758 


C0027S 1 






(4) 


000276' 


000774 




(3) 


000300 ' 






759 


0003C0' 






(4) 


000300 ' 


01 2702 


177777 


760 


00C304' 






(6) 


000304' 


005301 




761 


0C0306' 






(4) 


000306' 


000766 




(3) 


000310' 






762 








763 


000310' 






(4) 


000310' 


000403 




(3) 


000312' 






764 








765 








766 








767 









IF BIT 13 SETIN ENV WORD 1, SET NO APT TTY BIT (NOAPTY) 
IN CONFIG WORD (DT.CFO) AND FAKE OUT THE KB CSR. 

IF #BIT13 SETIN (R3) THEN 



LET DT.CFO(RO) := DT.CFO(RO) SET. BY #NOAPTY 
LET RCSR := RO + tfDT.RCS 



BIT 

BEQ 

BIS 

MOV 
ADD 



ENDIF 



50003$: 



INIT COUNT FOR SLEEP LOOP 

LET R1 := #25 
LET R2 := #-1 

GO TO SLEEP FOR A WHILE TO RECOVER FROM POWER FAIL LINE YANK 
WHILE R1 NE #0 DO 



WHILE R2 NE #0 DO 



MOV 
MOV 



LET R2 := R2 - #1 



ENDDO 



LET R2 := #-1 
LET R1 := R1 - #1 



ENDDO 



ELSE 



; + 



50005$: 



50002$: 



BR 



#BIT13, (R3) 
50003$ 

#NOAPTY,DT.CF0(R 

RO.RCSR 
#DT.RCS,RCSR 



#25, R1 
#-1 ,R2 



50004$: 


TST 
BEQ 


R1 
50005$ 


50006$: 


TST 
BEQ 


R2 
50007$ 




DEC 


R2 


50007$: 


BR 


50006$ 




MOV 


#-1 ,R2 




DEC 


R1 




BR 


50004$ 



50010$ 



; NOT APT - CLEAR APT PRESENT BIT IN DT.CFO 



APTMOD (APT MODULE PACKAGE) 
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SEQ 0072 



768 








769 








770 


000312' 






(6) 


000312' 


042760 


000200 000014 


771 








772 


000320' 






(4) 


000320' 






773 








774 








775 








776 








777 








773 








779 








780 


000320 ' 






(3) 


000320' 


004767 


000000G 


781 


000324' 






(3) 


000324' 






(3) 


000324' 






(2) 


000324' 


000207 




782 








783 








78< 









LET DT.CFO(RO) 



ENDIF 



RESTORE REGS 

CALL RESREG 
ENDRTN 



DT.CFO(RO) CLR.BY #APTPRES 



BIC #APTPRES,DT.CFO( 



50010$: 



50000$: 
50001$: 



JSR 



RTS 



PC, RESREG 



PC 



APTMOD (APT MODULE PACKAGE) 
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786 
787 
788 
789 
7S0 
791 
792 
793 
794 
795 
793 
797 
793 
799 
800 
301 
802 
803 
304 
805 
806 
307 
803 
809 
810 
81 1 
812 
813 
314 
815 
816 
817 
818 
819 
320 
321 
322 
323 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
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.SBTTL APTSER (APT SOFT ERROR HANDLER) 

++ 
MODULE NAME: 
APTSER 

FUNCTIONAL DESCRIPTION: 

THIS MODULE IS CALLED WHEN THE EXERCISER IS 

DETERMINED TO BE RUNNING UNDER APT ENVIRONMENT, TO HANDLE 

A SOFT ERROR. 

THE ERROR COUNT IS COMPARED WITH THE LIMIT SET IN E-TABLE. 
IF THE COUNT IS LESS THAN THE LIMIT, CONTROL GOES BACK TO 
THE CALLER. 

IF THE COUNT EQUALS THE LIMIT THE RUN IS OVER (CALL APTDED) 



INPUTS: 

DTABLE ADDRESS 

IMPLICIT INPUTS: 

1. DT.PC 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
1 . APTDED 

2. SAVREG 

3. RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL APTSER IN <DTA> 



SEQ 0073 



WHERE DTA = DATA TABLE ADDRESS 



VERSION: 
0.0 

EDIT 



DATE 



BY 



REASON 



APTMOD (APT MODULE PACKAGE) 
APTMOD.MAC 14-SEP-78 12:22 



839 








840 








841 


000326' 






(2) 


000326' 






342 








843 








844 








845 








346 








347 








843 


000326" 






(3) 


000326' 


004767 


OOOOCOG 


349 








850 


000332' 






(4) 


C00332' 


016500 


000000 


851 


000336' 






(4) 


000336' 


01 70 01 


000002 


852 


000342' 






(4) 


000342' 


016702 


177472 


(6) 


000346' 


042702 


177740 


853 








854 








855 








855 








857 








853 


000352' 






(6) 


000352' 


026102 


000042 


(9) 


000356 1 


1 03406 




859 


000360' 






(3) 


000360' 


01 0546 




(5) 


000362 ' 


01 0145 




(4) 


000364' 


01 0045 




(3) 


000366' 


004767 


000010 


(3) 


000372 ' 


012605 




860 








861 


000374' 






(4) 


000374' 






362 








663 








864 








865 








866 








867 


000374' 






(3) 


000374' 


004767 


OOOOOOG 


868 








869 


000400' 






(3) 


000400' 






(3) 


000400 ' 






(2) 


00040C 


000207 




870 








871 
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SEO 0074 



APTSER 



SAVE REGS; GET DTABLE ADDR, MODULE'S HEADER ADDRESS, 
AND SOFT ERROR LIMIT FROM E-TABLE. 



CALL SAVREG 



LET RO 
LET R1 
LET R2 



= DTA(R5) 

= @DT.PC(RO) 

= AP.SR2 CLR.BY #177740 



JSR 


PC, SAVREG 




MOV 


DTA(R5) ,R0 




MOV 


©DT.PC(RO) , 


R1 


MOV 


AP.SR2.R2 




BIC 


#177740, R2 





IF COUNT IS EQUAL TO THE LIMIT, WE ARE DONE - CALL APTDED 



IF S0FCNT(R1) HIS R2 THEN 



CALL APTDED IN <R0,R1> 



CMP 


S0FCNT(R1 ) ,R2 


BLO 


50002$ 


MOV 


R5,-(SP) 


MOV . 


R1 ,~(R5) 


MOV 


R0,-(R5) 


JSR 


PC, APTDED 


MOV 


(SP)+,R5 



ENDIF 



50002$: 



RESTORE REGS AND RETURN 



CALL RESREG 



ENDRTN 



50000$: 
50001$: 



JSR 



RTS 



PC, RESREG 



PC 



APTMOD (APT MODULE PACKAGE) 
APTMOD. MAC 14-SEP-78 12:22 

873 
874 
875 
873 
877 
878 
879 
880 
381 
382 
383 
884 
885 
886 
387 
388 
389 
390 
891 
392 
393 
394 
395 
896 
397 
398 
899 
90C 
901 
902 
903 
904 
905 
906 
907 
903 
909 
910 
91 1 
912 
913 
914 
915 
916 
917 
918 
919 
920 
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APTDEO PUT OPTION MODULE NAME INTO MAILBOX 



SEQ 0075 



.SBTTL 
.IDENT 



APTDED 

/vo.o/ 



PUT OPTION MODULE NAME INTO MAILBOX 



++ 
MODULE NAME: 
APTDED 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE STUFFS THE 1ST, 2ND, 3RD AND FIFTH CHARACTERS 
OF A FAILING OPTION MODULE NAME INTO THE 2ND AND 3RD WORDS 
OF THE APT MAILBOX. IT RESETS AND RECOVERS. SET THE APT AND 
FATAL ERROR BITS IN DTABLE'S ERROR WORD. 

INPUTS: 

DTABLE ADDRESS 
MODULE HEADER ADDRESS 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.ERR 

PATHOLOGICAL CONNECTIONS: 

NONE 

SUBORDINATE ROUTINES CALLED: 
SAVREG 
RESREG 
RSTRCY 

FUNCTIONAL DESCRIPTION: 
NONE 

CALLING SEQUENCE: 

CALL APTDED IN <DT,MH> WHERE: 
DT=DTABLE ADDRESS 
MH=MODULE HEADER ADDRESS 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



APTMOD (APT MODULE PACKAGE) 
APTMOD.MAC 14-SEP-78 12:22 
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SEO 0076 



922 
923 
924 
(2) 
925 
926 
927 
923 
929 
(3) 
930 
(4) 
931 
(4) 
932 
933 
934 
935 
335 
937 
938 
939 
(4) 
940 
(4) 
941 
(4) 
942 
(2) 
943 
(4) 
944 
945 
(2) 
946 
(3) 
(4) 
(3) 
(3) 
947 
943 
(6) 
949 
(6) 
950 
(3) 
951 
(3) 
(3) 
(2) 
952 



000402' 
000402' 



000402' 

0C0402' 004767 
C00406' 
000406' 016500 



000412' 
C00412' 



000416' 
C00416 ' 
C00422' 
000422' 
000426' 
000426' 
000430 ' 
00C430 ' 
000432' 
000432' 

000434 ' 
0C0434' 
00C436' 
000436' 
000440 ' 
0C0442 1 
CC044S' 

000450 ' 
000450' 
000456' 
000456' 
000462 ' 
000462 ' 
000466' 
000466 ' 
000466' 
000466' 



OOOOCOG 



OOCOOO 



016501 000002 



012167 177374 

012703 000020' 

112123 

105721 

111113 

000005 

01 0546 

01 0045 

0C4767 OOOOOOG 

01 2505 

052760 100004 000020 
005267 177332 
004767 OOOOOOG 

000207 



.SBTTL APTDED ROUTINE 
ROUTINE APTDED <TB,MD> 



APTDED: 



SAVE REGISTERS, GET DTABLE ADDR . , AND MODULE HEADER ADDR. 

CALL SAVREG 

LET RO := TB(R5) 

LET R1 := MD(R5) 

+ 
STUFF APT MAILBOX WITH MODULE ASCII NAME, RESET AND RECOVER 
UPDATE ERROR WORD IN DTABLE, AND 
SET APT FATAL BIT IN MB1 AND 
RETURN TO THE CALLER. 

LET AP.MB2 := (R1 ) + 
LET R3 := #AP.MB3 
LET (R3)+ :B= (R1)+ 
INLINE <TSTB (R1 ) +> 
LET (R3) :B= (R1) 

INLINE <RESET> 
CALL RSTRCY IN <R0> 



LET DT.ERR(RO) := DT.ERR(RO) SET . BY #APTFER ! FATERR 
LET AP.MB1 := AP.MB1 + #1 
CALL RESREG 
ENDRTN 



50000$: 
50001$: 



USR PC, SAVREG 
MOV TB(R5),R0 
MOV MD(R5),R1 



MOV (R1 )+, AP.MB2 
MOV #AP.M33,R3 
M0V3 (R1 )+, (R3)+ 

TSTB (R1 ) + 
MQVB (R1),(R3) 



RESET 

MOV 
MCV 
JSR 
MOV 



R5,-(SP) 
R0,-(R5) 
PC, RSTRCY 
(SP)+,R5 



BIS #APTFER!FATERR,D 
INC AP.MB1 
JSR PC, RESREG 



RT£ 



PC 



APTVIOD (APT MODULE PACKAGE) 
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954 

955 

953 

957 

953 

959 

960 

96 I 

962 

963 

964 

965 

963 

967 

963 

969 

970 

971 

972 

973 

974 

975 

976 

977 

973 

979 

980 

981 

982 

983 

984 

985 

986 

937 

983 

989 

990 

991 

992 

993 

994 

9S5 

936 

937 

998 

999 
1000 
1001 
1002 
1003 
1004 
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.SBTTL APTHER (APT HARD ERROR HANDLER) 



++ 
MODULE NAME: 
APTHER 

FUNCTIONAL DESCRIPTION: 

THIS MODULE IS CALLED WHEN THE EXERCISER IS 

DETERMINED TO BE RUNNING UNDER APT ENVIRONMENT, TO HANDLE 

A HARD ERROR. 

IF THE ERROR COUNT IS LESS THAN THE LIMIT SET IN E-TABLE, 
CONTROL GOES BACK TO THE CALLER. 

IF THE COUNT EQUALS THE LIMIT THE RUN IS OVER (CALL APTDED) 



INPUTS: 

DTABLE ADDRESS 

IMPLICIT INPUTS: 
DT.PC 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 

1 . APTDED 

2. SAVREG 

3. RESREG 

FUNCTIONAL SIDE EFFECTS: 

NONE 

CALLING SEQUENCE: 

CALL APTHER IN <DTA> 

WHERE DTA = DATA TABLE ADDRESS 



VERSION: 
0.0 

EDIT 



SEQ 0077 



DATE 



BY 



REASON 



APTMOD (APT MODULE PACKAGE) 
APTMOD. MAC 14-SEP-78 12:22 



MACY1 t 
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SEQ 0078 



1006 








1007 








1003 








1009 


000470' 






(2) 


000470' 






1010 








101 1 








1012 








1013 








1014 








1015 








1016 


000470' 






(3) 


000470' 


004767 


OOOOOOG 


1017 








1018 


000474' 






(4) 


000474' 


01 6500 


000000 


1019 


0C0500' 






(4) 


000500 ' 


01 7001 


000002 


1020 


000504' 






(6) 


000504' 


016702 


177330 


(6) 


000510' 


000302 




1021 


000512' 






(6) 


000512' 


042702 


177740 


1022 








1023 








1024 








1025 








1026 








1027 


000516' 






(6) 


000516' 


026102 


000044 


(9) 


000522' 


103406 




1028 








1029 








1030 


000524' 






(3) 


000524' 


01 0546 




(5) 


000526' 


01 0145 




(4) 


000530' 


01 0045 




(3) 


000532' 


004767 


177644 


(3) 


000536' 


012605 




1031 








1032 


000540' 






(4) 


000540' 






1033 








1034 








1035 








1036 








1037 








1038 


000540' 






(3) 


000540' 


004767 


OOOOOOG 


1039 








1040 


000544' 






(3) 


000544' 






(3) 


000544' 






(2) 


000544' 


000207 




1041 









SBTTL APTHER CODE 



ROUTINE APTHER <DTA> 



APTHER: 



SAVE REGS; GET DTA3LE ADDR, MODULE'S HEADER ADDRESS, 
AND HARD ERROR LIMIT FROM E-TABLE. 



CALL SAVREG 



LET RO 
LET R1 
LET R2 



= DTA(R5) 

= @DT.PC(RO) 

= SWAP AP.SR2 



LET R2 : = R2 CLR.BY #177740 



IF COUNT IS EQUAL TO THE LIMIT, THEN WE ARE DONE 



JSR 


PC, SAVREG 




MOV 


DTA(R5) ,R0 




MOV 


<s>DT.PC(RO) 


R1 


MOV 


AP.SR2,R2 




SWAB 


R2 




BIC 


#177740, R2 





IF HRDCNT(R1) HIS R2 THEN 



CALL APTDED IN <R0,R1> 



CMP 
BLO 



MOV 
MOV 
MOV 
JSR 
MOV 



ENDIF 



50002$: 



RESTORE REGS AND RETURN 



CALL RESREG 



ENDRTN 



50000$: 
50001$: 



JSR 



RTS 



HRDCNT(R1 ) ,R2 
50002$ 



R5,-(SP) 
R1 ,-(R5) 
R0,-(R5) 
PC, APTDED 
(SP)+,R5 



PC, RESREG 



PC 



APTMOD (APT MODULE PACKAGE) 
APTMOD.MAC 14-SEP-78 12:22 

1043 
1 044 
1045 
1046 
1 047 
1043 
1 049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1 086 
1087 
1088 
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•SBTTL APTSEL - SELECT OPTION MODULES FROM MAP 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
APTSEL 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE WILL SEARCH THE MODULE LIST AND SELECT MODULES 

IF BITS ARE SET IN MODULE MAP IN APT ETABLE. IF NO BIT IS SET FOR THE 

CORRESPONDING MODULE, THE MODULE IS DESELECTED. THE BITS 

IN THE MAP CORRESPOND TO THE DEV COUNT TO BE USED BY THE MODULE 

(DVID1 GETS THE BITS) . 

INPUTS: 

DTABLE ADDRESS 

IMPLICIT INPUTS: 
DT.MLST 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
SAVREG 
RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL APTSEL IN <DT> 

WHERE DT = ADDRESS OF DTABLE 

VERSION: 
0.0 



SEQ 0079 



EDIT 



DATE 



BY 



REASON 



APTWIOD (APT MODULE PACKAGE) 
APTMOD.MAC 14-SEP-78 12:22 
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SEQ 0080 



1090 
1091 
1092 

(2) 
1093 
1094 
1095 
1096 
1097 
1093 

(3) 
1099 

(4) 
1 100 

(4) 
1 101 
1 102 

(4) 
1 103 
1 104 
1 105 
1 106 
1 107 
1 10S 
1 109 
1 1 1C 

(4) 

(6) 

(9) 
1111 

(4) 
1112 

(6) 

(9) 
1113 
1 1 14 
1 115 
1116 
1117 
1 1 18 

(6) 
1119 

(4) 

(3) 
1 120 
1 121 

(6) 
1 122 

(4) 
1 123 

(4) 
1 124 
1 125 
1 126 
1 127 
1 128 



000546' 
000546' 



000546' 

000546' 004767 OOOOOOG 

000552' 

000552' 016500 000000 

000556' 

000556' 016002 000032 

000562' 

000562' 012703 000100' 



000566' 

000566 

0C0566 

000570 

000572 1 

000572' 

000574' 

000574' 

000576' 



005712 
001415 

012201 

105713 
001004 



000600' 

000600' 042761 040000 000026 

000606 1 

000606' 000405 

000610' 



000610 ' 

000610' 052761 
000615' 

000616' 1 1 1361 
0C0622' 
000622' 



040000 000026 



000014 



.SBTTL APTSEL ROUTINE 
ROUTINE APTSEL <DTBL> 

SAVE REGISTERS, DTABLE AND GET MAP ADDRESS 

CALL SAVREG 

LET RO := DTBL(R5) 

LET R2 := DT.MLST(RO) 

LET R3 := #AP.MAP 



WHILE NOT AT END OF MODULE LIST, GET MODULE HEADER ADDR 



APTSEL: 



JSR 


PC, SAVREG 


MOV 


DTBL(R5) ,R0 


MOV 


DT.MLST(RO) ,R2 


MOV 


#AP.MAP,R3 



IF BYTE 



IN APT MAP = 0, DESELECT MODULE: 
UP DEVICE COUNT 

WHILE (R2) NE #0 DO 



IF NOT SELECT MODULE AND SET 



50002$: 



LET R1 := (R2)+ 
IFB (R3) EO #0 THEN 

IF ZERO IN APT TABLE, DESELECT THE MODULE 



TST 
BEO 

MOV 

TSTB 
BNE 



ELSE 



LET STAT(RI) := STAT(R1) CLR.BY #3IT14 



LET STAT(R1) := STAT(R1) SET. BY #BIT14 
LET DVID1 (R1 ) :B= (R3) 



ENDIF 



ADVANCE TO NEXT IN MAP 



(R2) 
50003$ 

(R2)+,R1 

(R3) 
50004$ 





BIC 


#BIT14,STAT(R1) 




BR 


50005$ 


50004$: 








BIS 


#BIT14,STAT(R1) 




MOVB 


(R3) ,DVID1 (R1 ) 


50005$: 







APTMOD 


(APT MODULE PACKAGE) 


APTMOD 


MAC 14-SEP-78 12:22 


1 123 


000622 




(2) 


000622 


105723 


1 130 


000624 




(4) 


000624 


000760 


(3) 


000626' 




1 131 






1 132 






1 133 






1 134 






1 135 






1 136 


000626' 




(3) 


C00626' 


004767 000000G 


1 137 


000632' 




(3) 


C00632' 




(3) 


000632' 




(2) 


000632' 


000207 


1 133 







MACY11 
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(R3)+> 



ENDDO 



TSTB 
BR 



50003$: 



RESTORE REGISTERS 
CALL RESREG 
ENDRTN 



50000$: 
50001$: 



JSR 



RTS 



SEQ 0081 



(R3) + 
50002$ 



PC, RESREG 



PC 



APTMOD (APT MODULE PACKAGE) 
APTMOD.MAC 14-SEP-78 12:22 



140 
141 
142 
143 
144 
145 
143 
147 
143 
149 
150 
151 
152 
153 
154 
155 
1 56 
157 
153 
159 
160 
161 
162 
163 
164 
165 
166 
167 
163 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
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.SBTTL APTKIL - KILL APT BY HALTING 
•IDENT /VO.O/ 

++ 
MODULE NAME: 
APTKIL 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE DETERMINES IF AN ERROR WAS CAUSED BY THE MONITOR 

AND IF SO, STUFFS AN APPROPRIATE 4 LETTER CODE INTO WORDS 2 & 3 

OF APT MAILBOX. A RUN SUMMARY IS OUTPUT. THE EXERCISER THEN HALTS, 

INPUTS: 

DTABLE ADDRESS 

IMPLICIT INPUTS: 
DT.ERR 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECT IONS : 
MD.COD 

SUBORDINATE ROUTINES CALLED: 
SAVREG 
RESREG 
MSGDEQ 
KSUM 

FUNCTIONAL SIDE EFFECTS: 

***** HALTS THE EXERCISER ****** 

CALLING SEQUENCE: 

CALL APTKIL IN <DT> WHERE: 
DT = DTABLE ADDRESS 

VERSION: 
0.0 



SEQ 0082 



EDIT 



DATE 



BY 



REASON 



APTWIOD (APT MODULE PACKAGE) 
APTMOD.MAC 14-SEP-78 12:22 



1 187 








1 183 








1 189 


000634' 






(2) 


000634' 






1 190 








1 191 








1 192 








1 193 








1 194 








1 195 


00C634' 






(3) 


000634' 


004767 


000000 


1 195 


000640' 






(4) 


000640' 


016500 


000000 


1 197 








1 198 








1 199 








1200 








1201 








1202 


000644' 






(4) 


000644' 


01 6001 


000020 


(6) 


000650' 


042701 


100004 


1203 








1204 








1205 








1 206 








1207 








1208 








1209 








1210 


000654' 






(6) 


0C0654' 


005701 




(9) 


000656' 


001416 




121 1 


000660 ' 






(4) 


000660 ' 


016767 


177254 


1212 


000666' 






(4) 


000566' 


01 2702 


000142 


1213 


000672' 






(7) 


0C0572 ' 


C05201 




1214 


000574' 






(4) 


000674' 






(6) 


000574 ' 


005701 




(9) 


000676 ' 


00 1404 




1215 


00070C ' 






(7) 


000700 ' 


006201 




1216 


000702' 






(6) 


000702 ' 


062702 


000002 


1217 


000706' 






(4) 


000706' 


000772 




(3) 


000710' 






1218 








1219 








1220 








1221 








1222 








1223 








1224 


000710' 






(4) 


000710' 


01 1267 


177104 



APTKIL: 
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.SBTTL APTKIL ROUTINE 

ROUTINE APTKIL <TAB> 



SAVE REGISTERS AND DTABLE ADDR . 

CALL SAVREG 

LET RO := TAB(R5) 

COPY DT.ERR INTO R1 AND MASK OUT FATAL ERROR BITS 
LET R1 := DT.ERR(RO) CLR.BY #100004 



IF COPY OF DT.ERR IS NON ZERO, MOVE 'MO' TO WORD 2. 

SHIFT DT.ERR COPY UNTIL ZERO; ADVANCE R2 TO POINT TO PROPER 

ADDRESS OF 2 LETTER MSG 



IF R1 NE #0 THEN 



SEO 0083 



JSR 
MOV 



MOV 
BIC 



LET AP.MB2 



AP.MCO 



177130 



LET R2 := 4AP.MC1 



LET R1 := R1 SHIFT -1 



WHILE R1 NE #0 DO 



LET R1 := R1 SHIFT -1 



LET R2 := R2 + #2 



ENDDO 



STUFF 2 LETTER CODE TO M33 



LET AP.MB3 := (R2) 



PC, SAVREG 
TAB(R5) ,R0 



DT. ERR(RO) ,R1 
#100004, R1 





TST 


R1 




BEO 


50002$ 




MOV 


AP.MCO, AP.MB2 




MOV 


0AP.MC1 ,R2 




ASR 


R1 


50003$: 








TST 


R1 




BEQ 


50004$ 




ASR 


R1 




ADD 


#2,R2 




BR 


50003$ 


50004$: 







MOV 



(R2) ,AP.MB3 
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1225 


000714' 






(4) 


000714' 






1226 








1227 








122S 








1229 








1230 








1231 


000714' 






(3) 


000714' 


01 0546 




(5) 


C00716' 


01 6745 


177236 


(4) 


000722' 


01 0045 




(3) 


000724 ' 


004767 


OOOOOOG 


(3) 


C00730 ' 


01 2605 




1232 


000732 ' 






(3) 


000732' 






1233 


000732' 






(3) 


000732' 


01 0545 




(4) 


000734' 


01 0045 




(3) 


000736' 


004767 


OOOOOOG 


(3) 


000742' 


01 2605 




1234 


000744' 






(3) 


000744' 


026727 


OOOOOOG 177775 


(6) 


000752' 


001367 




1235 








1236 








1237 








1238 








1239 








1240 








1241 








1242 








1243 


000754' 






(2) 


000754' 


000000 




1244 








1245 








1246 








1247 








1248 








1249 








1250 








1251 








1252 








1253 








1254 








1255 








1256 








1257 








1258 


000756' 






(3) 


000756' 


004767 


OOOOOOG 


1259 


000762' 






(3) 


000762' 






(3) 


000762' 






(2) 


000762' 


000207 




1260 




000001 
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SEO 0084 



50002$: 



DO A RUN SUMMARY SUPPLYING FAKE CARRIAGE RETURN ARGUMENT, 
MSG DEQUER UNTIL IT'S ALL OUTPUTTED. 



CALL KSUM IN <R0,AP.FAK> 



KEEP CALLING 



REPEAT 



CALL MSGDEQ IN <R0> 



UNTIL MD.COD EQ #MSGNUL 



******************************* ***** 

!!!!!!!!!!!!!!!!! HALT !!!!!!!!!!!!! 

************************************ 



MOV 


R5,-(SP) 


MOV 


AP. FAX,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, KSUM 


MOV 


(SP)+,R5 


50005$: 




MOV 


R5,-(SP) 


MOV 


R0,-(R5) 


JSR 


PC, MSGDEQ 


MOV 


(SP)+,R5 


CMP 


MD.COD,#MSGNUL 


BNE 


50005$ 



INLINE <HALT> 



THE END 



HALT 



PRESS CONTINUE TO CONTINUE BUT 

ANY FURTHER ERRORS WILL GET U HERE AGAIN 



RESTORE REGS 



CALL RESREG 
ENDRTN 

.END 



50000$: 
50001$: 



JSR 



RTS 



PC, RESREG 



PC 
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SYMBOL TABLE 



SEQ 0085 



ACSR = 


0001 02 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTDED 


0CC402RG 


APTFER= 


C 00004 


APTHER 


C00470RG 


APTXIL 


C00634RG 


APTPRE= 


000200 


APTSEL 


00C546RC 


APT5ER 


000326RG 


A P T S L P 


000164RG 


AP.CPU 


C00042R 


AP. CR 


C00162R 


AP.END 


000140R 


A?. ET1 


000034R 


AP. FAK 


0CC1 6CR 


AP.MAP 


0001 OOR 


AP.MB1 


000014R 


AP.MB2 


000016R 


AP.MB3 


000020R 


AP.MB4 


000022R 


A D . MB5 


000024R 


AP .MCG 


000140R 


A P . MC 1 


000142R 


AP . MMO 


000044R 


A P . MM 1 


000050R 


A P. MM 2 


000054R 


AP.MM3 


000060R 


AP. PB 


OOOOOORG 


AP. POO 


OOOOOOR 


t\? . P02 


000002R 


AP. P04 


000004R 


AP. POE 


000006R 


AP. P10 


000010R 


A P . P 1 2 


000012R 


AP.SR1 


0C0036R 


AP.SR2 


000040R 


ASB 


0001 06 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


0001 10 


3IT0 = 


000001 


31 TOO = 


000001 


3IT01 = 


000002 


BIT 02 = 


000004 


3IT03 = 


000010 


BIT04 = 


000020 


3IT05 = 


000040 


BIT06 = 


000100 


3IT07 = 


000200 



BIT08 = 


000400 


BIT09 = 


001000 


BIT1 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


01 0000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


COOVF = 


000001 


CR 


000015 


CSRA = 


000100 


CSRC = 


000102 


CTRLC = 


000003 


CTRLO = 


000017 


CTRLU = 


000025 


DCEVNT= 


00001 1 


DEFRTN= 


000400 


DIAGMC= 


000000 


DROPMO= 


100000 


DSEVNT= 


000014 


DTA 


000000 


DTADR = 


000000 


DTBL = 


000000 


DT. ADD= 


000042 


DT.AP = 


000100 


DT.APK= 


000076 


DT.BLS= 


000034 


DT.CFO= 


000014 


DT.CF1 = 


000016 


DT.ERR= 


000020 


DT.ESI= 


000044 


DT.EVN= 


000000 


DT.EXS= 


000060 



DT.FCH= 

DT.FCN= 

DT.HMX= 

DT.KBE= 

DT.KBP= 

DT.KBR= 

DT.KBU= 

DT.MLS= 

DT.MTI= 

DT.OFF= 

DT.PAS= 

DT.PC = 

DT.PFL= 

DT.PSW= 

DT.PTA= 

DT.RCS= 

DT.REL= 

DT.SCT= 

DT.SMX= 

DT.SP = 

DT.SSI= 

DT.STO= 

DT.ST1= 

DT.SWR= 

DT.SYP= 

DT.WBU= 

DT.WHL= 

DT.WLL= 

DVID1 = 

ECCMEM= 

ECC5TA= 

ENBEOP= 

ENBNUL= 

ENDLST= 

EOPBIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 



000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
0CCC02 
0C0062 
0000C4 
000064 
CO 01 02 
000040 
000055 
000106 
000006 
0C0046 
000010 
000012 
00C056 
000072 
0C0050 
000054 
000052 
000014 
000100 
000010 
0100C0 
000001 
000000 
000001 
000106 
000200 
000200 
000203 
000202 
000201 
100000 
000044 
000050 
000C36 
000040 
000122 
000100 
000040 
040000 
0200C0 
001000 
000400 



INIT = 

INTR = 

IOMOD = 

IOMODP= 

IOMODR= 

IOMODX= 

JACK = 

KIPARO= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KSUM = 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPSTAT= 

MAPSTA= 

MD 

MD.COD= 

MED 

MEMPAS= 

MODEXH= 

MODHOL= 

MODSEL= 

MSGCKD= 

MSGCKS= 

MSGDEQ= 

MSGDER= 

MSGDRP= 

MSGECH= 

MSGEOP= 

MSGHDR= 

MSGHNG= 

MSGHRD= 

MSGMAP= 

MSGNUL= 

MSGPOP= 

MSGPRM= 

MSGRES= 



000030 
000120 
100000 
102000 
1 12000 
1 10000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
***** * 
000040 
000400 
000020 
04 000 
000012 
000001 
000200 
000002 
****** 

076600 
040000 
004000 
002000 
001000 
000010 
00001 1 

000005 
000017 
177777 
000013 
000004 
000022 
000007 
000021 
177775 
000002 
177776 
000001 



MSGSFT= 

MSGSKE= 

MSGSMB= 

MSGSMH= 

MSG3M3- 

M5GSTD= 

M3GSYS= 

MSGVEC= 

N3KM0D= 

NCPUOP= 

NQAPTY= 

NULL = 

OWEN = 

PAERR = 

PARPRE= 

PARSTA= 

PASCNT= 

PDPLSI= 

PDP60 = 

PDP70 = 

PRIO = 

PRI1 = 

PRI4 = 

PRI5 = 

PRI6 = 

PRI7 = 

PRO 

PR4 

PR5 

PR6 = 

PR7 = 

PS 

PSW 

RANNUM= 

R3UFEA= 

RBUFPA= 

RBUFS2= 

R3UFVA= 

RCSR = 

RDSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RESREG= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRCY= 

RSTRT = 

RUBOUT= 

RUNMOD= 



000006 
000003 
000015 
000014 
000016 
000000 
000012 
000020 
001000 
000020 
000002 
000000 
024020 
000010 
002000 
000100 
000034 
020000 
004000 
010000 
000000 
000040 
000200 
000240 
000300 
000340 
000000 
000200 
000240 
000300 
000340 
177776 
177775 
000054 
000130 
000126 
000132 
000124 

000101 
000022 
000020 
020000 
010000 
****** 

000056 
000060 
031060 
002000 

****** 

0001 12 
000177 
100000 
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SEQ 0086 



R5VALU= 


001740 




SAM 


075464 




SAVREG= 


****** G 




SBADR = 


000102 




SBK7!0D = 


000000 




SBKSEL= 


010000 




SC. ADR= 


000006 




SC. ALC= 


000014 




SC. APC = 


000016 




SC.CKL= 


000002 




SC.CKP= 


000004 




SC.CLO= 


COOOOO 




SC.HLD= 


000010 




SC. SCA= 


000012 




SENDLS= 


177777 




SOFCNT= 


000042 




S0FPAS= 


000046 




SPACE = 


000040 




SPOINT= 


000032 




SPVALU= 


002200 




SRO 


1 77572 




SR1 = 


1 77574 




SR2 


1 77576 




SR3 


172516 




STAT = 


000026 




STATBI= 


064757 




STAT1 = 


000027 




SUSPNC= 


000001 




. A3S. 


000000 


000 




000764 


001 



SVRO = 000062 
SVR1 = 000064 
SVR2 = 000066 
SVR3 = 000070 
SVR4 = 000072 
SVR5 = 000074 
SVR6 = 000076 
SYSCNT= 000052 
SYSERR= 000100 
TAB = 000000 
TB = 000000 
TMPIO = 000002 
TQOVF = 000C02 
UIPARO= 177640 
UIPAR1= 177642 
UIPAR2= 177644 
UIPAR3= 177646 
UIPAR4= 177650 
UIPAR5= 177652 
UIPAR6= 177654 
UIPAR7= 177656 
UIPDRO= 177600 
UIPDR1= 177602 
UIPDR2= 177604 
UIPDR3= 177606 
UIPDR4= 177610 
UIPDR5= 177612 
UIPDRS= 177614 



UIPDR7= 177616 
WASADR= 000104 
WBSTAT= 000040 
WBUFEA= 000135 
WBUFPA= 000134 
WBUFRQ= 000140 
WBUFSZ= 000142 
WDFR = 000116 
WDTO = 0001 1 4 
WTINRE= 000352 
WTWHMI= 000222 
XFLAG = 000005 
XOFF = 000023 
XON = 000021 
$BGNLE= 177777 
$ERFLG= 000400 
$F$AND= 000310 
$F$BAD= 000401 
$FSBLA= 000170 
$F$CAS= 000150 
$F$DEC= 000220 
$F$DO.= 000340 
$F$FAL= 000405 
$F$GOO= 000400 
$F$IF = 000110 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 000160 



$F$NO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 
$F$YES= 000402 
$IFLEV= 177777 
$ISKO = 000001 
$ISK1 = 000001 
$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000001 
$NESTL= 177777 
$NSKO = 000300 
$NSK1 = 000130 
$NSK2 = 000120 
$NSK3 = 000120 
$SAVLE= 177777 
$SSKO = 050004 
$TAGLE= 177777 
$TAGNU= 050006 
$TEMP = 000300 
$TSK0 = 050005 
$TSK1 = 050003 



$TSK2 = 050004 

$TSK3 = 050006 

$TSK4 = 050007 

$$ARGC= 000002 

$SBYTE= 000403 

$SCASE= 000000 

$$DST = 000000 

$$ELOC= 000402 

$$ERFL= 000000 

$SFLAG= 000001 

$SFROM= 000000 

$$LOC = 000752R 

$$LOCN= 000000 

$$REG = 177777 

$SRETU= 000000 

$$RTN1= 050000 

$$RTN2= 050001 

$$SRC = 000000 

$$TGSV= 000000 

$$TGS1= 000000 

$$TGS2= 000000 

$$T0 = 000000 

$SSTAG= 050000 

= 000764R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSK2 : APTMOD, DSK2: A PTMOD=SPMAC/ML, EQUATE, APTMOD 
RUN-1IME: 20 1 1 .4 SECONDS 
RUN-TIME RATIO: 54/32=1.6 
CORE USED: 14K (27 PAGES) 



•MAIN. MACY11 30A(1C52) 20-SEP-78 17:29 

EQUATE. MAC 13-SEP-78 16: 13 TABLE OF CONTENTS SEQ 0087 

3 COMMON EQUATE MODULE 

538 BUSERR PROCESS BUS ERROR TRAPS AND RESERVED INS. TRAPS 

GC5 COMMON DEFINITIONS AND REFERENCES FOR BUSERR 

508 000000' .PRINT ;SPMAC: VERSION 1.1 

S85 BUSERR ROUTINE 

941 MODCHK GET OPTION MODULE HEADER ADDRESS AND OFFSET 

958 MODCHK ROUTINE 



BESRV -BUSS ERROR ROUTINt 
BESRV.MAC 14-SEP-78 11M6 



MACY11 30A(1052) 20-SEP-73 
COMMON EQUATE MODULE 
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SEQ 0088 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
513 
519 
520 
521 
522 
523 
524 
525 
525 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 



TITLE BESRV -BUSS ERROR ROUTINE 
IDENT /O.O/ 



MODULE PACKAGE NAME: 
BESRV 

FUNCTIONAL DESCRIPTION: 

IT CONSISTS OF THE FOLLOWING MODULES: 

1. BUSERR - PROCESS THE PC.PSW.SP & VECTOR AT THE TIME 
OF THE TRAP TO 4 OR 10, AND 

2. MODCHK - INCREMENT THE U OF SYS ERRORS BY AN OPTION 
MODULE AND RETURN THE MODULE NAME AND OFFSET PC. 

IT WILL ALSO DROP THE OPTION MODULE IF TOO MANY SYS 
ERRORS HAVE BEEN CAUSED BY IT. 
NOTE: IT IS ASSUMED THE PROCESSOR IS AT PRIORITY 7 
WHEN THIS ROUTINE IS ENTERED. 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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538 
539 
540 
541 
542 
543 
544 
545 
545 
547 
543 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
534 
585 
586 
587 
588 
589 
590 
591 
592 
593 
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BUSERR PROCESS 3US ERROR TRAPS AND RESERVED INS. TRAPS 

.SBTTL BUSERR PROCESS BUS ERROR TRAPS AND RESERVED INS. TRAPS 
•IDENT /V0.0/ 

++ 
MODULE NAME: 
BUSERR 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE WILL PROCESS A BUS ERROR TRAP AND A RESERVED 

INSTRUCTION TRAP. IT WILL INCREMENT 

THE EXERCISER SYSTEM ERROR COUNT AND SET A SYSTEM 

ERROR BIT IN THE ERROR WORD. IT WILL FORM AND QUEUE 

A SYSTEM ERROR MESSAGE CONTAINING THE PC, PSW, AND SP AT 

THE TIME OF THE SYSTEM ERROR. IF THE SYSTEM ERROR WAS 

CAUSED BY AN OPTION MODULE - THE OPTION MODULE NAME 

AND OFFSET ADDRESS WHERE SYSTEM ERROR OCCURRED WILL ALSO 

BE OUTPUTTED. 



SEO 0089 



INPUTS: 



ADDRESS OF DATA TABLE 



IMPLICIT 


INPUTS: 


1 . 


DT.CFO 


2. 


DT.EVNT 


3. 


DT.MLST 


4. 


DT.PSW 


5. 


DT.SP 


6. 


DT.PC 


7. 


DT.ESIZ 


OUTPUTS: 




NONE 



IMPLICIT OUTPUTS: 

1. DT.ERR 

2. DT.EXS 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 



1 . 


RSTRCY 


2. 


ERRLOG 


3. 


MSGDHOOK 


4. 


B0A16 


5. 


BDACNV 


6. 


GPA 


7. 


SAVREG 


8. 


RESREG 


9. 


BOAC 



RECOVER FROM RESET 

ERROR LOGGING 

HOOK A MESSAGE 

16 BIT BINARY TO OCTAL ASCII CONVERSION ROUTINE 

BINARY TO DECIMAL ASCII CONVERSION ROUTINE 

GET PHYSICAL ADDRESS ROUTINE 

SAVE REGISTERS 

RESTORE REGISTERS 

BINARY TO OCTAL ASCII CONVERSION 



FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE*. 



BESRV -BL'SS ERROR ROUTINE 
EESRV.MAC 14-SEP-78 1 1 : 16 

594 
595 
595 
597 
598 
599 
600 
S01 
602 
603 
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BUSERR PROCESS BUS ERROR TRAPS AND RESERVED INS. TRAPS 

CALL BUSERR IN <DTADR> 

WHERE DTADR = ADDRESS OF DATA TABLE 

VERSION: 
0.0 

EDIT 



SEQ 0090 



DATE 



BY 



REASON 



000000 
000000 



000001 
000001 



JESRV -BUSS ERROR ROUTINE 
5ESRV.MAC 14-SEP-78 1 1 : 16 



605 

506 

607 

60S 

(1) 

609 

510 

51 1 

612 

513 

614 

615 

616 

617 

618 

619 

520 

621 

622 

623 

624 

625 

626 

627 

62S 

629 

630 

531 

532 

633 

634 

535 

535 

637 

538 

639 

640 

641 

642 

643 

644 

645 

646 

647 

64S 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 



COOOOO ' 
0C0002' 
000004' 
000006' 
C00010 ' 
000012' 
000014' 
000016' 
000020' 
000022 ' 
000024' 
000026' 



000000 

cccooo 

000000 
000000 
000000 
000000 
000000 
000000 
000012 
000000 
000036 
000004 
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COMMON DEFINITIONS AND REFERENCES FOR BUSERR 

.SBTTL COMMON DEFINITIONS AND REFERENCES FOR BUSERR 

!mCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



REFERENCED BY OTHER MODULES 



SEQ 0091 



GLOBL BUSERR 
GLOBL BE.MCNT 

He*************** 

GLOBAL REFERENCES 



GLOBL 


MSGDHOOK 


GLOBL 


SAVREG 


GLOBL 


RESREG 


GLOBL 


GPA 


GLOBL 


B0A16 


GLOBL 


BOAC 


GLOBL 


BDACNV 


GLOBL 


ERRLOG 


GLOBL 


DRPMOD 


GLOBL 


RSTRCY 



**************** 



LOCAL STORAGE 



BE 


VA: 







BE 


PA: 







BE 


EA: 







BE 


VPC: 


• WORD 





BE 


VEC: 


.WORD 





BE 


OFPC 


.WORD 





BE 


PSW: 


.WORD 





BE 


STK: 


.WORD 





BE 


MX2: 


.WORD 


~D<10> 


BE 


MCNT 


.WORD 





BE 


MX3: 


.WORD 


~D<30> 


BE 


MAX: 


.WORD 


~D<4> 



ROUTINE'S ENTRY ADDRESS 

# OF SYS ERRORS BY MONITOR 



; TT INIT ROUTINE 
SAVE REGISTERS 
RESTORE REGISTERS 
GET PHYSICAL ADDRESS 

ROUTINE TO CONVERT BINARY TO OCTAL ASCII 
CONVERT 18 OR 22 BIT PHYS ADDR TO OCTAL ASCII 
BINARY TO DECIMAL ASCII CONVERSION RTNE 
ERROR LOGGING 
DROP A MODULE 
RECOVER CPU REGS AFTER RESET 



VIRTUAL ADDRESS 

LOWER 16 BITS OF PHYSICAL ADDRESS 

EXTENDED ADDRESS WORD 

STORE PC 

STORE EITHER A 4 OR 10 (THE VECTOR LOC.) 

STORE OFFSET PC HERE 

STORE PSW 

STORE STACK POINTER 

MAX # OF ALLOWABLE SYS ERRORS BY THE MONITOR 

LOC TO HOLD NUMBER OF SYS ERRORS BY MONITOR 

MAX # OF ALL0WA3LE SYS ERRORS BY EXERCISER 

MAX NO. OF SYS ERRORS ALLOWED BY AN OPTION MODULE 



THE ORDER OF THE FOLLOWING LABELS SHOULD NOT BE CHANGED 
BECAUSE THEY ARE PART OF THE SYSTEM ERROR MESSAGE 



000030' 022445 025052 020040 BE.SEMSG: 



.ASCII /%%** SYSTEM ERROR **%/ 
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660 



661 
562 
663 
664 
565 
666 
567 
668 
669 
670 
571 
572 
573 
674 
675 
676 
677 
678 
679 
680 
681 
682 
583 



000036' 
000044' 
000052' 
000057' 
000064' 
000072' 
000100' 
000105' 
00C1 14' 
000122' 
000130 ' 
0001 36' 
000140' 
C00146' 
000150' 
0001 56 ' 
0001 60 ' 
0001 70' 
0001 72 ' 
CC0200 ' 
000202' 
000210 ' 
000212' 
000220 ' 



054523 
042440 
020040 
045 
051 1 17 
025503 
020040 
020040 
053523 
020040 
C20040 
022524 
000006 
020040 
000006 
020040 
00001 
020040 
000005 
020040 
000006 
020040 
000006 
000045 



000222' 040445 

000226' 000005 

000233' 040 

000234' 000006 

000242' 000045 



052123 
051 122 
025052 
042526 
020040 
020040 
042101 
020040 
020040 
050123 
042440 



020124 



MACY1 1 



046505 
051 1 17 
045 
052103 
050040 
020040 
051 104 
050040 
020040 
020040 
041522 
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COMMON DEFINITIONS AND REFERENCES FOR BUSERR 



.ASCII /^VECTOR PC+ ADDR 



SEQ 0092 



BE.AVEC 
BE.AVPC 
BE.APPC 
BE.APSW 
BE.ASTK 
BE.AEXS 



PSW 



SP 



ERCT%/ 



BLKB 


6 ; 


ASCII 


/ / 


BLKB 


6 


ASCII 


/ / 


BLKB 


8. ; 


ASCII 


/ / 


BLKB 


6 ; 


ASCII 


/ / 


BLKB 


6 ; 


ASCII 


/ / 


BLKB 


6 


ASCI2 


/%/ 



HOLD ASCII REPRESENTATION OF VECTOR ADR 

HOLD ASCII REPRESENTATION OF VPC 

HOLD ASCII REPRESENTATION OF PPC 

HOLD ASCII REPRESENTATION OF PSW 

HOLD ASCII REPRESENTATION OF STACK 

HOLD ASCII REPRESENTATION OF SYS ERR CT 



BE.ATMSG: .ASCII /%AT / ;"AT" 

BE.AMOD: .BLKB 5 ;HOLD ASCII MODULE NAME 

•ASCII / / 

BE.AOFPC: .BLKB 6 ;HOLD ASCII OF OFFSET PC 

.ASCIZ /%/ 
.EVEN 
• **************** 
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MACY11 



685 
685 
387 
(2) 
688 
689 
690 
591 
592 
693 
(3) 
594 
(4) 
595 
596 
597 
598 
599 
70& 
701 
702 
(6) 
(9) 
703 
(4) 
704 
(4) 
(3) 
705 
(4) 
705 
(4) 
707 
708 
70S 
710 
711 
712 
(4) 
715 
(4) 
714 
(4) 
715 
715 
717 
718 
719 
720 
721 
(6) 
722 
723 
724 
725 
726 



000244' 
000244' 



00C244' 

000244' 004767 000000G 

C00250' 

000250' 016500 000000 
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BUSERR ROUTINE 

.SBTTL BUSERR ROUTINE 

ROUTINE BUSERR <TABADR> 



SAVE REGISTERS AND GET DTABLE 



SEQ 0093 



000254' 
000254' 
000252' 
000264 ' 
000264' 
000272 ' 
000272 ' 
000274' 
000274' 
000274 ' 
000302' 
000302' 



000302 1 
000302 
000310 ' 
000310 ' 
000316 1 
000316 1 



026027 
001004 



000324' 
000324' 052760 



000000 000200 



012767 000004 177516 



000403 



012767 000010 177506 



016067 00C002 177476 
016067 000004 177476 



016067 000006 177472 



000100 000020 



BUSERR: 



CALL SAVREG 

LET RO := TABADR(R5) 



GET EVENT CODE AND STORE VECTOR ADDRESS 4 OR 10 IN BE.VEC 
4 = BUS ERROR AND 10 = RESERVED INSTRUCTION 



JSR PC.SAVREG 
MOV TABADR(R5) , RO 



IF DT.EVNT(RO) EQ #EVNTBE THEN 



ELSE 



ENDIF 



LET BE.VEC := #4 



LET BE.VEC := #10 





CMP 
BNE 


DT.EVNT(RO) ,#EVN 
50002$ 




MOV 


#4, BE.VEC 


500.025: 


BR 


50003$ 




MOV 


#10, BE.VEC 


50003$: 







SAVE PCPSW, AND STACK POINTER AT TIME OF TRAP 

LET BE.VPC := DT.PC(RO) 
LET BE.PSW := DT.PSW(RO) 
LET BE.STK := DT.SP(RO) 



SET SYS ERROR OCCURRED BIT IN ERROR WORD 



LET DT.ERR(RO) := DT.ERR(RO) SET. BY #SYSERR 



INCREMENT EXERCISER SYS ERROR COUNT 



MOV 
MOV 
MOV 



BIS 



DT.PC(RO) , BE.VPC 
DT.PSW(RO) ,BE.PS 
DT.SP(RO) , BE.STK 



#SYSERR,DT.ERR(R 



BESRV - 


■BUSS ERROR ROUTI 


NE MACY11 


BESRV.MAC 14 


-SEP-78 


1 1 : 16 


727 








728 


000332' 






(6) 


000332' 


005260 


000060 


729 








730 








731 








732 








723 








734 








735 


000336' 






(6) 


000336' 


026067 


000060 177460 


O) 


000344' 


103403 




736 


000346' 






(6) 


000346' 


052760 


100000 000020 


737 


000354' 






(4) 


000354' 






733 








739 








740 








741 








742 








743 








744 








745 








745 








747 








743 








749 








750 








751 








752 








753 








754 


000354' 






(4) 


C00354' 


016001 


000032 


755 








756 








757 








758 








759 


000360 ' 






(4) 


000360' 


01 1 104 




760 


000362 ' 






(4) 


000362' 






(6) 


000362' 


00571 1 




(9) 


000364 ' 


001405 




761 


000366' 






(6) 


000365 ' 


02041 1 




(9) 


000370 ' 


1 01401 




762 


000372 ' 






(4) 


000372' 


01 1 1 04 




763 


000374' 






(4) 


000374 ' 






764 


000374' 






(2) 


000374 ' 


005721 




765 


000376' 






(4) 


000376' 


00C771 




(3) 


000400 ! 
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LET DT.EXS(RO) := DT.EXS(RO) + #1 



SEQ 0094 



INC 



DT.EXS(RO) 



IF EXERCISER SYS ERROR COUNT >= MAX, ALSO SET FATAL ERROR BIT IN DT.ERR 



IF DT.EXS(RO) HIS BE.MX3 THEN 



LET DT.ERR(RO) := DT.ERR(RO) SET. BY #FATERR 



CMP 
BLO 

BIS 



DT. EXS(RO) ,BE.MX 
50004$ 

#FATERR,DT.ERR(R 



ENDIF 



50004$: 



GET OPTION MODULE LIST POINTER. IF THE PC IS GREATER THAN 

STARTING ADDRESS OF MODULES, 

BUT LESS THAN THE HIGHEST ADDRESS OF EXERCISER, 

DETERMINE WHICH MODULE CAUSED THE 

ERROR BY CALLING MODCHK. R1 WILL CONTAIN STARTING ADDRESS 

OF OFFENDING MODULE WHEN OPERATION COMPLETE. 

BE.OFPC WILL CONTAIN OFFSET PC INTO A MODULE. 

IF NOT A MODULE 

INCREMENT # OF SYS ERRORS CAUSED BY MONITOR AND IF TOO MANY, SET FATAL 

ERROR BIT IN ERROR WORD, AND SET BE.OFPC TO 0. 



LET R1 := DT.MLST(RO) 

+ 
GET THE LOWEST ADDRESS IN THE MODULE LIST 

LET R4 := (R1 ) 

WHILE (R1 ) NE #0 DO 



IF R4 HI (R1 ) THEN 

LET R4 := (R1 ) 

ENDIF 

INLINE <TST (R1 )+> 

ENDDO 



50005$: 



MOV 



MOV 



TST 
BEQ 

CMP 
BLOS 

MOV 



DT.MLST(RO) ,R1 



(R1 ) ,R4 



(R1 ) 
50006$ 

R4, (R1 ) 
50007$ 

(R1 ) ,R4 



50007$: 








TST 


(RD + 




ER 


50005$ 


50006$: 
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SEO 0095 



766 








767 








768 








769 


C00400' 






(6) 


000400 1 


026704 


1 77402 


(9) 


C0C404' 


103430 




(6) 


000406' 


026760 


177374 000044 


(9) 


000414' 


101024 




770 


000416' 






(3) 


000416' 


004767 


000500 


771 








772 








773 








774 








775 








776 


000422' 






(4) 


000422' 


01 2703 


000005 


777 


000426' 






(4) 


000426' 


01 2702 


000226' 


778 


000432' 






(4) 


000432 ' 






(6) 


000432' 


005703 




(9) 


000434' 


001 403 




779 


000436' 






(4) 


00043S' 


1 1 2122 




780 


000440 ' 






(6) 


000440 ' 


005303 




781 


000442' 






(4) 


000442 ' 


000773 




(3) 


000444' 






782 








783 








784 








785 


000444 ' 






(3) 


000444 ' 


01 0546 




(5) 


000446 ' 


01 2745 


000234' 


(4) 


000452 ' 


01 6745 


177334 


(3) 


C C 4 5 6 ' 


004757 


000000G 


(3) 


000462' 


01 2605 




786 


000464' 






(4) 


000464' 


00041 3 




(3) 


000466' 






787 








788 








789 








7S0 








791 








792 








793 


000466' 






(6) 


000466' 


005267 


177330 


794 








785 








7S6 








797 








798 


000472' 






(4) 


000472' 


005067 


177314 



IF BE.VPC HIS R4 AND BE.VPC LOS DT.ESIZ(RO) THEN 
CALL MODCHK 

h 

GET THE MODULE ASCII NAME INTO THE MESSAGE 

LET R3 := #5 

LET R2 := #BE.AMOD 

WHILE R3 NE #0 DO 

LET (R2)+ =B= (R1 )+ 
LET R3 := R3 - #1 
ENDDO 

CONVERT OFFSET PC TO ASCII 

CALL B0A16 IN <BE.OFPC, #BE . AOFPO 



ELSE 



IF NOT A MODULE INCREMENT THE MONITOR SYS ERROR COUNT 



CMP 


BE.VPC.R4 




BLO 


500103 




CMP 


BE.VPC.DT 


ESI2(R 


BHI 


50010$ 




JSR 


PC, MODCHK 







MOV 


#5,R3 




MOV 


#BE.AM0D,R2 


5001 1$: 


TST 
BEQ 


R3 
50012$ 




MOVB 


(R1 )+, (R2) + 




DEC 


R3 


50012S: 


BR 


5001 1$ 





MOV 


R5,~(SP) 




MCV 


#BE.A0FPC,~(R5) 




MOV 


BE.0FPC,-(R5) 




JSR 


PC.B0A16 




MOV 


(SP)+,R5 




BR 


50013$ 


50010$: 







LET BE.MCNT : = BE.MCNT + #1 



SET OFFSET PC TO ZERO (FOR LATER USE) 



LET BE.OFPC := #0 



INC 



CLR 



BE.MCNT 



BE.OFPC 



000476' 
000476' 
000504' 
000506' 
000506' 
000514' 
000514' 
000514' 
000514' 



026767 177320 177314 
103403 

C52760 100000 000020 
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799 
800 
301 
302 
302 
(6) 

(9) 
804 
(6) 
305 
(4) 
806 
(4) 
807 
803 
809 
810 
81 1 
812 
813 
814 
815 
816 
817 
818 
819 
(3) 
(5) 
(4) 
(3) 
(3) 
820 
821 
822 
823 
824 
825 
826 
827 
(3) 
(5) 
(4) 
(3) 
(3) 
828 
829 
830 
831 
832 
833 
834 
835 
(4) 
836 
(3) 
(5) 
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000514 
000514 
000516 
000522 
000526 
000532 



01 0546 
012745 
01 6745 
004767 
01 2605 



000534' 
000534' 
000536' 
000542' 
000546' 
000552' 



01 0546 
01 2745 
016745 
004767 
01 2605 



IF TOO MANY SYS ERRORS CAUSED BY MONITOR SET FATAL BIT IN ERROR WORD 
IF BE.MCNT HIS BE.MX2 THEN 



LET OT.ERR(RO) := DT.ERR(RO) SET. BY tfFATERR 



CMP 
BLO 

BIS 



ENDIF 



ENDIF 



50014$: 
50013$: 



CONVERT VECTOR TO ASCII 



CALL BOA16 IN <BE . VEC , #BE . AVEO 



000140' 

177262 

OO0O00G 



CONVERT VPC TO ASCII 



CALL B0A16 IN <BE . VPC , #BE . AVPO 



000150 ' 

177240 

000000G 



CONVERT PHYSICAL ADDRESS TO ASCII 



000554' LET BE.VA := BE. VPC 

000554' 016767 177226 177216 

000562 1 CALL GPA IN <R0,#BE.VA> 

000562' 010546 

000564' 012745 000000' 



IV OV 



MOV 
MOV 



SEQ 0096 



BE.MCNT, BE. MX2 
50014$ 

#FATERR,DT.ERR(R 



MOV 


R5,-(SP) 


MOV 


#BE.AVEC,-(R5) 


MOV 


BE.VEC,-(R5) 


JSR 


PC, B0A16 


MOV 


(SP)+,R5 



MOV 


R5,-(SP) 


MOV 


#BE.AVPC,-(R5) 


MOV 


BE.VPC,-(R5) 


JSR 


PC.B0A16 


MOV 


(SP)+,R5 



BE. VPC, BE.VA 

R5,-(SP) 
#BE.VA,-(R5) 
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(4) 


00C570 ' 


01 0045 




(3) 


000572' 


004767 


000000G 


(3) 


CC0576' 


01 2605 




837 


000600 ' 






(3) 


C00600 1 


01 0546 




(7) 


000602 ' 


01 2745 


000160 ' 


(6) 


000606' 


0; 6745 


177172 


(5) 


000612' 


016745 


177164 


(<) 


000616' 


01 0045 




(3) 


000620 ' 


004767 


OOOOOOG 


(3) 


000624' 


01 2605 




333 








839 








840 








341 








342 








843 


000626' 






(3) 


000626' 


01 0546 




(5) 


000630' 


012745 


000172' 


(4) 


000634' 


01 6745 


177154 


(3) 


000640' 


004767 


OOOOOOG 


(3) 


000644' 


01 2605 




844 








345 








846 








847 








843 








849 








350 








351 


000646' 






(3) 


000646' 


01 0546 




(5) 


000650 ' 


012745 


000202' 


(4) 


000654' 


01 6745 


177136 


(3) 


000660 ' 


004767 


OOOOOOG 


(3) 


000664' 


01 2605 




852 








853 








854 








855 








856 








857 


000666 ' 






(3) 


000666' 


01 0546 




(5) 


000570 ' 


01 2745 


000212 ' 


(4) 


000674 ' 


01 6045 


000060 


(3) 


000700' 


004767 


OOOOOOG 


(3) 


000704' 


012605 




858 








359 








860 








8S1 








862 








863 








864 


000706' 


000005 




865 








86C 








867 









CALL BOAC IN <R0 , BE . PA , BE . EA , #BE . APPO 





SEQ 0097 


MOV 


R0,-(R5) 


JSR 


PC.GPA 


MOV 


(SP)+,R5 


MOV 


R5,-(SP) 


MOV 


#BE.APPC,-(R5) 


MOV 


BE.EA,-(R5) 


MOV 


BE.PA,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC.SOAC 


MOV 


(SP)+,R5 



CONVERT PSW TO ASCII 



CALL B0A16 IN <BE . PSW , U BE . APSW> 



MOV 
MOV 
MOV 
JSR 
MOV 



CONVERT STACK TO ASCII 



CALL B0A16 IN <BE . STK , #BE . ASTK> 



MOV 
MOV 
MOV 
JSR 
MOV 



CONVERT SYS ERROR COUNT TO ASCII 



CALL BDACNV IN <DT.EXS( RO) , #BE. AEXS> 



MOV 
MOV 
MOV 
JSR 
MOV 



RESET THE WORLD TO STOP ANY INTERRUPTS 



RESET 



R5,-(SP) 
#BE.APSW,-(R5) 
BE.PSW,-(R5) 
PC, B0A16 
(SP)+,R5 



R5,-(SP) 

#BE.ASTK,-(R5) 

BE.STK,-(R5) 

PC.B0A16 

(SP)+,R5 



R5,-(SP) 
#BE.AEXS,-(R5) 
DT.EXS(RO) ,-(R5) 
PC, BDACNV 
(SP)+,R5 
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SEO 00S8 



868 








869 








870 








871 








872 








873 








874 








875 








376 


000710' 






(3) 


000710 ' 


01 0546 




(4) 


000712 ' 


01 0045 




(3) 


000714' 


004767 


OOCOOOG 


(3) 


C00720 ' 


01 2605 




377 


000722' 






(4) 


CC0722' 


005045 




373 


000724' 






(4) 


000724' 


01 2746 


000732' 


379 








880 


000730' 






(2) 


000730' 


000002 




881 


000732' 






(2) 


000732' 






882 








383 








384 








885 








886 








887 








883 


000732' 






(3) 


000732' 


01 0546 




(7) 


000734' 


01 2745 


000764' 


(6) 


000740' 


01 2745 


000030 ' 


(5) 


000744' 


01 2745 


000002 


(4) 


000750' 


01 0045 




(3) 


000752 ' 


004767 


OOOOOOG 


(3) 


000756' 


01 2605 




889 








890 


00076C ' 






(2) 


000760 ' 


000240 




891 


000762' 






(2) 


000762' 


000776 




892 








893 








894 








895 








896 








897 








893 








899 


000764' 






(6) 


000764' 


005767 


177022 


(9) 


000770' 


001415 




900 


000772' 






(3) 


000772' 


01 0546 




(7) 


000774' 


01 2745 


001024' 


(6) 


001000' 


01 2745 


000222 ' 


(5) 


001004' 


012745 


000002 



; + 

; RECOVER THE BAD THINGS THAT THE RESET DID 

; AND GET THE PRIORITY BACK DOWN TO ZERO SO WE CAN TYPE 



CALL RSTRCY IN <R0> 

LET -(SP) := #0 
LET -(SP) := #456$ 

INLINE <RTI> 
INLINE <456$:> 

; + 

; QUEUE THE SYSTEM ERROR MESSAGE (STANDARD SYSTEM ERROR) 

CALL MSGDHOOK IN <R0 , AMSGPOP t #BE . SEMSG, #2$> 



INLINE <1$: NOP> 
INLINE <BR 1$> 

; + 

; IF ERROR WAS CAUSED BY OPTION MODULE, ALSO QUEUE THE OPTION 

; MODULE NAME AND APC 

2$: IF BE.OFPC NE #0 THEN 

CALL MSGDHOOK IN <R0 , 0MSGPOP , #BE . ATMSG, #4$> 



MOV 


R5,-(SP) 


MOV 


R0,-(R5) 


JSR 


PC, RSTRCY 


MOV 


(SP)+,R5 


CLR 


-(SP) 


MOV 


#456$, -(SP) 


RTI 




456$: 





MOV 


R5,-(SP) 


MOV 


#2$,-(R5) 


MOV 


#BE.SEMSG,-(R5) 


MOV 


#MSGP0P,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, MSGDHOOK 


MOV 


(SP)+,R5 


1$: 


NOP 


BR 1$ 





TST BE.OFPC 

BEQ 50015$ 

MOV R5,-(SP) 

MOV #4$,-(R5) 

MOV #BE. ATMSG, ~(R5) 

MOV #MSGP0P,-(R5) 
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(4) 
(3) 
(3) 
901 
(2) 
902 
(2) 
903 
904 
(4) 
905 
906 
907 
90S 
909 
910 
(6) 
(8) 
(6) 
(9) 
(6) 
91 1 
(3) 
(4) 
(3) 
(3) 
912 
(4) 
913 
914 
915 
916 
917 
916 
919 
(6) 
920 
921 
922 
923 
924 
925 
926 
(6) 
(9) 
(6) 
(9) 
927 
(3) 
(5) 
(4) 
(3) 
(3) 
928 
(4) 
929 



001010 ' 
001012' 
001016' 
001020 ' 
001020' 
001022' 
001022' 
001024' 
001024' 
001024' 



C01024 

001024 ' 

001032' 

001034 

001042 

001044 

001044 

001044 

001 046 

001050 

001054 

001056 

001056 



001056 
001056 



001062 ' 
001062' 
001066' 
001070' 
001076' 
001 1 00 ' 
001 1 00 ' 
001 102' 
001 104' 
001 1 06' 
001 112' 
001 1 14' 
001 1 14' 



01 0045 
004767 
01 2605 

000240 

000776 



032760 
CO 1004 
032760 
001405 



01 0545 
01 0045 
004767 
01 2605 



005767 
001412 
026167 
1 03406 

01 0546 
01 0145 
01 0045 
004767 
01 2605 



000000G 
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INLINE <3$: NOP> 
INLINE <BR 3$> 



SEQ 0099 



MOV 


R0,-(R5) 


JSR 


PC.MSGDHOOK 


MOV 


(SP)+,R5 



3$: 



BR 3$ 



4$: 
ENDIF 



50015$: 



IF AN ERROR LOGGING CPU, CALL THE LOG ROUTINE 



IF #PD?60 SETIN DT.CFO(RO) OR #PDP70 SETIN DT.CFO(RO) THEN 
004000 000014 BIT 

BNIE 
010000 000014 BIT 

BEO 
50016$: 

CALL ERRLOG IN <R0> 

MOV 
MOV 

OOOOOOG JSR 

MOV 

ENDIF 

50017$: 



BACK UP R1 TO POINT TO MODULE HEADER ADDRESS 



LET R1 := R1 - #5 



162701 000005 



SUB 



IF ERROR CAUSED BY OPTION MODULE AND LIMIT REACHED, DROP THE MODULE 



IF BE.OFPC NE #0 AND SYSCNT(R1) HIS BE. MAX THEN 



NOP 



#PDP60,DT.CF0(R0 
50016$ 

#PDP70,DT.CF0(R0 
50017$ 



R5,-(SP) 
R0,-(R5) 
PC, ERRLOG 
(SP)+,R5 



#5,R1 



176724 

000052 176730 



OOOOOOG 



CALL DRPMOD IN <R0,R1> 



ENDIF 





TST 


BE.OFPC 




BEO 


50020$ 




CMP 


SYSCNT(R1 ) ,BE.MA 




BLO 


50020$ 




MOV 


R5,-(SP) 




MOV 


R1 ,~(R5) 




MOV 


R0,-(R5) 




JSR 


PC, DRPMOD 




MOV 


(SP)+,R5 


50020$: 







BESRV -BUSS ERROR ROUTINE 
BESRV. MAC 14-SEP-73 11:16 



MACY1 1 



30A(1052) 20-SEP-78 17:29 
BUSERR ROUTINE 



PAGE 19-12 



SEO 0100 



930 
931 
932 
933 
934 
935 
933 
v J ) 
937 
938 
939 
(3) 
(3) 
(2) 



001 1 14 
001 1 14 



001 120 
001 120 
001120 
001 120 



004767 OOOOOOG 



000207 



RESTORE REGISTERS 



CALL RESREG 



ENDRTN 



50000$: 
50001$: 



JSR 



RTS 



PC, RESREG 



PC 



CESRV -B'JSS ERROR ROUTINE 
BESRV.MAC 14-SEP-73 11:16 

941 
942 
943 
944 
945 
943 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
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MODCHK GET OPTION MODULE HEADER ADDRESS AND OFFSET 

.SBTTL MODCHK GET OPTION MODULE HEADER ADDRESS AND OFFSET 
.IDENT /V0.0/ 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS ENTERED TO DETERMINE THE OPTION MODULE 

WHICH CONTAINS THE ADDRESS AT WHICH A BUS ERROR OR RESERVED 

INSTRUCTION OCCURRED. IT WILL RETURN THE HEADER ADDRESS 

OF THE OPTION MODULE, INCREMENT THE SYS ERROR COUNT FOR THE 

MODULE AND IF TOO MANY SYS ERRORS HAVE OCCURRED , DROP THE MODULE 

FROM AN EXERCISER. IT WILL ALSO RETURN THE ADDRESS 

AT WHICH THE SYS ERROR OCCURRED AS AN OFFSET INTO THE MODULE. 

THIS OFFSET IS ALSO KNOWN AS THE ASSEMBLED PC OR APC. 



SEQ 0101 



5ESRV -BUSS ERROR ROUTINE 
SESRV.MAC 14-SEP-78 1 1 : 1 6 



958 






959 






960 


C01122 1 




(2) 


001122' 




961 






962 






963 






964 






965 






966 






967 


001 122' 




(4) 


001122' 


016002 000032 


968 


001126' 




(4) 


001126' 


016003 000002 


959 






970 






971 






972 






973 






974 






975 






976 






977 






978 






979 






980 






981 


001 132' 




(4) 


001 132' 


005001 


982 


001 1 34' 




(4) 


001 134' 




(6) 


001 134' 


005712 


(9) 


001 1 36' 


001407 


983 


001 140 ' 




(6) 


001 140' 


021203 


(9) 


001 142' 


101003 


984 


001 144' 




(6) 


001 144 ' 


021201 


(9) 


001 146' 


101401 


985 


001 150' 




(4) 


001 150' 


01 1201 


986 


001 1 52' 




(4) 


001 152' 




987 


001 152' 




(4) 


001 152 ' 




983 


001 152' 




(2) 


001 152' 


005722 


989 


001 154' 




(4) 


001154' 


000767 


(3) 


001156' 




990 






991 






992 






993 






994 






995 






996 
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MODCHK ROUTINE 

.SBTTL MODCHK ROUTINE 

ROUTINE MODCHK 



GET ADDRESS OF OPTION MODULE LIST, PUT IN R2 
GET ADDRESS AT WHICH SYS ERROR OCCURRED INTO R3 



SEQ 0102 



MODCHK: 



LET R2 := DT.MLST(RO) 
LET R3 := DT.PC(RO) 

INITIALIZATION COMPLETE 



FIND THE SMALLEST ADDRESS THAT DOES NOT EXCEED THE 
ADDRESS OF SYS ERROR 



LET R1 := #0 

WHILE (R2) NE #0 DO 



MOV 
MOV 



50002$: 



IF (R2) LOS R3 THEN 



IF (R2) HI R1 THEN 



ENDIF 
ENDIF 
INLINE <TST 



LET R1 := (R2) 



(R2)+> 



CLR 



TST 

BEO 

CMP 
BHI 

CMP 
BLOS 

MOV 



ENDDO 



50003$: 



CALCULATE THE OFFSET ADDRESS 



DT.MLST(RO) ,R2 
DT.PC(RO) ,R3 



R1 



(R2) 
50003$ 

(R2) , R3 
50004$ 

(R2),R1 
50005$ 

(R2) ,R1 



50005$: 






50004$: 








TST 


(R2) + 




BR 


50002$ 



BESRV -BUSS ERROR ROUTINE 
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SEQ 0103 



997 


001 156' 






(4) 


001 156' 


01 0367 


176630 


(6) 


001 162' 


160167 


176624 


998 








999 








1000 








1001 








1002 








1003 


001 166' 






(6) 


001166' 


005261 


000052 


1 004 








1005 








1006 








1 007 








1008 








1009 








1010 


001 172' 






(3) 


001172' 






(3) 


001 172' 






(2) 


001 1 72' 


000207 




101 1 




000001 





LET BE.OFPC : = R3 - R1 



ADD ONE TO OPTION MODULE'S SYS ERROR COUNT 



LET SYSCNT(R1) : = SYSCNT(R1) + #1 



MOV 
SUB 



R3, BE.OFPC 
R1 .BE.OFPC 



INC 



SYSCNT(R1 ) 



ENDRTN 



.END 



50000$: 
50001$: 



RTS 



PC 
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SEQ 0104 



ACSR = 
ACTB1T= 
ADDR22= 
ADR 

APTFER= 
APTPRE= 
ASB 

ASSEM9= 
ASTAT = 
AUTO = 
AUTOST^ 
AWAS = 
BDACNV= 
BE. AEX 
BE. AMD 
BE. AOF 
BE. APP 
BE. APS 
BE. AST 
BE. AT VI 
BE. AVE 
BE. AVP 
BE. EA 
BE. MAX 
BE.MCN 
BE.MX2 
3E.MX3 
BE.OFP 
BE. PA 
BE . PS'*' 
3E.SEM 
BE. STK 
3E.VA 
BE. VEC 
3E. VPC 
3IT0 = 
31 TOO = 
BIT01 = 
31102 = 
3IT03 = 
BIT04 = 
3IT05 = 
3ITC6 = 
BIT07 = 
BIT08 = 
BI109 = 
3IT1 
3IT10 = 
3IT11 = 
BIT12 = 
BIT13 = 
BIT14 = 
BIT15 = 



00C1 
0040 
0010 

oocc 

0000 
0002 
0001 
0000 
CC01 

cooo 

0200 
0001 

* * * * 

0002 
0002 
0002 
C001 
C001 
C002 
0002 
000 1 
0C01 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0001 
0002 
0004 

010 
0000 
0020 
004C 

01 00 
0200 
0400 
1000 



02 

00 

00 

06 

04 

00 

06 

10 

04 

10 

00 

10 

** G 

12R 

26R 

34R 

60R 

72R 

02R 

22R 

40R 

50R 

04R 

26R 

22RG 

20R 

24R 

12R 

02R 

14R 

30R 

16R 

OOR 

10R 

06R 

01 

01 

02 

04 

10 

20 

40 

00 

00 

00 

00 

02 

00 

00 

00 

00 

00 

00 



BIT2 = 
BIT3 = 
BIT4 = 

BIT5 = 

BIT6 = 

BIT7 = 

BIT8 = 

BIT9 = 

BKDEF = 

BKMOD = 

BKMODE= 

BKSLSH= 

BOAC = 

B0A16 = 

BUSERR 

CAPRES= 

CASTAT= 

CDERCT- 

CDWDCT= 

CKTIM = 

CLKPRE= 

CONFIG= 

CQOVF = 

CR 

CSRA = 

CSRC = 

CTRLC = 

CTRLO = 

CTRLU = 

DCEVNT= 

DEFRTN= 

DIAGMC= 

DROPMO= 

DRPMOD= 

DSEVNT= 

DT.ADD= 

DT.AP = 

DT.APK= 

DT.BLS= 

DT.CFO= 

DT.CF1= 

DT.ERR= 

DT.ESI= 

DT.EVN= 

DT.EXS= 

DT.FCH= 

DT.FCN= 

DT.HMX= 

DT.KBE= 

DT.KBP= 

DT.KBR= 

DT.KBU= 

DT.MLS= 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
0C0020 
040000 
000134 

****** Q 

****** q 

000244RG 

000004 

00C004 

000146 

000144 

100000 

000001 

000056 

0CC001 

000015 

000100 

000102 

000003 

000017 

000025 

00 001 1 

000400 

000000 

100000 

****** Q 

000014 
000042 
C00100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 



DT.MTI= 

DT.OFF= 

DT.PAS= 

DT.PC = 

DT.PFL= 

DT.PSW= 

DT.PTA= 

DT.RCS= 

DT.REL= 

DT.SCT= 

DT.SMX= 

DT.SP = 

DT.SSI= 

DT.ST0= 

DT.ST1= 

DT.SWR= 

DT.SYP= 

DT.WBU= 

DT.WHL= 

DT.WLL= 

DVID1 = 

ECCMEM= 

ECCSTA= 

ENBEOP= 

ENBNUL= 

ENDLST= 

EOPBIT= 

ERRLOG= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

GPA 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT = 

INTR = 

IOMOD = 

IOMODP* 

IOMODR= 

IOMODX= 



0001 10 
000070 
000074 
0000D2 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000005 
000046 
000010 
000012 
000055 
000072 
00C050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 
000000 
000001 

* * aje * aje * 

000103 
000200 
000200 

000203 
000202 
000201 
100000 

****** 

000044 
000050 
000036 
000040 
000122 
0001 CO 
000040 
040000 
020000 
001000 
000400 
000030 
000120 
100000 
102000 
1 12000 
1 10000 



JACK = 

KIPARO= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPSTAT= 

MAPSTA= 

MED 

MEMPAS= 

MODCHK 

MODEXH= 

MODHOL= 

MODSEL= 

MSGCKD= 

MSGCKS= 

MSGDER= 

MSGDHO= 

MSGDRP= 

MSGECH= 

MSGECP= 

MSGHDR= 

MSGHNG= 

MSGHRD= 

MSGMAP= 

MSGNUL= 

MSGPCP= 

M3GPR!Vi = 

MSGRES= 

MSGSFT= 

MSGSKE= 

MSGSMB= 

MSGSMH= 

MSGSMS= 

MSGSTD= 

MSGSYS= 

MSGVEC= 



035060 

172340 

172342 

172344 

172346 

172350 

172352 

172354 

172356 

172300 

172302 

172304 

172306 

172310 

172312 

172314 

172316 

000040 

000400 

000020 

040000 

000012 

000001 

000200 

075600 

040000 

001 122R 

004000 

002000 

001000 

000010 

00001 1 

000005 

****** ( 

000017 
177777 
000013 
000004 
C00022 
000007 
000021 
177775 
000002 
177776 
000001 
000006 
000003 
000015 
OC0014 
000016 
OOOCOO 
000012 
000020 



NBKMOD= 


001000 


NCPUOP= 


000020 


NOAPTY= 


000002 


NULL = 


000000 


CWEN = 


024C20 


PAERR = 


00001 


PARPRE= 


002000 


PARSTA= 


000100 


PASCNT= 


000034 


PDPLSI= 


020000 


PDP60 = 


004000 


PDP70 = 


010000 


PRIO = 


000000 


PRI1 = 


000040 


PRI4 = 


000200 


PRI5 = 


000240 


PRI6 = 


000300 


PRI7 = 


000340 


PRO 


000000 


PR4 


000200 


PR5 


000240 


PR6 


000300 


PR7 


000340 


PS 


177773 


PSW 


177776 


RANNUM= 


000054 


R3UFEA= 


000130 


RBUFPA= 


000125 


RSUFSZ= 


000132 


RBUFVA= 


000124 


RDSERV= 


000101 


RDWHMI= 


000022 


RELERR= 


000020 


RELMOD= 


020000 


RELTIM= 


010000 


RESREG= 


****** 


RES1 


000056 


RES2 = 


000060 


RICHAR= 


031060 


RPTDAT= 


002000 


RSTRCY= 


****** 


RSTRT = 


0001 12 


RUBOUT= 


000177 


RUNMOD= 


100000 


R5VALU= 


001740 


SAM 


075464 


SAVREG= 


****** 


SBADR = 


000102 


SBKMOD= 


000000 


SBKSEL= 


iOOOO 


SC.ADR= 


000006 


SC.ALC= 


000014 


SC.APC= 


000016 
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SEQ 0105 



SC.CKL= 


000002 




SC.CKP = 


000004 




SC. CLO= 


000000 




SC.HLD= 


000010 




SC.SCA= 


000012 




SENDLS= 


177777 




SOFCNT= 


000042 




SOFPAS= 


000046 




SPACE = 


000040 




SPG I NT = 


000032 




SPVALU= 


002200 




SRO 


1 77572 




SR1 


177574 




SR2 


177576 




SR3 


172516 




STAT = 


000026 




STATBI= 


C64757 




STAT1 - 


000C27 




SUS?ND= 


C00001 




SVRO = 


000062 




S \/ R 1 


000064 




SVR2 = 


000066 




SVR3 = 


000070 




SVR4 = 


000072 




SVR5 = 


000074 




. ABS. 


000000 


000 




001174 


001 



SVR6 = 000076 
SYSCNIT- C00052 
SYSERR= 000100 
TABADR= 000000 
TMPIO = 000002 
TQOVF = 000002 
UIPARO= 177640 
UIPAR1= 177642 
UIPAf?2= 177644 
UIPAR3= 177646 
UIPAR4= 177650 
UIPAR5= 177652 
UIPAR6= 177654 
UIPAR7= 177656 
UIPDRO= 177600 
UIPDR1= 177602 
UIPDR2= 177604 
UIPDR3= 177606 
UIPDR4= 177610 
UIPDR5= 177612 
UIPDR6= 177614 
UIPDR7= 177616 
WASADR= 000104 
WBSTAT= 000040 
WBUFEA= 000136 



WBUFPA= 000134 
WBUFRQ= 000140 
WBUFSZ= 000142 
WDFR = 000116 
WDTO = 0001 14 
WTINRE= 000352 
WTWHMI= 000222 
XFLAG = 000005 
XQFF = 000023 
XON = 000021 
$BGNLE= 177777 
$ERFLG= 000400 
$F$AND= 000310 
$F$BAD= 000401 
$F$BLA= 000170 
$F$CAS= 000150 
$F$DEC= 000220 
$F$DO = 000340 
$F$FmL= 000405 
$F$GOO= 000400 
$F$IF = 000110 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 000160 
$F$NO = 000403 



$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 
$F$YES= 000402 
$IFLEV= 177777 
$ISKO = 000001 
$ISK1 = 000001 
$LOCTA= 177777 
$LSTIN= 000001 
SLSTTA^ 000001 
$NESTL= 177777 
$NSKO = 000300 
$NSK1 = 000120 
$NSK2 = 000110 
$NSK3 = 000110 
$SAVLE= 177777 
$SSKO = 050003 
$TAGLE= 177777 
$TAGNU= 050006 
$TEMP = 000300 



STSKO = 050002 

$TSK1 = 050003 

$TSK2 = 050004 

$TSK3 = 050005 

$$ARGC= 000000 

$$BYTE~ 000403 

$$CASE= 000000 

$SDST = 000000 

$SELOC= 000402 

$SERFL= 000000 

$SFLAG= 000001 

$SFROM= 000000 

$$LOC = 001 146R 

$$LOCN= 000000 

$$REG = 177777 

$$RETU= 000000 

$$RTN1= 050000 

SSRTN2= 050001 

$SSRC = 000000 

S$TGSV= 000000 

$$TGS1= 000000 

$$TGS2= 000000 

$$T0 = 000000 

$$$TAG= 050000 

= 001174R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ: BESRV,DSKZ:BESRV = SPMAC/ML,EQUATE,BESRV 
RUN-TIME: 20 10 .4 SECONDS 
RUN-TIIV:E RATIO: 54/32 = 1.7 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:30 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0106 

3 COMMON EQUATE MODULE 
531 COMMON DEFINITIONS AND REFERENCES 

534 000000' .PRINT ;SPMAC: VERSION 1.1 

599 IERRLO INITIALIZE 11/60 ERROR LOG 
842 INITIALIZE 11/60 ERROR LOG ROUTINE 
675 ERRLOG 11/60 ERROR LOGGING ROUTINE 
733 ERRLOG 11/60 ERROR LOG ROUTINE 
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BLOG60.MAC 05-JUL-78 08:58 COMMON EQUATE MODULE 



508 
509 
510 
51 1 
512 
513 
514 
515 
51 6 
517 
513 
519 
520 
521 
522 
523 
524 
525 
526 
527 



SEQ 0107 



.TITLE BLOG60 BINDER FOR 11/60 ERROR LOG ROUTINES 
.IDENT /VO.O/ 



MODULE PACKAGE NAME: 
BLOG60 

FUNCTIONAL DESCRIPTION: 

THIS IS A BINDER TO KEEP 11/60 ERROR LOG MODULES PACKAGED 

TOGETHER. 

CONTAINS THE FOLLOWING MODULES: 

IERRLO - INITIALIZE 11/60 ERROR LOG 

ERRLOG - 11/60 ERROR LOG 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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SEQ 0108 



529 
530 
531 
532 
533 
534 
(1) 
535 
535 
537 
533 
539 
540 
541 
542 
543 
544 
545 
545 
547 
543 
549 
550 
551 
552 
553 
554 
555 
555 
557 
553 
559 
560 
561 
562 
553 
564 
565 
565 
567 
563 
569 
570 
571 
572 
573 
574 
575 
576 
577 



578 
579 
580 



000000 
000000 



000000 
000020 
C00022 
000024 
000026 
000030 
000032 
000034 
000036 



000040 ' 
000040 ' 
000046' 
000054' 
000061 ' 
000066' 
000074' 
000102' 



000001 
000001 



000100 
100001 
000010 



00001 
000056 
00 010 4 
0001 22 
00 0140 
00 01 63 
000203 
000223 
000246 



030445 
042440 
046040 
1 12 
000006 
020040 
020057 



027461 
051 122 
043517 
046501 



030066 

051 1 17 

045 

020057 



.SBTTL COMMON DEFINITIONS AND REFERENCES 

•MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

SLSTIN = 1 

SLSTTAG = 1 



lie*************** 

REFERENCED BY OTHER MODULES 



■GLOBL 
.GL08L 



IERRLO 
ERRLOG 



**************** 
GLOBAL REFERENCES 



.GLOBL 


SAVREG 






.GLOBL 


BOA 16 






•GLOBL 


MSGDHOOK 




•GLOBL 


RESREG 






• **************** 




; LOCAL 


EQUATES 






L6.0FF 


= 100 






L6.ENB 


= 100001 






L6.ST0 


= ~D<S> 






• ****** 


fci^**:**;*:*** 




; LOCAL 


STORAGE 






L.6.BUF: 


.BLKW 


L6 


STO 


L6.TA3: 


.WORD 


L6 


JAM 




.WORD 


L6 


SRV 




.WORD 


L6 


PBA 




.WORD 


L6 


CUA 




.WORD 


L6 


FLG 




.WORD 


L6 


WHA 




.WORD 


L6 


CDA 




.WORD 


L6 


CTA 



**************** 
LOCAL MESSAGES 



L6.MSG: 



051440 053122 



.ASCII 'JAM/ ' 
L6.uAM: .BLKB ~D<6> 

.ASCII ' SRV/ 



;MODULE ENTRY POINT 
; MODULE ENTRY POINT 



;SAVE REGISTER ROUTINE 

;BINARY TO OCTAL ASCII CONVERSION (16 BIT) 

JMESSAGE HOOK ROUTINE 

;RESTORE REGISTERS 



OFFSET INTO ERROR LOG REGISTERS 
ENABLE AND FREEZE ON FIRST ERROR 
SIZE OF LOG BUFFER 



LOG BUFFER FOR 11/60 ERROR LOG 
TABLE POINTING TO LOCAL STORAGE FOR 

MESSAGE 



.ASCII '5S11/60 ERROR LOG%' 
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SEQ 0109 



581 


000104' 


000006 






L6 


SRV: 


.BLKB 


~D<6> 


582 


0001 12' 
000120' 


020040 
020057 


050040 


040502 






•ASCII 


' PSA/ * 


583 


C0C1 22' 


000006 






L6 


PBA: 


.BLKB 


~D<6> 


584 


000130' 
0001 36' 


020040 
020057 


041440 


040525 






•ASCII 


' CUA/ ' 


583 


000140 ' 


000006 






L6 


CUA: 


• BLKB 


~D<6> 


586 


000146' 
0001 54' 
000162' 


020045 

026507 

040 


020040 
0471 11 


0461 06 
027524 






•ASCII 


'% FLG- I NT/ 


587 


000163' 


000006 






L6 


FLG: 


• BLKB 


~D<6> 


583 


00C1 71 ' 
000176' 


040 
046501 


020040 
027511 


0441 27 
040 






•ASCII 


' WHAMI/ ' 


589 


C00203' 


000006 






L6 


WHA: 


• BLKB 


~D<3> 


590 


00021 1 ' 
000216' 


040 
052101 


020040 
027501 


042103 
040 






•ASCII 


' CDATA/ : 


591 


000223' 


000006 






L6 


CDA: 


• BLKB 


~D<6> 


592 


000231 ' 
000236' 
000244' 


040 
043501 
C20057 


020040 
041455 


052103 
052520 






•ASCII 


' CTAG-CPU/ 


593 


000246' 


000006 






L6 


CTA: 


• BLKB 


~D<6> 


594 


000254' 


000045 










•ASCIZ 


'%' 


595 














• EVEN 
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SEQ 0110 



597 
598 
599 
600 
S01 
302 
603 
604 
605 
606 
507 
608 
609 
510 
51 1 
612 
613 
614 
615 
51 6 
617 

sie 

619 
620 
621 
622 
623 
524 
625 
626 
627 
62S 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 



.SBTTL IERRLO INITIALIZE 11/60 ERROR LOG 
•IDENT /VO.O/ 

++ 
MODULE NAME: 
IERRLO 

FUNCTIONAL DESCRIPTION: 

THIS MODULE WILL INITIALIZE THE 11/60 ERROR LOG TO THE ENABLE 
AND FREEZE ON FIRST ERROR STATES. 

INPUTS: 

NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
NONE 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 
CALL IERRLO 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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640 

541 
642 
643 

S44 

1 2) 

645 

646 
647 
543 
649 
550 
651 
(2) 
552 
553 
654 
355 
356 
657 
558 
659 
660 
661 
(6) 
662 
663 
664 
665 
666 
667 
668 
669 
670 
(2) 
671 
672 
(3) 
(3) 
(2) 



000256 
000256' 



000256' 
000256' 



010046 



000260' 076600 
000262' 000022 



000264 
000264 



052700 100001 



000270' 076600 
000272' 000222 



000274 
000274 



012600 



000276' 
000276' 
000276' 
000276' 000207 



SEQ 0111 



•SBTTL INITIALIZE 11/60 ERROR LOG ROUTINE 
ROUTINE IERRLO 



IERRLO: 



SAVE REGISTER RO, WHEN EXECUTING A "MED" INSTRUCTION RO IS 
USED TO TRANSFER DATA TOO AND FROM WHAMI REGISTER. 



PUSH RO 



READ WHAMI REGISTER THEN SET THE ENABLE BIT INTO 
RO AND THEN WRITE BACK TO WHAMI REGISTER 



MOV 



RO f -(SP) 



MED 
RDWHMI 

LET RO := RO SET. BY #L6.ENB 



MED 
WTWHMI 



RESTORE REGISTER AND RETURN 



BIS 



#L6.ENB,R0 



POP RO 



ENDRTN 



50000$: 
50001$: 



MOV 



RTS 



(SP)+,R0 



PC 
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SEQ 0112 



674 

675 

57S 

677 

678 

679 

380 

681 

682 

683 

684 

385 

68S 

687 

683 

683 

693 

691 

692 

593 

694 

695 

695 

697 

693 

599 

700 

701 

702 

703 

704 

7C5 

703 

707 

70S 

709 

710 

71 1 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 



SBTTL ERRLOG 11/60 ERROR LOGGING ROUTINE 
IDENT /V0.0/ 

++ 
MODULE NAME: 
ERRLOG 



FUNCTIONAL DESCRIPTION: 

THIS MODULE WILL READ THE 
TRANSFER THE ERROR LOG TO 
MESSAGE THAT WILL OUTPUT I 



11/60 PROCESSOR ERROR LOG SCRATCHPAD AND 
PHYSICAL CORE AND THEN GENERATE A 
OF THE SCRATCHPAD REGISTERS (100-107). 



THESE REGISTERS ARE IDENTIFIED AS FOLLOWS: 
JAM - JAM REGISTER STATUS 
SRV - SERVICE REGISTER OF STATUS 

PBA - PHYSICAL BUS ADDRESS REGISTER (BIT 17,16) 
CUA - MICROPROGRAM ADDRESS 

FLG/INT - FLAG REQUEST REGISTER OF STATUS/LAST VECTOR SERVICED 
WHAMI - VARIETY OF PROCESSOR OPTION STATUS BITS, PROCESSOR 

OPTION STATUS 
CDATA - CACHE DATA 
CTAG/CPU- CACHE TAG DATA/HIT REGISTER 



INPUTS: 

DTABLE 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
SAVREG - SAVE REGISTERS 

B0A16 - BINARY TO OCTAL ASCII CONVERSION (16 BITS) 
MSGDHOOK - MESSAGE HOOK ROUTINE 
RESREG - RESTORE REGISTERS 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL ERRLOG IN <A> 

A -- ADDRESS OF DTABLE 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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SEQ 0113 



731 








732 








733 








734 








735 


000300 ' 






(2) 


000300 1 






733 








737 








733 








739 








74 








741 








742 








743 


C00300 ' 






(3) 


000300' 


004767 


000000G 


744 


000304' 






(4) 


000304' 


012701 


000000 ' 


745 


000310' 






(4) 


000310 1 


01 2702 


000100 


746 








747 








743 








74S 








750 








751 








752 


000314' 






(4) 


000314' 






(6) 


000314" 


020227 


0001 10 


(9) 


000320 ' 


002007 




753 








754 


000322' 






(4) 


C00322' 


01 0267 


000002 


755 


000326' 






(2) 


000326 ' 


076600 




755 


000330 ' 






(2) 


000330' 


000000 




757 








756 








759 








76C 








761 








762 








763 


000332' 






(4) 


C00332 ' 


01 0021 




764 


0C0334' 






(6) 


000334' 


005202 




765 








766 


000336' 






(4) 


000336' 


000766 




(3) 


000340' 






767 








766 








769 








770 








771 








772 









.SBTTL ERRLOG 11/60 ERROR LOG ROUTINE 
ROUTINE ERRLOG <DTABLE> 



ERRLOG: 



SAVE REGISTERS AND GET ADDRESS OF LOG BUFFER ALONG WITH INITIALIZING 
LOG COMMAND AND ADDRESS TO ERROR LOG REGISTER 100 



CALL SAVREG 

LET R1 := #L6.BUF 

LET R2 := #L6.0FF 



NOW READ ERROR LOG WORD AND LOAD IT INTO LOG BUFFER UNTIL 
ERROR LOG IS SAVED. 



WHILE R2 LT #L6. OFF+# L6 . STO DO 

LET 1$ := R2 
INLINE <MED> 
INLINE <1$: .WORD 0> 



LOAD RO (DATA FROM LOG) INTO LOG BUFFER AND POINT LOG BUFFER 
TO NEXT ENTRY AND R2 TO NEXT COMMAND AND ADDRESS 



LET (R1 )+ := RO 
LET R2 := R2 + #1 



dSR 


PC, SAVREG 


MOV 


#L6. BUF.R1 


MOV 


#L6.0FF,R2 



50002$: 


CMP 
BGE 


R2,#L6.0FF+#L6.S 
50003$ 




MOV 


R2,1$ 




MED 






1$: 


.WORD 



MOV R0,(R1)+ 
INC R2 



ENDDO 



ER 



50003$: 



50002$ 



POINT TO "FP.LOG JAM" ENTRY IN LOG BUFFER AND POINT TO INDEX TABLE, CONVERT TO OCTAL 
ASCII AND LOAD MESSAGE ALSO DO THE SAME TO FOLLOWING 7 ENTRIES IN LOG BUFFER. 
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SEQ 0114 



773 


000340 ' 






(4) 


000340 ' 


005002 




774 


000342 ' 






(4) 


000342' 


012700 


000000 ' 


775 


0346' 






(4) 


000346' 


01 2701 


000020' 


776 


000352' 






(4) 


00C352 ' 






(6) 


C00352' 


C20227 


000010 


(9) 


000356 ' 


001410 




777 


000360 ' 






(3) 


000360 ' 


01 054S 




(5) 


000362 ' 


01 2145 




(4) 


000364' 


01 2045 




(3) 


000366' 


004767 


000000G 


(3) 


000372 ' 


01 2605 




778 


000374' 






(2) 


000374' 


105722 




779 


000376' 






(4) 


000376' 


000765 




(3) 


000400' 






780 








781 








782 








783 








784 








785 


000400' 






(4) 


000400 ' 


01 6500 


000000 


785 


000404 ' 






(3) 


CG0404 ' 


01 C54S 




(7) 


000406' 


01 2745 


000436' 


(6) 


000412 ; 


01 2745 


000040 ' 


(5) 


000416' 


01 2745 


000002 


(4) 


0D0422 ' 


01 0045 




(3) 


000424 ' 


004767 


OOOOOOG 


(3) 


000430' 


01 2605 




787 


000432 ' 






(2) 


000432 ' 


000240 




783 


000434' 






(2) 


000434' 


000776 




789 








790 








791 








792 








793 








794 


000436' 






(2) 


000436' 






795 


000436' 






(3) 


000436' 


004767 


OOOOOOG 


796 








797 


000442 ' 






(3) 


000442 ' 






(3) 


000442 ' 






(2) 


000442' 


000207 




798 




00000* 





LET R2 
LET RO 
LET R1 



= #0 

= #L6.BUF 

= #L6.TAB 



WHILE R2 NE #L6.ST0 DO 



CALL B0A16 IN < ( RO ) + , ( R1 ) +> 



INLINE <TSTB (R2)+; 



ENDDO 



; + 



CLR 


R2 


MOV 


#L6.BUF,R0 


MOV 


#L6.TAB,R1 


50004S: 

CMP 
BEQ 


R2,#L6.ST0 
50005$ 


MOV 
MOV 
M3V 
JSR 
MOV 


R5,-(SP) 
(R1 )+,-(R5) 
(R0)+,-(R5) 
PC, BOA 16 
(SP)+,R5 


TSTB 


(R2) + 


BR 


50004$ 



50005$: 



; OUTPUT MESSAGE 

LET RO := DTABLE(R5) 

CALL MSGDHOOK IN <R0 , #MSGPOP , ft L6 . MSG , #3$> 



INLINE <2$: NOP> 
INLINE <BR 2$> 

; + 

; RESTORE REGISTERS AND RETURN 

INLINE <3$:> 
CALL RESREG 

ENDRTN 
.END 



MOV 



DTABLE(R5) , RO 



MOV 


R5,-(SP) 


MOV 


#3$,-(R5) 


MOV 


#L6.MSG,-(R5) 


MOV 


#MSGP0P,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, MSGDHOOK 


MOV 


(SP)+,R5 


2$: 


NOP 


BR 


2$ 



500003: 
50001$: 



3$: 

JSR 

RTS 



PC, RESREG 



PC 
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SEQ 0115 



ACSR = 000102 

ACT8IT= 004000 

ADDR22= 001000 

ADR = 000006 

APTFER= 000004 

APTPRE= 000200 

ASB = 000106 

ASSEMB= 0CC010 

ASTAT = 000104 

AUTO = 000010 

AUTQST= 020000 

AWAS = 0001 10 

BITO = 000001 

BITOO = 000001 

3IT01 = 000002 

BIT02 = 000004 

BIT03 = 000010 

BIT04 = 000020 

BIT05 = 000040 

BIT06 = 000100 

BIT07 = 000200 

BIT08 = 000400 

BIT09 = 001000 

3IT1 = 000002 

BIT10 = 002000 

BIT11 = 004000 

3IT12 = 010000 

BIT13 = 020000 

BIT14 = 040000 

BIT15 = 100000 

BIT2 = 000004 

BIT3 = 000010 

BIT4 = 000020 

BIT5 = 000040 

BITS = 000100 

BIT7 = 000200 

BIT8 = C0C400 

BIT9 = 001000 

BKDEF = 000002 

3KM0D = 00C020 

3K!\"0DE= 040000 

3KSLSH= 000134 

B0A16 = ****** G 

CAPRES= 000004 

CASTAT= 00C004 

CDERCT= 000146 

CDWDCT= 000144 

CKTIM = 100000 

CLKPRE= 000001 

CONFIG= 000056 

CQOVF = 000001 

CR = 000015 

CSRA = 000100 



CSRC = 000102 
CTRLC = 000003 
CTRLO = 000017 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= 000400 
DIAGMC= 000000 
DROPMO= 100000 
DSEVNT= 000014 
DTABLE= 000000 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000C34 
DT.CFO= 000014 
DT.CF1= 000016 
DT.ERR= 000020 
DT.ES1= 000044 
DT.EVN= 000000 
DT.EXS= 000060 
DT.FCH= 000037 
DT.FCN= 000036 
DT.HMX= 000104 
DT.KBE= 000024 
DT.KBP= 000026 
DT.KBR= 000022 
DT.KBU= 000030 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PA5= 000074 
DT.PC = 000002 
DT.PFL= 000062 
DT.PSW= 000004 
DT.PTA= 000064 
DT.RCS= 000102 
DT.REL= 000040 
DT.SCT= 000066 
DT.SMX= 000106 
DT.SP = 000006 
DT.SSI= 000046 
DT.STO= 000010 
DT.ST1= 000012 
DT.SWR= 000056 
DT.SYP= 000072 
DT.WBU= 000050 
DT.WHL= 000054 
DT.WLL= 000052 
DVID1 = 000014 
ECCMEM= 000100 
ECCSTA= 000010 
ENBEOP= 010000 
ENBNUL= 000001 



ENDLST= 000000 
EOPBIT= 000001 
ERRLOG 000300RG 
ERRTYP= 000105 
EVNTBE= 000200 
EVNTHD= 000200 
EVNTKT= 000203 
EVNTPE= 000202 
EVNTRE= 000201 
FATERR= 100000 
HRDCNT= 000044 
HRDPAS= 000050 
ICONT = 000036 
ICOUNT= 000040 
IDNUM = 000122 
IE = 000100 
IERRLO 000255RG 
INDPAR= 000040 
INHDRP= 040000 
INHEPR= 020000 
INHREL= 001000 
INHRRE= 000400 
INIT = 000030 
INTR = 000120 
IOMOD = 100000 
IOMQDP= 102000 
IOMODR= 112000 
IQMODX= 110000 
JACK = 035060 
KIPAR0= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172358 
KIPDR0= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KTERRO= 000040 
KTPRES= 000400 
KTSTAT= 000020 
KTXTND= 040000 
LF = 000012 
LPSTAT= 000001 
L6.BUF OOOOOOR 
L6.CDA 000223R 



L6.CTA 000246R 
L6.CUA 000140R 
L6.ENB= 100001 
L6.FLG 000163R 
L6.UAM 000C66R 
L6.MSG 000040R 
L6.0FF= 000100 
L6.PBA 000122R 
L6.SRV 000104R 
L6.ST0= 000010 
L6.TAB 000020R 
L6.WHA 000203R 
MAPSTA= 000200 
MED = 076600 
MEMPAS= 040000 
MODEXH= 004000 
MODHOL= 002000 
MODSEL= 001000 
MSGCKD= 000010 
MSGCKS= 00001 1 
MSGDER= 000005 
MSGDHO= ****** G 
MSGDRP= 000017 
MSGECH= 177777 
MSGEOP= 000013 
MSGHDR= 000004 
MSGHNG= 000022 
MSGHRD= 000007 
MSGWAP= 000021 
MSGNUL= 177775 
MSGPOP= 000002 
MSGPRM= 177776 
MSGRES= 000001 
MSGSFT= 000006 
MSGSKE= 000003 
WlSGSMB= 000015 
MSGSMH= 000014 
MSGSMS= 000016 
MSGSTD= 000000 
MSGSYS= 000012 
MSGVEC= 000020 
NBKMQD= 001000 
NCPUOP= 000020 
NOAPTY= 000002 
NULL = 000000 
OWEN = 024020 
PAERR = 000010 
PARPRE= 002000 
PARSTA= 000100 
PASCNT= 000034 
PDPLSI= 020000 
PDP60 = 004000 
PDP70 = 010000 



PRIO = OOCOOO 
PRI1 = 00C040 
PRI4 = 000200 
PRI5 = 000240 
PRI6 = 000300 
PRI7 = 000340 
PRO = 000000 
PR4 = 000200 
PR5 = 000240 
PR6 = 000300 
PR7 = 000340 
PS = 177776 
PSW = 17777S 
RANNUM= 000054 
RBUFEA= 000130 
RBUFPA= 000126 
R5UFS2= 000132 
RBUFVA= 000124 
RDSERV= 000101 
RDWHMI= 000022 
RELERR= 000020 
RELMOD= 020000 
RELTIM= 010000 
RESREG= ****** G 
RES1 = 000056 
RES2 = 000060 
RICHAR= 031060 
RPTDAT= 002000 
RSTRT = 0001 12 
RUBOUT= 000177 
RUNMQD= 100000 
R5VALU= 001740 
SAM = 075464 
SAVREG= ****** G 
53ADR = 000102 
SBKMOD= 000000 
SBKSEL= 010000 
SC.ADR= 000006 
SC.ALC= 000014 
SC.APC= 000016 
SC.CKL= 000002 
SC.CKP= 000004 
SC.CLO= 000000 
SC.HLD= 000010 
SC.SCA= 000012 
SENDLS= 177777 
SOFCNT= 000042 
SQF=AS= 000046 
SPACE = 000040 
SPOINT= 000032 
SPVALU= 002200 
SRO = 177572 
SRI = 177574 
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! 11/60 


ERROR LOG 


ROUTINES 


MACY11 30A(1052) 20-SEP- 


BLOG60.I 


MAC 05- 


■JUL-78 


08:58 


SYMBOL 


TABLE 




SR2 


177576 




UIPAR4= 


177650 


WTWHMI= 


000222 


SR3 


1 72516 




UIPAR5= 


177652 


XFLAG = 


000005 


STAT = 


000026 




UIPAR6= 


1 77654 


XOFF = 


000023 


STATBI= 


064757 




UIPAR7= 


177656 


XON 


000021 


STAT1 = 


000027 




UIPDR0= 


177600 


$BGNLE= 


177777 


5USPND= 


000001 




UIPDR1= 


177602 


$ERFLG= 


000400 


SVRO = 


000062 




UIPDR2= 


177604 


$F$AND= 


000310 


SVR1 


000064 




UIPDR3= 


177606 


$F$BAD= 


000401 


SVR2 


00066 




UIPDR4= 


177610 


$F$BLA= 


000170 


SVR3 = 


000070 




UIPDR5= 


177612 


$F$CAS= 


000150 


SVR4 = 


000072 




UIPDR6= 


177614 


$F$DEC= 


000220 


SVR5 = 


000074 




UIPDR7= 


177616 


$F$DO = 


000340 


SVR5 = 


0C0076 




WASADR= 


000104 


$F$FAL= 


000405 


SYSCNT= 


00C052 




WBSTAT= 


000040 


$FSGOO= 


000400 


SYSERR= 


000100 




WBUFEA= 


000136 


$F$IF = 


0001 10 


TMPIO = 


000002 




WBUFPA= 


00 0134 


$F$INC= 


0C0210 


TQOVF = 


0C0002 




WBUFRQ= 


000140 


$F$LOO= 


000200 


UIPAR0= 


177640 




WBUFSZ= 


000142 


$F$NAM= 


000160 


UIPAR1 = 


1 77642 




WDFR = 


0001 16 


$F$NO = 


000403 


UIPAR2= 


177644 




WDTO = 


0001 14 


$F$OR = 


000320 


UIPAR3= 


177646 




WTINRE= 


000352 


$F$RTI= 


000350 


. ABS. 


000000 
000444 


000 
001 










ERRORS 


DETECTED: 













DEFAUL' 


T GLOBALS 


GENERATED: 
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$F$RTN= 000300 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 
$F$YES= 000402 
$IFLEV= 177777 
$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000001 
$NESTL= 177777 
$NSK0 = 000300 
$NSK1 = 000120 
$SAVLE= 177777 
$SSK0 = 050005 
$TAGLE= 177777 
$TAGNU= 050006 
$TEMP = 000300 
$TSK0 = 050004 
$TSK1 = 050005 



SEO 0116 



$$ARGC= 000002 

$$BYTE= 000403 

$$CASE= 000000 

$$D5T = 000000 

$$ELOC= 000000 

$$ERFL= 000000 

$$FLAG= 000340 

$$FROM= 000000 

$$LOC = 000356R 

$$LOCN= 000000 

$$REG = 177777 

$$RETU= 000000 

$$RTN1= 050000 

$$RTN2= 050001 

$$SRC = 000000 

$$TGSV= 000000 

$$TGS1= 000000 

$$TGS2= 000000 

SSTO = 000000 

$$$TAG= 050000 

= 000444R 



DSKZ: BL0G60,DSKZ: BLOG60=SPMAC/ML, EQUATE, BLOG60 
RUN-TIME: 13 3 .3 SECONDS 
RUN-TIME RATIO: 36/16=2.1 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:31 

EQUATE. MAC 12-SEP-7S 16:13 TABLE OF CONTENTS SEQ 0117 

3 COMMON EQUATE MODULE 
530 COMMON DEFINITIONS AND REFERENCES 

533 000000' .PRINT ;SPMAC: VERSION 1.1 

575 IERRLO INITIALIZE 11/70 REGISTERS AND ERROR LOG 
322 INITIALIZE 11/70 REGISTERS ROUTINE 
642 ERRLOG 11/70 ERROR LOGGING 
390 11/70 ERROR LOG ROUTINE 
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503 
509 
510 
51 1 
512 
513 
514 
515 
516 
517 
518 
513 
520 
521 
522 
523 
524 
525 
525 
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COMMON EQUATE MODULE 

.TITLE BLOG70 BINDER FOR ERRLOG MODULES 
.IDENT /V0.0/ 

++ 
MODULE PACKAGE NAME: 
BLOG70 

FUNCTIONAL DESCRIPTION: 

THIS IS A BINDER TO KEEP ERRLOG MODULE TOGETHER, 
CONTAINS FOLLOWING MODULES: 

IERRLO - INITIALIZE 11/70 ERROR LOG 
ERRLOG - 11/70 ERROR LOG 

VERSION: 
0.0 



SEQ 0118 



EDIT 



DATE 



BY 



REASON 
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COMMON EQUATE MODULE 



SEQ 0119 



528 
529 
530 
531 
532 
533 
(1) 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
545 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 



563 

564 
565 



566 
567 
568 
559 
570 
571 
572 



000000' 
000000 ' 



oooooo 

000000 

000006 

000014 

000020 

000026 

000033 

000041 

000046' 

000054 

000056 

C00064 



000001 
000001 



030445 
042440 
046040 
04 6445 
042522 
000005 
04 
042525 
020057 
000003 
000045 



000066' 042101 
000074' 000010 
000104' 000045 



027461 
051 122 
043517 
046505 
027507 

020040 
051 122 



030067 
051 1 17 

051 1 C5 
040 

0501 03 
043505 



051104 020057 



.SBTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

SLSTIN = 1 

SLSTTAG = 1 



****************** 
REFERENCED BY OTHER MODULES 



.GLOBL 
.GLOBL 



IERRLO 
ERRLOG 



**************** 
GLOBAL REFERENCES 



GLOBL 


B0A16 


GLOBL 


BOAC 


GLOBL 


MSGDHOOK 


GLOBL 


CCNTRL 


GLOBL 


KONTRL 


GLOBL 


CPULAR 


GL03L 


CPUHAR 


GLOBL 


CPUMER 


GLOBL 


CPUMNT 


GLOBL 


CPUCPE 



;MODULE ENTRY POINT 
•.MODULE ENNTRY POIJNT 



CONVERT TO OCTAL ASCII (.16 BITS) 
CONVERT TO OCTAL ASCII (22 BITS) 
MESSAGE HOOK ROUTINE 
CONTROL REGISTER (CACHE) 
TEMP STORAGE FOR CACHE OPERATION 
LOW ERROR ADDRESS REGISTER 
HIGH ERROR ADDRESS REGISTER 
MEMORY SYSTEM ERROR REGISTER 
MAINTENANCE REGISTER 
CPU ERROR REGISTER 



******>»********* 
LOCAL MESSAGES 



L7.MSG: 



.ASCII ■ %1 1/70 ERROR LOG 



.ASCII '%MEMERREG/ ' 

L7.MED: .BLKB ~D<6> 

.ASCII ' CPUERREG/ 



L7.CED: .BLKB ~D<6> 

.ASCIZ /%/ 

L7.MS1: .ASCII 'ADDR/ 

L7.ADR: .BLKB ~D<8> 

.ASCIZ /%/ 

.EVEN 
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COMMON DEFINITIONS AND REFERENCES 



SEQ 0120 



574 
575 
576 
577 
573 
579 
580 
581 
582 
583 
584 
585 
585 
587 
583 
583 
590 
591 
592 
593 
594 
595 
596 
597 
593 
599 
500 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
61 1 
612 
613 
614 
615 
616 
617 
618 
619 



SBTTL IERRLO INITIALIZE 11/70 REGISTERS AND ERROR LOG 
IDENT /V0.0/ 

++ 
MODULE NAME: 
IERRLO 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE WILL INITIALIZE THE FOLLOWING REGISTERS: 
MEMORY SYSTEM ERROR REGISTER 
CPU ERROR REGISTER 
LOW ERROR ADDRESS REGISTER 
HIGH ERROR ADDRESS REGISTER 
MAINTENANCE REGISTER 
CONTROL REGISTER (CACHE) 

INPUTS: 

NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
NONE 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 
CALL IERRLO 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



BLOG70 
BLOG70 

621 
622 
623 
624 
(2) 
623 
625 
627 
623 
529 
630 
631 
(4) 
632 
(4) 
633 
(4) 
634 
(4) 
535 
(4) 
335 
(4) 
637 
633 
(3) 
(3) 
(2) 
53S 
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000106 
000106 



000106' 

0C0106 1 017777 000000G OOOOOOG 

0001 14 ' 

000114' 005077 OOOOOOG 

000120' 

C00120 1 005077 OOOOOOG 

0001 24' 

000124' 016777 OOOOOOG OOOOOOG 

000132' 

000132' 005077 OOOOOOG 

000136' 

000136' 005077 OOOOOOG 

000142' 
000142' 
000142' 
000142' 000207 
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IERRLO INITIALIZE 11/70 REGISTERS AND ERROR LOG 



.SBTTL INITIALIZE 11/70 REGISTERS ROUTINE 
ROUTINE IERRLO 



SEQ 0121 



IERRLO: 



INITIALIZE THE 11/70 REGISTERS; MEMORY SYSTEM ERROR, LOW ERROR ADDRESS, 
HIGH ADDRESS, CONTROL, MAINTENANCE AND CPU ERROR 



LET @>CPUMER 


= 


@CPUMER 


LET (&CPULAR 


= 


#0 


LET @CPUHAR 


= 


#0 


LET (&CCNTRL 


= 


KONTRL 


LET @CPUCPE 


= 


#0 


LET @CPUMNT 


= 


#0 


ENDRTN 









MOV 


@CPUMER,@CPUMER 




CLR 


@CPULAR 




CLR 


©CPUHAR 




MOV 


KONTRL, @CCNTRL 




CLR 


@CPUCPE 




CLR 


@CPUMNT 


50000S: 






50001$: 







RTS 



PC 
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MACY11 30A(1052) 20-SEP-78 17:31 
INITIALIZE 11/70 REGISTERS ROUTINE 



PAGE 19-4 



SEQ 0122 



641 
642 
643 
644 
645 
645 
S47 
643 
649 
650 
651 
652 
653 
654 
555 
656 
657 
553 
659 
660 
661 
662 
563 
664 
665 
665 
667 
663 
559 
670 
671 
672 
673 
674 
675 
676 
677 
676 
67S 
680 
681 
682 
683 
684 
685 
686 
687 



11/70 ERROR LOGGING 



SBTTL ERRLOG 
IDENT /VO.O/ 

++ 

MODULE NAME: 
ERRLOG 

FUNCTIONAL DESCRIPTION: 

THIS MODULE WILL OUTPUT THE CONTENTS OF THE MEMORY SYSTEM ERROR 
REGISTER(17777744) AND THE CPU ERROR REGI STER ( 1 7777766 ) . 
IF A PARITY ERROR OCCURRED THEN A 22 BIT ADDRESS IS ALSO OUTPUTTED, 
THE ADDRESS IS GENERATED FROM THE LOW ERROR ADDRESS REGISTER (17777740) 
AND THE HIGH ERROR ADDRESS REGISTER (17777742) 

INPUTS: 

DTABLE 

IMPLICIT INPUTS: 

DT.EVNT - EVENT WORD OF DTABLE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 

B0A16 - OCTAL TO ASCII CONVERSION (16 BITS) 
BOAC - OCTAL TO ASCII CONVERSION (22 BITS) 
MSGDHOOK- MESSAGE HOOK ROUTINE 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL ERRLOG IN <A> 

A --ADDRESS OF DTABLE 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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590 








S91 








692 


000144' 






(2) 


000144' 






693 








594 








595 








59S 








597 








593 








599 


000144' 






(2) 


000144' 


01 0045 




(3) 


000145' 


01 0145 




700 








701 


C00150' 






(4) 


000150' 


016500 


000000 


702 


000154' 






(4) 


000154' 


016001 


000000 


703 








704 








705 








706 








707 








703 








709 


000160' 






(3) 


000160' 


01 0546 




(5) 


000162' 


01 2745 


000033' 


(4) 


000166' 


01 7745 


000000G 


(3) 


0001 72' 


004767 


OOOOOOG 


(3) 


000176' 


012605 




710 








71 1 








712 








713 








714 








715 








716 


000200 ' 






(3) 


000200' 


01 0546 




(5) 


0002C2' 


01 2745 


000056' 


(4) 


000206' 


01 7745 


OOOOOOG 


(3) 


000212' 


004767 


OOOOOOG 


(3) 


000216' 


01 2605 




717 








718 








719 








720 








721 








722 


000220' 






(3) 


000220 ' 


01 0546 




(7) 


000222' 


01 2745 


000252' 


(6) 


000226' 


01 2745 


000000 ' 


(5) 


000232' 


01 2745 


000002 


(4) 


000236' 


01 0045 




(3) 


000240' 


004767 


OOOOOOG 


(3) 


000244' 


012605 





ERRLOG: 
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ERRLOG 11/70 ERROR LOGGING 



.S9TTL 11/70 ERROR LOG ROUTINE 
ROUTINE ERRLOG <DTABLE> 

SAVE REGISTERS, GET DTABLE AND EVENT CODE 
PUSH R0.R1 

LET RO := DTABLE(R5) 
LET R1 := DT.EVNT(RO) 



CONVERT MEMORY SYSTEM ERROR REGISTER CONTENTS TO OCTAL ASCII AND 
LOAD INTO MESSAGE 



CALL B0A16 IN <@CPUMER , #L7 . MED> 



SEQ 0123 



MOV 
MOV 


RO.-(SP) 
R1 ,~(SP) 


MOV 


DTABLE(R5) , RO 


MOV 


DT.EVNT(RO) ,R1 



MOV 


R5,-(SP) 


MOV 


#L7.MED,-(R5) 


MOV 


@CPUMER,-(R5) 


JSR 


PC,B0A16 


MOV 


(SP)+,R5 



CONVERT CPU ERROR REGISTER CONTENTS TO OCTAL ASCII AND LOAD 
INTO MESSAGE 



CALL B0A16 IN «?>CPUCPE , #L7 . CED> 



MOV R5,-(SP) 

MOV #L7.CED,-(R5) 

MOV @CPUCPE,-(R5) 

JSR PC,B0A16 

MOV (SP)+,R5 



OUTPUT MESSAGE 



CALL MSGDHOOK IN <R0 , #MSGPOP , #L7 . MSG , #2$> 



MOV 


R5,-(SP) 


MOV 


#2$,-(R5) 


MOV 


#L7.MSG,-(R5) 


MOV 


#MSGPCP,-(R5) 


MOV 


R0,-(R5) 


USR 


PC, MSGDHOOK 


MOV 


(SP)+,R5 
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723 


000246 






(2) 


000246 


000240 




724 


000250 






(2) 


000250 


000776 




725 








726 








727 








723 








723 








730 








731 


000252 






(2) 


0C0252 






732 


000252 






(6) 


C00252 


022701 


000202 


(9) 


000256 


001030 




733 


C00260 






(3) 


000260 


01 0546 




(7) 


000262 


01 2745 


000074 ' 


(6) 


000266 


01 7745 


000000G 


(5) 


000272 


01 7745 


OOOOOOG 


(4) 


000276 


01 0045 




(3) 


000300 


004767 


OOOOOOG 


(3) 


000304 


01 2605 




734 








735 


000306 






(3) 


000306 


01 0546 




(7) 


000310 


01 2745 


000340' 


(6) 


000314 


01 2745 


000066' 


(5) 


000320 


01 2745 


000002 


(4) 


000324 


01 0045 




(3) 


000326 


004767 


OOOOOOG 


(3) 


CC0332 


01 2605 




736 


000334 






(2) 


000334 


000240 




737 


000336 






(2) 


000336 


000776 




738 








739 


000340 






(4) 


000340 






740 








741 








742 








743 








744 








745 


000340 






(2) 


000340 






746 


00C340 






(2) 


000340 


01 2601 




(3) 


000342 


012600 




747 








748 


000344 






(3) 


000344 






(3) 


000344 






(2) 


000344 


000207 




749 








750 




000001 
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11/70 ERROR LOG ROUTINE 



SEQ 0124 



INLINE <1$: 
INLINE <BR 



NOP> 
1$> 



1$: 
BR 



NOP 
1$ 



DETERMINE IF PARITY ERROR OCCURED, IF SO, CONVERT THE 22 BIT ADDRESS CONTAINED 
IN LOW AND HIGH ERROR ADDRESS REGISTERS TO OCTAL ASCII AND OUTPUT MESSAGE 



INLINE <2$:> 

IF tfEVNTPE EQ R1 THEN 



CALL BOAC IN <R0 , @CPU LAR , ©CPUHAR , # L7 . ADR> 



CALL MSGDHOOK IN <R0 , #MSGPOP , H L7 .MS1 , #4$> 



INLINE <3$: NOP> 

INLINE < BR 3$> 

END IF 

RESTORE REGISTERS AND RETURN 

INLINE <4$:> 
POP R1 ,R0 

ENDRTN 
.END 



50002$ 



2$: 



CMP 


#EVNTPE,R1 


B.ME 


50002$ 


MOV 


R5,-(SP) 


MOV 


#L7 .ADR,-(R5) 


MOV 


@CPUHAR,-(R5) 


MOV 


<a>CPULAR,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, BOAC 


MOV 


(£P)+,R5 


MOV 


R5,-(SP) 


MOV 


#4$,-(R5) 


MOV 


0L7.MS1 ,-(R5) 


MOV 


#MSGP0P,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, MSGDHOOK 


MOV 


(SP)+,R5 



3$: 



50000$: 
50001$: 



4$: 

MOV 
MCV 



RTS 



NOP 



BR 



3$ 



(SP)+,R1 
(SP)+,R0 



PC 
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ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


C01000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


A5B 


000106 


ASSEMB= 


C00010 


ASTAT = 


0001 04 


AUTO = 


000010 


AUTOST= 


020000 


AWA5 = 


0001 10 


BITO = 


000001 


BITOO = 


00C001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


0000 10 


B1T04 = 


000020 


BIT05 .= 


000040 


BIT06 = 


0001C0 


3IT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001 000 


BIT1 


000002 


BIT10 = 


002000 


3IT1 1 = 


004000 


BIT12 = 


01C000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT 15 = 


100000 


3IT2 = 


000004 


B I T 3 = 


00001 o 


3IT4 = 


000020 


'3 1 T 5 = 


000040 


3IT6 = 


000100 


BIT7 = 


000200 


3IT8 = 


00040C 


3IT9 = 


00 100C 


3KDEF = 


02 


3KMOD = 


000020 


[3KiViODE = 


040000 


BKSLSH= 


000134 


BOAC = 


****** Q 


3GA16 = 


* * * * * * Q 


CAPRES= 


000004 


CASTAT= 


000004 


CCNTRL= 


****** Q 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CPUCPE= 


****** Q 



IODULES 


MACY1 1 


30A(1052) 20-SEP-78 


:53 


SYMBOL 


TABLE 




CPUHAR= 


****** Q 


DT.WHL= 


000054 


CPULAR= 


****** ^j 


DT.WLL= 


000052 


CPUMER= 


****** Q 


DVID1 = 


000014 


CPUMNT= 


****** Q 


ECCMEM= 


000100 


CQOVF = 


000001 


ECCSTA= 


000010 


CR 


000015 


ENBEOP= 


010000 


CSRA = 


000100 


ENBNUL = 


000001 


CSRC 


000102 


ENDLST= 


000000 


CTRLC = 


000003 


EOPBIT= 


000001 


CTRLO = 


000017 


ERRLOG 


000144RG 


CTRLU = 


000025 


ERRTYP= 


0001 06 


DCEVNT= 


00001 1 


EVNTBE= 


000200 


DEFRTN= 


000400 


EVNTHD= 


000200 


DIAGMC= 


000000 


EVNTKT= 


00C203 


DROPMO= 


100000 


EVNTPE= 


000202 


DSEVNT= 


00 0014 


EVNTRE= 


000201 


DTABlE= 


000000 


FATERR= 


100000 


DT. ADD= 


000042 


HRDCNT= 


000044 


DT.AP = 


00010C 


HRDPAS= 


000050 


DT.APK= 


000076 


ICONT = 


000036 


DT.BLS= 


000034 


ICOUNIT = 


000040 


DT.CFO= 


00 0014 


IDNUM = 


000122 


DT.CF1= 


000016 


IE 


000100 


DT.ERR= 


000020 


IERRLO 


000106RG 


DT.ESI= 


000044 


INDPAR= 


000040 


DT.EVN= 


000000 


INHDRP= 


040000 


DT.EXS= 


000060 


INHEPR= 


020000 


DT.FCH= 


000037 


INHREL= 


001000 


DT.FCN= 


000036 


INHRRE= 


0004C0 


DT.HMX= 


00C104 


INIT = 


000030 


DT.KBE= 


000024 


INTR = 


000120 


DT.K3P= 


00 0026 


IOMOD = 


100000 


DT.KBR= 


000022 


IOMODP= 


102000 


DT.KBU= 


000030 


IOMODR= 


1 12000 


DT.MLS= 


000032 


IOMODX= 


1 10000 


DT.MTI= 


0C01 10 


JACK = 


035060 


DT.OFF= 


000070 


KIPAR0= 


172340 


DT.PAS= 


000074 


KIPAR1= 


172342 


DT.PC - 


00C002 


KIPAR2= 


172344 


DT.PFL= 


00C062 


KIPAR3= 


172346 


DT.PSW= 


OC0004 


KIPAR4= 


172350 


DT.PTA= 


000064 


KIPAR5= 


172352 


DT.RCS= 


000102 


KIPAR6= 


172354 


DT. REL = 


000040 


KIPAR7= 


172356 


DT.SCT= 


000066 


KIPDR0= 


172300 


DT .SMX = 


000106 


KIPDR1= 


172302 


DT.SP = 


000006 


KIPDR2= 


172304 


DT.SSI= 


000046 


KIPDR3= 


172306 


DT.ST0= 


0C0010 


KIPDR4= 


172310 


DT.ST1= 


000012 


KIPDR5= 


172312 


DT.SWR= 


000056 


KIPDR6= 


172314 


DT.SYP= 


000072 


KIPDR7= 


172316 


DT.WBU= 


000050 


KONTRL= 


****** g 
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KTERRO= 000040 
KTPRES= 000400 
KTSTAT= 000020 
KTXTND= 040000 
LF = 000012 
LPSTAT= 000001 
L7.ADR 000074R 
L7.CED 000056R 
L7.MED 000033R 
L7.MSG OOOOOOR 
L7.MS1 000066R 
MAPSTA= 000200 
MED = 076600 
MEMPAS= 040000 
MODEXH= 004000 
MODHOL= 002000 
MODSEL= 001000 
MSGCKD= 000010 
MSGCKS= 000011 
MSGDER= 000005 
MSGDHO= ****** C 
MSGDRP= 000017 
MSGECH= 17 7777 
MSGEOP= 000013 
MSGHDR= 000004 
MSGHNG= 000022 
MSGHRD= 000007 
MSGMAP= 000021 
MSGNUL= 177775 
MSGPCP= 000002 
MSGPRM= 177776 
MSGRES- 000001 
MSGSFT= 00Q006 
MSGSKE= 000003 
MSGSMB= 000015 
MSGSMH= 000014 
MSGSV.S= 000016 
MSGSTD= 000000 
MSGSYS= 000012 
MSGVEC= 000020 
NBKMOD= 001000 
NCPUOP= 000020 
NOAPTY= 000002 
NULL = 000000 
OWEN = 024020 
PAERR = 000010 
PARPRE= 002000 
PARSTA= 000100 
PASCNT= 000034 
PDPLSI= 020000 
PDP60 = 004000 
PDP70 = 010000 
PRIO = 000000 



PRI1 = 

PRI4 = 

PRI5 = 

PRI6 = 

PRI7 = 

PRO 

PR4 

PR5 

PR6 

PR7 

PS 

PSW 

RANNUM= 

R3UFEA= 

R3UFPA= 

R3UFS2= 

R3UFVA= 

RDSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBOUT= 

RUNMOD= 

R5VALU= 

SAM 

SBADR = 

SBKMOD= 

SBKSEL= 

SC.ADR= 

SC.ALC= 

SC.APC= 

SC.CKL= 

SC.CKP^ 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SGFCNT= 

SOF?AS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 



000040 
000200 
000240 
000300 
000340 
000000 
000200 
000240 
000300 
000340 
177776 
177776 
000054 
000130 
000126 
000132 
000124 
000101 
000022 
000020 
020000 
010000 
000055 
000060 
031 060 
002000 
0001 12 
000177 
100000 
001 740 
075464 
000102 
000000 
010000 
000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 



BL0G70 BINDER FOR ERRLCG MODULES 
BLOG70.MAC 06-SEP-78 15:53 



MACY11 30A(1052) 
SYMBOL TABLE 



20-SEP-78 17:31 PAGE 20-1 



SEQ 0126 



STATBI= 


064757 




STAT1 = 


000027 




SUSPND= 


000001 




SVRO = 


000062 




SVR1 


000064 




SVR2 


000066 




SVR3 = 


000070 




S\/R4 = 


000072 




SVR5 = 


000074 




SVR6 = 


000076 




SYSCNT= 


G0C052 




SYSERR= 


C00100 




TMPIO = 


000002 




TQOVF = 


000002 




UIPARO= 


1 7 7640 




UIPAR1 = 


177642 




UIPAR2= 


177644 




UIPAR3= 


177646 




UIPAR4= 


177650 




UIPAR5= 


177652 




UIPAR6= 


177654 




. ABS. 


OOOOOC 


000 




000346 


001 



UIPAR7= 177656 
UIPDR0= 177600 
UIPDR1= 177602 
UIPDR2= 177604 
UIPDR3= 177606 
UIPDR4= 177610 
UIPDR5= 177612 
UIPDR6= 177614 
UIPDR7= 177616 
WASADR= 000104 
WBSTAT= 000040 
WGUFEA= 000136 
WBUFPA= C00134 
W3UFR0= 0C0140 
WBUFSZ= 000142 
WDFR = 000116 
WDTO = CC0114 
WTINRE= 000352 
WTWHMI= 000222 
XFLAG = 000005 
XOFF = 000023 



XON = 000021 
$BGNLE= 177777 
$ERFLG= 000400 
$F$AND= 00C310 
$F$BAD= 000401 
$F$BLA= 000170 
$F$CAS= 000150 
$F$DEC= 000220 
$F$DO = 000340 
$F$FAL= 000405 
$F$GOO= 000400 
$F$IF = 000110 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 000160 
$F$NO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 
$F$SEL= 000140 
$F$THE= 000330 



$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 
$F$YES= 000402 
$IFLEV= 177777 
$ISKO = 000001 
$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000001 
$NESTL= 177777 
SNSKO = 000300 
$NSK1 = 000110 
$SAVLE= 177777 
$TAGLE= 177777 
STAGNU= 050003 
$TEMP = 000300 
$TSKO = 050002 
$SARGC= 000002 
$$BYTE= 000403 
$$CASE= 000000 
$$DST = 000000 



$$ELOC= 000402 
$$ERFL= 000000 
SSFLAG= 000001 
$$FROM= 000000 
SSLOC = 000256R 
$SLCCN= 000000 
$$REG = 177777 
$SRETU= 000000 
$SRTN1= 050000 
$$RTN2= 050001 
$$SRC = 000000 
$$TGSV= 000000 
$STGS1= 000000 
$$TGS2= 000000 
$$T0 = 000004 
$$$TAG= 050000 
= 000346R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ: BLOG70,DSKZ: BLOG70=SPMAC/ML, EQUATE, BL0G70 
RUN-TIME: 12 2 .4 SECONDS 
RUN-TIME RATIO: 39/16=2.3 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:31 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0127 

3 COMMON EQUATE MODULE 
563 GPA (COMMON DEFINITIONS & REFERENCES) 

566 000000' .PRINT ;SPMAC: VERSION 1.1 

584 GPA (CODE) 



GPA (GET PHYSICAL ADDRESS) 
GPA.MAC 28-JUL-78 09:08 

508 
509 
510 
51 1 
512 
513 
514 
515 
516 
517 
518 
51S 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
53S 
53S 
540 
541 
542 
543 
544 
545 
546 
547 
546 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 



MACY11 30A(1052) 20-SEP-78 17:31 PAGE 19 
COMMON EQUATE MODULE 

.TITLE GPA (GET PHYSICAL ADDRESS) 
.IDENT /VO.O/ 



++ 
MODULE NAME: 
GPA 

FUNCTIONAL DESCRIPTION: 

THIS MODULE DETERMINES THE 16-BIT, 18-BIT OR 22-BIT 
PHYSICAL ADDRESS FROM THE 16-BIT VIRTUAL ADDRESS GIVEN. 

IF 18-BIT ADDRESS, THE TOP 2 BITS ARE ALLIGNED TO POSITIONS 
4 & 5 OF THE EA WORD. IF 22-BIT ADDRESS SYSTEM, 
THE TOP 6 BITS ARE RIGHT JUSTIFIED IN THE EA WORD. 

INPUTS: 

1 . DTABLE 

2. TABLE ADDRESS CONTAINING VA.PA.EA WORDS 

WHERE VA = VIRTUAL ADDRESS 
PA = PHYSICAL ADDRESS 
EA = EXTENDED ADDRESS 

IMPLICIT INPUTS: 

1. DT.CFO 

2. DT.STO 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

1 . PHYSICAL ADDRESS WORD 

2. EXTENDED ADDRESS BITS WORD 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
SAVREG 
RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL GPA IN <DT,TBL> 

WHERE DT = DTABLE ADDRESS 

TBL = TABLE ADDRESS (CONTAINS VA,PA,EA WORDS) 

VERSION: 
0.0 



SEQ 0128 



EDIT 



DATE 



BY 



REASON 



GPA (GET PHYSICAL ADDRESS) 
GPA. MAC 28-JUL-73 09:08 

563 
564 
565 

566 000000' 
(1 ) 000000' 

567 000001 
5S8 000001 
56S 

570 
571 
572 
573 
574 
575 
576 
577 
57S 
579 
580 
581 
582 



MACY11 30A(1052) 20-SEP-73 17:31 PAGE 19-1 
GPA (COMMON DEFINITIONS & REFERENCES) 

.SBTTL GPA (COMMON DEFINITIONS & REFERENCES) 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 

REFERENCED BY OTHER MODULES 
GLOBL GPA JMODULE ENTRY POINT 

GLOBAL REFERENCES: 

GLOBL SAVREG 
GLOBL RESREG 



SEO 0129 



GPA (GET PHYSICAL ADDRESS) 
GPA. MAC 28-JUL-78 09:08 



17:31 PAGE 19-2 



584 








585 








586 


000000' 






(2) 


000000' 






587 








588 








589 








590 








591 








592 


000000' 






(3) 


000000' 


004767 


OOOOOOG 


593 


000004' 






(4) 


000004' 


01 6500 


000000 


594 


000010' 






(4) 


000010' 


016501 


000002 


595 








596 








597 








598 








599 








600 








601 








602 


000014' 






(4) 


000014' 


01 21 1 1 




603 








604 








605 








505 








607 








soe 


000016' 






(6) 


000016 ' 


032760 


000020 


(9) 


000024' 


001003 




609 


000026' 






(4) 


000026' 


005061 


000002 


610 








61 1 


000032' 






(4) 


000032' 


000454 




(3) 


000034' 






612 








613 








614 








615 








616 








617 








618 








619 


000034' 






(6) 


000034 ' 


00031 1 




620 


000036' 






(7) 


000036' 


00621 1 




(7) 


000040 ' 


00621 1 




(7) 


000042' 


00621 1 




(7) 


000044' 


00621 1 




621 


000046' 






(6) 


000046' 


04271 1 


177761 


622 


000052' 






(6) 


000052' 


06271 1 


172340 



GPA: 



MACY11 30A(1052) 20-SEP-78 
GPA (CODE) 

.SBTTL GPA (CODE) 

ROUTINE GPA <DT f TBL> 



SAVE REGS, GET DTABLE ADDRESS AND TABLE ADDRESS 

CALL SAVREG 

LET RO := DT(R5) 

LET R1 := TBL(R5) 



FETCH VIRTUAL ADDRESS FROM FIRST WORD OF USER SUPPLIED TABLE 

AND LOAD INTO THE PHYSICAL ADDRESS WORD (2ND WORD OF USER SUPPLIED 

TABLE) . 



SEO 0130 



JSR 


PC, SAVREG 


MOV 


DT(R5) ,R0 


MOV 


TBL(R5) ,R1 



LET (R1) := (R1)+ 



IF KT IS NOT ON, CLEAR EA WORD AND RETURN 



IF #KTSTAT NOTSETIN DT.STO(RO) THEN 



LET 2(R1 ) := #0 



ELSE 



MOV 



BIT 
BNE 

CLR 



BR 



50002$: 



KT IS ON. GENERATE 18 OR 22 BIT ADDRESS. 

BRING PAGE BITS 13-15 OF PA IN PCS. 1-3, ADD TO KIPARO 

ADDRESS, AND GET THE CONTENTS OF THE FORMED KIPAR REG. 



LET (R1 ) := SWAP (R1 ) 

LET (R1 ) := (R1 ) SHIFT -4 

LET (R1) := (R1) CLR. BY #177761 

LET (R1 ) := (R1 ) + #KIPARO 



SWAB 

ASR 
ASR 
ASR 
ASR 

BIC 

ADD 



(R1 )+,(R1) 



#KTSTAT,DT.STO(R 
50002$ 

2(R1) 



50003$ 



(R1 ) 

(R1 ) 
(R1 ) 
(R1 ) 
(R1 ) 

#177761 , (R1 ) 

#KIPARO, (R1 ) 



GPA (GET PHYSICAL ADDRESS) 
GPA. MAC 28-JUL-78 09:08 
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GPA (CODE) 
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SEO 0131 



623 


000056' 






(4) 


000056' 


01 71 1 1 


000000 


624 








625 








S26 








627 








623 


000062' 






(6) 


000062' 


01 1 102 




(6) 


000064' 


0003C2 




629 


000066' 






(4) 


000065' 


01 0261 


000002 


(7) 


000072' 


006261 


000002 


(7) 


000076' 


006261 


000002 


630 








531 








632 








633 








634 








635 








636 








637 


C001 02' 






(7) 


0001 02' 


00531 1 




(7) 


0001 04 ' 


00631 1 




(7) 


000106' 


00631 1 




(7) 


0001 10' 


00631 1 




(7) 


0001 12' 


00631 1 




(7) 


C001 14' 


00631 1 




638 


0001 16' 






(4) 


0001 16' 


01 6102 


177776 


(6) 


000122' 


042702 


160000 


639 


0001 26' 






(2) 


0001 26' 


060221 




640 


000130" 






(6) 


000130" 


00551 1 




641 








642 








643 








644 








645 








646 








647 


000132' 






(6) 


000132 ' 


032760 


OOIOOO 000014 


(S) 


000140 ' 


001403 




648 


000142 ' 






(6) 


000142' 


04271 1 


177700 


649 


000146' 






(4) 


000146' 


000406 




(3) 


000150' 






650 


000150 ' 






(6) 


000150 ' 


04271 1 


177774 


651 


000154' 






(7) 


000154 1 


00 631 1 




(7) 


000156' 


00631 1 




(7) 


000160 ' 


00631 1 




(7) 


000162' 


00631 1 




652 


000164' 







LET (R1 ) := @(R1 ) 



BITS 15-10 ARE EA BITS. BRING THEM IN POSITION 5-0 
AND STORE IN EA WORD. 



LET R2 := SWAP (R1 ) 

LET 2(R1 ) := R2 SHIFT -2 



MOV 



MOV 
SWAB 

MOV 
ASR 
ASR 



SHIFT THE CONTENTS OF PAR 

6 PLACES TO THE LEFT. ADD LOW 12 BITS OF V.A. 

RESULT IS STORED IN PA 

AND ANY CARRY IS ADDED TO THE EA WORD TO GET THE FINAL EA WORD 



LET (R1 ) := (R1 ) SHIFT 6 



LET R2 



-2(R1 ) CLR.BY #160000 



ASL 
ASL 
ASL 
ASL 
ASL 
ASL 

MOV 
BIC 



INLINE <ADD R2, (R1 ) +> 
LET (R1 ) := (R1 ) + CARRY 



NOW CHECK IF 22-BIT ADDRESS SYSTEM. IF IT IS, GENERATE A 

6-BIT EA WORD RIGHT JUSTIFIED, OTHERWISE GENERATE 

A 2-3IT EA WORD AND ALLIGN THE BITS IN POSITION 5-4. 



IF #ADDR22 SETIN DT.CFO(RO) THEN 



ELSE 



LET (R1) := (R1) CLR.BY #177700 

LET (R1) := (R1) CLR.BY #177774 
LET (R1 ) := (R1 ) SHIFT 4 



50004S: 



BIC 

ASL 
ASL 
ASL 
ASL 



»(R1) .(R1 ) 



(R1 ) ,R2 
R2 

R2,2(R1 ) 

2(R1) 

2(R1) 



(R1) 
(R1 ) 
(R1 ) 
(R1 ) 
(R1) 
(RD 

-2(R1 ) ,R2 
#160000, R2 



ADD R2, (R1 ) + 
ADC (R1) 



BIT 


#ADDR22,DT.CF0(R 


BEQ 


50004$ 


BIC 


#177700, (R1 ) 


BR 


50005$ 



#177774, (R1 ) 

(R1 ) 
(R1 ) 
(RD 
(R1 ) 



ENDIF 
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(4) 


000164' 




653 






654 


000164' 




(4) 


000164' 




655 






656 






657 






658 


000164' 




(3) 


OuOl 64' 


004767 OOOOOOG 


659 


000170' 




(3) 


G00170' 




(3) 


0001 70' 




(2) 


C00170' 


000207 


660 






661 




000001 



SEQ 0132 



ENDIF 

RESTORE REGS AND RETURN 
CALL RESREG 
ENDRTN 

.END 



50005$: 
50003S: 



50000S: 
50001S: 



JSR 



RTS 



PC, RESREG 



PC 



GPA (GET PHYSICAL ADDRESS) 
GPA.MAC 28-JUL-78 09:08 

ACSR = 000102 
ACTBIT= C04000 
ADDR22= 001000 
ADR = 0C0006 
APTFER= 000004 
APTPRE= 000200 
ASB = 000106 
ASSEM3= 000010 
ASTAT = 000104 
AUTO = 000010 
AUTOST= 020000 
AWAS = 0001 10 
BITO = 000001 
BITOO = 000001 
BIT01 = 000002 
BIT02 = 000004 
BITC3 = 000010 
BIT04 = 000020 
BIT05 = 000040 
BIT06 = 000100 
BIT07 = 000200 
BIT08 = 000400 
BIT09 = 001000 
BIT1 = 000002 
BIT10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT15 = 100000 
BIT2 = 000004 
BIT3 = 000010 
BIT4 = 000020 
BIT5 = 000040 
BIT6 = 000100 
BIT7 = 000200 
BIT8 = 000400 
BIT9 = 001000 
BKDEF = 000002 
BKMOD = 000020 
3KM0DE= 040000 
BKStSH= 000134 
CAPRES= 000004 
CASTAT= 000004 
CDERCT= 000146 
CDWDCT= 000144 
CKTIM = 100000 
CLKPRE= 000001 
CONFIG* 000056 
CQOVF = 000001 
CR = 000015 
CSRA « 000100 
CSRC = 000102 



MACY11 30A(1052) 20-SEP-78 17:31 PAGE 20 
SYMBOL TABLE 



SEQ 0133 



CTRLC = 000003 
CTRLO = 000017 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= 000400 
DIAGMC= 000000 
DROPMO= 100000 
DSEVNT= 000014 
DT = 000000 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000034 
DT.CFO= 000014 
DT.CF1= 000016 
DT.ERR= 0C0020 
DT.ESI= 000044 
DT.EVN= COOOOO 
DT.EXS= 000060 
DT.FCH= 000037 
DT.FCN= 000036 
DT.HMX= 000104 
DT.KBE= 000024 
DT.KBP= 000026 
DT.KBR= 000022 
DT.KBU= 000030 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = 000002 
DT.PFL= 000062 
DT.PSW= 000C04 
DT.PTA= 000C64 
DT.RCS= 000102 
DT.REL= 000040 
DT.SCT= 000066 
DT.SMX= 000106 
DT.SP = 000006 
DT.SSI= 000046 
DT.STO= 000010 
DT.ST1= 000012 
DT.SWR= 000056 
DT.SYP= 000072 
DT.WBU= 000C50 
DT.WHL= 000054 
DT.WLL= 000052 
DVID1 = 000014 
ECCMEM= 000100 
ECCSTA= 000010 
ENBEOP= 010000 
ENBNUL= 000001 
ENDLST= 000000 



EOPBIT= 000001 
ERRTYP= 000106 
EVNTBE= 000200 
EVNTHD= 000200 
EVNTKT= 000203 
EVNTPE= 000202 
EVNTRE= 000201 
FATERR= 100000 
GPA OOOOOORG 
HRDCNT= 000044 
HRDPAS= 000050 
ICONT = 000036 
ICOUNT= 000040 
IDNUM = 000122 
IE = 000100 
INDPAR= 000040 
INHDRP= 040000 
INHEPR= 020000 
INHREL= 001000 
INHRRE= 000400 
INIT = 000030 
INTR = 000120 
IOMOD = 100000 
IOMODP= 102000 
I0MODR= 112000 
IOMODX= 110000 
JACK = 035060 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172343 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 
KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172305 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KTERRO= 000C40 
KTPRES= 000400 
KTSTAT= 000020 
KTXTND= 040000 
LF = 000012 
LPSTAT= 000001 
MAPSTA= 000200 
MED = 076600 
MEMPAS= 040000 
MODEXH= 0040C0 



MGDHOL= 002000 

MODSEL= 001000 

MSGCKD= 000010 

M3GCKS= 00001 1 

MSGDER= 000005 

MSGDRP= 000017 

MSGECH= 177777 

MSGEOP= 000013 

MSGHDR= 000004 

MSGHNG= 000022 

MSGHRD= 000007 

MSGMAP= 000021 

MSGNUL= 177775 

MSGPOP= 000002 

MSGPRM= 177776 

MSGRES= 000001 

MSGSFT= 000006 

MSGSKE= 000003 

MSGSM3= 000015 

MSGSMH= 000014 

MSGSMS= 000016 

MSGSTD= 000000 

MSGSYS= 000012 

MSGVEC= 000020 

N5KM0D= 001000 

NCPUOP= 000020 

NOAPTY= 000002 

N'JLL = 000000 

OWEN = 024020 

PAERR = 000010 

PARPRE= 002000 

PARSTA= 000100 

PASCNT= 000034 

PDPLSI= 020000 

PDP60 = 004000 

PDP70 = 010000 

PRIO = 000000 

PRI1 = 000040 

PRI4 = 000200 

PRI5 = 000240 

PRI6 = 000300 

PRI7 = 000340 

PRO = 000000 

PR4 = 000200 

PR5 = 000240 

PR6 = 000300 

PR7 = 000340 

PS = 177776 

PSW = 177776 

RANNUM= 000054 

RBUFEA= 000130 

RBUFPA= 000126 

RBUFSZ= 000132 



RBUFVA= 000124 

RDSERV= 000101 

RDWHMI= 000022 

RELERR= 000020 

RELF«10D= 020000 

RELTIM= 010000 

RESREG= ****** G 

RES1 = 000056 

RES2 = 000060 

RICHAR= 031060 

R?TDAT= 002000 

R3TRT = 000112 

RUB0UT= 000177 

RUNMOD= 100000 

R5VALU= 001740 

SAM = 075464 

SAVREG= ****** G 

SBADR = 000102 

SBKMOD= 000000 

S3KSEL= 010000 

SC.ADR= 000006 

SC.ALC= 000014 

SC.APC= 000016 

SC.CKL= 000002 

SC.CKP= 000004 

SC.CLO= 000000 

SC.HLD= 000010 

SC.SCA= 000012 

SENDLS= 177777 

SQFCNT= 000042 

SGFPAS= 000046 

SPACE = 000040 

SPOINT= 000032 

SPVALU= 002200 

SRO = 177572 

SR1 = 177574 

SR2 = 177576 

SR3 = 172516 

STAT = 000026 

STATBI= 064757 

STAT1 = 000027 

SUSPND= 000001 

SVRO = 0000S2 

SVR1 = 000064 

SVR2 = 000066 

SVR3 = 000070 

SVR4 = 000072 

SVR5 = 000074 

SVR6 = 000076 

SYSCNT= 000052 

SYSERR= 000100 

TBL = 000002 

TMPIO = 000002 
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SEQ 0134 



TQOVF = 


000002 




UIPARO= 


177640 




UIPAR1 = 


177642 




UIPAR2= 


177644 




UIPAR3= 


177646 




UIPAR4= 


177650 




UIPAR5= 


177652 




UIPAR6= 


177654 




UIPAR7= 


177656 




UIPDRO= 


177600 




UIPDR1 = 


177602 




UIPDR2= 


177604 




UIPDR3= 


177606 




UIPDR4= 


177610 




UIPDR5= 


177612 




UIPDR6= 


177614 




UIPDR7= 


177616 




WASADR= 


0001 04 




WBSTAT= 


000040 




. ABS. 


000000 


000 




0001 72 


001 



WBUFEA= 000136 
WBUFPA= 000134 
WBUFRO= 000140 
WBUFSZ= 000142 
WDFR = 000116 
WDTO = 000114 
WTINRE= 000352 
WTWHMI= 000222 
XFLAG = 000005 
XOFF = 000023 
XON = 000021 
$BGNLE= 177777 
$ERFLG= 000400 
$F$AND= 000310 
$F$BAD= 000401 
$F$BLA= 000170 
$F$CAS= 000150 
$F$DEC= 000220 
$F$DO = 000340 



$F$FAL= 000405 
$F$GOO= 000400 
$F$IF = 000110 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 000160 
$F$NO = 000403 
$F$DR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 
$F$YES= 000402 
$IFLEV= 177777 
$ISK0 = 000001 
$ISK1 = 000001 



$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000001 
$NESTL= 177777 
$NSKO = 000300 
$NSK1 = 000110 
$NSK2 = 000110 
$SAVLE= 177777 
$TAGLE= 177777 
$TAGNU= 050006 
STEMP = 000300 
STSKO = 050003 
$TSK1 = 050005 
$SARGC= 000004 
$S3YTE= 000403 
$SCASE= 000000 
$$DST = 000000 
$$ELOC= 000402 
$$ERFL= 000000 



$$FLAG= 000001 

$SFROM= 000000 

$$LOC = 000140R 

$SLGCN= 000000 

$SREG = 177777 

$$RETU= 000000 

$$RTN1= 050000 

$SRTN2= 050001 

SSSRC = 000000 

$$TGSV= 000000 

$$TGS1= 000000 

$$TGS2= COOOOO 

$STO = 000000 

$$$TAG= 050000 

= 000172R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ : GP A, DSKZ: GPA =SPMAC/ML, EQUATE, GPA 
RUN-TIME: 14 4 .3 SECONDS 
RUN-TIME RATIO: 40/13=2.1 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:32 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0135 

3 COMMON EQUATE MODULE 

561 COMMON DEFINITIONS AND REFERENCES FOR KTERR 

564 000000' .PRINT ;SPMAC: VERSION 1.1 

611 KTERR ROUTINE 
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SEO 0136 



508 
509 
510 
51 1 
512 
513 
514 
515 
516 
517 
513 
519 
520 
521 
522 
523 
524 
525 
525 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 



PROCESS MEMORY MANAGEMENT TRAPS 



TITLE KTERR 
IDENT /VO.O/ 

++ 
MODULE NAME: 
KTERR 



FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PROCESSES MEMORY MANAGEMENT TRAPS (THROUGH 
LOC 250). IT WILL FETCH THE CONTENTS OF THE STATUS 
REGISTERS, CONVERT TO ASCII, AND ENQUEUE A MESSAGE 
CONTAINING THE CONTENTS. THE KT ERROR BIT WILL BE SET 
IN THE DTABLE ERROR WORD. 

INPUTS: 

ADDRESS OF DATA TABLE 

IMPLICIT INPUTS: 
DT.STO 
DT.CFO 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.ERR 

PATHOLOGICAL CONNECTIONS: 

NONE 

SUBORDINATE ROUTINES CALLED: 

MSGDHOOK - PRINT A MESSAGE 
RSTRCY - RESET RECOVERY 

ERRLOG 
BOA 16 
SAVREG 
RESREG 
FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL KTERR IN <DTADR> 
WHERE DTADR = ADDRESS OF DATA TABLE 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



594 



5S5 

596 
5S7 
598 
599 
600 
601 

602 
603 
604 
605 
606 
607 



000000 ' 
000000' 



000001 
000001 
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561 
562 
563 
564 
(1) 
565 
566 
567 
563 
563 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
533 
584 
585 
585 
587 
586 
539 
590 
591 
592 
593 



0000C0' 
000006' 
C 1 4 ' 
000022 ' 
000030 ' 
000031 ' 
000036 1 
000044 ' 
0C0C5C ' 
000056' 
000064' 
000072' 
000074' 
000102' 

000104' 
0001 12' 
0001 20 ' 
0001 26 ' 
000130' 
000136' 



044445 
C51 124 
51110 
C53040 
000 
045 
0201 24 
02 5040 
05 1445 
020040 
000006 
020040 
OOOOCS 
000045 

051445 
02C040 
000006 
020040 
000006 
000045 



0461 14 
050101 
020125 
0521 03 

025052 
051 124 
022452 
030122 
051 123 



030522 
051 123 



020056 
052040 
0521 13 
022456 

045440 
050101 

020040 
022462 



020040 
022463 
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COMMON DEFINITIONS AND REFERENCES FOR KTERR 

•SBTTL COMMON DEFINITIONS AND REFERENCES FOR KTERR 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 
$LSTTAG=1 



***** *********** 

REFERENCED BY OTHER MODULES: 
GLOBL KTERR ;MODULE ENTRY POINT 

**************** 



SEQ 0137 



GLOBAL REFERENCES: 



GLOB 
GL08 
GLOB 
GLOB 
GLOB 
GLOB 



ERRLOG 

RSTRCY 

MSGDHOOK 

B0A16 

SAVREG 

RESREG 



; ERROR LOGGING 

; RESET RECOVERY 

; PRINT A MESSAGE 

;OCTAL TO ASCII CONVERSION ROUTINE 



**************** 

LOCAL STORAGE: 
KT.BADKT: .ASCIZ /%ILL. TRAP THRU KT VCT.%/ 

KT.MG1: .ASCII /%*+ KT TRAP **%/ 



.ASCII /%SRO SR2%/ 

KT.SSOMG: .BLKB 6 

.ASCII / / 

KT.SS2MG: .BLKB 6 

.ASCIZ /%/ 

KT.MG2: .ASCII /%SR1 SR3%/ 

KT.SS1MG: .BLKB 6 

.ASCII / / 

KT.SS3MG: .BLKB 6 

.ASCIZ /%/ 
.EVEN 
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608 j**************** 

609 
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611 
612 
613 
(2) 
614 
615 
616 
617 
618 
519 
(3) 
620 
(4) 
621 
622 
323 
624 
625 
526 
627 
62S 
(6) 
629 
630 
631 
532 
633 
634 
635 
636 
(6) 
(9) 
637 
638 
639 
640 
641 
642 
(6) 
643 
644 
(3) 
(5) 
(4) 
(3) 
(3) 
645 
(3) 
(5) 
(4) 
(3) 
(3) 
646 
647 
648 
649 



000140' 
000140' 



C00140 
000140 
000144 
000144 



004767 OOOOOOG 



016500 000000 



000150' 
000150' 052760 



000156' 

000156' 032760 
000164' 001535 



000166' 
000166' 

0001 74' 
000174' 
0001 76' 
000202' 
000206' 
000212 ' 
000214 ' 
000214' 
000216' 
000222 ' 
000226' 
000232' 



01 0546 
01 2745 
01 3745 
004767 
0126C5 

01 0546 
012745 
01 3745 
004767 
01 2505 



00004C 000020 



000020 000010 



052760 100000 000020 



000064' 

177572 

OOOOOOG 



000C74' 

177576 

OOOOOOG 
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KTERR ROUTINE 

.SBTTL KTERR ROUTINE 

ROUTINE KTERR <DTADR> 



INIT AND SAVE DTABLE 

CALL SAVREG 

LET RO := DTADR(RS) 



SET KT ERROR BIT IN ERROR WORD IN DTABLE 



LET DT.ERR(RO) := DT.ERR(RO) SET. BY #KTERROR 



IF KT ENABLED, SET FATAL BIT IN ERROR WORD 



SEQ 0139 



KTERR: 



USR 
MOV 



BIS 



IF #KTSTAT SETIN DT.STO(RO) THEN 



SET FATAL BIT, GET THE CONTENTS OF SRO, SR2, CONVERT 
TO ASCII, AND ENQUEUE MESSAGE 

LET DT.ERR(RO) := DT.ERR(RO) SET . BY #FATERR 



CALL B0A16 IN <@#SRO , #KT . SSOMG> 



CALL B0A16 IN <@*SR2 , #KT . SS2MG> 



BIT 
BEQ 



BIS 



PC, SAVREG 
DTADR(R5) ,R0 



#KTERROR,DT.ERR( 



#KTSTAT,DT.ST0(R 
50002$ 



#FATERR,DT.ERR(R 



MOV 


R5,-(SP) 


MOV 


#KT.SS0MG,-(R5) 


MCV 


@#SR0,-(R5) 


JSR 


PC, B0A16 


MGV 


(SP)+,R5 


MOV 


R5,-(SP) 


MOV 


#KT.SS2MG,-(R5) 


MOV 


@#SR2,-(R5) 


JSR 


PC.B0A16 


MOV 


(SP)+,R5 



SEE IF EXTENDED KT 
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000014 



650 








551 


000234 1 






(6) 


000234' 


032760 


040000 


(9) 


000242 1 


001420 




552 








653 








654 








655 








656 








557 


000244 ' 






(3) 


0C0244 ' 


01 0546 




(5) 


C00246 1 


01 27-45 


000120 ' 


(4) 


000252 ' 


01 3745 


177574 


(3) 


C00256 1 


004767 


000000G 


(3) 


000262 ' 


01 2605 




558 


000264 ' 






(3) 


000264' 


01 0546 




(5) 


000266' 


01 2745 


000130 ' 


(4) 


000272' 


01 3745 


172516 


(3) 


000276* 


004767 


OOOOOOG 


(3) 


000302' 


01 2605 




659 


000304' 






(4) 


000304' 






660 








661 








662 








663 


000304' 






(2) 


000304 ' 


000005 




664 


000306' 






(3) 


000306' 


01 0546 




(4) 


000310 ' 


01 0045 




(3) 


00031 2' 


004767 


OOOOOOG 


(3) 


000316' 


01 2605 




665 








666 








667 


000320 ' 






(4) 


000320 ' 


0C5046 




668 


000322 ' 






(4) 


000322" 


012746 


000330 ' 


669 


000326' 






(2) 


000326' 


000002 




670 








671 


000330" 






(2) 


000330' 






672 


000330 ' 






(3) 


000330 ' 


01 0546 




(7) 


000332' 


01 2745 


000362 ' 


(6) 


000336' 


01 2745 


000031 ' 


(5) 


000242' 


01 2745 


000002 


(4) 


000346' 


01 0045 




(3) 


000350' 


004767 


OOOOOOG 


(3) 


000354' 


01 2605 




673 








674 


000356' 






(2) 


000356' 


000240 




675 


000360' 
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KTERR ROUTINE 



IF tfKTXTND SETIN DT.CFO(RO) THEN 



ITS AN EXTENDED KT, SO PUMP OUT SR1.SR3 



iEQ 0140 



CALL B0A16 IN <®#SR1 , #KT . SS1MG> 



CALL B0A16 IN «MSR3 , #KT . SS3MG> 



ENDIF 

RESET AND RESTORE, LOWER PRIORITY 
INLINE <RESET> 
CALL RSTRCY IN <R0> 



LET -(SP) := #0 
LET -(SP) := #443$ 
INLINE <RTI> 

INLINE <443$:> 

CALL MSGDHOOK IN <R0 , 0MSGPOP , #KT . MG1 , #1 $> 



INLINE <4$: NOP> 
INLINE <BR 4$> 



BIT 
BEQ 



#KTXTND,DT.CFO(R 
50003$ 



MOV 


R5 r -(SP) 


MOV 


#KT.SS1MG,-(R5) 


MOV 


@#SR1 ,-(R5) 


JSR 


PC, B0A16 


MOV 


(SP)+,R5 


MOV 


R5,-(SP) 


MOV 


#KT.SS3MG,-(R5) 


MOV 


@#5R3,-(R5) 


JSR 


PC, B0A16 


MOV 


(SP)+,R5 


0003$: 





RESET 

MOV 
MOV 
JSR 
MOV 



CLR 
MOV 
RTI 

443$: 



R5,-(SP) 
R0,~(R5) 
PC, RSTRCY 
(SP)+,R5 



"(SP) 
#443$, -(SP) 



MOV 


R5,-(SP) 


MOV 


#1$,-(R5) 


MOV 


0KT.MG1 ,-(R5) 


MOV 


#MSGP0P,-(R5) 


MOV 


R0,~(R5) 


JSR 


PC, MSGDHOOK 


MOV 


(SP)+,R5 



4$: 



NOP 
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(2) 


000360' 


000776 




676 








677 


000362' 






(2) 


000362' 






673 








679 








680 


000362' 






(6) 


000362' 


032760 


040000 000014 


(9) 


000370' 


00141 5 




681 


000372' 






(3) 


000372' 


01 0546 




(7) 


000374' 


01 2745 


000424 ' 


(6) 


000400' 


01 2745 


000104 ' 


(5) 


000404' 


01 2745 


000002 


(4) 


000410 ' 


01 0045 




(3) 


000412' 


004757 


O0O000G 


(3) 


000416' 


01 2605 




S82 


000420 ' 






(2) 


000420' 


000240 




683 


000422' 






(2) 


000422' 


000776 




684 








585 


000424' 






(2) 


000424' 






686 


000424' 






(4) 


000424' 






687 








686 








689 








690 








691 


000424' 






(6) 


000424' 


032760 


004000 000014 


(8) 


000432' 


001004 




(6) 


000434' 


032760 


010000 000014 


(9) 


000442 ' 


001405 




(6) 


0C0444' 






692 








693 


000444' 






(3) 


0C0444' 


01 0546 




(4) 


000446' 


01 0045 




(3) 


000450 ' 


0C4767 


OOOOOOG 


(3) 


000454' 


012605 




694 








695 


000456' 






(4) 


000456' 






696 








697 


000456' 




E 


(4) 


000456' 


000427 




(3) 


000460' 






6S8 








6S9 








700 








701 


000460' 






(2) 


000460' 


000005 




702 


000462' 






(3) 


000462' 


01 0545 
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INLINE <1$:> 

IF #KTXTND SETIN DT.CFO(RO) THEN 

CALL MSGDHCOK IN <R0 , #MSGPOP , #!<T . MG2 , #2$> 



SEQ 0141 



BR 4$ 



1$: 



INLINE <6$: 
INLINE <BR 

INLINE <2$:> 



NOP> 
6$> 



BIT 


#KTXTND,DT.CF0(R 


BEO 


50004$ 


MOV 


R5,-(SP) 


MOV 


#2$,-(R5) 


MOV 


#KT .MG2,-(R5) 


MOV 


#MSGP0P,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, MSGDHOOK 


MOV 


(SP)+,R5 


6$: 


NOP 


BR 


6$ 



2$ 



ENDIF 



50004$: 



DO ERROR LOGGING IF NECESSARY 



IF #PDP60 SETIN DT.CFO(RO) OR #PDP70 SETIN DT.CFO(RO) THEN 

BIT 
BNE 
BIT 
BEQ 
50005$: 



CALL ERRLQG IN <R0> 



ENDIF 



ELSE 



50006$: 



50002$: 



RESET AND RESTORE, LOWER PRIORITY 
INLINE <RESET> 
CALL RSTRCY IN <R0> 



MOV 
MOV 
JSR 
MOV 



BR 



RESET 
IViOV 



#PDP60,DT.CF0(R0 
50005$ 

#PDP70,DT.CF0(R0 
50006$ 



R5,-(SP) 
RO,- (R5) 
PC.ERRLOG 
(SP)+,R5 



50007$ 



R5,-(SP) 
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SEQ 0142 



(4) 


000464 


01 0045 




(3) 


000466 


004767 


000000G 


(3) 


000472 


01 2605 




703 








704 








705 


000474 






(4) 


000474 


005046 




706 


000476 






(4) 


000476 


012746 


000504' 


707 


000502 






(2) 


000502 


000002 




708 








709 


000504 






(2) 


000504 






710 








71 1 








712 








713 








714 








715 


000504 






(3) 


000504 


01 0546 




(7) 


000506 


01 2745 


000536' 


(6) 


000512 


01 2745 


000000 ' 


(5) 


000516 


01 2745 


000002 


(4) 


000522 


01 0045 




(3) 


000524 


C04767 


OOOOOOG 


(3) 


000530 


01 2505 




716 


000532 






(2) 


000532 


000240 




717 


000534 






(2) 


000534 


000776 




71 8 








719 


000536 






(2) 


000536 






720 


000536 






(4) 


000536 






721 








722 








723 








724 








725 








726 


000536 






(3) 


000536 


004767 


OOOOOOG 


727 








728 


000542 






(3) 


000542 






(3) 


000542 






(2) 


000542 


000207 




729 








730 




000001 





LET -(SP) := #0 
LET -(SP) := #444$ 
INLINE <RTI> 

INLINE <444$:> 

NO, KT IS NOT ENABLED, SO ENQUEUE THE BAD MESSAGE 
CALL MSGDHOOK IN <R0 , #MSGPQP , #KT . BADKT , #3$> 



MOV 
JSR 
MOV 



CLR 
MOV 
RTI 

444$: 



INLINE <8$: NOP> 
INLINE <BR 8$> 

INLINE <3$:> 



3$: 



ENDIF 



50007$: 



CLEAN UP AND GET OUT 



CALL RESREG 



ENDRTN 



.END 



50000$: 
50001$: 



JSR 



RTS 



R0,-(R5) 

PC.RSTRCY 

(SP)+,R5 



"(SP) 
#444$, -(SP) 



MOV 


R5,-(SP) 


MOV 


#3$,-(R5) 


MOV 


#KT. BADKT, -(R5) 


MOV 


#MSGP0P,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, MSGDHOOK 


MOV 


(SP)+,R5 


8$: 


NOP 


BR 


8$ 



PC, RESREG 



PC 
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ACSR = 000102 

ACTBIT= 004000 

ADDR22= 001000 

ADR = 000006 

APTFER= 000004 

APTPRE= 000200 

ASB = 000106 

ASSEM3= 000010 

ASTAT = 000104 

AUTO = 000010 

AUTOST= 020000 

AW AS = C001 10 

BITO = 000001 

BITOO = 000001 

BIT01 = 000002 

BIT02 = 000004 

BIT03 = 000010 

BIT04 = 000020 

BIT05 = 000040 

3IT06 = 000100 

BIT07 = 000200 

BIT08 = 000400 

BIT09 = 001000 

BIT1 = 000002 

BIT10 = 002000 

BIT1 1 = 004000 

BIT12 = 010000 

8IT13 = 020000 

BIT14 = 040000 

3IT15 = 100000 

3IT2 = 000004 

3IT3 = 000010 

BIT4 = 00C020 

BIT5 = 000040 

BIT6 = 000100 

BIT7 = 000200 

3IT8 = 000400 

BIT9 = 001000 

BKDEF = 000002 

BKMOD = 000020 

3KM0DE= 040000 

3KSLSH= 000134 

B3A16 = ****** G 

CAPRES= 000004 

CASTAT= 000004 

CDERCT= 000146 

CDWDCT= 000144 

CKTIM = 100000 

CLKPRE= 000001 

C0NFIG= 000056 

CQOVF = 000C01 

CR = 000015 

CSRA = 000100 



CSRC = 000102 
CTRLC = 000003 
CTRLO = 000017 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= 000400 
DIAGMC= 000000 
DROPMO= 100000 
DSEVNT= 000014 
DTADR = 000000 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000034 
DT.CFO= 0C0014 
DT.CF1= 000016 
DT.ERR= 000020 
DT.ESI= 000044 
DT.EVN= OCOOOO 
DT.EXS= 000060 
DT.FCH= 000037 
DT.FCN= 000036 
DT.HMX= 000104 
DT.KBE= 000024 
DT.KBP= 000026 
DT.K3R= C00022 
DT.KBU= 000030 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = 000C02 
DT.PFL= 000062 
DT.PSW= 000004 
DT.PTA= 000064 
DT.RCS= 000102 
DT.REL= 000040 
DT.SCT= 000066 
DT.SMX= 000106 
DT.SP = 000006 
DT.SSI= 00CC46 
DT.STO= 000010 
DT.ST1= 000012 
DT.SWR= 000C56 
DT.SYP= 000072 
DT.WBU= 000050 
DT.WHL= 00C054 
DT.WLL= 000052 
DVID1 = 000014 
ECCMEM= 000100 
ECCSTA= 000010 
ENBEOP= 010000 
ENBNUL= 000001 



ENDLST= 000000 
EOPBIT= 000001 
ERRLOG= ****** G 
ERRTYP= 000105 
EVNTBE= 000200 
EVNTHD= 000200 
EVNTKT= 000203 
EVNTPE= 000202 
EVNTRE= 000201 
FATERR= 100000 
HRDCNT= 000044 
HRDPAS= 000050 
ICONT = 000036 
ICOUNT= 000C40 
IDNUM = 000122 
IE = 000100 
INDPAR= 000040 
INHDRP= 040000 
INHEPR= 020000 
INHREL= 001000 
INHRRE= 000400 
INIT = 000030 
INTR = 000120 
IOMOD = 100000 
IOMODP= 102000 
IOMODR= 112000 
IOMODX= 110000 
JACK = 035060 
KIPAR0= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 
KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KTERR 000140RG 
KTERRO= 000040 
KTPRES= 00C4C0 
KTSTAT= 000020 
KTXTND= 040000 
KT.BAD OOOOOOR 
KT.MG1 000031R 
KT.MG2 000104R 
KT.SSO 000064R 



KT.SS1 000120R 
KT.SS2 000074R 
KT.SS3 000130R 
LF = 000012 
LPSTAT= 000001 
MAPSTA= 000200 
MED = 076600 
MEMPAS= 040000 
MODEXH= 00 4000 
MODHOL= 002000 
MCDSEL= 001000 
MSGCKD= 000010 
MSGCKS= 00001 1 
MSGDER= 000005 
MSGDHO= ****** G 
MSGDRP= 000017 
MSGECH= 177777 
MSGEOP= 000013 
MSGHDR= 000C04 
MSGHNG= 000022 
MSGHRD= 000C07 
MSGMAP= 000021 
MSGNUL= 177775 
MSGPOP= 000002 
MSGPRM= 177776 
MSGRES= 00C001 
MSG5FT= 000006 
MSGSKE= 000003 
MSGSMB= 000015 
MSGSMH= 000014 
MSGSMS= 000016 
MSGSTD= 000000 
MSGSYS= 000012 
MSGVEC= 000020 
NBKMOD= 001000 
NCPUOP= 000020 
NOAPTY= 000002 
NULL = 000000 
OWEN = 024020 
PAERR = 000010 
PARPRE= 002000 
PARSTA= 000100 
PASCNT= 000034 
PDPLSI= 020000 
PDP60 = 004000 
PDP70 = 010000 
PRIO = 000000 
PRI1 = 000040 
PRI4 = 000200 
PRI5 = 000240 
PRI6 = 000300 
PRI7 = 000340 
PRO = 000000 



PR4 = 000200 
PR5 = 000240 
PR6 = 000300 
PR7 = 000340 
PS = 177776 
PSW = 177776 
RANNUM= 000054 
R3UFEA= 000130 
R3UFPA= 000126 
RSUFSZ= 000132 
RBUFVA = 000124 
RDSERV= 000101 
RDWHMI= 000022 
RELERR= 000020 
R5LM0D= 020000 
RELTIM= 010000 
RESREG= ****** G 
RES1 = 000055 
RES2 = 000060 
RICHAR= 031060 
RPTDAT= 002000 
RSTRCY= ****** G 
RSTRT = 000112 
RUBOUT= 000177 
RUNfvlOD= 100000 
R5VALU= 001740 
SAM = 075464 
SAVREG= ****** G 
S3ADR = 000102 
SBKMOD= 000000 
SBKSEL= 010000 
SC.ADR= 000006 
SC.ALC= 000014 
SC.APC- 000016 
SC.CKL= 000002 
SC.CKP= 000004 
SC.CLO= 000000 
SC.HLD= 000010 
SC.SCA= 000012 
SENDLS= 177777 
SOFCNT= 000042 
SOFPAS= 000046 
SPACE = 000040 
SPCINT= 000032 
SPVALU= 002200 
SRC = 177572 
SR1 = 177574 
SR2 = 177576 
SR3 = 172516 
STAT = 000026 
STATBI= 064757 
STAT1 = 000027 
SUSPND= 000001 
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SEQ 0144 



SVRO = 


000052 




SVR1 


000064 




SVR2 = 


000066 




SVR3 = 


000070 




SVR4 = 


000072 




SVR5 = 


000074 




SVRS = 


000076 




SYSCNF= 


000052 




SYSERR= 


0001 00 




TMPIO = 


000002 




TQOVF = 


000002 




UIPARO= 


177640 




U I PARI = 


177642 




UIPAR2= 


1 77644 




UIPAR3= 


177646 




UIPAR4= 


177650 




UIPAR5= 


177652 




UIPARS= 


177654 




UIPAR7= 


177656 




UIPDRO= 


177600 




UIPDR1= 


1 77602 




. ABS. 


000000 


000 




000544 


001 



UIPDR2= 177604 
UIPDR3= 177606 
UIPDR4= 177610 
UIPDR5= 177612 
UIPDR6= 177614 
UIPDR7= 177616 
WASADR= 000104 
W3STAT= 000040 
W8UFEA= 000136 
WBUFPA= 000134 
WBUFRQ= 000140 
WBUFSZ= 0C0142 
WDFR = 000116 
WDTO = 000114 
WTINRE= 000352 
WTWHMI= 000222 
XFLAG = 0C0C05 
XOFF = 0CC023 
XON = 000021 
SBGNLE= 177777 
$ERFLG= 000400 



$F$AND= 000310 
$F$SAD= 000401 
$F$BLA= 000170 
$F$CAS= 000150 
$F$DEC= 000220 
SF$DO = 000340 
$F$FAL= 000405 
$F$GOO= 000400 
$F$IF = 0001 10 
$F$JNC= 000210 
$F$LOO= 000200 
$F$NAM= 00C160 
$F$NO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 0004C4 
$F$UNT= 000130 
$F$WHI= 000120 



$F$YES= 000402 
$IFLEV= 177777 
SISKO = 000001 
$ISK1 = 000001 
$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000001 
$NESTL= 177777 
$NSKO = 000300 
SNSK1 = 000110 
$NSK2 = 000110 
$SAVLE= 177777 
$TAGLE= 177777 
$TAGNU= 050010 
$TEMP = 000300 
$TSKO = 050007 
$TSK1 = 050005 
$$ARGC= 000002 
$$BYTE= 000403 
$$CASE= 000000 
$$DST = 000000 



$$ELOC= 000402 

$$ERFL= 000000 

$$FLA3= 000001 

$$FROM= 000000 

$$LOC = 000442R 

$$LOCN= 000000 

$$REG = 177777 

$$RETU= 000000 

$$RT.M1= 050000 

$$R~N2= 050001 

$$SRC = 000000 

$$TGSV= 000000 

$$TGS1= 000000 

$$TGS2= 000000 

$$T0 = 000000 

$$$TAG= 050000 

= 000544R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSK2:KT ERR t DSK2:KTERR=SPMAC/ML, EQUATE, KTERR 
RUN-TIME: 14 4 .4 SECONDS 
RUN-TIME RATIO: 36/19=1.8 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-73 1 7 : 33 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0145 

3 COMMON EQUATE MODULE 
553 COMMON DEFINITIONS AND REFERENCES 

559 OOOOOO 1 .PRINT ;SPMAC: VERSION 1.1 

580 KTSET ROUTINE 
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SEQ 0146 



508 
509 
510 
51 1 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 



.TITLE KTSET MAP MEMORY MANAGEMENT REGISTERS 
.IDENT /VO.O/ 

MODULE NAME: 
KTSET 

FUNCTIONAL DESCRIPTION: 

ROUTINE WILL SET UP THE PDRS (USER AND KERNEL) TO THE FOLLOWING: 

READ/WRITE PROTECTION (NO SYSTEM TRAP/ABORT ACTION), 

UPWARD PAGE ADDRESSING, 

MAXIMUM BLOCK COUNT (4K). 
THE PARS WILL BE SET UP WITH PARO SET TO BANKO, PAR1-PAR5 SET UP TO 
DEFINED OFFSET, AND PAR7 TO THE I/O PAGE. 

INPUTS: 

DTABLE ADDRESS 

IMPLICIT INPUTS: 

DT.ADDR - CURRENT BASE OFFSET 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
NONE 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL KTSET IN <A> 

A - ADDRESS OF DTABLE 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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555 
556 
557 
558 
559 
(1) 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 



000000' 
000000' 



000001 
000001 



SEQ 0147 



.SBTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

SLSTIN = 1 

SLSTTAG = 1 

; REFERENCED BY OTHER MODULES 



077406 



.GLOBL KTSET 

; GLOBAL REFERENCES 

.GLOBL SAVREG 
.GLOBL RESREG 

; LOCAL EQUATES 
KS.PDR = 77406 



.-MODULE ENTRY POINT 



;SAVE REGISTERS 
JRESTORE REGISTERS 



;PDR VALUE 



KTSET 


MAP MEMO 


RY MANAC 


EI.1ENT RE 


KTSET. MAC 28 


-JUL-73 


09:08 


579 








580 








581 








582 


000000' 






(2) 


cooooo' 






583 








584 








585 








536 








587 








588 








589 








590 


C00000 ' 






(3) 


000000' 


004767 


OOOOOOG 


591 


000004' 






(4) 


C00004' 


01 6500 


000000 


592 


000010' 






(4) 


000010' 


01 2702 


077406 


593 








594 








595 








596 








597 








598 


000014' 






(4) 


000014 ' 


012703 


177600 


599 


000020' 






(3) 


000020' 


004767 


000016 


60C 








501 








602 








603 








604 








605 


000024' 






(4) 


000024' 


01 2703 


172300 


605 


000030' 






(3) 


000030' 


004767 


000006 


607 








608 








609 








610 








61 1 


00C034' 






(3) 


000034 ' 


004767 


OOOOOOG 


612 


000040 ' 






(3) 


000040 ' 






(3) 


000040' 






(2) 


000040 ' 


000207 




513 








614 


000042' 






(2) 


000042' 






615 








616 








617 








618 








619 








620 


000042' 






(4) 


000042' 


010304 
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.SBTTL KTSET ROUTINE 
ROUTINE KTSET <DTABLE> 



SAVE REGISTERS, RETRIEVE ADDRESS OF DTABLE 
INITIALIZE POINTER TO BANKO , SETUP R2 TO 77406 VALUE 



CALL SAVREG 

LET RO := DTABLE(R5) 

LET R2 := #KS.PDR 

CALL KTSETO, PASS ADDRESS OF UIPDRO 

LET R3 := #UIPDRO 
CALL KTSETO 

CALL KTSETO, PASS ADDRESS OF KIPDRO 

LET R3 := tfKIPDRO 
CALL KTSETO 

RESTORE REGISTERS AND RETURN 
CALL RESREG 
ENDRTN 

ROUTINE KTSETO 



SEQ 0148 



KTSET; 



JSR 
MOV 
MOV 



MOV 
JSR 



50000$: 
50001$: 



KTSETO: 



MOV 
JSR 



JSR 



RTS 



LOAD APRO BY MAPPING TO BANKO, SET UP R4 TO POINT TO APR7 



LET R4 := R3 + #16 



PC, SAVREG 
DTABLE(R5) , RO 
#KS.PDR,R2 



#UIPDR0,R3 
PC, KTSETO 



#KIPDR0,R3 
PC, KTSETO 



PC, RESREG 



PC 



MOV 



R3.R4 
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(6) 
621 
(4) 
622 
623 
524 
625 
626 
627 
(4) 
628 
(2) 
629 
630 
531 
632 
533 
634 
(4) 
535 
(4) 
(6) 
(9) 
636 
(4) 
637 
(4) 
638 
(2) 
639 
(6) 
640 
(4) 
(3) 
641 
642 
543 
644 
645 
646 
(4) 
647 
(4) 
646 
649 
650 
651 
652 
653 
(3) 
(3) 
(2) 
654 
655 



000044' 062704 000016 

00C050 1 

000050' 010213 



000052' 

000052' 005063 000040 

000056' 

000056' 005723 



C00060' 
000060 ' 
000064' 
000064' 
000064' 
C00066' 
000070 ' 
000070' 
000072' 
000C72 1 
000076' 
000076' 
000100' 
000100' 
000104' 
000104' 
000106' 



016001 000042 



020304 
001407 



01 0213 



010163 000040 



005723 



062701 000200 



000767 



0001 06' 

0001C5' 010213 
0001 10' 
000110' 012763 



0001 16' 
0001 16' 
0001 16' 
0001 16' 



177600 000040 



000207 



000001 



MACY11 30A(1052) 20-SEP-78 17:33 PAGE 19-3 
KTSET ROUTINE 



LET (R3) := R2 

.DAD PARO TO MAP TO BANK 

LET 40(R3) := #0 
INLINE <TST (R3)+> 

LOAD DT.ADDR INTO R1 AND LOAD APRO - APR6 

LET R1 .= DT.ADDR(RO) 
WHILE R3 NE R4 DO 

LET (R3) := R2 
LET 40(R3) := R1 
INLINE <TST (R3)+> 
LET R1 := R1 + #200 
ENDDO 

r 

NOW LOAD APR7 

LET (R3) := R2 

LET 40(R3) := #177600 

RETURN 
ENDRTN 

.END 



SEQ 0149 



ADD #16, R4 
MOV R2,(R3) 



CLR 40(R3) 
TST (R3)+ 



MOV 



DT. ADDR(RO) ,R1 



50002$: 


CMP 
BEQ 


R3.R4 
50003$ 




MOV 


R2, (R3) 




MOV 


R1 ,40(R3) 




TST 


(R3) + 




ADD 


#200, R1 




BR 


50002$ 



50003$: 



MOV R2,(R3) 

MOV #177600, 40(R3) 



50000$: 
50001$: 



RTS 



PC 
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SEQ 0150 



ACSR = 000102 
ACTBIT= 004000 
ADDR22= 001000 
ADR = 000006 
APTFER= 000004 
APT?RE= 000200 
ASB = 000106 
ASSEM3= 000010 
ASTAT = 000104 
AUTO = 000010 
AUTOST= 020000 
AWAS = 0001 10 
BITO = 000001 
BITOO = 000001 
BIT01 = 000002 
BIT02 = 000004 
BIT03 = C00010 
BIT04 = 000020 
BIT05 = 000040 
BIT06 = 000100 
BIT07 = 000200 
BITOB = 000400 
BIT09 = 001000 
BIT1 = 000002 
BIT10 = 002000 
BIT 1 1 = 004000 
BIT12 = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT15 = 100000 
3IT2 = 000004 
3IT3 = 000010 
BIT4 = 000020 
BIT5 = 00C040 
BIT6 = 000100 
3IT7 = 000200 
BIT8 = 000400 
BIT9 = 001000 
BKDEF = 000002 
BK!V,OD = 000020 
BKMODE= 040000 
BK5LSH= 000134 
CAPRES= 000004 
CASTAT= 000004 
CDERCT= 000146 
CDWDCT= 000144 
CKTIM = 100000 
CLKPRE= 000001 
CONFIG= 000056 
COOVF = 000001 
CR = 000015 
CSRA = 000100 
CSRC = 000102 



CTRLC = 000003 
CTRLO = 000017 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= 0C0400 
DIAGMC= COOOOO 
DROPMO= 100000 
DSEVNT= 000014 
DTABLE= 000000 
DT.ADD= C00042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000034 
DT.CFO= 00C014 
DT.CF1= 000016 
DT.ERR= 000020 
DT.ESI= 000044 
DT.EVN= 000000 
DT.EXS= 000060 
DT.FCH= C00C37 
DT.FCN= 000036 
DT.HMX= 000104 
DT.KBE= 000024 
DT.K3P= 000026 
DT.KBR= 000022 
DT.KBU= 00C030 
DT.MLS= 000032 
DT.MTI= 0001 10 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = 000002 
DT.PFL= 000062 
DT.PSW= 000004 
DT.PTA= 000064 
DT.RCS= 000102 
DT.REL= 000040 
DT.SCT= 000066 
DT.SMX= 000106 
DT.SP = 000006 
DT.SSI= 000046 
DT.ST0= 000010 
DT.ST1= 000012 
DT.SWR= 000056 
DT.SYP= 000072 
DT.WBU= 000050 
DT.WHL= 000054 
DT.WLL= 000052 
DVID1 = 000014 
ECCMEM= 000100 
ECCSTA= 000010 
ENBEOP= 010000 
ENBNUL= 000001 
ENDLST= 000000 



EOPBIT= 000001 
ERRTYP= 000106 
EVNTBE= 000200 
EVNTHD= 000200 
EVNTKT= 000203 
EVNTPE= 000202 
EVNTRE= 00C201 
FATERR= 100000 
HRDCNT= 000044 
HRDPAS= 000050 
ICONT = 000036 
ICOUNT= 000040 
IDNUM = 000122 
IE = 000100 
INDPAR= 0C0040 
INHDRP= 040000 
INHEPR= 020000 
INHREL= 001000 
INHRRE= 000400 
INIT = 000030 
INTR = 000120 
IOMOD = 1000C0 
IOMODP= 102000 
IOMODR= 112000 
IGMODX= 110000 
JACK = 035060 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172355 
KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172305 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KS.PDR= 0774C6 
KTERRO= 000040 
KTPRES= 000400 
KTSET OOOOOORG 
KTSETO 000042R 
KTSTAT= 000020 
KTXTND= 040000 
LF = 000012 
LPSTAT= 000001 
MAPSTA= 000200 
MED = 076600 



MEMPAS= 040000 
MODEXH= 004C00 
MODHOL= 002000 
M0D5EL= 001000 
MSGCKD= 000010 
MSGCKS= 000011 
MSGDER= 000005 
MSGDRP= 000017 
MSGECH= 177777 
MSGE0P= 000013 
MSGHDR= 000004 
MSGHNG= 000022 
MSGHRD= 000007 
MSGMAP= 000021 
MSGNUL= 177775 
MSGPOP= 000002 
MSGPRM= 177776 
MSGRES= 000001 
MSGSFT= 000006 
MSGSKE= 000003 
MSGSMB= 000015 
MSGSMH= 000014 
MSGSMS= 000016 
MSGSTD= 000000 
MSGSYS= 000012 
MSGVEC= 000020 
NBKMOD= 001000 
NCPUOP= 000020 
NOAPTY= 000002 
NULL = 000000 
OWEN = 024020 
PAERR = 000010 
PARPRE= 002000 
PARSTA= 000100 
PASCNT= 000034 
PDPLSI= 020000 
PDP60 = 004000 
PDP70 = 010000 
PRIO = 000000 
PRI1 = 000040 
PRI4 = 000200 
PRI5 = 000240 
PRI6 = 000300 
PRI7 = 000340 
PRO = 000000 
PR4 = 000200 
PR5 = 000240 
PR6 = 000300 
PR7 = 000340 
PS = 177776 
PSW = 177776 
RANNUM= 000054 
RBUFEA= 000130 



RBUFPA= 000126 
R3UFSZ= 000132 
RBUFVA= 000124 
RD5ERV= 000101 
RDWHMI= 000022 
RELERR= 000020 
RELMOD= 020000 
RELTIM= 010000 
RESREG= ****** G 
RES1 = 000056 
RES2 = 000060 
RICHAR= 031060 
RPTOAT= 002000 
RSTRT = 000112 
RUBCUT= 000177 
RUNMOD= 100000 
R5VALU= 001740 
SAM = 075464 
SAVREG= ****** G. 
SBADR = 000102 
S3KM0D= 000000 
SBKSEL= 010000 
SC.ADR= 000006 
SC.ALC= 000014 
SC.APC= 000015 
SC.CKL= 000002 
SC.CKP= 000004 
SC.CLO= OOOCOO 
SC.HLD= 000010 
SC.SCA= 000012 
SENDLS= 177777 
SGFCNT= 000042 
SOFPAS= 000046 
SPACE = 000040 
SPOINT= 000032 
SPVALU= 002200 
SRO = 177572 
SR1 = 177574 
SR2 = 177576 
SR3 = 172516 
STAT = 000026 
STATBI= 064757 
STAT1 = 000027 
SUSFND= 000001 
SVRO = 000062 
SVR1 - 000064 
SVR2 = 000C66 
SVR3 = 000070 
SVR4 = 000072 
SVR5 = 000074 
SVR6 = 000076 
SYSCNT= 000052 
SYSERR= 000100 
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SEQ 0151 



TMPIO = 


000002 




TOOVF = 


000002 




UIPARO= 


1 7 7 640 




UIPAR1 = 


177642 




UIPAR2= 


177644 




UIPAR3= 


1 77646 




UIPAR4= 


1 77650 




UIPAR5= 


1 77652 




UIPAR6= 


177654 




UIPAR7= 


177655 




UIPDR0= 


177600 




UIPDR1 = 


177602 




UIPDR2= 


177604 




UIPDR3= 


177606 




UIPDR4= 


177610 




UIPDR5= 


177612 




UIPDR6= 


177614 




UIPDR7= 


177616 




. ABS. 


000000 


000 




000120 


001 



WASADR= 000104 
WBSTAT= 000040 
WBUFEA= 000126 
WBUFPA= 00C134 
WBUFRQ= 000140 
WBUFSZ= 000142 
WDFR = 000116 
WDTO = 000114 
WTINRE= 000352 
WTWHMI= C00222 
XFLAG = 000005 
XOFF = 000023 
XON = 000021 
$BGNLE= 177777 
$ERFLG= 000400 
$F$AND= 000310 
$F$BAD= 000401 
$F$BLA= 000170 



$F$CAS= 000150 
$F$DEC= 000220 
$F$DO = 000340 
$F$FAL= 000405 
$F$GOO= 000400 
$F$IF = 000110 
$F$INC= 000210 
$F$LDO= 000200 
$F$NAM= 000160 
$F$NO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 
$FSSEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 



$F$YES= 000402 
$IFLEV= 177777 
$LOCTA= 177777 
$LSTIN= 000C01 
$LSTTA= 000001 
$NESTL= 177777 
$NSKO = 000300 
$NSK1 = 000120 
$SAVLE= 177777 
SSSKO = 050003 
$TAGLE= 177777 
$TAGNU= 050004 
$TEMP = 000300 
STSKO = 050002 
$TSK1 = 050003 
$$ARGC= OOOCOO 
$$BYTE= 000403 
$$CASE= 000000 



$$DST = 000000 
$$ELOC= 000000 
$$ERFL= 000000 
$$FLAG= 000340 
$$FRQM= 000000 
$$LOC = 000066R 
$$LGCN= 000000 
SSREG = 177777 
$SRETU= 000000 
$$RTN1= 050000 
$$RTN2= 050001 
$SSRC = 000000 
$STGSV= 000000 
$$TGS1= 000000 
$$TGS2= 000000 
$$TC = 000000 
$$$TAG= 050000 
= 000120R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZiKTSET. DSKZrKTS ET=SPMAC/ML, EQUATE, KTSET 
RUM-TIME: 12 2 .3 SECONDS 
RUN-TIME RATIO: 29/15=1.9 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30AO052) 20-SEP-78 17:33 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0152 

3 COMMON EQUATE MODULE 

565 COMMON DEFINITIONS AND REFERENCES FOR PARERR 

563 000000' .PRINT ;SPMAC: VERSION 1.1 

621 PARERR ROUTINE 
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508 
509 
510 
51 1 
512 
513 
514 
515 
516 
517 
513 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
53S 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
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COMMON EQUATE MODULE 

.TITLE PARERR PROCESS PARITY ERROR TRAPS 
.IDENT /V0.0/ 

++ 
MODULE NAME: 
PARERR 

FUNCTIONAL DESCRIPTION: 

THIS MODULE PROCESSES PARITY ERROR TRAPS. WHEN ENTERED 

IT WILL TEST FOR PARITY ENABLED. IF NOT ENABLED, AN APPRO°RIATE 

MESSAGE IS ENQUEUED. 

A CHECK IS PERFORMED TO DETERMINE WHICH PARITY CSR 

HAS THE ERROR EIT SET. THE CSR AND ITS CONTENTS ARE ENQUEUED 

IN A PARITY MESSAGE(STANDARD) . 

INPUTS: 

ADDRESS OF DATA TABLE 

IMPLICIT INPUTS: 
DT.STO 
DT.CFO 
DT.PTA 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 

ENQTQ - QUEUE A MESSAGE 

B0A16 - BINARY TO OCTAL ASCII CONVERSION ROUTINE 

KTSET - SETUP KT REGISTERS 

SAVREG 

RESREG 

MSGDHOOK 

ERRLOG 

RSTRCY 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL PARERR IN <DTADR> 

WHERE DTADR = ADDRESS OF DATA TABLE 

VERSION: 
0.0 



SEQ 0153 



EDIT 



DATE 



BY 



REASON 



599 
600 



601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 



000000 ' 
000000' 



00 0001 
000001 
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565 
566 
567 
568 
(1 ) 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
585 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 



oooooo 1 

000006 ' 
000014 ' 
000022' 
000030 ' 
000034 ' 
000035' 
000042' 
000050' 
000056' 
000064' 
000066' 
000074' 

000076' 
000100' 



025045 
040522 
052522 
020056 
C25052 
000 
040 
020040 
042524 
000006 
020040 
000006 
000045 

OOOOOO 
000010 



170370 
170372 



025052 
020120 
053040 
030461 
022452 

051503 
041440 
0521 16 



052040 
0441 24 
041505 
020064 



020122 
0471 17 
022523 
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.SBTTL COMMON DEFINITIONS AND REFERENCES FOR PARERR 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 
$LSTTAG=1 



REFERENCED BY OTHER MODULES: 



SEQ 0154 



GLOBL PARERR 
GLOBL PA.CNT 

GLOBAL REFERENCES: 



GLOB 
GLOB 
GLOB 
GLOB 
GLOB 
GLOB 
GL03 
GLOB 



MSGDHOOK 

RSTRCY 

ERRLOG 

CCNTRL 

SAVREG 

RESREG 

B0A16 

KTSET 



; MODULE ENTRY POINT 
.-NUMBER OF PARITY ERRORS 



ENQUEUE A MESSAGE 

RESET RECOVERY ROUTINE 

1160, 1170 ERROR LOGGING 

CACHE CONTROL REGISTER 

SAVE REGISTERS 

RESTORE REGISTERS 

BINARY TO OCTAL ASCII CONVERSION ROUTINE 

SETUP KT APRS' 



!*************** 



**************** 



LOCAL STORAGE: 
PA.MSG: .ASCII /%*** TRAP THRU VEC. 114 ***%/ 



PA.SP: .BYTE 

PA.CSR: 
PA. CSC: 



ASCII / CSR 



BLKB 6 

.ASCII / / 

BLKB 6 

.ASCIZ /%/ 



CONTENTS%/ 



PA.CNT: .WORD 
PA. MAX: .WORD 10 
.EVEN 

:*************** 

LOCAL EQUATES 

PA.M36 = 170370 
PA.M37 = 170372 



: NUMBER OF PARITY ERRORS 

;MAX NUMBER OF ALLOWABLE PARITY ERRORS 



;MAP REGISTER 36 ADDRESS 

:MAP REGISTER 36 UPPER 6 BITS 
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COMMON DEFINITIONS AND REFERENCES FOR PARERR 



SEQ 0155 



614 
615 
616 
517 
518 
619 



PARITY TABLE - FILLED WITH PARITY CSR ADDRESSES 
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621 
622 
623 
(2) 
624 
625 
526 
627 
528 
623 
(3) 
630 
(4) 
531 
532 
633 
634 
535 
636 
(6) 
637 
633 
639 
640 
641 
642 
643 
(2) 
64^ 
(3) 
(4) 
(3) 
(3) 
645 
(4) 
646 
(4) 
647 
(2) 
64S 
649 
(2) 
650 
651 
652 
653 
654 
655 
(6) 
(8) 
(6) 

(9) 
(6) 
656 
657 
658 



000102 
000102 



000102' 

C00102' 004767 000000G 

C00106 1 

000106' 016500 000000 



0001 12 
0001 12 



000120' 
000120 ' 
0001 22' 
0001 22 ' 
0001 24' 
0C01 26' 
000132' 
0001 34' 
0001 34 ' 
000136' 
000136' 
000142' 
000142' 

000144' 
000144' 



000144' 
000144' 
000152' 
0001 54' 
000162' 
000164' 



052760 000010 000020 



000002 



032760 
001 004 
032760 
001552 



OOOOOOG 



000C05 

01 0546 
01 0045 
004767 
01 2605 

005046 



012746 000144' 



000100 000010 



000010 000010 



PARERR: 
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.SBTTL PARERR ROUTINE 

ROUTINE PARERR <DTABLE> 



INITIALIZE AND SAVE DTABLE ADDRESS 

CALL SAVREG 

LET RO := DTABLE(R5) 

SET ERROR BIT IN DTABLE'S ERROR WORD 
LET DT.ERR(RO) := DT.ERR(RO) SET . BY tfPAERR 



RESET, RECOVER FROM RESET, AND LOWER PRIORITY 
INLINE <RESET> 
CALL RSTRCY IN <R0> 

LET -(SP) := #0 
LET -(SP) := #443$ 
INLINE <RTI> 

INLINE <443$:> 

IS PARITY OR ECC ENABLED? 
IF #PARSTAT SETIN DT.STO(RO) OR #ECCSTAT SETIN DT.STO(RO) THEN 

50002$: 



SEQ 0156 



JSR 
MOV 



BIS 



RESET 

MOV 
MOV 
JSR 
MOV 

CLR 

MOV 

RTI 

443$: 



BIT 
BNE 
BIT 
BEQ 



PC, SAVREG 
DTABLE(R5) , RO 



#PAERR,DT.ERR(RO 



R5,-(SP) 
R0,-(R5) 
PC, RSTRCY 
(SP)+,R5 

-(SP) 

#443$, -(SP) 



#PARSTAT,DT.STO( 
50002$ 

#ECCSTAT,DT.STO( 
50003$ 
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SEQ C157 



659 








660 








661 








662 








663 








664 


000164 






(6) 


000164 


032760 


010000 000014 


(8) 


0001 72 


001004 




(6) 


0001 74 


032760 


004000 000014 


(9) 


000202 


0014C5 




(6) 


000204 






565 


C00204 






(3) 


000204 


01 0546 




(4) 


C00206 


01 0045 




(3) 


000210 


004767 


OOOOOOG 


(3) 


000214 


012605 




566 


000216 






(4) 


000216 






667 








668 








669 








670 








571 








672 


000216 






(4) 


000216 


01 6001 


000064 


673 








674 








675 








676 








677 








67S 


000222 






(6) 


000222 


032760 


000040 000014 


O) 


000230 


001443 




679 


000232 






(4) 


000232 


01 7746 


OOOOOOG 


680 


000236 






(4) 


000236 


01 3746 


177572 


681 


000242 






(4) 


000242 


01 3746 


172516 


682 


000246 






(4) 


000246 


01 3746 


170370 


683 


000252 






(4) 


000252 


013746 


170372 


684 


000256 






(4) 


000256 


C13746 


172354 


685 








686 








687 








638 








689 








69C 


000262 






(6) 


0262 


052777 


000014 OOOOOOG 


691 


000270 






(3) 


000270 


01 0546 




(4) 


000272 


01 0045 




(3) 


00C274 


004757 


OOOOOOG 



IF 11/60 OR 11/70, CALL ERRLOG 



IF #PDP70 SETIN DT.CFO(RO) OR #PDP60 SETIN DT.CFO(RO) THEN 



CALL ERRLOG IN <R0> 



ENDIF 





EIT 


#PDP70,DT 


CF0(R0 




BNE 


50004$ 






BIT 


#PDP60,DT 


CF0(R0 




BEQ 


50005$ 




50004$: 










MOV 


R5,-(SP) 






MOV 


R0,-(R5) 






J5R 


PC, ERRLOG 






MOV 


(SP)+,R5 




50005$: 









GET PTABLE ADDRESS 



LET R1 := DT.PTA(RO) 



MOV 



DT.PTA(RO) ,R1 



IF INDIRECT CSRS THEN SAVE APPROPRIATE REGISTERS (CACHE, KT AND MAP) 



IF #INDPAR SETIN DT.CFO(RO) THEN 



LET -(SP) 

LET -(SP) 

LET -(SP) 

LET -(SP) 

LET -(SP) 

LET -(SP) 



= @CCNTRL 

= @#SRO 

= <MSR3 

= @#PA.M36 

= @ffPA.M37 

= @#KIPAR6 



BIT 

BEQ 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



#INDPAR,DT.CFO(R 
50006$ 

@CCNTRL,-(SP) 

@#SRO,-(SP) 

@#SR3,~(SP) 

@#PA.M36,-(SP) 

@#PA.M37,-(SP) 

@#KIPAR6,-(SP) 



NOW SETUP APPROPRIATE REGISTERS TO GO AFTER INDIRECT CSRS 

LET @CCNTRL : = @CCNTRL SET. BY #14 
CALL KTSET IN <R0> 



BIS 



#14.@CCNTRL 



MOV 


R5 


-(SP) 


MOV 


RO 


~(R5) 


JSR 


PC 


KTSET 
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(3) 


000300 


01 2605 






692 


000302 








(4) 


000302 


012737 


177400 


172354 


693 


000310 








(4) 


000310 


012737 


160000 


170370 


694 


000316 








(4) 


000316 


C12737 


000077 


170372 


695 


000324 








(6) 


000324 


052737 


000001 


177572 


696 


000332 








(6) 


000332 


052737 


000060 


172516 


697 


000340 








(4) 


000340 








693 










699 










700 










701 










702 










703 










704 


00C340 








(4) 


000340 








(6) 


000340 


00571 1 






(9) 


000342 


001462 






705 


000344 








(6) 


000344 


032771 


100000 


000000 


(8) 


000352 


001004 






(6) 


000354 


032771 


000020 


000000 


(9) 


000362 


C01451 






(6) 


000364 








706 


000364 








(4) 


000364 


01 21C3 






707 


00036S 








(3) 


000366 


01 0546 






(5) 


000370 


01 2745 


000056' 




(4) 


000374 


01 0345 






(3) 


000376 


004767 


0OO000G 




(3) 


000402 


01 2605 






708 


000404 








(3) 


000404 


01 0546 






(5) 


0004C6 


01 2745 


000066' 




(4) 


0004 12 


01 1345 






(3) 


000414 


004767 


OOOOOOG 




(3) 


000420 


01 2605 






709 


000422 








(4) 


000422 


1 1 2767 


000040 


177404 


710 


000430 








(3) 


000430 


01 C546 






(7) 


000432 


01 2745 


000462 ' 




(6) 


000436 


01 2745 


000000 ' 




(5) 


000442 


01 2745 


000002 




(4) 


000445 


01 0045 






(3) 


000450 


004767 


OOOOOOG 




(3) 


04 54 


012605 






71 1 


000456 








(2) 


000456 


000240 






712 


000460 









LET @#KIPAR6 

LET @#PA.M36 

LET @£PA.M37 

LET @#SRO := 

LET @#SR3 := 



= #177400 

= #160000 

= #77 

#SRO SET. BY #BIT00 

#SR3 SET. BY #60 



ENDIF 







SEQ 0153 




MOV 


(SP)+,R5 




MOV 


#177400, @#KIPAR6 




MOV 


#160000, @#PA.M36 




MOV 


#77,(P#PA.M37 




BIS 


#BIT00,<a#SR0 




BIS 


#60,@#SR3 


50006$: 







SEARCH PARITY TABLE UNTIL ERROR IS FOUND AND O./P MESSAGE, 



WHILE (R1 ) NE #0 DO 



IF #BIT15 SETIN @(R1) OR #BIT04 SETIN @(R1) THEN 



LET R3 := (R1 ) + 

CALL B0A16 IN <R3,#PA.CSR> 



CALL B0A16 IN < ( R3 ) , #PA . CSO 



LET PA.SP :B= #SPACE 

MOVB 

CALL MSGDHOOK IN <R0 , #MSGPOP f #PA . MSG , #20$> 

MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 

INLINE <60$: NOP> 

60$: 

INLINE <BR 60$> 



50007$: 




TST 


(R1 ) 


BEQ 


50010$ 


R1) THEN 




BIT 


#BIT15,@(R1 ) 


BNE 


5001 1$ 


BIT 


#BIT04,@(R1 ) 


BEQ 


50012$ 


5001 1$: 




MOV 


(R1 )+,R3 


MOV 


R5,-(SP) 


MOV 


#PA.CSR,-(R5) 


MOV 


R3,-(R5) 


JSR 


PCB0A16 


MOV 


(SP)+,R5 


MOV 


R5,-(SP) 


MOV 


#PA.CSC,-(R5) 


MOV 


(R3),-(R5) 


JSR 


PC, B0A16 


MOV 


(SP)+,R5 



#SPACE, PA.SP 

R5,-(SP) 

#20$, ~(R5) 

#PA.MSG,-(R5) 

#MSGP0P,-(R5) 

R0,-(R5) 

PC, MSGDHOOK 

(SP)+,R5 

NOP 
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(2) 


000460' 


000776 




713 


000462 ' 






12) 


000462' 






714 


000462 ' 






(6) 


000462' 


005267 


177410 


715 


000466' 






(6) 


000465 ' 


026767 


177404 177404 


(9) 


004 74 ' 


002403 




716 


000476 ' 






(6) 


000476' 


052760 


100000 000020 


717 


000504' 






(4) 


000504' 






718 


000504' 






(2) 


000504' 


000424 




719 








720 


C00506' 






(4) 


000506' 






721 


000506' 






(4) 


000506' 


000714 




(3) 


000510' 






722 


000510 ' 






(4) 


000510' 






723 








724 








725 








726 








727 








723 








729 








730 








731 








732 








733 








734 


000510 ' 






(6) 


000510 ' 


032760 


010000 000014 


(9) 


000516' 


001017 




735 








736 


00C52C ' 






(4) 


000520' 


105067 


177310 


737 


000524 ' 






(3) 


000524 ' 


01 0546 




(7) 


000526' 


01 2745 


000556' 


(6) 


000532' 


01 2745 


000000 ' 


(5) 


000536 ' 


01 2745 


000002 


(4) 


000542' 


01 0045 




(3) 


000544' 


004767 


000000G 


(3) 


000550 ' 


01 2605 




738 


000552 ! 






(2) 


000552 ' 


000240 




739 


000554' 






(2) 


000554' 


000776 




740 


000556' 






(2) 


000556' 






741 








742 


000556' 






(4) 


000556' 
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INLINE <20$:> 

LET PA.CNT := PA.CNT + #1 

IF PA.CNT GE PA. MAX THEN 



SEQ 0159 



BR 


60$ 


20$: 




INC 


PA.CNT 


CMP 


PA.CNT, PA. MAX 


BLT 


50013$ 



LET DT.ERR(RO) : = DT.ERR(RO) SET.3Y #FATERR 

BIS #FATERR,DT.ERR(R 



ENDIF 

INLINE <BR 100$> 



ENDIF 



ENDDO 



ENDIF 



50013$: 

50012$: 

50010$: 
50003$: 



NO PARITY OR ECC ENABLED SO ISSUE ERROR MSG - 
OR NO ERROR WAS FOUND IN THE PARITY CSRS. 
DO NOT PRINT THE MSG IF THIS IS AN 11/70 BECAUSE 
IT DOES NOT HAVE PARITY CSRS. IT MAY OR MAY NOT 
HAVE ECC CSRS IN THE TABLE 



IF #PDP70 NOTSETIN DT.CFO(RO) THEN 

LET PA.SP :B= #0 

CALL MSGDHOOK IN <R0 , tfMSGPOP , #PA . MSG, #9$> 



INLINE <4$: NOP> 
INLINE <BR 4$> 
INLINE <9$:> 



BR 100$ 



BR 



BIT 

BNE 



CLRB 



4$: 

BR 

9$: 



50007$ 



#PDP70,DT.CF0(R0 
50014$ 



PA.SP 



MOV 


R5,-(SP) 


MOV 


#9$,-(R5) 


MCV 


#PA.MSG,-(R5) 


MOV 


#MSGP0P,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, MSGDHOOK 


MOV 


(SP)+,R5 



NOP 



4$ 



ENDIF 



50014$: 
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SEQ 0160 



743 








744 








745 








746 








747 








743 


C00556' 






(2) 


C00556' 






749 


000556' 






(6) 


000556' 


032750 


000040 000014 


(9) 


000564' 


001414 




750 


000566' 






(4) 


000556 ' 


012637 


172354 


751 


000572' 






(4) 


000572 ' 


012637 


170372 


752 


C00576' 






(4) 


000576' 


012637 


170370 


753 


C00602' 






(4) 


000602' 


012637 


172516 


754 


000606 ' 






(4) 


000606' 


01 2637 


177572 


755 


000612 ' 






(4) 


000612' 


01 2677 


OOOOOOG 


756 








757 


000616' 






(4) 


000616' 






759 








759 








760 








761 








762 


000616' 






(3) 


000616' 


004767 


OOOOOOG 


763 








764 








765 


000622' 






(3) 


000622' 






(3) 


000622' 






(2) 


000622' 


000207 




766 




000001 





IF INDIRECT CSRS THEN RESTORE CACHE, KT AND MAP REGISTERS 

INLINE <100$:> 

IF #INDPAR SETIN DT.CFO(RO) THEN 

LET @#KIPAR6 := (SP) + 
LET @APA.M37 := (SP)+ 
LET ®ffPA.M36 := (SP)+ 
LET @#SR3 := (SP)+ 
LET @#SR0 := (SP) + 
LET @CCNTRL := (SP) + 

ENDIF 

+ 
RESTORE REGISTERS AND RETURN 

CALL RESREG 



ENDRTN 



END 



100$: 



BIT 
BEO 


#INDPAR,DT.CFO(R 
50015$ 


MOV 


(SP)+,@#KIPAR6 


MOV 


(SP)+,@#PA.M37 


MOV 


(SP)+,@#PA.M36 


MOV 


(SP)+,@#SR3 


MOV 


(SP)+,@#SR0 


MOV 


(SP)+,@CCNTRL 


50015S: 





50000$: 
50001$: 



J5R 



RTS 



PC, RESREG 



PC 
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SEQ 0161 



ACSR = 000102 

ACT3IT= 004000 

ADDR22= 001000 

ADR = 000006 

APTFER= 000004 

APTPRE= 000200 

ASB = 00C106 

ASSEM3= 000010 

ASTAT = 000104 

AUTO = 000010 

AUTOST= 020000 

AWAS = 0001 10 

BITD = C00001 

BITOO = 000001 

BIT01 = 000002 

BIT02 r 000004 

BIT03 = 000010 

BIT04 = 000020 

BIT05 = 000040 

BITOG = 000100 

BIT07 = 000200 

BIT08 = 000400 

BIT09 = 001000 

BIT1 = 000002 

BIT10 = 002000 

BIT 1 1 = 004000 

BIT12 = 010000 

BIT13 = 020000 

BIT14 = 040000 

BIT15 = 100000 

BIT2 = 000004 

BIT3 = 000010 

BIT4 = 000020 

BIT5 = 000040 

BITS = 000100 

3IT7 = 000200 

BIT8 = 000400 

BIT9 = 001000 

BKCEF = 000C02 

BKMOD = 000020 

BKMODE= 040000 

3KSLSH= 000134 

BOA 16 = ****** G 

CAPRES= 000004 

CASTAT= 000004 

CCNTRL= ****** G 

CDERCT= 000146 

CDKDCT= 000144 

CKTIM = 'iOOCOC 

CLKPRE= 00C001 

CONFIG= 000056 

CQCVF = 000001 

CR = 000015 



CSRA = 000100 
CSRC = 000102 
CTRLC = 000003 
CTRLO = 000017 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= 000400 
DIAGMC= 000000 
DROPMO= 100000 
DSEVNT= 000014 
DTABLE= 000000 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000034 
DT.CFO= 000014 
DT.CF1= 000016 
DT.ERR= 000020 
DT.ESI= 00CC44 
DT.EVN= 000000 
DT.EXS= 000060 
DT.FCH= 000037 
DT.FCN= 000036 
DT.HMX= 0G0104 
DT.KBE= 000024 
DT.KBP= 000026 
DT.KSR= 000022 
DT.KBU= 000030 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= C00070 
DT.PAS= 000074 
DT.PC = 000002 
DT.PFL= 000052 
DT.PSW= 000004 
DT.PTA= CO 54 
DT.RCS= 000102 
DT.REL= 000040 
DT.SCT= 000066 
DT.SMX= 000106 
DT.SP = 000006 
DT.SSI= 000046 
DT.STO= 0C0010 
DT.ST1= 000012 
DT.SWR= 000056 
DT.SYP= 000072 
DT.WBU= 000050 
DT.WHL= 000054 
DT.WLL= 000052 
DVID1 = 000014 
ECCMEM= 000100 
ECCSTA= 000010 
ENBEOP= 010000 



ENBNUL= 000001 
ENDLST= 000000 
EOPBIT= 000001 
ERRLOG= ****** G 
ERRTYP= 000103 
EVNTBE= 000200 
EVNTHD= 000200 
EVNTKT= 000203 
EVNTPE= 000202 
EVNTRE= 00C201 
FATERR= 100000 
HRDCNT= C00044 
HRDPAS= 000050 
ICGNT = 000036 
ICOUNT= 000C40 
IDNUM = 000122 
IE = 000100 
INDPAR= 000040 
INHDRP= 040000 
INHEPR= 020000 
INHREL= 001000 
INHRRE= 000400 
INIT = 000030 
INTR = 000120 
ICMOD = 100000 
IOMODP= 102000 
IOMODR= 112000 
IOWODX= 110000 
JACK = 035060 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172355 
KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 1723C6 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KTERRO= OCC040 
KTPRES= 000400 
KTSET = ****** G 
KTSTAT= 000020 
KTXTND= 040000 
LF = 000012 
LPSTAT= 000001 
MAPSTA= 000200 



MED = 076600 
MEMPAS= 040000 
MODEXH= 004000 
MODHOL= 002000 
MODSEL= 001000 
MSGCKD= 000010 
MSGCKS= 000C11 
MSGDER= 000005 
MSGDHO= ****** G 
MSGDRP= 000017 
MSGECH= 177777 
MSGEOP= 000013 
MSGHDR= 000004 
MSGHNG= 000022 
MSGHRD= 000007 
MSGMAP= 000021 
MSGNUL= 177775 
MSGPOP= 000002 
MSGPRM= 177776 
MSGRES= 000001 
MSGSFT= 000006 
MSGSKE= 000003 
MSGSMB= 000015 
MSGSMH= 000014 
MSGSMS= 000016 
MSGSTD= 000000 
MSGSYS= 000012 
MSGVEC= 000020 
NBKMOD= 001000 
NCPUOP= C00020 
NOAPTY= 000002 
NULL = 000000 
OWEN = 024020 
PAERR = 000010 
PARERR 000102RG 
PARPRE= 002000 
PARSTA= 000100 
PASCNT= 000034 
PA.CNT 000076RG 
PA. CSC 000066R 
PA.CSR 000056R 
PA. MAX 000100R 
PA.MSG OOOOOOR 
PA.M36= 170370 
PA,M37= 170372 
PA.SP 000034R 
PDPLSI= 020000 
PDP60 = 004000 
PDP70 = 010000 
PRIO = 000000 
PRI1 = 000040 
PRI4 = 000200 
PRI5 = 000240 



PRI6 = 000300 

PRI7 = 000340 

PRO = 000000 

PR4 = 000200 

PR5 = 000240 

PR6 = 000300 

PR7 = 000340 

PS = 177776 

PSW = 177776 

RANNUM= 000054 

R3UFEA= 000130 

RBUFPA= 000126 

RBUFSZ= 000132 

R3UFVA= 000124 

RDSERV= 000101 

RDWHMI= 000022 

R£LERR= 000020 

R£LMOD= 020000 

RELTIM= 010000 

RESREG= ****** G 

RES1 = 000055 

RES2 = 000060 

RICHAR= 031060 

R?TDAT= 002000 

RSTRCY= ****** G 

RSTRT = 000112 

RJBOUT= 000177 

RUNMOD= 100000 

R5VALU= 001740 

SAM = 075464 

SAVREG= ****** G 

S3ADR = 000102 

S3KM0D= 000000 

S3KSEL= 010000 

SC.ADR= 000006 

SC.ALC= 000C14 

SC.APC= 000016 

SC.CKL= 000002 

SC.CKP= 000004 

SC.CLO= 000000 

SC.HLD= 000010 

SC.SCA= 000012 

SENDLS= 177777 

SOFCNT= 000042 

SOFPAS= 000046 

SPACE = 000040 

SPOINT= 000032 

SPVALU= 002200 

SRO = 177572 

SR1 = 177574 

SR2 = 177576 

SR3 = 172516 

STAT = 000026 
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SEQ 0162 



STATBI= 


064757 




STAT1 = 


C00027 




SUSPND= 


000001 




SVRO = 


000062 




SVR1 = 


000054 




SVR2 = 


C00066 




SVR3 = 


000070 




SVR4 = 


000072 




SVR5 = 


000074 




SVR3 = 


000076 




SYSCNT= 


000052 




5YSERR= 


0001 00 




TMPIO = 


000002 




TQOVF = 


000002 




UIPARO= 


177640 




UIPAR1 = 


1 77G42 




UIPAR2= 


177644 




UIPAR3= 


1 77646 




UIPAR4= 


177650 




UIPAR5= 


177652 




UIPAR6= 


177654 




UIPAR7= 


177656 




UIPDRO= 


177600 




. ABS. 


000000 


000 




000624 


001 



UIPDR1= 177602 
UIPDR2= 177604 
UIPDR3= 177606 
UIPDR4= 177610 
UIPDR5= 177612 
UIPDR6= 177614 
UIPDR7= 177616 
WASADR= 000104 
WBSTAF= 000040 
WBUFEA= 000136 
W3UFPA= 000134 
WBUFRQ= 000140 
WBUFS2= 000142 
WDFR = 000116 
WDTO = 000114 
WTINRE= 000352 
WTWHMI= 00C222 
XFLAG = 000005 
XOFF = 000023 
XON = 000021 
$BGNLE= 177777 
$ERFLG= 000400 
$F$AND= 000310 



$F$BAD= 000401 
$F$BLA= 000170 
$F$CAS= 000150 
$FSDEC= 000220 
$F$DO = 000340 
$F$FAL= 000405 
$F$GOO= 000400 
$F$IF = 000110 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 000160 
$F$NO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 
$F$SEL= 0C0140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UMT= 000130 
$F$WHI= 000120 
$F$YES= 000402 
$IFLEV= 177777 
$ISKO = 000001 



$ISK1 = 000001 
SISK2 = 000001 
$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000001 
$NESTL= 177777 
SNSKO = 000300 
$NSK1 = 000110 
$NSK2 = 000120 
SNSK3 = 000110 
$NSK4 = 003110 
$SAVLE= 177777 
$SSK0 = 050010 
$TAGLE= 177777 
$TAGNU= 050016 
$TEMP = 000300 
$TSKO = 050015 
$TSK1 = 050007 
$TSK2 = 050G10 
$TSK3 = 050012 
$TSK4 = 050013 
S$ARGC= 000002 
$$BYTE= 000403 



$SCASE= 000000 
$$DST = 000000 
$SELOC= 000402 
$$ERFL= 000000 
$$FLAG= 000001 
$$FRO.Vl= 000000 
$$LGC = 000564R 
$$LOCN= 000000 
SSREG = 177777 
$$RETU= 000000 
$$RTNI1= 050000 
S$RTN2= 050001 
SSSRC = 000000 
$$TGSV= 000000 
$$TGS1= 000000 
$$TGS2= 000000 
S3T0 = 000000 
$$$TAG= 050000 
= 000624R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSK2: PARERR, DSK2: PARERR=SPMAC/ML , EQUATE , PARERR 
RUN-TIME: 17 7 .4 SECONDS 
RUN-TIME RATIO: 41/25=1.6 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:34 

EQUATE. MAC 13-SEP-78 16: 13 TABLE OF CONTENTS SEQ 0163 

3 COMMON EQUATE MODULE 

583 PCDATA (COMMON DEFINITIONS AND REFERENCES) 

566 000000' .PRINT ;SPMAC: VERSION 1.1 

634 PCDATA (CODE) 

1012 T0P16 SUBROUTINE 

1052 T0P12 SUBROUTINE 



RST1CY - RESET RECOVERY MACY11 30A(1052) 20-SEP-78 17:38 
RSTRCY.MAC 08-SEP-78 08:17 SYMBOL TABLE 

$F$DEC= 
$F$DO = 
$F$FAL = 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO = 
$F$NAM= 
$F$NO = 
$F$QR = 
$F$RTI= 
$F$RTN= 
$F$SEL = 
$F$THE = 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 
$IFLEV= 



TABL = 


OCOOOO 




WASADR= 


000104 


TMPIO = 


000002 




WBSTAT= 


000040 


TQOVF = 


000002 




WBUFEA= 


000136 


UIPAR0= 


177640 




WBUFPA= 


000134 


UIPAR1 = 


177642 




WBUFRO= 


000140 


UIPAR2= 


177644 




WBUFSZ= 


000142 


UIPAR3= 


177646 




WDFR 


0001 16 


UIPAR4= 


177650 




WDTO = 


0001 14 


UIP\R5= 


177652 




WTINRE= 


000352 


UIPAR6= 


177654 




WTWHMI= 


000222 


UIPAR7= 


177656 




XFLAG = 


000005 


UIPOR0= 


177600 




XOFF = 


000023 


UIPDR1 = 


177602 




XON 


000021 


UIPDR2= 


177604 




$BGNLE= 


177777 


UIPDR3= 


177606 




$ERFLG= 


000400 


UIPDR4= 


177610 




$F$AND= 


000310 


UIPDR5= 


177612 




$F$BAD= 


000401 


UIPDR6= 


177614 




$F$BLA= 


000170 


UIPDR7= 


177616 




$F$CAS= 


000150 


. A8S. 


000000 
000216 


000 
001 







PAGE 201 



000220 
000340 
000405 
000400 
0001 10 
000210 
000200 
000150 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 



SEO 0243 



$ISKO = 
SISK1 = 
$LOCTA= 
$LSTIN= 
$LSTTA= 
$NESTL= 
$NSKO = 
$NSK1 = 
$NSK2 = 
$SAVLE= 
$TAGLE= 
$TAGNU= 
STEMP = 
$TSKO = 
$TSK1 = 
$$ARGC= 
$$BYTE= 
$$CASE= 
$$DST = 



000001 
000001 
177777 
000001 
000001 
177777 
000300 
000110 
000110 
177777 
17/777 
050012 
000300 
050007 
05001 1 
000002 
000403 
000000 
000000 



$$ELOC= 
$$ERFL= 
$$FLAG= 
$$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG= 



000402 

000000 

000001 

000000 

000172R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000002 

050000 

000216R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ:RSTRCY,DSKZ:RSTRCY=SPMAC/ML f EQUATE .RSTRCY 

RUN-TIME: 14 4 .3 SECONDS 
RUN-TIME RATIO: 37/19=1.8 
CORE USED: 14K (27 PAGES) 



PCDATA (PROCESS CDATA & DATCK TRAP CALLS) MACY1 1 30A(1052) 20-SEP-78 
PCDATA. MAC 31-JUL-78 16:22 COMMON EQUATE MODULE 



17:34 PAGE 19 



SEQ 0164 



508 
509 
510 
51 1 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
525 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
53S 
539 
5 '10 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 



TITLE' PCDATA (PROCESS CDATA & DATCK TRAP CALLS) 
IDENT /VO.O/ 

++ 
MODULE NAME: 
PCDATA 

FUNCTIONAL DESCRIPTION: 

THIS IS A TWO ENTRY MODULE (PCDATA <6 PDATCK BEING ENTRY POINTS). 
THIS MODULE IS CALLED AS A RESULT OF CDATA OR DATCK TRAP CALL 
EXECUTED BY AN OPTION MODULE, TO CHECK A BLOCK OF DATA 
TRANSFERRED BY A DEVICE. 

IF THERE ARE NO ERRORS IN THE BLOCK, CONTROL RETURNS IMME- 
DIATELY TO THE INSTRUCTION FOLLOWING THE TRAP CALL IN THE MODULE. 

IF THERE ARE ERRORS, HOWEVER, AN ERROR MESSAGE IS ENQUEUED (WITH 
TRAP ADDRESS FILLED AS THE MODULE'S RETURN ADDRESS), WORD 
COUNT AND ERROR COUNT ARE SAVED IN THE MODULE HEADER. 

IF 'PRINT ALL DATA ERRORS' SWITCH IS SET, ALL ERRORS ARE 

ENQUEUED, OTHERWISE ONLY THE FIRST THREE ERRORS ARE ENQUEUED AND 

THE REST ARE LOGGED. THE SOFT ERROR COUNT IS INCREMENTED EVERY 

TIME AN ERROR OCCURS AND AT THE END OF THE BLOCK CHECK, A SUMMARY MESSAGE 

IS PRINTED FOR CDATA CALLS. SOFT 

ERROR WORD AND SOFT ERRORS PER PASS WORD ARE INCREMENTED IN THE MODULE'S 

HEADER. 

IF THE TRAP CALL IS DATCK, THE TOTAL NUM3ER OF ERRORS IS PASSED 
TO A LOCATION SPECIFIED IN THE TRAP CaLL. 



INPUTS: 



1 . DTABLE ADDRESS 

IMPLICIT INPUTS: 

1. DT.PC 

2. DT.STO 

3. DT.SWR 

4. DT.EVNT 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

1. DT.STO 

2. DT.PC 

PATHOLOGICAL CONNECTIONS: 

NONE 

SUBORDINATE ROUTINES CALLED: 



1 . ENQTQ 

2. UNIPA 

3. SAVREG 

4. RESREG 



ENQUEUES AN ERROR MESSAGE 
MAP22 ROUTINE 



PCDATA (PROCESS CDATA & DATCK TRAP CALLS) MACY11 30A(1C52) 20-SEP-78 17:34 PAGE 19-1 
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SEQ 0165 



564 
565 
565 
567 
563 
569 
570 
571 
572 
573 
574 
575 
576 
577 
573 
579 
53C 
581 



5. GETPSW 

6. APTSER 

7. DRPMOD 



;GETS PS WORD 

;APT SOFT ERROR ROUTINE 

;DROP A MODULE 



FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL PCDATA IN <AA> 
CALL PDATCK IN <AA> 

WHERE AA 

VERSION: 
0.0 



EDIT 



DATE 



DTABLE ADDRESS 



BY 



REASON 



PCDATA (PROCESS CDATA & DATCK TRAP CALLS) MACY11 3CA(1052> 20-SEP-78 17:34 PAGE 19~2 
PCDATA. MAC 31-JUL-78 16:22 PCDATA (COMMON DEFINITIONS AND REFERENCES) 

.SBTTL PCDATA (COMMON DEFINITIONS AND REFERENCES) 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 

**************** 

REFERENCED BY OTHER MODULES 



SEQ 0166 



583 






584 






585 






586 


000000' 




(1 ) 


000000' 




587 




000001 


583 




000001 


589 






590 






591 






592 






593 






594 






595 






596 






597 






593 






599 






603 






601 






602 






603 






504 






605 






306 






607 






603 






609 






610 






61 1 






612 






613 


000000' 


000000 


614 


000002' 


000000 


615 


000004' 


000000 


616 


000006' 


000000 


617 


000010' 


000000 


61S 


000012' 


ocoooo 


619 


000014' 


ooocoo 


620 


000016' 


000000 


621 


000020' 


000000 


622 


000022' 


000000 


623 






624 


000024' 


000000 


625 


000026' 


000000 


626 


000030 ' 


000000 


62 7 


000032' 


000000 


62S 


000034 ' 


000000 


629 


000036' 


000000 


630 


000040' 


000000 


631 


000042 ' 


000000 


632 







GLOBL. PCDATA 
GLOBL PDATCK 

* * He************** 

GLOBAL REFERENCES 

GLOBL ENQTQ 
GLOBL UNIPA 
GLOBL DRPMOD 
GLOBL SAVREG 
GLOBL RESREG 
GLOBL GETPSW 
GLOBL APTSER 



;MODULE ENTRY POINT 
;MODULE ENTRY POINT 



;ENQUE A MESSAGE ROUTINE 
;MAP22 ROUTINE 
;DROP A MODULE 



;GET PS WORD ROUTINE 



**************** 
LOCAL STORAGE 

NOTE: DO NOT DISTURB THE ORDER OF THE NEXT 10 WORDS AS THEY FORM 
A TABLE. 

REUFPA WORD 

RBUFEA WORD 

RBUF LOWER 16 BITS 

RBUF UPPER 2 BITS/6 BITS 

RBUF TOP 12 BITS/16 BITS 

WBUFPA WORD 

WBUFEA WORD 

W3UF LOWER 16 BITS 

WBUF UPPER 2 BITS/6 BITS 

WBUF TOP 12 BITS/16 BITS 

READ BUFFER SIZE 
PC OF CALL 
TEMP STORAGE 
DATCK FLAG 
USER MODE STACK 



PC 


RPA 







PC 


REA 







PC 


RLO 







PC 


RHI 







PC 


RT? 







PC 


WPA 







PC 


WE A 







PC 


W L 


C 




PC 


wh: 







PC 


WTP 







PC 


RS2 







PC 


TPC 







PC 


TMP 







PC 


DCF 











.WORD 









.WORD 









.WORD 









.WORD 






PCDATA 
PCDATA 

634 
635 
636 
(2) 
637 
633 
(4) 
639 
(2) 
640 
641 
(2) 
642 
643 
(4) 
544 
645 
646 
647 
648 
64S 
(2) 
650 
(3) 
651 
652 
653 
654 
655 
656 
657 
658 
(4) 
65B 
(4) 
660 
661 
662 
663 
664 
(4) 
(6) 
665 
666 
667 
668 
669 
670 
(4) 
(6) 
671 
672 
673 
674 
675 
676 



(PROCESS CDATA & DATCK TRAP CALLS) 
MAC 31-JUL-78 16:22 



MACY11 30A(1052) 20-SEP-78 17:34 PAGE 19-3 



000044' 
000044' 

000044' 

000044' 005067 177762 

000050 ' 

000050' 000403 

000052' 
000052' 

000052' 

000052' 012767 000001 



000060' 
000060' 
000060 ' 
000060' 004767 OOOOOOG 



000064 
000064 
000070 
000070 



000074 
000074 
000102 



016500 000000 
017001 000002 



016067 
162767 



0001 10' 

000110' 016702 
000114' 062702 



000120' 



000002 
000002 



177712 
000004 



177752 



177724 
177716 



PCDATA (CODE) 

.SBTTL PCDATA (CODE) 

ROUTINE PCDATA <DT> 

LET PC.DCF := #0 
INLINE <BR COM> 

ROUTINE PDATCK <DT> 

LET PC.DCF := #1 

SAVE REGISTERS 

INLINE <COM:> 
CALL SAVREG 



SEQ 0167 



PCDATA: 








CLR 


PC.DCF 




BR COM 




PDATCK: 








MOV 


#1 t PC.DCF 



COM: 
JSR 



PC, SAVREG 



SET RO TO DTABLE ADDRESS, R1 TO HEADER ADDRESS AND R2 TO TABLE ADDRESS 
POINTING TO RBUF PA,EA & SIZE. R3 AND R4 WILL BE POINTERS TO READ AND 
WRITE BUFFERS RESPECTIVELY. R2 ALSO SERVES AS A WHILE-DO LOOP CONTROL. 



LET RO := DT(R5) 
LET Rl := @DT.PC(RO) 

DEVELOP RETURN ADDRESS FOR MESSAGE 
LET PC.TPC := DT.PC(RO) - #2 

GET ADDRESS OF RBUF, PA, EA 
LET R2 := PC.TPC + #4 

R3 GETS PA WORD AND SAVE ALSO IN PC.RPA 
LET R2 := (R2) 



MOV 
MOV 



MOV 
SUB 



DT(R5) ,R0 
©DT.PC(RO) ,R1 



DT. PC(RO) .PC.TPC 
#2, PC.TPC 



MOV 
ADD 



PC.TPC.R2 
#4,R2 



PCDATA (PROCESS CDATA & DATCK TRAP CALLS) MACY11 30A(1052) 20-SEP-78 17:34 PAGE 19-4 
PCDATA. MAC 31-JUL-73 1 S : 22 PCDATA (CODE) 



(4) 
577 
(4) 
678 
(4) 
579 
680 
681 
682 
683 
584 
(4) 
685 
(4) 
686 
587 
683 
589 
690 
691 
(4) 
692 
693 
694 
695 
695 
697 
(4) 
698 
(4) 
699 
700 
701 
702 
703 
704 
705 
705 
(4) 
707 
(6) 
708 
(4) 
709 
(4) 
710 
(4) 
71 1 
(4) 
(3) 
712 
713 
714 
715 
716 
717 



0001 20 ' 01 1202 
0001 22' 

000122' 012203 
000124' 
000124' 010357 



177650 



C00130 
000130 
000134 
000134 



000140 
000140 



012267 177646 



011267 177664 



016104 000134 



000144' 

000144' 010467 177642 

000150' 

000150' 016167 000136 177636 



000156' 
0001 56' 
000162' 
000162 
000164' 
000164' 
000166' 
0001 66 ' 
0001 72' 
0001 72 ' 
0001 76' 
000176' 
000200 ' 



016102 000144 



1 00406 



005002 



005061 000144 



005061 000146 



00042' 



LET R3 := (R2) + 
LET PC.RPA := R3 

SAVE EA BITS AND SIZE 

LET PC.REA := (R2) + 
LET PCRSZ := (R2) 

GET WBUFPA INTO R4 
LET R4 := WBUFPA(R1 ) 

FINALLY GET WBUFEA BITS INTO LOCAL STORAGE 

LET PC.WPA := R4 

LET PC.WEA := WBUFEA(R1 ) 







SEQ 0168 


MOV 


(R2) ,R2 




MOV 


(R2)+,R3 




MOV 


R3, PC.RPA 





MOV 
MOV 



MOV 



MOV 
MOV 



IF BIT15 OF WORD COUNT WORD OF MODULE HEADER IS NOT SET THEN YOU 
ARE COMING TO THIS MODULE FOR THE FIRST TIME - CLEAR THE WORD 
COUNT AND ERROR COUNT WORDS IN THE MODULE HEADER. 



LET R2 := CDWDCT(R1 ) 

IFCOND PL THEN 

LET R2 := #0 

LET CDWDCT(R1 ) := #0 

LET CDERCT(R1 ) : = £0 

ELSE 



ELSE YOU WERE HERE 
BEFORE FROM THE SAME TRAP 



- MODIFY THE WORD COUNT, THE WRITE 



(R2)+, PC.REA 
(R2) , PCRSZ 



WBUFPA(R1 ) ,R4 



R4, PC.WPA 
WBUFEA(R1 ) ,PC.WE 





MOV 


CDWDCT(R1 ) ,R2 




BMI 


50002$ 




CLR 


R2 




CLR 


CDWDCT(R1 ) 




CLR 


CDERCT(R1 ) 




BR 


50003$ 


50002$: 







BUFFER AND THE READ BUFFER POINTERS ACCORDINGLY. 



PCDATA (PROCESS CDATA & DATCK TRAP CALLS) MACY1 1 30A(1052) 20-SEP-78 17:34 PAGE 19-5 
PCDATA. MAC 31-JUL-78 16:22 PCDATA (CODE) 



LET R2 := R2 CLR.BY #3IT15 

LET R2 := R2 + #1 ;UPDATE WORD COUNT 



SEQ 0169 



718 








719 


000200 ' 






(6) 


000200' 


042702 


100000 


720 


000204' 






(6) 


000204' 


005202 




721 








722 








723 








724 








725 








726 


000206' 






(7) 


000206 ' 


006302 




727 


000210 ' 






(6) 


0C0210 ' 


060203 




728 


000212' 






(4) 


CC0212 ' 


01 0367 


177562 


729 


000216' 






(6) 


000216' 


103003 




730 


000220 ' 






(6) 


000220 ' 


062767 


000020 177554 


731 


000226' 






(4) 


000226' 






732 








733 








734 








735 








733 








737 


000226' 






(6) 


000226' 


060204 




738 


000230' 






(6) 


000230' 


103003 




739 


000232 ' 






(6) 


000232' 


062767 


000020 177554 


740 


000240' 






(4) 


000240 ' 






741 








742 








743 








744 








745 








746 


000240 ' 






(7) 


000240 ' 


0062C2 




747 


000242' 






(4) 


000242' 






748 








749 








750 








751 








752 


000242' 






(4) 


000242' 


01 0467 


177544 


753 








754 








755 








756 








757 








758 









BIC 
INC 



UPDATE READ BUFFER POINTER AND EA BITS 

LET R2 := R2 SHIFT 1 ; FORM OFFSET 

LET R3 := R3 + R2 ;NEW RBUF PTR 

LET PC.RPA := R3 
IFCOND CS THEN 

LET PCREA := PC.REA + #20 
END IF 

UPDATE WRITE BUFFER POINTER AND IT'S EA BITS 

LET R4 := R4 + R2 ;NEW WBUFF PTR 

IFCOND CS THEN 

LET PC.WEA := PC.WEA + #20 
ENDIF 

r 

RESTORE WORD COUNT 

LET R2 := R2 SHIFT -1 

ENDIF 

+ 
NOW LOAD LOCAL STORAGE WITH WRITE BUFFER PA IN R4 

LET PC.WPA := R4 



IF KT IS ON THEN DETERMINE PHYSICAL ADDRESS 
IN PAR FORMAT 



ADD 
BCC 
ADD 



50005$: 



ASR 



50003$: 



MCV 



#BIT15,R2 
R2 





ASL 


R2 




ADD 


R2, R3 




MOV 


R3, PC.RPA 




BCC 


50004$ 




ADD 


#20, PC.REA 


50004$: 







R2.R4 
50005$ 
#20, PC.WEA 



R2 



R4, PC.WPA 



PCDATA (PROCESS CDATA & DATCK TRAP CALLS) 
PCDATA. MAC 31-JUL-73 16:22 PCDATA 



MACY11 
(CODE) 



30A(1052) 20-SEP-78 17:34 PAGE 19-6 



SEQ 0170 



759 


000246 




I 


(6) 


000246 


032760 


000020 000010 


(9) 


000254 


001515 




760 








761 








762 








763 








764 








765 


000256 






(6) 


000256 


032760 


000200 000010 


(9) 


000264 


001431 




76S 


C00266 






(3) 


000266 


01 0546 




(4) 


000270 


01 2745 


000000 ■ 


(3) 


000274 


004767 


OOOOOOG 


(3) 


000300 


01 2605 




767 


000302 






(3) 


00C302 


01 0546 




(4) 


C00304 


01 2745 


C00012 1 


(3) 


000310 


C04757 


OOOOOOG 


(3) 


000314 


01 2605 




768 


000316 






(3) 


000316 


01 0546 




(4) 


000320 


01 2745 


000004 1 


(3) 


000324 


004767 


000730 


(3) 


000330 


01 2605 




769 


0C0332 






(3) 


000332 


01 0546 




(4) 


000334 


012745 


000016 1 


(3) 


000340 


004767 


000714 


(3) 


000344 


012605 




770 


00034S 






(4) 


000346 


000414 




(3) 


000350 






771 


000350 






(3) 


000350 


01 0546 




(4, 


000352 


01 2745 


000000 ' 


(3) 


000356 


004767 


000752 


(3) 


000362 


01 2605 




772 


0C0364 






(3) 


000364 


01 0546 




(4) 


000366 


01 2745 


000012' 


(3) 


000372 


004767 


000736 


(3) 


000376 


012605 




773 


000400 






(4) 


000400 






774 








775 








776 








777 








778 








779 


000400 






(4) 


000400 


01 3737 


172340 177640 


780 


000406 






(4) 


000406 


016737 


177410 177652 


781 


000414 







IF #KTSTAT SETIN DT.STO(RO) THEN 



IF 22 BIT ADDRESSING ENABLED, GET 22 BIT PHYSICAL ADDRESS 



IF #MAPSTAT SETIN DT.STO(RO) THEN 



CALL UNIPA IN <#PC. RPA> 



CALL UNIPA IN <#PC.WPA> 



CALL T0P16 IN <#PC.RLO> 



CALL T0P16 IN <#PC.WLO> 



ELSE 

CALL T0P12 IN <#PC.RPA> 

CALL T0P12 IN <#PC.WPA> 

ENDIF 

LOAD PARS WITH VALUES PREVIOUSLY DETERMINED 

LET @#UIPARO := @#KIPAR0 
LET @#UIPAR5 := PC.WTP 
LET @#UIPAR6 := PC.RTP 



BIT 
BEG 



#KTSTAT,DT.STO(R 
50006$ 



BIT 


#MAPSTAT,DT.STO( 


B£0 


50007$ 


MOV 


R5,-(SP) 


MOV 


#PC.RPA,-(R5) 


JSR 


PC, UNIPA 


MQV 


(SP)+,R5 


MOV 


R5,-(3P) 


MOV 


#PC.WPA,-(R5) 


JSR 


PC, UNIPA 


MOV 


(SP)+,R5 


MOV 


R5,-(SP) 


MQV 


#PC.RL0,-(R5) 


JSR 


PC.T0P16 


MOV 


(SP)+,R5 


MQV 


R5,-(SP) 


MOV 


*PC.WL0,-(R5) 


JSR 


PC.T0P16 


MOV 


(SP)+,R5 


BR 


50010$ 


50007$: 




MOV 


R5,-(SP) 


MOV 


#PC.RPA,-(R5) 


JSR 


PCT0P12 


MOV 


(SP)+,R5 


MOV 


R5,-(SP) 


MOV 


#PC.WPA,-(R5) 


JSR 


PC.T0P12 


MOV 


(SP)+,R5 


50010$: 





MOV @>#KlPARO,@#UIPAR 

MOV PC.WTP,@#UIPAR5 



PCDATA 


(PROCESS 


5 CDATA & 


DATCK TRAP CAL 


PCDATA. 


MAC 3l~uUL~73 


16:22 


(4) 


000414 


016737 


177370 177654 


782 


000422 






(4) 


000422 


012737 


177600 177656 


783 








784 








785 








786 








787 








783 








789 


C00430 






(6) 


000430 


C42703 


177700 


790 


000434 






(6) 


000434 


C52703 


140000 


791 


000440 






(6) 


000440 


0427C4 


177700 


792 


000444 






(6) 


000444 


052704 


120000 


793 








794 








795 








796 








797 








798 


000450 






(4) 


000450 


162705 


000002 


(3) 


000454 


004767 


000000G 


(4) 


000460 


01 2567 


177344 


799 


000464 






(6) 


000464 


052767 


140000 177336 


800 


000472 






(2) 


000472 


01 6746 


177332 


(3) 


000476 


01 2746 


000504' 


801 


000502 






(2) 


000502 


C000C2 




802 


000504 






(2) 


000504 






803 








804 








805 








806 








807 


000504 






(4) 


000504 


012706 


000044' 


808 








809 


000510 






(4) 


0C0510 






810 








81 1 


000510 






(2) 


000510 






812 








813 








814 








815 








816 


00051C 






(4) 


00051 






(6) 


000510 


020267 


177310 


(9) 


000514 


0021 13 




817 


000516 







;) MACY11 30AO052) 20-SEP-78 17:34 PAGE 19-7 

PCDATA (CODE) 

LET @#UIPAR7 := #177600 



SET R3 TO SELECT PAR6 AND R4 TO SELECT PAR5 AND ALSO 

LOAD R3 AND R4 WITH LOWER 6 BITS OF RBUF AND W8UF ADDRESSES 



LET R3 

LET R3 

LET R4 

LET R4 



= R3 CLR.BY #177700 

= R3 SET. BY #140000 

= R4 CLR.BY #177700 

= R4 SET. BY #120000 



GET THE PSW AND GO TO USER MODE 
CALL GETPSW OUT <PC.TMP> 

LET PC.TMP := PC.TMP SET. BY #140000 
PUSH PC.TMP ,#33$ 

INLINE <RTI> 
INLINE <33$:> 

r 

SET UP USER MODE STACK 
LET SP := #PCDATA 
ENDIF 

INLINE <1$:> 

+ 
NOW WE ARE READY TO COMPARE DATA WORDS 

WHILE R2 LT PC.RS2 DO 



50006$: 



5001 1$: 



SEQ 0171 
MOV PC.RTP,@#UIPAR6 
MOV #177600, @#UIPAR7 



BIC 


#177700 


R3 


BIS 


#140000 


R3 


BIC 


#177700 


R4 


BIS 


#120000 


R4 



SUB 
JSR 

MOV 

BIS 

MOV 
MOV 

RTI 

33$: 



MOV 



1$: 



#1*2, R5 
PC, GETPSW 
(R5)+, PC.TMP 

#140000, PC.TMP 

PC.TMP.-(SP) 
#33$, -(SP) 



#PCDATA,SP 



CMP 
BGE 



R2.PC.RS2 
50012$ 



LET R2 := R2 + #1 



PCDATA (PROCESS CDATA & 
PCDATA. MAC 31-JUL-78 



DATCK 
16:22 



TRAP CALLS) 

PCDATA 



MACY1 1 
(CODE) 



30A(1052) 20-SEP-78 17:34 PAGE 19-8 



SEQ 0172 



(6) 

813 

(6) 

(9) 

819 

820 

321 

322 

823 

824 

325 

(6) 

826 

(6) 

(8) 

(6) 

(9) 

(6) 

827 

(4) 

823 

(4) 

829 

(6) 

(9) 

830 

(6) 

831 

832 

333 

834 

835 

836 

837 

833 

839 

840 

(4) 

841 

(4) 

842 

843 

844 

845 

846 

847 

848 

(4) 

849 

(4) 

850 

851 

852 

853 

854 

855 



000516' 005202 
000520 ' 

000520' 021314 

000522' 001461 



000524' 
000524' 
000530' 
000530' 
000536' 
000540 ' 
000546' 
000550' 
000550 ' 
000550 ' 
000554' 
O0C554' 
000560 ' 
000560 ' 
000566' 
000570' 
000570' 



000576' 
000576' 
000604' 
000604' 



000604' 
000604' 
000612' 
000612' 



000620 



005261 

026127 
003404 
032760 
001446 



01 1367 

01 1467 

032760 
001406 



000146 

000146 000003 

002000 000056 

177236 
177234 
000020 000010 



042767 140000 177232 



016737 177226 177776 



IF (R3) NE (R4) THEN 



WORDS DID NOT COMPARE UPDATE ERROR COUNTS AND SEE IF 

MESSAGE SHOULD BE OUTPUTTED. 



LET CDERCT(R1) := CDERCT(RI) + #1 

IF CDERCT(R1) LE #3 OR #BIT10 SETIN DT.SWR(RO) THEN 



LET PC.WPA := (R3) 
LET PC.WEA := (R4) 
IF #KTSTAT SETIN DT.STO(RO) THEN 

LET PC.TMP := PC.TMP CLR.BY #140000 



******************* l'*****************************************' 

NOTE !!!!! DIRECT REFERENCE TO PSW FOLLOWS !!!!! IN AN LSI 

MACHINE WITH KT ( SHOULD THIS EVER EXIST ), DIRECT 
ACCESS TO PSW MAY NOT BE ALLOWED ! ! ! THE USE OF SOME TRAP MAY 
BE NECESSARY TO SWITCH TO KERNEL !!!! 

***********************************************+**#*******,***: 



LET @#PSW := PC.TMP 

ENDIF 

50016$: 



INC 

CMP 
BEQ 



BIC 



MOV 



R2 

(R3),(R4) 
50013$ 





INC 


CDERCT(R1 ) 


THEN 








CMP 


CDERCT(R1 ) ,#3 




BLE 


50014$ 




BIT 


*'BIT10,DT.SWR(R0 




BEQ 


50015$ 


50014S: 








MOV 


(R3) , PC.WPA 




MOV 


(R4) , PC.WEA 




BIT 


#KTSTAT,DT.ST0(R 




BEQ 


50016$ 



#140000, PC.TMP 



PC.TMP,@#PSW 



LOAD EXPECTED DATA WORD AND SHOULD BE DATA WORD IN MODULE HEADER, SET 
BIT15 IN WORD COUNT WORD IN MODULE HEADER AND ENQUE THE ERROR MESSAGE. 



0167S1 177204 000106 
016761 177174 000110 



LET ASB(R1) := PC.WEA 
LET AWAS(R1 ) := PC.WPA 

LOAD THE "BEEN HERE BEFORE ON THIS TRAP FLAG" 
LET CDWDCT(R1) := R2 SET. BY #BIT15 



MCV PC.WEA, ASB(R1 ) 

MOV PCWPA,AWAS(R1) 



PCDATA (PROCESS CDATA <& DA1CK TRAP CALLS) 
PCDATA. MAC 31-JUL-78 16:22 PCDATA 



MACY11 
(CODE) 



30A(1052) 20-SEP-78 17:34 PAGE 19-9 



SEQ Q173 



(4) 


000620 ' 


01 0261 


000144 


(6) 


000624' 


052761 


100000 000144 


856 


005 32 ' 






(3) 


000532' 


01 0546 




(8) 


000634 ' 


01 6745 


177166 


(7) 


000640 ' 


01 0145 




(6) 


00C642 1 


01 6745 


177160 


(5) 


000646' 


01 2745 


000010 


(4) 


000552 ' 


01 0045 




(3) 


00C654 1 


004767 


OOOOOCG 


(3) 


000560 ' 


01 2605 




857 


000662 1 






(2) 


000662' 


000530 




853 


C00664 1 






(4) 


000664 ' 






359 


000664' 






(4) 


000664' 


000426 




(3) 


000666' 






360 








661 








862 








863 








864 








855 








866 


000666' 






(2) 


000666' 


005723 




367 


000670 ' 






(2) 


O0C670 ' 


005724 




868 


000672 ' 






(6) 


000672' 


032760 


000020 000010 


(9) 


000700 ' 


001420 




869 


000702 ' 






(6) 


000702' 


020327 


160000 


(9) 


000706' 


001005 




870 


000710 ' 






(4) 


000710 ' 


012703 


140000 


871 


000714 ' 






(6) 


0C0714' 


062737 


000200 177654 


872 


000722 ' 






(4) 


000722' 






873 


000722 ' 






(6) 


000722 ' 


020427 


140000 


(9) 


000726' 


001005 




874 


000730 ' 






(4) 


000730 ' 


01 2704 


120000 


875 


000734' 






(6) 


000734 ' 


062737 


000200 177652 


876 


000742 ' 






(4) 


000742' 






877 


000742 ; 






(4) 


000742 ' 






878 


000742' 






(4) 


000742' 






879 


000742' 






(4) 


000742' 


000662 




(3) 


000744' 







MOV R2,CDWDCT(R1 ) 
BIS #BIT15,CDWDCT(R1 



CALL ENQTQ IN <R0 , #MSGCKD , PC . TPC , R1 , PC. TPO 



MOV 


R5,-(SP) 


MOV 


PC.TPC,-(R5) 


MOV 


R1 ,-(R5) 


MOV 


DC.TPC,-(R5) 


MOV 


#MSGCKD,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, ENQTQ 


MOV 


(SP)+,R5 



INLINE <BR 3$> 
ENDIF 



ELSE 



NO ERROR IN DATA WORDS, INCREMENT POINTERS. 
UPDATE PAR REGISTERS IF NECESSARY 



INLINE <TST (R3)+> 
INLINE <TST (R4)+> 
IF #KTSTAT SETIN DT.STO(RO) THEN 

IF R3 EQ #160000 THEN 

LET R3 := #140000 

LET @#U1PAR6 : = @#IIIPAR6 + #200 
ENDIF 
IF R4 EQ #140000 THEN 

LET R4 := #120000 
LET @#UIPAR5 := @#UIPAR5 + #200 
ENDIF 
ENDIF 

ENDIF 
ENDDO 



50015$: 
50013S: 



BR 3$ 



BR 



50017$ 





TST 


(R3) + 




TST 


(R4) + 




BIT 
BEQ 


#KTSTAT,DT.ST0(R 
50020$ 




CMP 
BNE 


R3, #160000 
50021$ 




MOV 


#140000, R3 




ADD 


#200,@#UIPAR6 


50021$: 








CMP 
BNE 


R4, #140000 
50022$ 




MOV 


#120000, R4 




ADD 


#200,@>#UIPAR5 


50022$: 






50020$: 






50017$: 






50012$: 


BR 


5001 1$ 



PCDATA 
PCDATA, 

880 

881 

882 

883 

884 

835 

386 

887 

(6) 

(9) 

888 

(6) 

339 

390 

891 

892 

393 

894 

395 

896 

397 

898 

(4) 

899 

(4) 

900 

901 

902 

903 

904 

905 

906 

(6) 

(9) 

907 

(6) 

908 

(6) 

909 

910 

91 1 

912 

913 

(6) 

(9) 

914 

(3) 

(4; 

(3) 

(3) 

915 

(4) 

(3) 

916 

917 

918 



(PROCESS CD/ 
MAC 31-Jl 



,TA & 

L-78 



DATCK 
16:22 



TRAP CALLS) 

PCDATA 



MACY11 
(CODE) 



3CA(1052) 20-SEP-78 17:34 PAGE 19-10 



SEQ 0174 



000744' 

000744' 032760 
000752' 001405 
000754' 
000754' 042767 



00C762 ' 
000762' 
000770' 
000770' 



000770' 
000770' 
000774' 
000776' 
000776' 
001002' 
001002' 



001 0C6' 
001 0C6' 
001014 ' 
001 016' 
001016' 
001020 ' 
001022' 
001026' 
001 030 ' 
001030 ' 
001032' 



005761 
001447 

005261 

005261 



032760 

001406 

01 C546 
01 0045 
004767 
012605 

000431 



000020 000010 



140000 177046 



016737 177042 177776 



000146 

000042 
000046 



000200 000014 



000000G 



NOW YOU GO TO KERNEL MODE, FOR SURE. CHECK IF THERE WERE ANY ERRORS. 
IF NONE, UPDATE DT.PC FOR PROPER RETURN AND CLEAR THE DEFERRED SERVICE 
BIT IN DT.STO, AND THAT'S IT !!! 



IF #KTSTAT SETIN DT.STO(RO) THEN 



LET PC.TMP := PC.TMP CLR.BY #140000 



*******************>!:**************>(.•************************** 

NOTE I!!!! DIRECT REFERENCE TO PSW FOLLOWS !!!!! IN AN LSI 

MACHINE WITH KT ( SHOULD THIS EVER EXIST ), DIRECT 

ACCESS TO PSW MAY NOT BE ALLOWED !!! THE USE OF SOME TRAP MAY 

BE NECESSARY TO SWITCH TO KERNEL !!!! 

************************************************************* 



BIT 
BEQ 

BIC 

** * 



LET @#PSW := PC.TMP 



MOV 



ENDIF 



; + 



50023$: 



; IF ERRORS, UPDATE ERRORS COUNTS AND DO APT STUFF IF NECESSARY 
IF CDERCT(R1 ) NE #0 THEN 

LET S0FCNT(R1) := S0FCNT(R1) + #1 

LET S0FPAS(R1) := SOFPAS(RI) + #1 

+ 
IF UNDER APT, CALL APT SOFT ERROR ROUTINE 

IF 4APTPRES SETIN DT.CFO(RO) THEN 



CALL APTSER IN <R0> 



ELSE 



; + 

; NOT APT SEE IF TOO MANY ERRORS 



50025$: 



#KTSTAT,DT.ST0(R 
50023$ 

#140000, PC.TMP 



PC.TMP,(S>#PSW 



TST 
BEQ 


CDERCT(R1 ) 
50024$ 


INC 


S0FCNT(R1 ) 


INC 


S0FPAS(R1 ) 



BIT #APTPRES,DT.CFO( 

BEQ 50025$ 

MOV R5,-(SP) 

MOV R0,-(R5) 

JSR PC, APTSER 

MOV (5P)+,R5 

BR 50026$ 



PCDATA (PROCESS CDATA & DATCK 
PCDATA. MAC 31-JUL-78 16:22 



919 
920 
921 
922 
923 
924 
925 
926 
927 
(6) 
(9) 
928 
(3) 
(5) 
(4) 
(3) 
(3) 
929 
(4) 
(3) 
930 
(6) 
(9) 
(6) 
(9) 
931 
(3) 
(5) 
(4) 
(3) 
(3) 
932 
(4) 
933 
(4) 
934 
(4) 
935 
936 
(4) 
937 
938 
939 
940 
941 
(6) 
942 
943 
944 
945 
946 
947 
(6) 
(9) 
948 
(6) 



TRAP CALLS) 

PCDATA 



MACY11 
(CODE) 



30A(1052) 20-SEP-78 17:34 PAGE 19-11 



SEQ 0175 



001 032' 
001032' 
001040' 
CO 1042 ' 
001 042 ' 
001 044' 
C01046 ' 
001050' 
001054' 
001056' 
001056' 
001 OSO ' 
001 060' 
001 060 ' 
001065' 
001070 ' 
001 076' 
001 100' 
001 100 ' 
001 1 02' 
001 1 04' 
001 106' 
001 112' 
001 114' 
001 1 14' 
01114' 
01114' 
01114' 
001 1 14' 

001 114' 
001 1 14' 



001 1 14 
001 1 14 



032760 
001407 

01 0545 
01 0145 
01 0045 
0C4767 
01 2605 

00041 5 



026160 
101412 
032760 
001005 

01 054 5 
01 0145 
01 0045 
C04767 
01 2605 



001 122 ' 

001122' 005767 
001126' 001403 
001 130 ' 
001130' 062760 



100000 000056 



OOOOOCG 



000042 000106 



040000 000056 



OOOOOOG 



IF SIT 15 SET IN SWITCH REGISTER... OR IF TOO MANY SOFT ERRORS AND 
BIT 14 SETIN SWITCH. REGISTER. . . ALSO DUMP MODULE.... 

IF #BIT15 SETIN DT.SWR(RO) THEN 

CALL DRPMOD IN <R0,R1> 

ELSE 

50027S: 
IF S0FCNT(R1) HI DT.SMX(RO) AND #BIT14 NOTSETIN DT.SWR(RO) THEN 

CMP S0FCNT(R1 ) .DT.SM 



BIT 


#BIT15,DT.SWR(R0 


BEQ 


50027$ 


MOV 


R5,-(SP) 


MOV 


R1 ,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, DRPMOD 


MOV 


(SP)+,R5 


BR 


50030$ 



CALL DRPMOD IN <R0,R1> 



BLOS 

BIT 

BNE 

MOV 
MOV 
MOV 
JSR 
MOV 



50031$ 

#BIT14,DT.SWR(R0 

50031$ 

R5,-(SP) 
R1 ,-(RS) 
R0,-(R5) 
PC, DRPMOD 
(SP)+,R5 



ENDIF 



ENDIF 



ENDIF 



ENDIF 



50031$: 

50030$ 

500265: 

50024$: 



062760 000006 000002 



UPDATE RETURN P.C. 
LET DT.PC(RO) := DT.PC(RO) + #6 

IF DATACK, UPDATE AGAIN 
IF PC.DCF NE #0 THEN 



ADD 



#6,DT.PC(R0) 



176704 



000002 000002 



LET DT.PC(RO) 



DT.PC(RO) + #2 



TST 

BEQ 

ADD 



PC.DCF 
50032$ 

#2,DT.PC(R0) 



PCDATA (PROCESS CDATA <& DATCK TRAP CALLS) MACY11 30A(1052) 20-SEP-78 17:34 PAGE 19-12 
PCDATA. MAC 31-JUL-78 16:22 PCDATA (CODE) 

END IF 



MARK IT AS DEFFERRED RETURN 



SEO 0176 



949 


001 136' 






(4) 


001 136' 






950 








951 








952 








953 








954 








955 


001 136' 






(6) 


001136' 


042760 


000400 000010 


956 








957 








958 








959 








960 








961 








962 








963 








964 








965 








966 


001 144' 




I 


(2) 


001 144' 






967 


001 144' 






(6) 


001 144' 


0C5761 


000146 


(9) 


001 150' 


001440 




968 


001 152' 






(6) 


001 152' 


020267 


176646 


(9) 


001 156' 


002435 




969 








97C 








971 








972 








973 








974 








975 








976 


001 160 ' 






(4) 


001 160 ' 


01 0261 


000144 


977 


001 164' 






(4) 


001164' 


01 6702 


176636 


(6) 


001170' 


062702 


000006 


97S 








979 








98C 








981 








982 


001 1 74' 






(6) 


001 1 74 ' 


005767 


176632 


(9) 


001200 • 


001014 




983 


001202 ' 






(3) 


001202 ' 


01 0546 




(8) 


001204 ' 


01 1245 




(7) 


001206' 


01 0145 




(6) 


01210' 


01 6745 


176612 


(5) 


001214' 


01 2745 


00001 1 


(4) 


C01220 ' 


01 0045 




(3) 


001222 ' 


004767 


OOOOOOG 


(3) 


001226' 


012605 




984 


001230' 







50032$: 



LET DT.STO(RO) := DT.STO(RO) CLR.BY tfDEFRTN 



INLINE <3$:> 

IF CDERCT(R1 ) NE #0 THEN 

IF R2 GE PC.RSZ THEN 



UPDATE WORD COUNT AND SET R2 TO RETURN ADDRESS 
LET CDWDCT(R1 ) := R2 
LET R2 := PC.TPC + #6 

IF CDATA, ENQUEUE SUMMARY MESSAGE 
IF PC.DCF EQ MO THEN 

CALL ENQTQ IN <R0 , tfMSGCKS , PC . TPC , R1 , ( R2 )> 



BIC 



IF THERE ARE SOME ERRORS, IF COUNT IS DONE, CHECK 

IF THE TRAP CALL WAS A CDATA CALL. IF SO, ENQUE THE ERROR 

SUMMARY MESSAGE AND CHANGE THE RETURN ADDRESS TO LOCATION 

IN THE TRAP CALL. FOR DATCK TRAP, CLEAR THE DEFERRED SERVICE BIT 

IN DT.STO AND LOAD ERROR COUNT INTO LOCATION IN THE TRAP CALL. 

IN CASE YOU FORGOT R2 CONTAINED WORD COUNT SO FAR. 



3$: 

TST 
BEQ 

CMP 
BLT 



MOV 



MOV 
ADD 



#DEFRTN,DT.STO(R 



CDERCT(R1 ) 
50033$ 

R2, PC.RSZ 
50034$ 



R2,CDWDCT(R1 ) 

PC.TPC.R2 
#6,R2 



TST 


PC.DCF 


ENE 


50035$ 


MOV 


R5,-(SP) 


MOV 


(R2) ,-(R5) 


MOV 


R1 ,"(R5) 


MOV 


PC.TPC,-(R5) 


MOV 


#MSGCKS,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, ENQTQ 


MC J 


(SP)+,R5 



ELSE 



PCDATA (PROCESS CDATA & DATCK TRAP CALLS) 
PCDATA. MAC 31-JUL-78 16:22 PCDATA 



MACY1 1 
(CODE) 



30A(1052) 20-SEP-78 17:34 PAGE 19-13 



SEQ 0177 



(4) 

(3) 

985 

985 

987 

.388 

389 

990 

(4) 

991 

992 

993 

994 

995 

(4) 

995 

(6) 

997 

(4) 

993 

(4) 

999 

(4) 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1003 

(3) 

1 009 

(3) 

(3) 

(2) 

1 01 C 



C01230' 000410 
001232 1 



001232' 

001232' 016162 000146 000002 



001240 ' 

001240' 011260 000002 

GO 1244' 

001244' 042760 000400 000010 

001252' 

001252' 

001252 ' 

001252' 

001252' 

001252' 



BR 



50036$ 



50035$: 



DATACK R2 CONTAINS RETURN ADDRESS 

LET 2(R2) := CDERCT(R1 ) 

UPDATE RETURN P.C. 

LET DT.PC(RO) := (R2) 

LET DT.STO(RO) := DT.STO(RO) CLR.BY .VDEFR7N 
ENDIF 
END IF 
ENDIF 



MOV 



MOV 
BIC 



CDERCT(R1 ) ,2(R2) 



(R2) ,DT.PC(RO) 
#DEFRTN,DT.5T0(R 



50036$: 
50034$: 
50033$: 



001252 
001252 
001256 
00", 256 
0! 256 
001256 



004767 OOOOOOG 



000207 



CLEAN UP AND GOODBYE 

CALL RESREG 
ENDRTN 



50000$: 
50001$: 



JSR 



RTS 



PC, RESREG 



PC 



PCDATA (PROCESS CDATA & DATCK TRAP CALLS) MACY11 30A(1052) 
PCDATA. MAC 31-JUL-78 16:22 TGP16 SUBROUTINE 

.SBTTL T0P16 SUBROUTINE 

ROUTINE T0P16 <AA> 



20-SEP-78 17:34 PAGE 19-14 



SEQ 0178 



1012 






1013 






1014 


001260' 




(2) 


001260' 




1015 






1 016 






1017 






1013 






1019 






1020 






1021 






1022 






1023 






1024 






1025 


001260' 




(3) 


001260' 


004767 OOOOOOG 


1026 






1027 






1023 






1029 






1030 






1031 






1032 






1033 






1034 


001264' 




(4) 


001 264' 


016500 000000 


1035 


001270 ' 




(4) 


001270' 


01 2002 


1 03S 


001272 ' 




(4) 


001 272 ' 


01 2001 


1037 


001274' 




(7) 


001274' 


006202 


(7) 


001276' 


0062C2 


(7) 


001300 ' 


006202 


(7) 


001 302 ' 


006202 


(7) 


001304' 


006202 


(7) 


001306' 


006202 


1038 


001310 ' 




(6) 


001310 ' 


0427C2 176000 


1039 


001314' 




(6) 


001314 ' 


000301 


1040 


001 316' 




(7) 


001316' 


006301 


(7) 


001320' 


006301 


1041 


001322 ' 




(4) 


001322' 


010 210 


(6) 


001324' 


0601 10 


1042 






1043 






1 044 






1045 






1046 






1047 


001326' 




(3) 


001326' 


004767 OOOOOOG 


1048 






1049 


001332' 





T0P16: 



THIS ROUTINE COMBINES THE 6 EA BITS WITH THE TOP 10 BITS OF 
THE PA WORD AND RETURNS THE RESULT IN PC. RTP/PC . WTP WORD. 
AA IS THE TABLE ADDRESS AND THE TABLE IS OF THE FORM: 

LO - LOWER 16 BITS FROM MAP22 
HI - UPPER 6 BITS FROM MAP22 
( ) - RESULT GOES HERE 



CALL SAVREG 



JSR 



SET RO TO TABLE ADDRESS, R2 GETS 16-BIT PA AND R1 GETS 6-BIT 

EA. SHIFT PA 6 PLACES TO THE RIGHT AND BRING EA BITS IN POSITION 

15-10. ADD EA AND PA TO GET TOP 16-BIT WORD. RETURN THE 
RESULT. 



LET RO 

LET R2 

LET R1 

LET R2 



= AA(R5) 

= (R0) + 

= (R0)+ 

= R2 SHIFT -6 



LET R2 
LET R1 
LET R1 



= R2 CLR.BY #176000 

= SWAP R1 

= R1 SHIFT 2 



LET (RO) := R2 + R1 



RESTORE REGISTERS 
CALL RESREG 

ENDRTN 



JSR 



PC, SAVREG 



MOV 


AA(R5) ,R0 


MOV 


(R0)+,R2 


MOV 


(R0)+,R1 


ASR 
ASR 
ASR 
ASR 
ASR 
ASR 


R2 
R2 
R2 
R2 
R2 
R2 


BIC 


#176000, R2 


SWAB 


R1 


ASL 
ASL 


R1 
R1 


MOV 
ADD 


R2, (RO) 
R1 , (RO) 



PC, RESREG 



PCDATA 
PCDATA, 



(PROCESS CDATA & DATCK TRAP CALLS) 
MAC 31-JUL-78 16:22 TO? 



MACY11 30A(1052) 
6 SUBROUTINE 



.O-SEP-78 17:34 PAGE 19-15 



SEQ 0179 



(3) 001332' 

(3) 001332' 

(2) 001332' 000207 
1050 



50000$: 
50001$: 



RTS 



PC 



PCDATA (PROCESS CDATA & DATCK TRAP CALLS) MACY1 1 30A(1052) 
PCDATA. MAC 31-JUL-78 16:22 T0P12 SUBROUTINE 

.SBTTL T0P12 SUBROUTINE 

ROUTINE T0P12 <BB> 



20-SEP-7B 17:34 PAGE 19-16 



SEQ 0180 



1052 








1053 








1054 


001334' 






(2) 


001334' 






1055 








1056 








1057 








1053 








1059 








1060 








1061 








1062 








1063 








1064 








1065 








1 066 








1067 


001334' 






(3) 


001334' 


004767 


OOOOOOG 


1063 








1069 








1070 








1071 








1072 








1073 








1074 








1075 








1076 


00134C ' 






(4) 


001340' 


016500 


000000 


1077 


001344' 






(4) 


001344' 


01 2002 




1078 


001346' 






(4) 


001346' 


01 2001 




1079 


001350' 






(7) 


001350 ' 


006301 




(7) 


001352' 


006301 




(7) 


001354 ' 


006301 




(7) 


001356' 


006301 




(7) 


001360' 


006301 




(7) 


001362 ' 


006301 




1080 


001364' 






(7) 


001364 ' 


006202 




(7) 


001366' 


006202 




(7) 


001370 ' 


006202 




(7) 


001372' 


006202 




(7) 


001374 ' 


006202 




(7) 


001376' 


006202 




1081 


0C14C0 ' 






(6) 


001400 ' 


042702 


176000 


1082 


001404' 






(4) 


001404' 


01 0260 


000004 


(6) 


001410 ' 


060160 


000004 


1083 








1084 


001414' 






(3) 


001414' 


004767 


OOOOOOG 


1085 








1086 


001420' 







T0P12: 



THIS ROUTINE COMBINES THE 2 EA BITS WITH THE TOP 10 BITS OF 
THE PA WORD AND RETURNS THE RESULT INTO LOCATION PC . RTP/PC. WTP , 
BB IS THE TABLE ADDRESS AND THE TABLE IS OF THE FORM: 

PA 

EA 

LO 

HI 

( ) - RESULT GOES HERE 



CALL SAVREG 



SET RO TO TABLE ADDRESS. R2 GETS PA AND R1 GETS EA. 
BRING EA BITS IN POSITION 9-10 AND SHIFT PA 6 PLACES 
TO THE RIGHT. ADD EA AND PA WORDS TO GET TOP 12 BIT WORD, 
RETURN THE RESULT. 



LET RO 
LET R2 
LET R1 
LET R1 



= BB(R5) 

= (R0)+ 

= (R0)+ 

= R1 SHIFT 6 



LET R2 := R2 SHIFT -6 



LET R2 := R2 CLR.BY #176000 
LET 4(R0) := R2 + R1 

CALL RESREG 
ENDRTN 



JSR 



PC, SAVREG 



MOV 


BB(R5) ,R0 


MOV 


(R0)+,R2 


MOV 


(R0)+,R1 


ASL 


R1 


ASL 


R1 


ASL 


R1 


ASL 


R1 


ASL 


R1 


ASL 


R1 


ASR 


R2 


ASR 


R2 


ASR 


R2 


ASR 


R2 


ASR 


R2 


ASR 


R2 


BIC 


#176000, R2 


MOV 


R2,4(R0) 


ADD 


R1 ,4(R0) 


JSR 


PC, RESREG 



PCDATA (PROCESS CDATA & DATCK TRAP CALLS) MACY11 30A(1052) 
PCDATA. MAC 31-JUL-76 16:22 TQP12 SUBROUTINE 



20-SEP-78 17:34 PAGE 19-17 



SEQ 0181 



(3) 


001420 ' 




(3) 


001420 ' 




(2) 


001420' 


000207 


1087 






1083 




000001 



.END 



50000$: 
50001S: 



RTS 



PC 



PCDATA (PROCESS CDATA <& DATCK TRAP CALLS) MACY1 1 30A(1052) 20-SEP-78 
PCDATA. MAC 31-JUL-78 16:22 SYMBOL TABLE 



17:34 PAGE 20 



SEQ 0182 



AA 


000000 


ACSR = 


0001 02 


ACT3IT= 


004000 


ADDR22= 


001000 


ADR 


ooooos 


APTFER= 


000004 


APTPRE= 


000200 


APTSER= 


* * * * * * 


ASB 


0001 06 


ASSEMB= 


000010 


ASTAT = 


0001 04 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


0001 10 


BB 


000000 


BITO = 


C00001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


0001 CO 


BIT07 = 


000200 


BIT08 = 


000-400 


BIT09 = 


001000 


3IT1 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


01 COOO 


B1T13 = 


020000 


BIT14 = 


040000 


8IT15 = 


1 oooco 


BIT2 = 


000004 


3IT3 = 


000010 


3IT4 = 


000020 


BIT5 = 


000040 


BIT6 = 


0001 00 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001 COO 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


0001 34 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


1 oooco 


CLKPRE= 


000001 


COM 


000060R 


CONFIG= 


000056 



CQOVF = 

CR 

CSRA = 

CSRC = 

CTRLC = 

CTRLO = 

CTRLU = 

DCEVNT= 

DEFRTN= 

DIAGMC= 

DROPMO= 

DRPMOD= 

DSEVNT= 

DT 

DT. ADD= 

DT.AP = 

DT. APK= 

DT.BLS^ 

DT.CFO= 

DT.CF1= 

DT.ERR= 

DT.ESI= 

DT.EVN= 

DT.EXS= 

DT. FCH= 

DT.FCN= 

DT.HMX= 

DT.KBE^ 

DT.KBP= 

DT.KBR= 

DT.KBU= 

DT.MLS= 

DT.MTI= 

DT.OFF= 

DT.PAS= 

DT.PC = 

DT.PFL= 

DT.PSW= 

DT.PTA= 

DT.RCS= 

DT.REL= 

DT.SCT= 

DT.SMX= 

DT.SP = 

DT.SSI= 

DT.STO= 

DT.ST1= 

DT.SWR= 

DT.SYP= 

DT.WBU= 

DT.WHL= 

DT.WLL= 

DVID1 = 



000001 
000015 
000100 
000102 
000003 
000017 
000025 
00001 1 
000400 
000000 
100000 

* ilc * * * * 

000014 
000000 
000042 
0C0100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
C00037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
C00046 
00 0010 
000012 
000056 
000072 
000050 
000054 
0C0052 
000014 



ECCMEM= 

ECCSTA= 

ENBEOP= 

ENBNUL= 

ENDLST= 

ENQTQ = 

EOPBIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

GETPSW= 

HRDCNT= 

HRDPAS= 

ICQNT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT = 

INTR = 

IOMOD = 

IOMODP= 

IOMODR= 

IOMODX= 

JACK = 

KIPAR0= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDR0= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 



000100 
000010 
010000 
000001 
000000 

000001 
000106 
000200 
000200 
0C02C3 
000202 
000201 
100000 
****** 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
C40000 
020000 
001000 
000400 
000030 
000120 
100000 
102000 
1 12000 
1 10000 
035060 
172340 
172342 
172344 
172346 
1 72350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 



LF 

LPSTAT= 

MAPSTA= 

MED 

MEMPAS= 

MODEXH= 

MODHOL= 

MODSEL= 

MSGCKD= 

MSGCKS= 

MSGDER= 

MSGDRP= 

MSGECH= 

MSGEOP= 

MSGHDR= 

MSGHNG= 

MSGHRD= 

MSGMAP= 

MSGNUL= 

MSGPOP= 

MSGPRM= 

MSGRES= 

MSGSFT= 

MSGSKE= 

MSGSMB= 

MSGSMH= 

MSGSMS= 

MSGSTD= 

MSGSYS= 

MSGVEC= 

NBKMOD= 

NCPUOP= 

NOAPTY= 

NULL = 

OWEN = 

PAERR = 

PARPRE= 

PARSTA= 

PASCNT= 

PCDATA 

PC.DCF 

PC.REA 

PCRHI 

PC.RLO 

PC.RPA 

PC.RSZ 

PC.RTP 

PC.TMP 

PC.TPC 

PC.WEA 

PC.WHI 

PC.WLO 

PC.WPA 



000012 

000001 

000200 

076600 

040000 

004000 

002000 

001000 

000010 

00001 1 

000005 

000017 

177777 

000013 

000004 

000022 

000007 

000021 

177775 

000002 

177776 

000001 

000006 

000003 

000015 

000014 

000016 

000000 

000012 

000020 

001000 

000020 

000002 

000000 

024020 

000010 

002000 

000100 

000034 

000044RG 

000032R 

000002R 

000006R 

000004R 

OOOOOOR 

000024R 

000010R 

000030R 

000026R 

000014R 

000020R 

0C0016R 

000012R 



PC.WTP 

PDATCK 

PDPLSI= 

PDP60 = 

PDP70 = 

PRIO = 

PRI1 

PRI4 = 

PRI5 = 

PRI6 = 

PRI7 = 

PRO 

PR4 

PR5 

PR6 

PR7 

PS 

PSW = 

R'ANNUM = 

R3UFEA= 

RBUFPA= 

RBUFSZ= 

RBUFVA= 

RDSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RESREG= 

RES1 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RU30UT= 

RUNWOD= 

R5VALU= 

SAM 

SAVREG= 

SBADR = 

SBKMOD= 

SBKSEL= 

SC. ADR= 

SC. ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SOFCNT= 

SOFPAS= 



000022R 

000052RG 

020000 

004000 

010000 

000000 

000040 

000200 

000240 

000300 

000340 

000000 

C00200 

000240 

000300 

000340 

177776 

177776 

000054 

000130 

000126 

000132 

000124 

000101 

000022 

000020 

020000 

010000 

****** Q 

000056 

000060 

031 060 

002000 

0001 12 

000177 

100000 

001 740 

075464 

****** Q 

000102 

000000 

010000 

000006 

000014 

000016 

000002 

000004 

000000 

000010 

000012 

177777 

000042 

000046 



PCDATA (PROCESS CDATA <S 
PCDATA. MAC 31-JUL-78 

SPACE = 000040 
SPDINT= 000032 
SPVALU= C02200 
SRO = 177572 
SR1 = 177574 
SR2 = 177576 
SR3 = 172516 
STAT = 000026 
STATBI= 064757 
STAT1 = 000027 
SUS J ND= 000001 
SVRO = 00C062 
SVR1 = CC0064 
SVR2 = 000066 
SVR3 = 000070 
SVR4 = 000072 
5VR5 = 000074 
SVR6 = 000076 
SYSCNT= 000052 
SYSERR= 000100 
TMPIO = 000002 
T0P12 001334R 
T0P16 00126CR 
TQOVF = 000002 
UIPARO= 177640 



DATCK TRAP CALLS) 


MACY11 30A(1052) 20-SEP 


16:22 


SYMBOL 


TABLE 




UIPAR1= 


177642 


WTWHMI= 


00C222 


UIPAR2= 


177644 


XFLAG = 


000005 


UIPAR3= 


177646 


XOFF = 


000023 


UIPAR4= 


177650 


XON = 


000021 


UIPAR5= 


177652 


$BGNLE= 


177777 


UIPAR6= 


177654 


$ERFLG= 


000400 


UIPAR7= 


177656 


$F$AND= 


000310 


UIPDRO= 


177600 


$F$BAD= 


000401 


UIPDR1 = 


177602 


$F$BLA= 


000170 


UIPDR2= 


177604 


$F$CAS= 


000150 


UIPDR3= 


177606 


$F$DEC= 


000220 


UIPDR4= 


177610 


$F$DO = 


000340 


UIPDR5= 


177612 


$F$FAL= 


000405 


UIPDR6= 


177614 


$F$GOO= 


000400 


UIPDR7= 


177616 


$F$IF = 


0001 10 


UNIPA = 


****** Q 


$F$INC= 


000210 


WASADR= 


000104 


$F$LOU= 


000200 


WBSTAT= 


000040 


$F$NAM= 


000160 


WBUFEA= 


000136 


$F$NO = 


000403 


WBUFPA= 


000134 


$F$OR = 


000320 


WBUFRQ= 


000140 


$F$RTI= 


000350 


WBUFS2= 


000142 


$F$RTN= 


000300 


WDFR = 


000116 


$F$SEL= 


000140 


WDTO = 


0001 14 


$F$THE= 


000330 


WTINRE= 


000352 


$F$TRU= 


000404 



■78 17:34 PAGE 20-1 



$F$UNT= 000130 
$F$WHI= 000120 
$F$YES= 000402 
$IFLEV= 177777 
SISKO = 000C01 
$ISK1 = 000001 
$ISK2 = 000001 
SISK3 = 000001 
$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000001 
$NESTL= 000000 
$NSKO = 000300 
$NSK1 = 000300 
SNSK2 = 000110 
$NSK3 = 000110 
$NSK4 = 000110 
SNSK5 = 000110 
SSAVLE= 177777 
$SSKO = 050012 
$TAGLE= 177777 
$TAGNU= 050002 
5TEMP = 000300 
$TSK0 = 050033 
$TSK1 = 050034 



SEO 0183 



STSK2 = 050036 
$TSK3 = 050031 
$TSK4 = 050022 
$$ARGC= 000002 
$3BYTE= 000403 
$$CASE= 000000 
SSDST = 000000 
$SELOC= 000402 
$3ERFL= 000000 
$$FLAG= 000001 
$$FROM= 000000 
$$LOC = 001200R 
$$LGCN= 000000 
$$REG = 177777 
$$RETU= 000000 
S$RTN1= 050000 
S$RTN2= 050001 
$$SRC = 000000 
$$TGSV= 000000 
$STGS1= 000000 
$$TGS2= 000000 
$$T0 = 000000 
$$$TAG= 050000 
= 001422R 



ABS 



000000 
001422 



000 
001 



ERRORS DETECTED: 

DEFAULT GLOEALS GENERATED: 

DSKZ: PCDATA, DSK2: PCDATA=SPMAC/ML f EQUATE , PCDATA 
RUN-TIME: 28 19 .4 SECONDS 
RUN-TIME RATIO: 67/47=1.4 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:35 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0184 

3 COMMON EQUATE MODULE 

555 COMMON DEFINITIONS AND REFERENCES 

558 000000' .PRINT ;SPMAC: VERSION 1.1 

591 PCTRLC ROUTINE 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:40 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0264 

3 COMMON EQUATE MODULE 

553 COMMON DEFINITIONS AND REFERENCES 

563 OOOOOO 1 .PRINT ;SPMAC: VERSION 1.1 

S01 ACTIVATE BACKGROUND MODULE ROUTINE 



FCTRLC - PROCESS CTRL C MACY1 1 30A(1052) 20-SEP-78 17:35 PAGE 19 
PCTRLC.MAC 28-JUL-78 09:09 COMMON EQUATE MODULE 



SEO 0185 



503 
509 
510 
51 1 
512 
513 
514 
515 
516 
5I7 
518 
519 
520 
521 
522 
523 
524 
525 
525 
527 
528 
529 
530 
531 
532 
533 
534 
535 
535 
537 
536 
539 
540 
541 
542 
543 
544 
545 
54fc 
547 
548 
549 
550 
551 
552 
553 



PROCESS CTRL C 



.TITLE PCTRLC - 
. IDENT /VO.O/ 

++ 
MODULE NAME: 
PCTRLC 



FUNCTIONAL DESCRIPTION: 

CONTROLS THE PROCESSING OF A CTRL C COMMAND FROM 
THE OPERATOR. 

INPUTS: 

DATA TABLE ADDRESS 

IMPLICIT INPUTS: 

DT.ADDR, DT.STO, DT.CFO 

OUTPUTS: 

NONE 



IMPLICIT OUTPUTS: 
DT.STO 

PATOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE MODULES CALLED: 
MSGDHGOK 
PRRLOC 
W3FLIM 
UNIMAP 
RSTRCY 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL PCTRLC IN <A> 

A=DATA TABLE ADDRESS 

VERSION: 
0.0 



HOOK MESSAGE TO PROPER DRIVER 
PROCESS RELOCATION 
DETERMINE WRITE BUFFER LIMITS 
LOAD UNIBUS MAP 
RECOVER FROM RESET 



EDIT 



BY 



DATE 



REASON 



PCTRLC - PROCESS CTRL C MACY1 1 30A(1052) 2C-SEP-73 17:35 PAGE 1 9-1 
PCTRLC.MAC 28-JUL-78 09:09 COMMON DEFINITIONS AND REFERENCES 



SEQ 0186 



555 

556 

557 

553 000000' 

( 1 ) 000000' 

559 000001 

560 000001 
561 

562 

563 

564 

565 

56S 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

532 

583 

584 

585 000000' 041536 000045 

586 

587 

58S 

589 



.SBTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



ft*************** 

REFERENCED BY OTHER MODULES 
GLOBL PCTRLC 

**************** 

GLOBAi. REFERENCES 

GLOBl MSGDHOOK 

GLOBL PRRLOC 

GLOBL WBFLIM 

GLOBL UNIMAP 

GLOBL RSTRCY 

GLOBL DX.RSTRT 

GLOBL XCSR 

**************** 
LOCAL STORAGE 



MODULE ENTRY POINT 



HOOK MESSAGE TO PROPER DRIVER 

PROCESS RELOCATION 

DETERMINE WRITE BUFFER LIMITS 

LOAD UNIBUS MAP 

RECOVER FROM RESET 

MONITOR RESTART ADDRESS 

KEYBOARD PRINTER CSR 



PC.MSG: .ASCIZ /~C%/ 

.EVEN 

**************** 



PCTRLC - PROCESS CTRL C MACY1 1 30A(1052) 20-SEP-78 17:35 PAGE 19-2 
PCTRLC.MAC 28-JUL-78 09:09 PCTRLC ROUTINE 

.SBTTL PCTRLC ROUTINE 



ROUTINE PCTRLC <TABL> 



SEQ 0187 



591 






5S2 






593 






5S4 


000004' 




(2) 


000004' 




595 






596 






597 






598 






599 






600 






601 


000004' 




(2) 


000004' 


010046 


602 






603 






604 






605 






606 






607 






608 


000006' 




(4) 


000006' 


016500 000000 


609 






610 






61 1 






612 






613 






614 






615 


000012' 




(2) 


000012' 


000005 


616 






617 






513 






619 






520 






621 






622 


000014 ' 




(4) 


000014' 


005046 


623 


000016' 




(4) 


00001 6' 


012746 000024' 


624 


00C022 1 




(2) 


000022' 


000002 


625 






625 


000024' 




(2) 


000024' 




627 






628 






629 






630 






631 






632 






633 


000024' 




(3) 


000024' 


01 0546 


(4) 


000026' 


01 0045 


(3) 


000030' 


004767 OOOOOOG 


(3) 


000034' 


012605 


634 







PCTRLC: 



SAVE REGISTERS 



PUSH RO 



MOV 



RO,-(SP) 



SET RO TO THE START OF THE DATA TABLE 



LET RO := TABL(R5) 



MOV TA3L(R5),R0 



RESET THE UNI BUS 



INLINE <RESET> 



RESET 



CLEAR THE PSW. (LOWER THE PRIORITY) 

LET -(SP) := #0 

LET -(SP) := #1$ 
INLINE <RTI> 

INLINE <1$:> 



CLR 
MOV 
RTI 

1$: 



"(SP) 
#1$,-(SP) 



RESTORE THE PROCESSOR HARDWARE TO THE STATE IT WAS IN BEFORE THE RESET, 



CALL RSTRCY IN <R0> 



MOV R5,-(SP) 

MOV R0,-(R5) 

JSR PC, RSTRCY 

MOV (SP)+,R5 



PCTRLC - PROCESS CTRL C MACY11 30A(1052) 20-SEP-78 17:35 
PCTRLC.MAC 28-JUL-78 09:09 PCTRLC ROUTINE 



OUTPUT ""X". 



PAGE 19-3 



SEQ 0188 



OOD 








637 








633 








639 








640 


000036' 






(3) 


000036' 


01 0546 




(7) 


C00040 ' 


01 2745 


000070' 


(6) 


000044 ' 


01 2745 


000000 ■ 


(5) 


000050 ' 


01 2745 


000002 


(4) 


00C054' 


01 0045 




(3) 


000056 ' 


C04767 


000000G 


(3) 


000062 ' 


01 2605 




641 


000064' 






(2) 


C00064 1 


000240 




642 


000065' 






(2) 


000066' 


000776 




643 








544 


000070 ' 






(2) 


000070' 






645 








646 








647 








343 








549 








650 








651 








652 


000070 ' 






(6) 


000070 ' 


026027 


000042 000200 


(9) 


000076 ' 


001425 




653 


0001 00 ' 






(3) 


0001 00 ' 


01 0545 




(5) 


000102' 


01 2745 


000200 


(4) 


0001 06' 


01 0045 




(3) 


0001 1 ' 


004767 


OOOOOOG 


(3) 


0001 14' 


01 2605 




654 


0001 16' 






(3) 


001 16' 


01 0545 




(4) 


0001 20 ' 


01 0045 




(3) 


000122' 


004757 


OOOCOOG 


(3) 


0001 25' 


012605 




655 


0001 30 ' 






(6) 


0001 30 ' 


032760 


001000 000014 


(9) 


0001 36' 


001405 




656 


0001 40 ' 






(3) 


0001 40 ' 


01 0546 




(4^ 


0001 42' 


01 0045 




(3) 


000144' 


004767 


OOOOOOG 


(3) 


000150' 


012605 




657 


0001 52' 






(4) 


0001 52 ' 






658 


0001 52' 






(4) 


000152' 






659 








660 








661 









CALL MSGDHOOK IN <R0 , tfMSGPOP , #PC . MSG , #3$> 



MOV 


R5,-(SP) 


MOV 


#3$,-(R5) 


MOV 


#PC.MSG,-(R5) 


MOV 


#MSGP0P,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, MSGDHOOK 


MOV 


(SP)+,R5 



INLINE <2$: NOP> 
INLINE <BR 2$> 

INLINE <3$:> 



2S: NOP 



BR 2$ 



3$: 



IF THE EXERCISER IS NOT IN LOWEST MEMORY MOVE IT THERE, THEN RESET THE WRITE 
BUFFER LIMITS, AND RELOAD THE UNIBUS MAP IF IT EXISTS. 



IF DT.ADDR(RO) NE #200 THEN 



CALL PRRLOC IN <R0,#200> 

CALL WBFLIM IN <R0> 

IF #ADDR22 SETIN DT.CFO(RO) THEN 
CALL UNIMAP IN <R0> 

ENDIF 



ENDIF 



; + 



CMP 


DT. ADDR(RO) ,#200 


BEO 


50002$ 


MOV 


R5,-(SP) 


MOV 


#200, ~(R5) 


MOV 


R0,-(R5) 


JSR 


PC, PRRLOC 


MOV 


(SP)+,R5 


MOV 


R5,-(SP) 


MOV 


R0,-(R5) 


JSR 


PC, WBFLIM 


MOV 


(SP)+,R5 


BIT 


#ADDR22,DT.CF0(R 


BEQ 


50003$ 


MOV 


R5,-(SP) 


MOV 


R0,~(R5) 


JSR 


PC, UNIMAP 


MOV 


(SP)+,R5 


50003$: 




50002$: 





PCTRLC 
PCT3LC 



- PROCESS CTRL C MACY1 1 30A(1C52) 20-SEP-78 17:35 PAGE 19-4 
MAC 28-JUL-78 09:09 PCTRLC ROUTINE 



SEQ 0189 



662 
363 

664 
665 

i S) 

365 

667 
663 
363 
370 
571 
672 

I 2 ] 

573 

374 
575 
675 
677 



; CLEAR THE RUN MODE INDICATOR AND THE RELOCATION TIME INDICATOR. 



000152' 

000152' 042760 110000 000010 



000160' 
000160' 012600 



LET DT.STO(RO) := DT.STO(RO) CLR.BY #RUNMODE ! RELTIME 



RESTORE REGISTERS 



POP RO 



BIC 



0RUNMODE! RELTIME 



MOV 



(SP)+,R0 



RESTART THE MONITOR 



679 
(2) 
680 
681 
582 
(3) 
(3) 
(2) 
683 



000162' 

000162' 000167 OOOOOOG 



000166' 
00016-3' 
00C166' 

000166' 000207 
000001 



INLINE <JMP DX.RSTRT> 



ENDRTN 



JMP DX.RSTRT 



50000S: 
50001S: 



RTS 



PC 



.END 



PCTRLC - PROCESS CTRL C MACY11 30A(1052) 2G-SEP-78 17:25 PAGE 20 
PCTRLC.MAC 28-JUL-78 09:09 SYMBOl. TABLE 



SEQ 0190 



ACSR = 000102 

ACTBIT= 004000 

ADDR22= 001000 

ADR = OOOOOS 

APTFER= 000004 

APTPRE= 000200 

ASB = 000106 

ASSEMB= 000010 

ASTAT = 000104 

AUTO = 00C010 

AUTOST= 020000 

AWAS = 0001 10 

BITO = 000001 

BITOO = 000001 

BIT01 = 000002 

BIT02 = 000004 

BIT03 = 000010 

BIT04 = 000020 

BIT05 = 000040 

BIT06 = 000100 

BIT07 = 000200 

BIT08 = 000400 

BIT09 = 001000 

BIT1 = 000002 

BIT10 = C02000 

BIT11 = 004000 

BIT12 = 010000 

BIT13 = 020000 

BIT14 = 040000 

BIT15 = 100000 

BIT2 = 000004 

BIT3 = 000010 

BIT4 = 000020 

BIT5 = 000040 

BIT6 = 0001C0 

BIT7 = 000200 

BIT8 = 0004C0 

BIT9 = 001000 

BKDEF = 000002 

3KM0D = 000020 

BKMODE= 040000 

BKSLSH= 000134 

CAPRES= 000004 

CASTAT= 000004 

CDERCT= 000146 

CDWDCT= 000144 

CKTIM = 100000 

CLKPRE= 000001 

CONFIG= 000056 

CQOVF = 000001 

CR = 000015 

CSRA = 000100 

CSRC = 000102 



CTRLC = 000003 
CTRLO = 000017 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= 000400 
DIAGMC= 000000 
DROPMO= 100000 
DSEVNT= 000014 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000034 
DT.CF0= 000014 
DT.CF1= 000016 
DT.ERR= 000020 
DT.ESI= 000044 
DT.EVN= 000000 
DT.EXS= 000060 
DT.FCH= 000037 
DT.FCN= 000036 
DT.HMX= 000104 
DT.KBE= 000024 
DT.KBP= 000026 
DT.KBR= 000022 
DT.KBU= 000030 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = 000002 
DT.PFL= 000062 
DT.PSW= 000004 
DT.PTA= 000064 
DT.RCS= 000102 
DT.REL= 000040 
DT.SCT= 000066 
DT.SMX= 000106 
DT.SP = 000006 
DT.SSI- 000046 
DT.STO= 000010 
DT.5T1= 000012 
DT.SWR= 000056 
DT.SYP= 000072 
DT.WBU= C00050 
DT.WHL= 000054 
DT.WLL= 000052 
DVID1 = 000014 
DX.RST= ****** G 
ECCMEM= 00 0100 
ECCSTA= 000010 
ENBEOP= 010000 
ENBNUL= 000001 
ENDLST= 000000 



EOPBIT= 000001 
ERRTYP= 000106 
EVNTBE= 000200 
EVNTHD= 000200 
EVNTKT* 000203 
EVNTPE= 000202 
EVNTRE= 000201 
FATERR= 100000 
HRDCNT= 000044 
HRDPAS= 000050 
ICONT = 000036 
ICOUNT= .000040 
IDNUM = 000122 
IE = 000100 
INDPAR= 000040 
INHDRP= 040000 
INHEPR= 020000 
INHREL= 001000 
INHRRE= 000400 
INIT = 000030 
INTR = 000120 
IQMOD = 100000 
IOMODP= 102000 
IOMODR= 112000 
IOMODX= 110000 
JACK = 035060 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172345 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 
KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 1723C6 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KTERRO= 000040 
KTPRES= 000400 
KTSTAT= 000020 
KTXTND= 040000 
LF = 000012 
LPSTAT= 000001 
MAPSTA= 0G02C0 
MED = 076600 
MEMPAS* 040000 
MODEXH= 004000 
MODHOL= 002000 



MODSEL= 001000 
MSGCKD= 000010 
W!SGCKS= 000011 
MSGDER= 000C05 
MSGDHO= ****** G 
MSGDRP= 000017 
MSGECH= 177777 
MSGEOP= 000013 
MSGHDR= 000004 
MSGHNG= 000022 
MSGHRD= 000007 
MSGMAP= 000021 
MSGNUL= 177775 
MSGPOP= 000002 
MSGPRM= 177776 
MSGRES= 000001 
MSGSFT= 000006 
MSGSKE= 000003 
MSGSMB= 000015 
MSGSMH= 000014 
MSGSMS= 000016 
MSGSTD= 000000 
MSGSYS= 000012 
MSGVEC= 000020 
N5KM0D= 001000 
NCPU0P= 000020 
N0APTY= 000002 
NULL = 000000 
OWEN = 024020 
PAERR = 000010 
PARPRE= 002000 
PARSTA= 000100 
PASCNT= 000034 
PCTRLC 000004RG 
PC.MSG OOOOOOR 
PDPLSI= 020000 
PDP60 = 004000 
PDP70 = 010000 
PRIO = 000000 
PRI1 = 000040 
PRI4 = 000200 
PRI5 = 000240 
PRI6 = 000300 
PRI7 = 000340 
PRRLOC= ****** G 
PRO = 000000 
PR4 = 000200 
PR5 = 000240 
PR6 = 000300 
PR7 = 000340 
PS = 177776 
PSW = 177776 
RANNUM= 000054 



RBUFEA= 000130 

R3'JFPA= 000126 

RBUFSZ= 000132 

RBUFVA= 000124 

RDSERV= 000101 

RDWHMI= 000022 

RELERR= 000020 

RELMOD= 020000 

RELTIM= 010000 

RES1 = 000056 

RES2 = 000060 

RICHAR= 031060 

RPTCAT= 002000 

RSTRCY= ****** G 

RSTRT = 0001 12 

RUBOUT= 000177 

RJNIV10D= 100000 

R5VALU= 001740 

SAM = 075464 

S3ADR = 000102 

S3KM0D= 000000 

S3KSEL= 010000 

SC.ADR= 000006 

SC.ALC= 000014 

SC.APC= 000016 

SC.CKL= 000002 

SC.CKP= 000004 

SC.CLO= 000000 

SC.HLD= 000C10 

SC.SCA= 000012 

SENDLS= 177777 

SGFCNT= 000042 

SGFPAS= 000046 

SPACE = 000040 

SPOINT= 000032 

SPVALU= 002200 

SRO = 177572 

SRI = 177574 

SR2 = 177576 

SR3 = 172516 

STAT = 000C26 

STATBI= 064757 

STAT1 = 000027 

SUSPND= 000001 

SVRO = 000062 

SVR1 = 000064 

SVR2 = 000066 

SVR3 = 000070 

SVR4 = 000072 

SVR5 = 000074 

SVR6 = 000076 

SYSCNT= 000052 

SYSERR= 000100 



PCTRLC - PROCESS CTRL C MACY1 1 30A(1052) 20-SEP-78 17:35 PAGE 20-1 
PCTRLC.MAC 28-JUL-78 09:09 SYMBOL TABLE 



SEO 0191 



TABL = 


000000 




TMPIO = 


000002 




TQOVF = 


000002 




UIPAR0= 


1 77640 




UIPAR1 = 


1 77642 




UIPAR2= 


1 77644 




UIPAR3= 


177646 




UIPAR4= 


177650 




UIPAR5= 


177652 




UIPAR6= 


177654 




UIPAR7= 


177656 




UIPDRO= 


1 77600 




U1PDR1 = 


177602 




UIPDR2= 


1 77604 




UIPDR3= 


177606 




UIPDR4= 


1 77510 




UIPDR5= 


177612 




UIP0R6= 


1 77614 




UIPDR7= 


177616 




UNIMAP= 


****** Q 




. ABS. 


000000 


000 




000170 


001 



WASADR= 000104 
WBFLIM= ****** G 
W5STAT= 000040 
W3UFEA= 000136 
WBUFPA= 000134 
WBUFRQ= 000140 
WBUFSZ= 000142 
WDFR = 0001 16 
WDTO = 000114 
WTINRE= 000352 
WTWHMI= 000222 
XCSR = ****** G 
XFLAG = 000005 
XOFF = 000023 
XON = 000021 
$BGNLE= 177777 
$ERFLG= 000400 
$FSAND= 000310 
$F$BAD= 000401 
$F$BLA= 000170 



$F$CAS= 000150 
$F$DEC= 000220 
$F$DO = 000340 
$F$FAL= 000405 
$F$GOO= 000400 
$F$IF = 0001 10 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 000160 
$F$NO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RT.N= 000300 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 
$F$YES= 000402 
$IFLEV= 177777 



$ISKO = 000001 
$ISK1 = 000001 
$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000001 
$NESTL= 177777 
$NSKO = 000300 
$NSK1 = 000110 
$NSK2 = 000110 
$SAVLE= 177777 
STAGLE= 177777 
$TAGNU= 050004 
$TEMP = 000300 
$TSKO = 050002 
$TSK1 = 050003 
$$ARGC= 000002 
$$BYTE= 000403 
$$CASE= 000000 
$$DST = 000000 
$$ELOC= 000402 



$$ERFL= 000000 
$SFLAG= 000001 
$$FROM= 000000 
SSLOC = 000136R 
$SLGCN= 000000 
SSREG = 177777 
$$RETU= 000000 
$SRTN1= 050000 
$3RTN2= 050001 
$$SRC = 000000 
$3TGSV= 000000 
$$TGS1= 000000 
$$TGS2= 000000 
$$T0 = 000001 
$S$TAG= 050000 
= 000170R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ: PCTRLC.DSK2: PC TRLC=SPMAC/ML, EQUATE, PCTRLC 
RUN-TIME: 12 2 .4 SECONDS 
RUN-TIME RATIO: 29/15=1.9 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 3CA(*. 052) 20-SEP-70 17:36 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0192 

3 COMMON EQUATE MODULE 

575 PFAIL (COMMON DEFINITIONS AND REFERENCES) 

573 000000' .PRINT ;SPMAC: VERSION 1.1 

606 PFAIL (CODE) 



.MAIN. MACY11 2CA(1052) 20-SEP-78 17:41 

EQUATE. MAC 13-SEP-78 16: 13 TABLE OF CONTENTS SEQ 0272 

3 COMMON EQUATE MODULE 
563 COMMON DEFINITIONS AND REFERENCES 

56S 000000' .PRINT ;SPMAC: VERSION 1.1 

501 BADMEM ROUTINE 



PFAIL (PROCESS POWER FAIL/POWER UP) 
PFAIL. MAC 22-AUG-78 08:29 

503 
509 
510 

51 1 
512 
513 
514 
515 
513 
517 
518 
519 
520 

52 I 
522 
523 
524 
525 
525 
527 
528 
529 
530 
531 
532 
533 
534 
535 
535 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
543 
549 
550 
551 
552 
553 
554 
555 
556 
557 
556 
559 
560 
561 
562 
563 
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COMMON EQUATE MODULE 

.TITLE PFAIL (PROCESS POWER FAIL/POWER UP) 
. IDENT /VO.O/ 

++ 
MODULE NAME: 
PFAIL 

FUNCTIONAL DESCRIPTION: 

THIS MODULE CONTAINS THE FOLLOWING TWO ROUTINES: 



SEQ 0193 



1 . PWRDOWN 

2. PWRUP 



; HANDLES POWER DOWN SEQUENCE. 
-.HANDLES POWER UP SEQUENCE. 



ON POWER FAIL, IF THE SYSTEM CLOCK IS AVAILABLE IT IS TURNED 
OFF, POWER-UP VECTOR IS SET UP, AND THE CPU HALTS. 

ON POWER UP, THE FOLLOWING IS DONE: 

1. SET UP POWER-DOWN VECTOR. 

2. REINITIALIZE STACKS (R5 AND R6). 

3. INCREMENT POWER FAIL COUNT IN DTABLE. 

4. INITIALIZE APARS IF REQUIRED. 

5. TURN KT ON IF IT WAS ON 3EF0RE POWER FAIL. 

6. TURN SYSTEM CLOCK ON IF AVAILABLE. 

7. PRINT POWER FAIL MESSAGE. 

8. JUMP TO BOXOO (DX.RSTRT). 



INPUTS: 

NONE 

IMPLICIT INPUTS: 
1 .DT.STO 

2. DT.CFO 

3. DT.PFL 



STATUS WORD #0 
CONFIGURATION WORD #0 
POWER FAIL COUNT WORD 



OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

1 . DT.STO 

2. DT.PFL 

PATHOLOGICAL CONNECTIONS: 
1 . DTABLE ADDRESS 

SUBORDINATE ROUTINES CALLED: 



1 . 


CLKON 


2. 


CLKOFF 


3. 


MSGDHOOK 


4. 


KTSET 


5. 


RSTRCY 



;CLOCK ON ROUTINE 

;CLOCK OFF ROUTINE 

; OUT PUTS A MESSAGE 

; STUFFS THE KERNEL & USER MODE APARS 

;RESET RECOVERY ROUTINE 



FUNCTIONAL SIDE EFFECTS: 
NONE 



PFAIL 
PFAIL 



(PROCESS POWER FAIL/POWER UP) 
,MAC 22-AUG-78 08:29 
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COMMON EQUATE MODULE 



SEO 0194 



564 
565 
56S 
567 
563 
569 
570 
571 
572 
573 



CALLING SEQUENCE: 

THE MODULES ARE ENTERED DIRECTLY AS A RESULT OF POWER FAIL/ 
POWER UP. 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



602 
603 
604 



000000' 
000000' 



000001 
000001 
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575 
576 
577 
579 
(1) 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
58S 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 



000000' 000000G 

000002' 050045 053517 051105 

000010' 043040 044501 020114 

000016' 041517 052503 051122 

000024' 042105 000045 



MACY11 30A(1052) 20-SEP-78 17;36 PAGE 19-2 
PFAIL (COMMON DEFINITIONS AND REFERENCES) 

.SBTTL PFAIL (COMMON DEFINITIONS AND REFERENCES) 

.MCA Li. STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 
$LSTTAG=1 

• ***** *********** 
; GLOBAL REFERENCES 



POWER FAIL VECTOR - LOC, 
POWER FAIL ENTRY POINT 
POWER UP ENTRY POINT 
RESET RECOVERY ROUTINE 
STUFF APARS 
TURN SYSTEM CLOCK ON 
TURN SYSTEM CLOCK OFF 
TYPE A MESSAGE ROUTINE 
JUMP TO BOXOO 
DATA TABLE 



PF.EXT: #DX.RSTRT ;R£START ROUTINE 
PF.MSG: .ASCIZ /%POWER FAIL OCCURRED%/ 



SEQ 0195 



GLOBL 


PWRFL 


GLOBL 


PWRDOWN 


GLOBu 


PWRUP 


GLOBL 


RSTRCY 


GLOB!. 


KTSET 


GLOBL 


CLKON 


GLOBl 


CLKOFF 


GLOBL 


MSGDHOOK 


GLOBL 


DX.RSTRT 


GLOBL 


DTABLE 


**************** 


LOCAL STORAGE 



24 



EVEN 
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605 
507 
603 
S09 
510 
61 1 
512 000030' 

(2) 000030' 
513 

614 

515 

616 

617 

618 

513 

(4) 

620 

(4) 

621 

(4) 

522 

(4) 

623 

(6) 

(9) 000060' 001405 

624 000062' 

(3) 000062' 010545 
(4) 

(3) 000066' 004767 OOOOOOG 
(3) 
625 
(4) 
626 
(2) 
627 



MACY1 ' 
PFAIL 



30A(1052) 

(CODE) 



20-SEP-76 17:36 PAGE 19-3 



SEQ 0196 



000030' 

000030' 012706 
000034' 

000034' 012705 
000040 ' 

000040' 012700 
000044 ' 

000044' 012767 
000052 ' 
000C52' C32760 



000064' 010045 
000066' 004767 
000072' 012605 
000074' 
000074' 
000074' 
000074' 000000 



002200 

001740 

OOOOOOG 

000076 1 OOOOOOG 

000001 000014 



SBTTL. PFAIL (CODE) 

+ 
POWER DOWN ROUTINE 

INLINE <PWRDOWN:> 



SET RO TO DTABLE ADDRESS. SET UP POWER-UP VECTOR, 
AND TURN OFF SYSTEM CLOCK IF AVAILABLE. THEN HALT. 



LET SP := 0SPVALUE 

LET R5 := #R5VALUE 

LET RO := #DTABLE 

LET PWRFL := #PWRUP 

IF #CLKPRES SETIN DT.CFO(RO) THEN 

CALL CLKOFF IN <R0> 

ENDIF 

INLINE <HALT> 



PWRDOWN: 



50000$: 



MOV 

MOV 

MOV 

MOV 

BIT 
BEQ 

MOV 
MOV 
JSR 
MOV 



HALT 



#SPVALUE,SP 
#R5VALUE,R5 
#DTABLE,RO 

#PWRUP, PWRFL 

#CLKPRES,DT.CF0( 
50000$ 

R5,-(SP) 
R0,-(R5) 
PC, CLKOFF 
(SP)+,R5 



(4) 
657 
658 
659 
660 
661 
662 
(6) 
(9) 
663 
(3) 



000076' 
000076' 
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529 
630 
631 
632 
633 
634 
(2) 
635 
635 
537 
633 
639 
640 
641 
642 
(4) 
543 
(2) 
644 
(4) 
645 
(4) 
646 
(4) 
647 
(6) 
648 
649 
65C 
651 
652 
653 
(6) 
(9) 
654 
(3) 
(4) 
(3) 
(3) 
655 
(3) 
(4) 
(3) 

(3) 
656 



MACY11 30A(1052) 
PFAIL (CODE) 
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SEO 0197 



000076' 

000076' 012767 000030' OOOOOOG 

000104' 

000104' 000005 

000106' 

000106' 012706 002200 

0001 12' 

000112' 012705 001740 

000116' 

000116' 012700 OOOOOOG 

000122' 

000122' 005260 000062 



000126 

0001 26 

0001 34 

000136 

0001 36 

0001 40 

C00142 

000146 

000150 

000150 

000152 ! 

000154 ' 

000160 

000162 

000162 



032760 
001412 

01 0546 
01 0045 
0047S7 
01 2605 

01 0546 
01 0C45 
004767 
012605 



000400 000014 



OOOOOOG 



OOOOOOG 



000162 1 

000162' 0327S0 
000170' 001405 
000172' 
000172' 010546 



000001 000014 



POWER UP ROUTINE 



INLINE <PWRUP:> 



PWRUP: 



SET UP POWER-DOWN VECTOR, INITIALIZE STACKS 
, SET RO TO DTABLE ADDRESS, AND INCREMENT 
POWER-FAIL COUNT WORD IN DTABLE. 



LET PWRFL := #PWRDOWN 

INLINE <RESET> 

LET SP := #SPVALUE 

LET R5 := #R5VALUE 

LET RO := ROTABLE 

LET DT.PFL(RO) := DT.PFL(RO) + #1 



MOV 


#PWRDOWN,PW 


RESET 




MOV 


#SPVALUE,SP 


MOV 


#R5VALUE,R5 


MOV 


#DTABLE,RO 


INC 


DT.PFL(RO) 



IF KT PRESENT THEN MAP APRS AND RESTORE HARDWARE TO PRE-POWER FAIL STATUS 



IF tfKTPRES SETIN DT.CFO(RO) THEN 



CALL KTSET IN <R0> 



CALL RSTRCY IN <R0> 



BIT 

BEQ 

MOV 
MOV 
JSR 
MOV 

MOV 
MOV 
JSR 
MOV 



#KTPRES,DT.CFO(R 
50001$ 

R5,-(SP) 
R0,-(R5) 
PC, KTSET 
(SP)+,R5 

R5,-(SP) 
R0,-(R5) 
PC, RSTRCY 
(SP)+,R5 



ENDIF 



50001$: 



IF SYSTEM CLOCK AVAILABLE, TURN IT ON 



IF #CLKPRES SETIN DT.CFO(RO) THEN 



CALL CLKON IN <R0> 



BIT 
£E0 

MOV 



#CLKPRES,DT.CFO( 
50002$ 

R5,-(SP) 
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(4) 


000174' 


01 0045 




(3) 


000176' 


004767 


000000G 


(3) 


000202 ' 


012605 




564 


000204' 






(4) 


000204' 






365 








663 








667 








568 








669 








570 


000204' 






(4) 


000204' 


012702 


000012 


671 


000210' 






(4) 


000210' 






(6) 


C00210 ' 


005702 




(9) 


000212' 


001410 




672 


000214' 






(4) 


CC0214' 


012701 


177777 


673 


000220' 






(4) 


000220 ' 






(6) 


000220' 


005701 




(9) 


000222' 


001402 




674 


000224' 






(6) 


000224 ' 


005301 




67 5 


000226' 






(4) 


000226' 


000774 




(3) 


000230 ' 






676 


000230' 






(6) 


000230' 


005302 




677 


000232 ' 






(4) 


000232' 


000766 




(3) 


000234' 






678 








679 








680 








681 








682 








683 


000234' 






(4) 


000234 ' 


005046 




684 


000236' 






(4) 


000236 ' 


01 2746 


000244' 


685 


000242' 






(2) 


000242' 


000002 




686 








687 








668 








689 








690 








691 


000244' 






(2) 


000244" 






692 


000244' 






(3) 


000244' 


01 0546 




(7) 


000245 ' 


01 2745 


000276' 


(6) 


000252' 


01 2745 


000002' 


(5) 


000256' 


01 2745 


000002 


(4) 


000262' 


010045 
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PFAIL (CODE) 



ENDIF 



DO A TIMING LOOP TO LET EVERYBODY SETTLE DOWN 



SEQ 0198 



MOV 
JSR 
MOV 



50002$; 



LET R2 := /TD<10> 
WHILE R2 NE #0 DO 



50003$: 



LET R1 := #-1 
WHILE R1 NE #0 DO 



MOV 



TST 
BEQ 

MOV 



LET R1 := R1 - #1 



ENDDO 



LET R2 := R2 - #1 



ENDDO 



50004$: 



NOW LOWER PROIRITY TO 

LET -(SP) := #0 
LET -(SP) := #1$ 
INLINE <RTI> 

PRINT THE POWER FAIL MESSAGE AND JUMP TO DX.RSTRT, 

INLINE <1$:> 

CALL MSGDHOOK IN <R0 , 0MSGPOP , #PF .NISG, #3$> 



CLR 
MOV 
RTI 



1$: 

MOV 
MOV 
MOV 
MOV 
MOV 



R0,-(R5) 
PC,CLKON 
(SP)+,R5 



#~D<10>,R2 



R2 
50004$ 

#-1 ,R1 



50005$: 








TST 


R1 




BEQ 


50006$ 




DEC 


R1 




BR 


50005$ 


50006$: 








DEC 


R2 




BR 


50003$ 



~(SP) 
#1$,-(SP) 



R5,-(SP) 

#3$,-(R5) 

#PF.MSG,-(R5) 

#MSGP0P,-(R5) 

R0,-(R5) 



PFAIL 


(PROCESS 


POWER FAIL/POWER UP) 


MACY1 1 


30A(1052) 


P FAIL. MAC 2 2 


:-AUG-78 


08:29 


PFAIL 


(CODE) 


(3) 


000264 ' 


004767 


OOOOOOG 






(3) 


000270' 


01 2605 








693 


000272' 






INLINE 


<2$:> 


(2) 


C00272 1 










694 


000272' 






INLINE 


<NOP> 


(2) 


000272' 


000240 








595 


000274' 






INLINE 


<BR 2$> 


(2) 


000274' 


000776 








596 


000276' 






INLINE 


<3$:> 


(2) 


000276' 










697 


000276' 






INLINE 


<JMP @PF. 


(2) 


000276' 


000177 


177476 






693 












S99 




000001 




• END 
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SEQ 0199 


JSR 


PC.MSGDHOOK 


MOV 


(SP)+,R5 


2$: 




NOP 




BR 2$ 




3$: 




JMP @PF, 


.EXT 
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SEQ 0200 



ACSR = 


0001 02 


ACTBIT= 


00-000 


ADDR22= 


0010C0 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


C00200 


ASB 


000106 


ASSEMB= 


00 0010 


ASTAT = 


0001 04 


AUTO = 


000010 


AUTOST= 


C20000 


AW A 5 = 


0110 


BITO = 


0000C1 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


3IT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001 000 


BIT1 


000002 


3IT10 = 


002000 


B I T 1 1 = 


004000 


3IT12 = 


010000 


BIT13 = 


020000 


3IT14 = 


040000 


BIT15 = 


1 00000 


31T2 = 


04 


B1T3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BITS = 


000100 


3IT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001 000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


0001 34 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


0C0146 


CDWDCT= 


000144 


CKTIM = 


1 ooooo 


CLKOFF= 


****** Q 


CLKON = 


****** Q 


CLKPRE= 


000001 


CONFIG= 


000056 


CQCVF = 


000001 


CR 


000015 



CSRA = 
CSRC = 
CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO= 
DSEVMT= 
DTAELE= 
DT.ADD= 
DT.AP = 
DT. APK = 
DT.BLS= 
DT.CFO= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR- 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
DX.RST= 
ECCMEM= 
ECCSTA= 



000100 
000102 
000003 
000017 
000025 
0C001 1 
000400 
000000 
100000 
000014 
****** 

000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
00C054 
000052 
000014 
****** 

000100 
000010 



ENBEOP= 

ENBNUL= 

ENDLST= 

EOPBIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDC!MT = 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT = 

INTR = 

IOMOD = 

IOMODP= 

IOMODR= 

IOMODX= 

JACK = 

KIPAR0= 

KIPAR1 = 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSET = 

KTSTAT= 

KTXTND= 

LF 

LPSTAT= 

MAPSTA= 



010000 
000001 
000000 
000001 
0001 05 
000200 
000200 
000203 
C00202 
000201 
1C0O00 
000044 
000050 
000035 
0000*0 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000030 
0C0120 
1 OOOOO 
102000 
1 12000 
1 100C0 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 

000020 
040000 
000012 
000001 
000200 



MED 

MEMPAS= 

MODEXH= 

MODHOL = 

MQDSEL = 

MSGCKD= 

MSGCKS= 

MSGDER= 

MSGDHO= 

MSGDRP= 

MSGECH= 

MSGEOP = 

MSGHDR = 

MSGHNG= 

MSGHRD= 

MSGMAP = 

MSGNUL = 

MSGPOP = 

MSGPRM= 

MSGRES= 

MSGSFT = 

MSGSKE= 

IVlSGSM3 = 

MSGSMH= 

MSGSiV!S = 

MSGSTD= 

MSGSYS= 

MSGVEC= 

NBKMOD= 

NCPUOP = 

NOAPTY= 

NULL = 

OWEN = 

PAERR = 

PARPRE = 

PARSTA= 

PASCNT= 

PDPLSI= 

PDP60 = 

PDP70 = 

PF.EXT 

PF.MSG 

PRIO = 

PRI1 = 

PRI4 = 

PRI5 = 

PRI6 = 

PRI7 = 

PRO 

PR4 

PR5 

PR6 

PR7 



076600 
040000 
004000 
002000 
001000 
000010 
00001 1 
000005 
****** ( 

000017 

177777 

000013 

000004 

000 022 

000007 

000021 

177775 

000002 

177776 

000001 

000006 

000003 

000015 

000014 

000016 

000000 

000012 

000020 

001000 

000020 

000002 

000000 

024020 

000010 

002000 

000100 

000034 

020000 

004000 

010000 

OOOOOOR 

000002R 

000000 

000040 

000200 

000240 

000300 

000340 

000000 

000200 

000240 

000300 

000340 



PS 

PSW 

PWRDOW 

PWRFL = 

PWRUP 

RANNUM= 

RBUFEA= 

R3UFPA= 

RBUFS2= 

RBUFVA= 

RDSERV= 

RDWHMI= 

RELERR= 

RELMOD* 

RELTIM= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRCY= 

RSTRT = 

RUBOUT= 

RUNMCD= 

R5VALU= 

SAM = 

SEADR = 

SBKMOD= 

SBKSEL= 

SC.ADR= 

SC. ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SOFCNT= 

SOFFAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 = 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 = 

SVR2 = 



177776 
177775 
000030RG 

* ** * * * Q 

000076RG 

000054 

000130 

000126 

000132 

000124 

000101 

000022 

000020 

020000 

010000 

000056 

000060 

031060 

002000 

****** Q 

0001 12 
000177 
100000 
001740 
075464 
000102 
000000 
010000 
000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 
000C27 
000001 
000052 
000064 
000066 
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SEQ 0201 



SVR3 = 


000070 




SVR4 = 


000072 




SVR5 = 


000074 




SVR3 = 


00CC76 




SYSCNT= 


000052 




SYSERR= 


0001 00 




IMP 10 = 


C00002 




TQOVF = 


000002 




UIPARO= 


177640 




UIPAR1 = 


1 77642 




UIPAR2= 


177644 




UIPAR3= 


177646 




UIPAR4= 


1 77650 




UIPAR5= 


177652 




UIPAR6= 


177654 




UIPAR7= 


177656 




UIPDRO= 


1 77600 




UIPDR1 = 


177602 




UIPDR2= 


177604 




UIPDR3= 


1 77606 




. ABS. 


000000 


000 




000302 


001 



UIPDR4= 177610 

UIPDR5= 177612 

UIPDR6= 177614 

UIPDR7= 177616 

WASADR= 000104 

WBSTAT= 000040 

WBUFEA= 000136 

WBUFPA= 000134 

WBUFRQ= 000140 

WBUFSZ= 000142 

WDFR = 000116 

WDTO = 000114 

WTINRE= 000352 

WTWHMI= 000222 

XFLAG = 000005 

XOFF = 000023 

XON = 000021 

$BGNLE= 177777 

$ERFLG= 000400 

$F$AND= 000310 



$F$BAD= 00040 I 
$F$BLA= 000170 
$F$CAS= 000150 
$F$DEC= 00C220 
$F$DO = 000340 
$F$FAL= 000405 
$F$GOO= 000400 
$F$IF = 000110 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 000150 
$F$NO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 



$F$YES= 000402 
$IFLEV= 177777 
$ISK0 = 000001 
$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000001 
$NESTL= 177777 
$NSK0 = 000120 
SNSK1 = 000120 
$SAVLE= 177777 
SSSKO = 050004 
$TAGLE= 177777 
$TAGNU= 050007 
$TEMP = 000402 
$TSKO = 050003 
$TSK1 = 050004 
$TSK2 = 050005 
$TSK3 = 050006 
$$ARGC= 000000 
$$BYTE= 000403 



$$CASE= 000000 
SSDST = 000000 
$$ELOC= 000402 
$$ERFL= 000000 
$SFLAG= 000340 
$$FROM= 000000 
$SLOC = 000222R 
$$LOCN= 000000 
$SREG = 177777 
$$RETU= 000000 
SSRTN1= 000000 
$3RTN2= 000000 
$$SRC = 000000 
$$TGSV= 000000 
$3TGS1= 000000 
$$TGS2= 000000 
$$T0 = 000004 
$$<TAG= 050000 
= 000302R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED 



DSKZ : PF A I L , DSK2 : P FA I L = SPMAC/ML , EQUATE , PFAI L 
RUN-TIME: 14 4 .4 SECONDS 
RUN-TIME RATIO: 34/19=1.7 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1C52) 20-SEP-78 17:36 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0202 

3 COMMON EQUATE MODULE 

560 COMMON DEFINITIONS AND REFERENCES 

563 000000' .PRINT ;SPMAC VERSION 1.1 

604 PRRLOC ROUTINE 



BDACNV - BINARY TO DECIMAL-ASCII CONVERSION ROUTINE MACY1 1 30A(1052) 20-SEP-78 17:41 PAGE 20-1 
BDACNV. MAC 28-JUL-78 03:11 BDACNV ROUTINE 



594 
595 
596 
(2) 
597 
593 
599 
500 
501 
502 
(3) 
603 
604 
605 
606 
507 
508 
609 
610 
(4) 
61 1 
612 
613 
614 
515 
516 
61? 
(4) 
618 
619 
520 
621 
622 
623 
624 
(4) 
(6) 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
(4 ) 
(6) 
(9) 
639 
640 



0C0012' 
000012' 



000012 ' 
000012* 



004767 000000G 



000016' 
000016' 



016500 000002 



000022' 
000022' 



012701 000000' 



000026' 

000026' 010004 
000030' 062704 



000005 



000034 : 
000034 
000G34 
000036 

000040 



020004 
103016 



SEQ 0282 



.SBTTL BDACNV ROUTINE 
ROUTINE BDACNV <NUM,ADR> 

SAVE REGISTERS. 
CALL SAVREG 



SET RO TO THE START OF THE STORAGE AREA 
OF THE RESULT. 



BDACNV: 



USR 



PC, SAVREG 



LET RO := ADR(R5) 



SET R1 TO THE ADDRESS OF THE POWERS OF TEN TABLE. 



LET R1 := #BD.TEN 



SET R4 TO COUNT 5 CHARACTERS, 



LET R4 := RO + #5 



MOV 



ADR(R5) ,R0 



MOV 



#BD.TEN,R1 



MOV 
ADD 



RO, R4 
*5,R4 



PERFORM THE CONVERSION. 

1. GET A POWER OF TEN FRCM THE TABLE. 

2. SUBTRACT THIS VALUE FROM THE NUMBER WE ARE 
CONVERTING AS MANY TIMES AS POSSIBLE, KEEPING A COUNT 
OF THE NO. OF TIMES WE SUBTRACTED. 

3. CONVERT THIS COUNT TO ASCII AND STORE IT IN THE 
STORAGE TABLE. 

4. GET THE NEXT POWER OF TEN AND REPEAT. 



WHILE RO LO R4 DO 



LET R3 := #0 



50002$: 



CMP 
BHIS 



R0,R4 
50003$ 
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508 
509 
510 
51 1 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
523 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 



MACY11 30A(1052) 20-SEP-78 
COMMON EQUATE MODULE 



17:36 PAGE 19 



SEO 0203 



TITLE PRRLOC - PROCESS RELOCATION 
IDENT /VO.O/ 

++ 
MODULE NAME: 
PRRLOC 

FUNCTIONAL DESCRIPTION 

CONTROLS THE RELOCATING OF THE RUNTIME EXERCISER FROM 
ITS CURRENT LOCATION IN MEMORY TO A NEW LOCATION. 

INPUTS: 

DATA TABLE ADDRESS 



IMPLICIT INPUTS: 

DT.ADDR, DT.ERR, DT.STO, 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.ADDR 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 

NEWBA 

RELOC 

MSGDHOOK 

BOAC 

SAVREG 

RESREG 



DT.SWR 



ESTABLISH NEW BASE ADDRESS 

RELOCATE CODE 

HOOK MSG TO PROPER OUTPUT DRIVER 

BINARY TO OCTAL ASCII CONVERSION 

SAVE REGISTERS 

RESTORE REGISTERS 



FUNCTIONAL SIDE EFFECTS: 

QUEUEING MECHANISMS ARE INACTIVE DURING RELOCATION 
PROCESSING. 

CALLING SEQUENCE: 

CALL PRRLOC IN <A , B> 

A=DATA TABLE ADDRESS 

B=NEW BASE OFFSET (IF SET TO #0, NEWBA WILL CALCULATE 
A NEW BASE ADDRESS. ) 

VERSION: 
0.0 



EDIT 



BY 



DATE 



REASON 



574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
583 
587 
583 
589 
590 
591 
592 
593 
594 



595 
596 
597 



598 
599 
600 
601 
602 



000000 
000000 
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560 
561 
562 
563 
(1 ) 
364 
565 
56S 
567 
568 
569 
570 
571 
572 



ooooo- 
ooooo- 



000000' 000000 



000002 
000006 
000014 
000022 
000024 
000034 
000036 
000044 
000052 
000060 



000002 
051045 
05210 1 
0201 17 
00 001 
000C45 
051 045 
0521 01 
041 101 
C22504 
00C064 1 



0461 05 
042105 



046105 

04751 1 

051 1 17 

000 
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COMMON DEFINITIONS AND REFERENCES 

.SBTTL. COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTTAG=1 

$LSTIN=1 



**************** 

REFERENCED 3Y OTHER MODULES 

GLOBL PRRLOC 
GLOBL. PR.RL1 

**************** 

GLOBAL REFERENCES 

GlOBL. MSGDHOOK 

GLOBL NEWBA 

GLOBL RELOC 

GLOBL BOAC 

GlOBL SAVREG 

GLOBL. RESREG 

**************** 
LOCAL STORAGE 
PR.RL1 : .WORD 



PR.TBL: .BLKW 2 
041517 PR.MSG: .ASCII /%RELOCATED TO / 
052040 



SEQ 0204 



MODULE ENTRY POINT 
:1ST RELOCATION FLAG 



HOOK MSG TO PROPER OUTPUT DRIVER 

ROUTINE TO FIND NEW BASE OFFSFT 

ROUTINE TO MOVE CODE 

BINARY TO OCTAL ASCII CONVERSION 

SAVE REGISTERS 

RESTORE REGISTERS 



FIRST RELOCATION FLAG - PATHOLOGICALLY 

SET AT INITIALIZATION 
TABLE FOR BOAC ROUTINE 
RELOCATION MESSAGE 



PR.NBR: .BLKB 10 

.ASCIZ /%/ 
041517 PR.MS1: .ASCIZ /%RELOCATION ABORTED%/ 
0201 16 
042524 



EVEN 
**************** 



STORAGE FOR ASCII BASE ADDRESS 
RELOCATION ABORTED MESSAGE 
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604 








605 








60S 








60 7 


000064' 






(2) 


000064' 






603 








603 








610 








61 1 








512 








613 








514 


000064' 






(3) 


000064' 


004767 


OOOOOOG 


615 








316 








617 








513 








619 








620 








521 


000070' 






(4) 


000070' 


016500 


000000 


622 








623 








624 








625 








526 








627 








623 


000074' 






(4) 


000074' 


016003 


000042 


529 








630 








631 








632 








633 








534 








635 








636 








637 








638 


000100 ' 






(4) 


000100' 


162705 


000002 


(3) 


000104' 


01 0546 




(6) 


000106' 


01 6745 


177666 


(5) 


0001 12 ' 


01 0345 




(4) 


0001 14 ' 


01 0045 




(3) 


0001 16' 


004767 


OOOOOOG 


(3) 


000122' 


01 26C5 




(4) 


000124 1 


01 2504 




63S 


0001 26' 






(6) 


000126' 


005765 


000002 


(9) 


000132' 


001402 




640 


000134 ' 






(4) 


000134' 


016504 


000002 


641 


000140 ; 






(4) 


000140 ' 






642 








643 
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PRRLOC ROUTINE 

.SBTTL PRRLOC ROUTINE 



ROUTINE PRRLOC <TABL,BASE> 



SEQ 0205 



PRRLOC: 



SAVE REGISTERS 



CALL SAVREG 



JSR PC, SAVREG 



SET RO TO START OF DATA TABLE 



LET RO := TABL(R5) 



GET THE CURRENT BASE ADDRESS OFFSET 



MOV 



TABL(R5) ,R0 



LET R3 := DT.ADDR(RO) 



MOV DT .ADDR(RO) ,R3 



CALL NEW3A TO GENERATE A NEW BASE OFFSET. (THIS MUST BE DONE, EVEN IF A NEW 
BASE WAS PASSED TO THIS MODULE, TO ASSURE THAT NEWBA IS PROPERLY 
INITIALIZED.) AFTER CALLING NEWBA, IF A NEW BASE ADDRESS WAS PASSED 
TO THE MODULE, USE IT INSTEAD OF THE ONE NEWBA CALCULATED. 



CALL NEWBA IN <R0 , R3 , PR . RL1 > OUT <R4> 



IF BASE(R5) NE #0 THEN 



SUB 


#1*2, R5 


MOV 


R5,-(SP) 


MOV 


PR. RL1 ,-(R5) 


MOV 


R3,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, NEWBA 


MOV 


(SP)+,R5 


MOV 


(R5)+,R4 


TST 


BASE(R5) 


BEO 


50002$ 



LET R4 := BASE(R5) 



MOV 



BASE(R5) ,R4 



ENDIF 



50002$: 
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644 

645 

646 

647 

643 

(3), 

(7) 

(6) 

(5) 

(4) 

(3) 

(3) 

649 

650 

351 

S52 
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654 
655 
656 
657 
(6) 
(9) 
65B 
(4) 
659 
(4) 
660 
661 
662 
663 
664 
665 
665 
667 
663 
669 
(6) 
(9) 
670 
(6) 
(9) 
671 
672 
673 
674 
675 
676 
677 
678 
(4) 
(7) 
(7) 
(7) 
(7) 
(7) 



000140 
000140 
000142 
000146 
000150 
000152 
000154 
000160 



01 0546 
016745 
01 0445 
01 0345 
01 0045 
004767 
012605 



000162' 
000162' 
000170' 
000172' 
000172' 
000174' 
000174' 



0001 74 
0001 74 
000202 
000204 
000204 
000212 



000214' 
000214' 
000216' 
000220' 
000222' 
000224* 
000226' 



032760 
001401 

01 0304 



032760 
001061 



032760 
001054 



01 0401 
006301 
005301 
006301 
006301 
006301 



CALL THE ROUTINE WHICH WILL MOVE THE CODE 



CALL RELOC IN <R0 , R3 , R4 , PR . RL1 > 



177632 



OOOOOOG 



000020 000020 



IF THERE WAS A RELOCATION ERROR, THE EXERCISER WAS RETURNED 
TO ITS STARTING POINT. SO THE NEW BASE EQUALS THE OLD. 



IF #RELERR SETIN DT.ERR(RO) THEN 



LET R4 := R3 



BIT 
BEQ 

MOV 



ENDIF 



50003$: 



IF THE RELOCATION ERROR BIT IS NOT SET 

IN THE ERROR WORD OF THE DATA TABLE, WE HAD A SUCCESSFUL 
RELOCATION, SO FORM AND OUTPUT A MESSAGE, UNLESS INHIBITTED BY THE 
SOFTWARE SWITCH REGISTER. OTHERWISE, OUTPUT AN ERROR MESSAGE. 



000020 000020 



001000 000056 



IF tfRELERR NOTSETIN DT.ERR(RO) THEN 



IF 0INHREL NOTSETIN DT.SWR(RO) THEN 



CONVERT THE NEW BASE OFFSET TO A PHYSICAL ADDRESS AND PUT IT 
IN THE PROPER FORMAT FOR BOAC TO USE. 



BIT 
BNE 



BIT 
BNE 



LET R1 



R4 SHIFT #+6 



SEQ 020S 



MOV 


R5,-(SP) 


MOV 


PR.RL1 ,-(R5) 


MOV 


R4,-(R5) 


MOV 


R3,-(R5) 


MOV 


R0,-(R5) 


USR 


PC, RELOC 


MOV 


(SP)+,R5 



#RELERR,DT.ERR(R 
50003$ 

R3,R4 



#RELERR,DT.ERR(R 

50004$ 

#INHREL,DT.SWR(R 
50005$ 



MOV 


R4 


R1 


ASL 


R1 




ASL 


R1 




ASL 


R1 




ASL 


R1 




ASL 


R1 
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SEQ 0207 



(7) 


000230 


006301 




679 


000232 






(6) 


000232 


01 0402 




(6) 


000234 


000302 




680 








681 








682 








583 








684 








585 








686 


000236 






(6) 


00C236 


032760 


000200 000010 


(9) 


000244 


001405 




687 


000246 






(7) 


00C246 


006202 




(7) 


000250 


006202 




688 


000252 






(6) 


C00252 


042702 


177400 


689 


000256 






(4) 


000256 


0004C4 




(3) 


000260 






690 


000260 






(7) 


000260 


006302 




(7) 


000262 


006302 




691 


000264 






(6) 


000264 


042702 


177717 


692 


000270 






(4) 


000270 






693 








694 


000270 






(3) 


000270 


01 0546 




(7) 


000272 


01 2745 


000024' 


(6) 


000276 


01 0245 




(5) 


00030C 


01 0145 




(4) 


000302 


01 0045 




(3) 


C00304 


0047S7 


OOOOOOG 


(3) 


000310 


01 2605 




695 


00031 2 






(3) 


00031 2 


01 0546 




(7) 


000314 


01 2745 


000344 ' 


(6) 


000320 


01 2745 


000006' 


(5) 


000324 


012745 


000002 


(4) 


000330 


01 0045 




(3) 


00C332 


004767 


OOOOOOG 


(3) 


000336 


01 2605 




696 


000340 






(2) 


000340 


000240 




697 


000342 






(2) 


000342 


000776 




698 








6S9 


000344 






(2) 


000344 






700 


000344 






(4) 


000344 






701 








702 









LET R2 



SWAP R4 



ASL 



MOV 
SWAE 



R1 

R4.R2 
R2 



IF THE UNIBUS MAP IS ENABLED, SET UP FOR 22-BIT ADDRESS CALCULATION 
OTHERWISE SET UP FOR 18-BIT CALCULATION. 



IF #MAPSTAT SETIN DT.STO(RO) THEN 

LET R2 := R2 SHIFT #-2 

LET R2 := R2 CLR.BY #177400 
ELSE 

LET R2 := R2 SHIFT #+2 

LET R2 := R2 CLR.BY #177717 
ENDIF 



CALL BOAC IN <R0 , R1 , R2 , # PR . NBR> 



CALL MSGDHOOK IN <R0 , #MSGPOP , #PR . MSG, #2$> 



BIT 


#MAPSTAT,DT.STO( 


BEQ 


50006$ 


ASR 


R2 


ASR 


R2 


BIC 


#177400, R2 


BR 


50007$ 


50006S: 




ASL 


R2 


ASL 


R2 


BIC 


#177717, R2 


50007$: 




MOV 


R5,-(SP) 


MOV 


#PR.NBR,-(R5) 


MOV 


R2,-(R5) 


MOV 


R1 ,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, BOAC 


MOV 


(SP)+,R5 


> 

MOV 


R5,-(SP) 


MOV 


#2$,-(R5) 


MOV 


#PR.MSG,-(R5) 


MOV 


#MSGP0P,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, MSGDHOOK 


MOV 


(SP)+,R5 



INLINE< 1$: NOP> 
INLINE< ER 1$> 



INLINE <2$:> 
ENDIF 

; + 



50005$: 



2$: 



1$: NOP 



BR 1$ 
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SEQ 0208 



703 








704 








705 








706 


000344 






(4) 


000344 


000415 




(3) 


000346 






707 








708 


00034S 






(3) 


000346 


01 0546 




(7) 


000350 


012745 


0004C0 ' 


(6) 


000354 


01 2745 


000036' 


(5) 


0003S0 


01 2745 


000002 


(4) 


00 0364 


01 0045 




(3) 


000366 


004767 


000000G 


(3) 


000372 


01 2605 




709 








710 


000374 






(2) 


000374 


000240 




71 1 


000376 






(2) 


000376 


000776 




712 


00C4C0 






(2) 


000400 






713 








714 


000400 






(4) 


000400 






715 








716 








717 








718 








713 








720 








721 


000400 






(4) 


000400 


005067 


177374 


722 








723 








724 








725 








726 








727 








728 


000404 






(3) 


000404 


004767 


OOOOOOG 


729 








730 








731 


000410 






(3) 


00041C 






(3) 


000410 






(2) 


000410 


000207 




732 








733 




000001 





; OUTPUT AN ERROR MESSAGE, 



ELSE 



BR 



CALL MSGDHOOK IN <R0 , #MSGPOP , #PR . MSI , #1 0$> 



INLINE<9$: NQP> 
INLINE <BR 9$> 
INLINE <10$:> 

ENDIF 

CLEAR THE FIRST RELOCATION FLAG 
LET PR.RL1 := #0 



CLR 



RESTORE REGISTERS 



CALL RESREG 



ENDRTN 



END 



50000S: 
500013: 



JSR 



RTS 



50010$ 



50004S: 








MOV 


R5,-(SP) 




MOV 


#10$, -(R5) 




MOV 


#PR.MS1 ,-(R5) 




MOV 


#MSGP0P,-(R5) 




MOV 


R0,-(R5) 




JSR 


PC, MSGDHOOK 




MOV 


(SP)+,R5 




9$: 


NOP 




BR 


9$ 




10$: 




50010$: 







PR.RL1 



PC, RESREG 



PC 
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SEQ C20S 



ACSR = 000102 

ACT6IT= 004000 

ADDR22= 001000 

ADR = 000C06 

APTFER= 000004 

APTPRE= 000200 

ASB = 000106 

ASSEM5= 000010 

ASTAT = 000104 

AUTO = C00010 

AUTOST= 020000 

AWAS = 0001 10 

EASE = 000002 

BITO = 000001 

BITOO = 000001 

BIT01 = 000002 

BIT02 = 000004 

BIT03 = 000010 

BIT04 = 000020 

BIT05 = 000040 

BIT06 = 000100 

BIT07 = 000200 

BITOO = 000400 

BIT09 = 001000 

BIT1 = 000002 

BIT10 = 002000 

BIT11 = 004000 

BIT12 = 010000 

BIT13 = 020000 

3IT14 = 040000 

BIT15 = 100000 

BIT2 = 000004 

3IT3 = 000010 

BIT4 = 000020 

BIT5 = 000040 

3IT6 = 000100 

3IT7 = 0002C0 

3118 = 000400 

BIT9 = 001000 

3KDEF = 000002 

BKMOD = 000020 

BKr»iODE= 040000 

BKSLSH= 000134 

BOAC = ****** G 

CAPRES= 000004 

CASTAT= 000004 

CDERCT= 000146 

CDWDCT= 000144 

CKTIM = 100000 

CLKPRE= 000CO1 

CONFIG= 000056 

CQOVF = 000001 

CR = 000015 



CSRA = 000100 
CSRC = 0C0102 
CTRLC = C00C03 
CTRLO = 000017 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= 000400 
DIAGMC= 000000 
DRCPMO= 100000 
DSEVNT= 000014 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000034 
DT.CFO= 000C14 
DT.CF1 = 0C0C16 
DT.ERR= 000020 
DT. ESI=. 000044 
DT.EVN-- CGCOOO 
DT.EXS= 000060 
DT.FCH= 000037 
DT.FCN= 000036 
DT.HMX= 000104 
DT.K3E= 000024 
DT.KBP= 000026 
DT.KBR= 000022 
DT.KBU= 000030 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = 00C002 
DT.PFL= 000062 
DT.PSW= 000004 
DT.PTA= 000064 
DT.RCS= 000102 
DT.REL= 000040 
DT.SCT= 000066 
DT.SMX= 000106 
DT.SP = 000006 
DT.SSI= 00C046 
DT.STO= 000010 
DT.ST1= 000012 
DT.SWR= 000056 
DT.SYP= 000072 
DT.WBU= 000050 
DT.WHL= 000054 
DT.WLL= 000052 
DVID1 = 000014 
ECCMEM= 000100 
ECCSTA= 000010 
ENBEOP= 010000 
ENBNUL= 000001 



ENDLST= 000000 
EOPBIT= 000001 
ERRTYP= 000106 
EVNTBE= 000200 
EVNTHD= 000200 
EVNTKT= 000203 
EVNTPE= 000202 
EVNTRE= 000201 
FATERR= 100000 
HRDCNT= 000044 
HRDPAS= 000050 
ICONT = 000036 
ICOUNT= 000040 
IDNUM = 000122 
IE = 000100 
INDPAR= 000040 
INHDRP= 040000 
INHEPR= 020000 
INHREL= C01C00 
INHRRE= 00C400 
INIT = 000030 
INTR = 000120 
IOMOD = 100000 
IOMODP= 102000 
IOMODR= 112000 
IOMODX= 1 10000 
JACK = 035060 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 
KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KTERRO= 000040 
KTPRES= 000400 
KTSTAT= 000020 
KTXTND= 040000 
LF = 000012 
LPSTAT= 000001 
MAPSTA= 000200 
MED = 076600 
MEMPAS= 040000 
MODEXH* 004000 



MODHOL= 002000 
MODSEL= 001000 
MSGCKD= 000010 
MSGCKS= 000011 
MSGDER= 000005 
MSGDHO= ****** G 
MSGDRP= 000017 
MSGECH^ 177777 
MSGEOP= 000013 
MSGHDR= 000004 
MSGHNG= 000022 
MSGHRD= 000007 
MSGMAP= 000021 
MSGNUL= 177775 
MSGPOP= 000002 
MSGPRM= 177776 
MSGRES= 000001 
MSGSFT= OOCC06 
MSGSKE= 000003 
MSGSMB= 000015 
MSGSMH= 000014 
MSGSMS= 000016 
MSGSTD= 000000 
MSGSYS= 000012 
MSGVEC= 000020 
N5KM0D= 001000 
NCPUOP= 000020 
NEWBA = ****** G 
NOAPTY= 000002 
NULL = OOOOOO 
OWEN = 024020 
PAERR = 000010 
PARPRE= 002000 
PARSTA= 000100 
PASCNT= 003034 
PDPLSI= 020000 
PDP60 = 004000 
PDP70 = 010000 
PRIO = OOOOOO 
PRI1 = 000040 
PRI4 = 000200 
PRI5 = 000240 
PRI6 = 000200 
PRI7 = 000340 
PRRLOC 000064RG 
PR.MSG 000006R 
PR.MS1 000C36R 
PR.NBR 000024R 
PR.RL1 OOOGOORG 
PR.TBL 000002R 
PRO = OOOOOO 
PR4 = 000200 
PR5 = 000240 



PR6 = 000300 

PR7 = 000340 

PS = 177776 

PSW = 177776 

RANNUVI= 000054 

RBUFEA= 000130 

R3UFPA= 000126 

R5UFSZ= 000132 

RBUFVA= 000124 

RDSERV= 000101 

RDWHMI= 000022 

RELERR= 000020 

R£Lrv"OD= 020000 

RELOC = ****** G 

RELTIM= 010000 

RESREG= ****** G 

RES1 = 000055 

RES2 = 000060 

RICHAR= 031060 

RPTDAT= 002000 

RSTRT = 000112 

RU3QUT= 000177 

RUNMOD= 100000 

R5VALU= 001740 

SAM = 075464 

SAVREG= ****** G 

SBADR = 000102 

S3KM0D= OOOOOO 

SBKSEL= 010000 

SC.ADR= 000006 

SC.ALC= 000014 

SC.APC= 000015 

SC.CKL= 000002 

SC.CKP= 000004 

SC.CLO= OOOOOO 

SC.HLD= 000010 

SC.SCA= 000012 

SENDLS= 177777 

SOFCNT= 000042 

SOFPAS- 000046 

SPACE = 000040 

SPOINT= 000032 

SPVALU= 002200 

SRO = 177572 

SR1 = 177574 

SR2 = 177576 

SR3 = 172516 

STAT = 000026 

STATBI= 054757 

STAT1 = 000027 

SUSPND= 000001 

SVRO = 000062 

SVR1 = 000064 
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SYMBOL TABLE 



SEC 0210 



SVR2 = 


000066 




SVR3 = 


000070 




SVR4 = 


000072 


• 


SVR5 = 


000074 




SVR3 = 


000076 




SYSCNT= 


000052 




SYSERR= 


000100 




TABL = 


000000 




TMPIO = 


000002 




TQOVF = 


000002 




UIPAR0= 


1 77640 




UIPAR1 = 


177642 




UIPAR2= 


1 77644 




UIPAR3= 


177646 




UIPAR4= 


177650 




UIPAR5= 


177652 




UIPAR6= 


177654 




UIPAR7= 


177656 




UIPDR0= 


1 77600 




UIPDR1= 


177602 




UIPDR2= 


177604 




. ABS. 


000000 


000 




000412 


001 



UIPDR3= 177606 
UIPDR4= 177610 
UIPDR5= 177612 
UIPDR6= 177614 
UIPDR7= 177616 
WASADR= 000104 
WBSTAT= 000040 
WBUFEA= 000136 
WBUFPA= 000134 
WBUFRQ= 000140 
WBUFSZ= 000142 
WDFR = 000116 
WDTO = 000114 
WTINRE= 000352 
WTWHMI= 000222 
XFLAG = C00005 
XOFF = 000023 
XON = 000021 
$BGNLE= 177777 
$ERFLG= 000400 
$F$AND= 000310 



$F$BAD= 00C401 
$F$BLA= 000170 
$F$CAS= 000150 
$F$DEC= 000220 
$F$DO = 000340 
$FSFAL= 000405 
$F$GOO= 000400 
$F$IF = 000110 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 000160 
$F$NO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 
$F$YES= 000402 



$IFLEV= 177777 
$ISK0 = 000001 
$ISK1 = 0000Q1 
$ISK2 = 000001 
$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000001 
SN'ESTL= 17/777 
$NSK0 = 000300 
SNSK1 = 000110 
$NSK2 = 000110 
$NSK3 = 000110 
$SAVLE= 177777 
$TAGLE= 177777 
$TAGNU= 05001 1 
$TEMP = 000300 
$TSK0 = 050010 
$TSK1 = 050005 
$TSK2 = 050007 
$$ARGC= 000004 
$$BYTE= 000403 



$$CASE= 000000 
$$DST = 000000 
$$ELOC= 000402 
$$ERFL= 000000 
S$FLAG= 000001 
$SFROM= 000000 
$$LOC = 000244R 
$$LOCN= 000000 
$$REG = 177777 
$$RETU= 000000 
$$RTN1= 050000 
$SRTN2= 050001 
SiSRC = 000000 
$$TGSV= 000000 
$STGS1= 000000 
$$TGS2= 000000 
$STO = 000000 
$$$TAG= 050000 
= 000412R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSK2:PRRLOC,DSKZ: PR R LOC= S PMAC/M L , EQUATE , PRRLOC 
RUN-TIME: 14 4 .4 SECONDS 
RUN-TIME RATIO: 37/20=1.8 
CORE USED: 1 4K (27 PAGES) 



.MAIN. MACY11 304(1052) 20-SEP-78 17:37 

EQUATE. MAC 13-SE?-7e 16:13 TABLE OF CONTENTS SEQ 0211 

MODULE 

IONS AND REFERENCES 

.PRINT ;SPMAC: VERSION 1.1 

RL.UP - MOVE CODE UP 

RL.DN - MOVE CODE DOWN 

RL.GOBACK - RETURN CODE TO ORIGINAL LOCATION 



3 


COMMON EQUATE I 


561 


COMMON DEFINIT 


565 


000000' 


605 


RELOC ROUTINE 


780 


ROUTINE 


833 


ROUTINE 


904 


ROUTINE 



BDVSRV SERVICE INTERRUPTS THROUGH INCORRECT VECTORS MACY1 1 30AC»052) 20-SEP-78 17:42 PAGE 19-4 
BDVSRV. MAC 23-JUL-78 09: 11 BADVEC ROUTINE 



SEQ 0291 



532 
633 
634 
635 
636 
637 
638 
539 
640 
541 
(2) 
642 
(2) 
643 
(3) 
(3) 
(2) 
644 
645 
(2) 
646 
(2) 
647 
(3) 
(3) 
(2) 
646 
649 
650 
651 



000014' 
000014' 
000014' 
0C0014' 
000016' 
000016' 
000016' 
000016' 

000020' 
000020' 
000020' 
000020' 
000022' 
0C0022' 
000022' 
000022' 



104000 



000002 



104000 



000002 



SBTTL BADVEC ROUTINE 



EXECUTE EMT INSTRUCTION TO INVOKE ROUTINE TO DETERMINE A BAD VECTOR 
THE EMT WILL ALSO PUSH THE PSW ONTO THE STACK SO IT 
CAN BE READ. BADVC1 IS FOR VECTORS LESS THAN 400, 
BADVEC IS FOR VECTORS 400 AND UP. 



IROUTINE BADVC1 
INLINE <EMT> 
ENDRTI 

IROUTINE BADVEC 
INLINE <EMT> 
ENDRTI 



BADVC1 



50000S: 
50001$: 



BADVEC: 



50000$: 
50001$: 



EMT 



RTI 



EMT 



RTI 
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RELOC. MAC 28-JUL-78 09:09 COMMON EQUATE MODULE 



SEQ 0212 



503 
509 
510 
51 1 
512 
513 
51 4 
515 
51 6 
517 
518 
519 
520 
521 
522 
523 
524 
525 
525 
527 
523 
529 
530 
531 
532 
533 
534 
535 
535 
537 
536 
539 
540 
541 
542 
543 
544 
545 
546 
547 
543 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 



TITLE RELOC - RELOCATE CODE 
IDENT /VO.O/ 

++ 
MODULE NAME: 
RELOC 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE RELOCATES THE MOVABLE PORTION OF THE RUNTIME 
EXERCISER FROM ITS CURRENT LOCATION IN MEMORY TO A NEW AREA 
IF A BAD MEMORY LOCATION IS ENCOUNTERED DURING THE MOVE, 
THE EXERCISER IS RETURNED TO THE CURRENT LOCATION AND 
AN ERROR INDICATOR IS SET. 



INPUTS: 



DATA TABLE ADDRESS, OLD ADDRESS OFFSET, NEW ADDRESS OFFSET, 
FIRST RELOCATION FLAG 



IMPLICIT INPUTS: 

DT.ADDR,DT.ESI2,Df.ERR 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.ERR 

PATHOLOGICAL CONNECTIONS: 

NONE 

SUBORDINATE ROUTINES CALLED: 
SAVREG 
RESREG 
BADMEM 
GPA 



REPORT BAD MEMORY TRANSFER 
GET PHYSICAL ADDRESS 



FUNCTIONAL SIDE EFFECTS: 

CURRENT COPY OF CODE MAY BE OVERLAYED 

CALLING SEQUENCE: 

CALL RELOC IN <A,B,C,D> 

A=ADDRESS OF DATA TABLE 
B=OLD ADDRESS OFFSET 
C=NEW ADDRESS OFFSET 
D=FIRST RELOCATION FLAG 

VERSION: 
0.0 



EDIT 



BY 



DATE 



REASON 
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SEQ 0213 



561 

562 

563 

564 

565 

(1 ) 

563 

567 

563 

559 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

500 

581 

582 

583 

584 

585 

585 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

59S 

600 

601 

602 

603 



000000 
000000 



000000 
000002 
000004' 



C00006 
000010 
000016 
000020 



000001 
0C0001 



000000 
000000 
000000 



000000 
000003 
000000 

oooooo 



.SBTTL COMMON DEFINITIONS AND REFERENCES 



.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: 

$LSTIN=1 

$LSTTAG=1 



VERSION 1.1 



**************** 

REFERENCED BY OTHER MODULES 
GLCBL RELOC 

* * * * ************ 

GLOBAL REFERENCES 

GL03L GPA 

GLOBL SAVREG 

GLOBL RESREG 

GLOBL BADMEM 

**************** 

LOCAL STORAGE 
RL.REG: .WORD 
RL.PAR: .WORD 
RL.ERRCHK: .WORD 



RL.RVAL: .WORD 
RL.TB: : . BLKW 3 
RL.DBD: .WORD 
RL.DGD: .WORD 



;MODULE ENTRY POINT 



ROUTINE TO GET A PHYSICAL ADDRESS 



REPORT BAD MEMORY TRANSFER 



REGISTER VALUE NEEDED TO POINT 
TO TOP OF EXERCISER 

PAR VALUE NEEDED TO POINT 
TO TOP OF EXERCISER 

ERROR-SERVICING FLAG. WHEN SET, 
SERVICE MOVE ERRORS. WHEN NOT SET, 
IGNORE ERRORS. SET AT BEGINNING 
OF ROUTINE, CLEARED AFTER 1ST ERROR 

TEMPORARY STORAGE FOR RL.DN SUBROUTINE 

STORAGE FOR GPA ROUTINE 

BAD DATA OF FAILING LOCATION 
GOOD DATA OF FAILING LOCATION 
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605 








60S 








607 








603 








609 


000022' 






(2) 


000022' 






610 








61 1 








612 








613 








614 








615 








616 


000022' 






(3) 


000022' 


004767 


000000G 


617 








613 








619 








620 








621 








622 








623 


000026' 






(4) 


000026' 


016500 


000000 


624 








625 








626 








627 








628 








629 








630 


000032' 






(2) 


000032' 


01 2746 


000340 


631 


000036' 






(2) 


000036' 


01 2746 


000044' 


632 


000042' 






(2) 


000042' 


000002 




633 








634 


000044' 






(2) 


000044' 






635 








635 








637 








638 








639 


000044' 






(6) 


000044' 


026527 


000006 


(9) 


000052' 


001031 




640 








641 








642 








643 








644 








645 








646 








647 








648 








649 


000054' 






(4) 


000054' 


016003 


000044 


650 


000060 ' 
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.SBTTL RELOC ROUTINE 



PAGE 19-2 



SEQ 0214 



000001 



ROUTINE RELOC <TABL , OLDPAR , NEWPAR , RL1 > 



SAVE REGISTERS 



RELOC: 



CALL SAVREG 

SET RO TO THE START OF THE DATA TABLE 
LET RO := TABL(R5) 

RAISE THE PROCESSOR'S PRIORITY TO 7. 

PUSH #PRI7 
PUSH #10$ 
INLINE <RTI> 

INLINE <10$:> 

IS THIS THE FIRST RELOCATION? 

IF RL1 (R5) EQ #1 THEN 



JSR PC, SAVREG 



MOV TABL(R5),R0 



MOV 


#PRI7,-(SP 


MOV 


#10$, -(SP) 


RTI 





10$: 



CMP 
BNE 



RL1 (R5) ,#1 
50002$ 



YES. FIND THE REGISTER AND PAR VALUES USED AS OFFSETS TO POINT TO 

THE TOP OF THE EXERCISER. THE REGISTER VALUE (RL.REG) IS BITS 0-12 OF THE EXERCISER 

SIZE (DT.ESI2). THE PAR VALUE (RL.PAR) IS 200 MULTIPLIED BY ONE LESS 

THAN THE VALUE IN BITS 13-15 OF DT.ESIZ. 



LET R3 := DT.ESIZ(RO) 

LET RL.REG := R3 CLR.BY #160000 



MOV 



DT.ESIZ(RO) ,R3 
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SEQ 0215 



(4) 


000060' 


010367 


177714 


(6) 


000064' 


042767 


160000 177706 


551 








652 


000072' 






(6) 


000072 ' 


000303 




653 


000074' 






(7) 


C00074' 


006203 




(7) 


OOC076' 


006203 




(7) 


000100' 


0062C3 




(7) 


000102 ' 


006203 




(7) 


000104' 


006203 




654 


000106' 






(6) 


0001 06' 


042703 


177770 


655 


0001 12' 






(4) 


0001 12' 


005067 


177664 


656 


0001 16' 






(6) 


0001 16' 


005303 




557 


000120' 






(4) 


0001 20' 






(6) 


000120' 


005703 




(9) 


0001 22' 


003405 




658 


0001 24' 






(6) 


000124' 


062767 


000200 177650 


659 


000132' 






(6) 


0001 32' 


005303 




660 


0001 34 ' 






(4) 


000134' 


000771 




(3) 


000136' 






661 


000136' 






(4) 


000136' 






662 








663 








664 








665 








666 








667 








668 


000136' 






(4) 


000136' 


012767 


000001 177640 


669 








670 








671 








672 








673 








674 








675 


0C0144' 






(6) 


000144' 


026565 


000004 000002 


(9) 


000152' 


101427 




676 








677 








678 








679 








660 








681 








682 








633 








684 









LET R3 := SWAP R3 

LET R3 := R3 SHIFT #-5 



LET R3 := R3 CLR.3Y #177770 
LET RL.PAR := #0 
LET R3 := R3 - #1 
WHILE R3 GT #0 DO 



LET RL.PAR := RL.PAR + #200 
LET R3 := R3 - #1 



ENDDO 



ENDIF 



SET THE ERROR-SERVICING FLAG 



LET RL.ERRCHK := #1 



ARE WE MOVING UP OR DOWN? 



IF NEWPAR(R5) HI 0LDPAR(R5) THEN 



MOVING UP 



MOV 
BIC 



SWAB 



MOV 



CMP 
BLOS 



R3.RL.REG 
#160000, RL. REG 



R3 





ASR 


R3 




ASR 


R3 




ASR 


R3 




ASR 


R3 




ASR 


R3 




BIC 


#177770, R3 




CLR 


RL. PAR 




DEC 


R3 


50003$: 








TST 


R3 




BLE 


50004$ 




ADD 


#200, RL.PAR 




DEC 


R3 




BR 


50003$ 


500045: 






50002$: 







#1 .RL.ERRCHK 



NEWPAR(R5) .OLDPA 
50005$ 



; + 



SET THE OLD ADDRESS POINTER TO THE TOP ADDRESS OF THE OLD AREA+2 
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LET R1 := RL.REG + #20002 



SEQ 0216 



685 








t 


636 










687 


000154' 








(4) 


000154' 


01 6701 


177620 




(6) 


000160' 


062701 


020002 




688 










689 


C00164' 








(4) 


000164' 


016537 


000002 


172342 


(6) 


000172' 


066737 


177604 


172342 


690 










391 










392 










693 










694 










695 










695 


000200' 








(4) 


C002C0 ' 


016702 


177574 




(6) 


000204' 


062702 


040002 




697 


0Q0210' 








(4) 


00021 ' 


016537 


000004 


172344 


(6) 


000216' 


066737 


177560 


172344 


693 


000224' 








(3) 


000224' 


004767 


000146 




699 










700 










701 


00023G ' 






E 


(4) 


000230' 


000414 






(3) 


000232' 








702 










703 










704 










705 










706 










707 










708 










709 










710 










71 1 










712 


000232 ' 








(4) 


000232' 


01 2701 


020000 




713 


000236' 








(4) 


000236' 


016537 


000002 


172342 


714 










715 










716 










717 










718 










719 










720 


000244' 








(4) 


000244' 


0127C2 


040000 




721 


00C250 ' 








(4) 


000250 ' 


016537 


000004 


172344 


722 


000256' 








(3) 


000256' 


004767 


000224 




723 


000262' 






E 


(4) 


000262' 









LET @#KIPAR1 := 0LDPAR(R5) + RL.PAR 



MOV 
ADD 



MOV 
ADD 



SET THE NEW ADDRESS POINTER TO THE TOP ADDRESS OF THE NEW AREA+2 



LET R2 := RL.REG + #40002 



LET @#KIPAR2 := NEWPAR(R5) + RL.PAR 



CALL RL.UP 



ELSE 



MOV 
ADD 

MOV 
ADD 

J3R 



BR 



50005$: 



MOVING DOWN 

SET THE OLD ADDRESS POINTER TO THE BOTTOM OF THE OLD AREA 

LET R1 := #20000 

LET @#KIPAR1 := 0LDPAR(R5) 

K 

SET THE NEW ADDRESS POINTER TO THE BOTTOM OF THE NEW AREA 

LET R2 := #40000 

LET @#KIPAR2 : = NEWPAR(R5) 

CALL RL.DN 



MOV 
MOV 



MOV 
MOV 
JSR 



RL.REG.R1 
#20002, R1 



0LDPAR(R5) ,@#KIP 
RL.PAR,@#KIPAR1 



RL. REG.R2 
#40002, R2 

NEWPAR(R5) ,@#KIP 
RL. PAR,@#KIPAR2 

PC, RL.UP 



50006$ 



#20000, R1 
0LDPAR(R5) ,@#KIP 



#40000, R2 
NEWPAR(R5) ,@#KIP 
PC, RL.DN 



ENDIF 



50006$: 
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SEQ 0217 



000262' 

C00262 1 012701 

000266' 

000266' 016502 000004 

000272' 

000272' 012703 000006 

000276' 

000276' 

00C276' 

000276' 

000300' 

000300 ' 

C00302' 

000302' 

000306' 

000306' 



005303 



01 0221 



062702 000200 



005703 



000310' 001372 



724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

(4) 000262' 012701 172342 

734 

(4) 

735 

(4) 

736 

(3) 

737 

(6) 

73S 

(4) 

739 

(6) 

740 

(3) 

(6) 

741 

742 

743 

744 

745 

746 

747 

(4) 

743 

749 

750 

751 

752 

753 

754 

(2) 

755 

(2) 

756 

(2) 

757 

756 000332 

(2) 000332 

759 

760 

761 

762 

763 

764 

765 



000312' 

000312' 016560 000004 000042 



000320' 

000320' 01274S 000000 

000324' 

000324' 012745 000332' 

000330 ' 

000330' 000002 



NOW RELOAD THE MEMORY MANAGEMENT PAR'S SO THE EXERCISER 

CALL RUN OUT OF THE NEW AREA. PARO IS NOT CHANGED SINCE IT POINTS 

TO THE LOWEST 4K OF THE EXERCISER, WHICH ALWAYS STAYS IN LOWEST MEMORY. 



= #KIPAR1 

= NEWPAR(R5) 

= #6 



LET R1 

LET R2 

LET R3 

REPEAT 

LET R3 := R3 - #1 
LET (R1 )+ := R2 
LET R2 := R2 + #200 

UNTIL R3 EQ #0 



UPDATE THE CURRENT BASE ADDRESS, 



LET DT.ADDR(RO) : = NEWPAR(R5) 



LOWER THE PROCESSOR'S PRIORITY, 





MOV 


#KIPAR1 ,R1 




MOV 


NEWPAR(R5) ,R2 




MOV 


#6,R3 


50007$: 








DEC 


R3 




MOV 


R2, (R1 )+ 




ADD 


#200, R2 




TST 


R3 




BNE 


50007$ 



MOV 



NEWPAR(R5),DT.AD 



PUSH #PRIO 
PUSH #20$ 
INLINE <RTI> 

INLINE <20$:> 



IF THE RELOCATION WAS UNSUCCESSFUL EECAUSE OF A BAD MEMORY 
LOCATION, OUTPUT A MESSAGE INDICATING THAT LOCATION. 



MOV 
MOV 
RTI 

20$: 



#PRIO,-(SP) 
#20$, -(SP) 
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SEQ 0218 



76S 


000332 ' 






(6) 


000332' 


032760 


000020 000020 


(9) 


000340 ' 


001413 




767 


000342 ' 






(3) 


000342' 


01 0546 




(7) 


000344' 


016745 


177450 


(6) 


000350 ' 


01 6745 


177442 


(5) 


000354' 


01 2745 


000012' 


(4) 


000360' 


01 0045 




(3) 


000362' 


004767 


OOOOOOG 


(3) 


000366' 


012605 




763 


000370' 






(4) 


000370' 






769 








770 








771 








772 








773 








77-4 


000370' 






(3) 


000370' 


004767 


OOOOOOG 


775 








775 


000374' 






(3) 


000374' 






(3) 


000374 ' 






(2) 


000374' 


000207 




777 








77S 









IF 0RELERR SETIN DT.ERR(RO) THEN 



CALL BADMEM IN <R0 , #RL . TB1 +2 , RL . DBD , RL . DGD> 



ENDIF 





BIT 


#RELERR,DT.ERR(R 




BEQ 


50010$ 




MOV 


R5,-(SP) 




MOV 


RL.DGD,-(R5) 




MOV 


RL.DBD,-(R5) 




MOV 


#RL.TB1+2,-(R5) 




MOV 


R0,-(R5) 




JSR 


PC, BADMEM 




MOV 


(SP)+,R5 


50010$: 







RESTORE REGISTERS AND RETURN 



CALL RESREG 



ENDRTN 



50000$: 
50001$: 



JSR 



RTS 



PC, RESREG 



PC 
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780 








781 








782 








783 








784 








785 








786 








787 








788 








789 


000376' 






(2) 


000376' 






790 








791 








792 


000376' 






(4) 


000376' 






(6) 


000376' 


023765 


172342 000002 


(9) 


C00404' 


103437 




793 


000406' 






(4) 


000406' 






(6) 


000406' 


020127 


020000 


(9) 


000412' 


003421 




794 








795 








796 








797 








798 








799 








800 


000414' 






(4) 


000414' 


014142 




801 








302 








803 








304 








805 








806 








807 








808 








809 








810 








811 








812 


000415' 






(6) 


00041 6- 


021 1 12 




(9) 


000420 ' 


001415 




813 


000422' 






(6) 


000422' 


026727 


177356 000001 


(9) 


000430 ' 


00101 1 




814 


000432' 






(3) 


000432' 


004767 


000210 


815 


000436' 






(6) 


000436' 


0627C1 


000002 


8 i 6 


000442' 






(6) 


000442 ' 


062702 


000002 


817 


000446' 






(3) 


000446 ' 


004767 


000034 


818 


000452' 






(4) 


000452' 


000414 
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SBTTL ROUTINE RL.UP - MOVE CODE UP 



THIS SUBROUTINE MOVES CODE TO AN AREA HIGHER IN MEMORY THAN THE CURRENT 
AREA. THE MOVE BEGINS WITH THE HIGHEST ADDRESS TO 3E RELOCATED AND WORKS 
DOWNWARD TO THE LOWEST ADDRESS. EACH TIME THE PAR'S ARE ADJUSTED TO THE 
NEXT LOWEST 4K AREA, THE REGISTERS ARE SET TO THE TOP OF THE 4K AREA. 



SEQ 0219 



ROUTINE RL.UP 



WHILE @#KIPAR1 HIS 0LDPAR(R5) DO 



WHILE R1 GT #20000 DO 



RL.UP: 



50002$ 



50004$ 



CMP 
BLO 



CMP 
BLE 



@#KIPAR1 ,OLDPAR( 
50003$ 



R1 ,#20000 
50005$ 



DECREMENT THE POINTERS AND MOVE A WORD 



LET -(R2) := ~(R1 ) 



MOV 



-(R1),-(R2) 



COMPARE THE CONTENTS OF THE OLD AND NEW ADDRESSES. IF THEY MATCH, KEEP 

GOING. IF THEY DON'T MATCH, THEN SEE IF THE ERROR-SERVICING FLAG IS SET. 

IT IS, CALL THE ERROR ROUTINE AND THEN MOVE THE CODE BACK TO 

WHERE IT WAS AND RETURN TO THE CALLER. IF THE 

ERROR-SERVICING FLAG IS NOT SET, THEN WE HAVE ALREADY DETECTED AN ERROR 

AND DO NOT WISH TO CHECK FOR ANY MORE, SO JUST CONTINUE MOVING CODE. 



IF (R1) NE (R2) THEN 



IF 



IF RL.ERRCHK EO #1 THEN 

CALL RL.GOBACK 
LET R1 := R1 + #2 
LET R2 := R2 + #2 
CALL RL.DN 
RETURN 



CMP 


(R1 ),(R2) 


BEO 


50006$ 


CMP 


RL. ERRCHK,#1 


BNE 


50007$ 


JSR 


PC, RL.GOBACK 


ADD 


#2,R1 


ADD 


#2,R2 


JSR 


PC, RL.DN 


BR 


50000$ 
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319 
(4) 
320 
(4) 
321 
(4) 
(3) 
322 
823 
324 
325 
825 
327 
823 
(4) 
829 
(4) 
330 
(6) 
831 
(6) 
832 
(4) 
(3) 
833 
(3) 
(3) 
(2) 
834 
835 
836 



000454' 
000454' 
000454 ' 
000454' 
000454' 
000454' 
000456' 



ENDIF 



ENDIF 



ENDDO 



000754 



50007$: 
50006$: 

50005$: 



BR 



000456' 

000456' 012701 040000 

000462' 

000462' 012702 060000 

000466' 

000466' 162737 000200 172342 

000474' 

000474' 162737 000200 172344 

000502 ' 

000502' 000735 

000504' 

C00504' 

000504' 

000504' 

0C0504' 000207 



POSITION THE POINTERS TO THE TOP OF THE NEXT LOWER 4K PIECE. 

LET R1 := #40000 

LET R2 := #60000 

LET @#KIPAR1 := @#.KIPAR1 - #200 

LET @#KIPAR2 : = @#KIPAR2 - #200 



ENDDO 



ENDRTN 



RTS 



SEO 0220 



50004$ 





MOV 


#40000, R1 




MOV 


#60000, R2 




SUB 


#200,@#KIPAR1 




SUB 


#200,£>#KIPAR2 




BR 


50002$ 


50003$: 






50000$: 






50001$: 







PC 
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SEO 0221 



838 

839 

840 

341 

342 

843 

344 

345 

346 

847 

343 

349 

350 

351 

852 

(2) 

353 

854 

855 

(4) 

(6) 

856 

(4) 

(6) 

(9) 

857 

(6) 

(9) 

856 

(4) 

859 

(4) 

(3) 

860 

(4) 

(6) 

861 

(4) 

862 

(4) 

(6) 

(9) 

863 

864 

865 

866 

867 

868 

869 

(4) 

870 

871 

872 

873 

874 

875 



000506 
000506 



00C506' 
000506' 
00512 ' 
000516' 
0C0516 1 
000516' 
000522' 
000524' 
000524' 
000530 ' 
000532 ' 
000532' 
000540 ' 
000540 ' 
000542' 
000542 ' 
000542' 
000550 ' 
000556' 
000556' 
000556' 
000556' 
000556' 
000562' 



000564 
000564 



01 6503 
066703 



023703 
101050 

023703 
103004 

01 2767 

000406 



01 6767 
062767 



020167 
101015 



000002 
177264 



172342 



172342 



037776 177246 



177232 
020000 



177224 



177236 
177230 



011112 



.SBTTL ROUTINE RL.DN - MOVE CODE DOWN 



THIS SUBROUTINE MOVES CODE TO AN AREA LOWER IN MEMORY THAN THE CURRENT 

AREA. THE MOVE BEGINS WITH THE LOWEST ADDRESS TO BE RELOCATED AND WORKS 

UPWARD TO THE HIGHEST ADDRESS. EACH TIME THE PAR'S ARE ADJUSTED TO POINT TO 

THE NEXT HIGHER 4K AREA GF MEMORY, THE REGISTERS ARE SET TO POINT TO 

THE BOTTOM OF THE 4K AREA. AND ARE INCREMENTED UNTIL THEY POINT TO THE 

TOP ADDRESS OF THAT 4K AREA. WHEN THE HIGHEST 4K SEGMENT OF THE EXERCISER IS 

REACHED, HOWEVER, THE REGISTERS MUST BE INCREMENTED ONLY TO THE HIGHEST EXERCISER 

ADDRESS AND NOT TO THE TOP OF THE 4K AREA. 



ROUTINE RL.DN 



LET R3 := 0LDPAR(R5) + RL.PAR 



WHILE @#KIPAR1 LOS R3 DO 



IF @#KIPAR1 LO R3 THEN 



RL.DN: 



ELSE 



LET RL.RVAL : = #37776 



LET RL.RVAL := RL.REG + #20000 



ENDIF 

WHILE R1 LOS RL.RVmL DO 





MOV 


0LDPAR(R5) ,R3 




ADD 


RL.PAR.R3 


50002$: 








CMP 


@#KIPAR1 ,R3 




BHI 


50003$ 




CMP 


<9>#KIPAR1 ,R3 




BHIS 


50004$ 




MOV 


#37776, RL.RVAL 




BR 


50005$ 


50004$: 








MOV 


RL.REG, RL.RVAL 




ADD 


#20000, RL.RVAL 


50005$: 






50006$: 








CMP 


R1 , RL.RVAL 




BHI 


50007$ 



MOVE A WORD 



LET (R2) := (R1) 



MOV 



(R1),(R2) 



COMPARE THE CONTENTS OF THE OLD AND NEW ADDRESSES AND THEN INCREMENT 
THE POINTERS. IF THE CONTENTS MATCH, KEEP GCING. IF THEY DON'T MATCH, 
SEE IF THE ERROR-SERVICING FLAG IS SET. IF IT IS, 
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SEO 0222 



876 
877 
878 
879 
880 
381 
882 
(6) 
(9) 
383 
(6) 
(9) 
884 
(3) 
885 
(3) 
386 
(4) 
887 
(4) 
888 
(4) 
889 
(4) 
(3) 
390 
891 
892 
893 
894 
895 
896 
(4) 
897 
(4) 
898 
(6) 
899 
(6) 
900 
(4) 
(3) 
901 
(3) 
(3) 
(2) 
902 



C00565 1 
000566' 
000570' 
000572' 
000572' 
C00600 ' 
000602 ' 
000602' 
000605' 
000606' 
000612' 
0612' 
00061 4 ' 
000614' 
000614' 
000614' 
000614' 
000614' 
000616' 



000616' 
000616' 
000622 ' 
000622' 
000626' 
000526' 
000634' 
000634' 
000642 ' 
000642 ' 
000644' 
000644' 
000644' 
000644 ' 
000644' 



022122 
00141 1 

026727 

C01005 

004767 
004767 
000414 



000760 



CALL THE ERROR ROUTINE, THEN MOVE THE CODE BACK TO WHERE IT WAS 
AND RETURN TO THE CALLER. IF THE ERROR-SERVICING FLAG IS NOT 
SET, THEN WE HAVE ALREADY ENCOUNTERED AN ERROR AND DO NOT WISH TO 
CHECK FOR ANY MORE, SO JUST CONTINUE MOVING CODE. 



IF (R1 )+ NE (R2)+ THEN 



177206 000001 

000040 
177564 



IF RL.ERRCHK EO #1 THEM 

CALL RL.GOBACK 
CALL RL.UP 
RETURN 
ENDIF 



ENDIF 



ENDDO 





CMP 
BEO 


(R1 ) + , (R2) + 

50010$ 




CMP 
BNE 


RL.ERRCHK, #1 
5001 1$ 




JSR 


PC, RL.GOBACK 




JSR 


PC, RL.UP 




BR 


50000$ 


50011$: 






50010$: 






50007$: 


BR 


50006$ 



012701 020000 

01 2702 040000 
062737 000200 172342 
062737 000200 172344 
000725 



000207 



POSITION THE POINTERS TO THE BOTTOM OF THE NEXT 4K SEGMENT. 

LET R1 := #20000 

LET R2 := #40000 

LET @#KIPAR1 := @#KIPAR1 + #200 

LET @#KIPAR2 := @#KIPAR2 + #200 



ENDDO 



ENDRTN 





MOV 


#20000, R1 




MOV 


#40000, R2 




ADD 


#200,(e>#KIPAR1 




ADD 


#200,@#KIPAR2 




BR 


50002$ 


50003$: 






50000$: 






50001$: 







RTS 



PC 
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904 








905 








9CG 








907 








90S 








909 








910 








91 1 








912 








913 








914 








915 








916 








917 








918 








919 








920 








921 








922 








923 


C00546' 






(2) 


000646' 






924 








925 








926 


C00646' 






(4) 


000646' 


010267 


177136 


927 


000652' 






(4) 


000652' 


01 1267 


177140 


928 


000656' 






(4) 


000656 ' 


01 1 167 


177136 


929 


000562 ' 






(3) 


000662' 


01 0546 




(5) 


C00664' 


01 2745 


000010' 


(4) 


C00670 ' 


01 0045 




(3) 


000672' 


004767 


OOOOOOG 


(3) 


000676' 


01 2605 




930 








931 


000700" 






(4) 


000700 ' 


005067 


177100 


932 


000704 ' 






(6) 


000704' 


052760 


000020 000020 


933 








934 








935 


000712 ' 






(4) 


000712 ' 


01 3704 


172342 


936 


000716 ' 






(4) 


000715' 


01 3737 


172344 172342 


937 


000724' 






(4) 


000724 ' 


010437 


172344 


938 








939 


000730 ' 






(^ 


000730' 


01 6504 


000004 


940 


000734' 






(4) 


C00734' 


016565 


000002 0C0004 


941 


000742' 






(4) 


000742 ' 


01 0465 


000002 


942 


000746' 
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SBTTL ROUTINE RL.GOBACK - RETURN CODE TO ORIGINAL LOCATION 



THIS SUBROUTINE IS CALLED UPON THE DETECTION OF A RELOCATION ERROR. 
IT PERFORMS THE FOLLOWING FUNCTIONS: 

(1) SAVES THE ADDRESS OF THE FAILING LOCATION, ALONG WITH ITS 
ACTUAL AND SHCULD-BE CONTENTS. 

(2) CLEARS THE ERROR-SERVICING FLAG. 

(3) SETS THE RELOCATION ERROR BIT OF THE ERROR WORD IN THE 
DATA TABLE. 

(4) REVERSES THE POINTERS. I.E., MOVES THE CONTENTS OF THE OLD ADDRESS 
POINTER INTO THE NEW ADDRESS POINTER, AND VICE VERSA, SO WE 

CAN MOVE THE CODE BACK. 

(5) REVERSES THE VALUES IN OLDPAR AND NEWPAR. THIS ALSO IS 
NECESSARY FOR MOVING THE CODE BACK. 



SEQ 0223 



ROUTINE RL.GOBACK 



RL.GOBACK 



LET 


RL 


TB1 


:= R2 


LET 


RL 


DBD 


:= (R2) 


LET 


RL 


DGD 


:= (R1) 



MOV 



MOV 



MOV 



CALL GPA IN <R0,#RL.TB1> 



LET RL.ERRCHK := #0 

LET DT.ERR(RO) := DT.ERR(RO) SET. BY 0RELERR 

LET R4 := @#KIPAR1 

LET <?>#KIPAR1 := @>#KIPAR2 

LET @#KIPAR2 : = R4 

LET R4 := NEWPAR(R5) 

LET NEWPAR(R5) := 0LDPAR(R5) 

LET 0LDPAR(R5) := R4 

ENDRTN 



R2.RL.TB1 
(R2) .RL.DBD 
(R1 ) ,RL.DGD 



MOV 


R5,-(SP) 


MOV 


#RL.T31 ,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC,GPA 


MOV 


(SP)+,R5 


CLR 


RL.ERRCHK 


BIS 


#RELERR,DT.ERR(R 



MOV @#KIPAR1,R4 

MOV @tfKIPAR2,@#KIPAR 

MOV R4,@#KIPAR2 

MCV NEWPAR(R5) ,R4 

MOV OLDPAR ( R5 ) .NEWPA 

MOV R4,0LDPAR(R5) 
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SEQ 0224 



(3) 000746' 

(3) 000746' 

(2) 000746' 
943 



50000$: 
50001$: 



000207 
000001 



RTS 



.END 



PC 
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SEO 0225 



ACSR = C00102 

ACT8IT= C04000 

ADDR22= 001000 

ADR = 000006 

APTFER= 000C04 

APTPRE= 000200 

ASB = 000106 

ASSEMB= 000010 

ASTAT = 000104 

AUTO = 000010 

AUTOST= 020000 

AWA5 = 0001 10 

BAD:7lEM= ****** G 

BITO = 000001 

BITOO = 000001 

BIT01 = 000002 

BIT02 = 000004 

BIT03 = 000010 

8IT04 = 000020 

BIT05 = 000040 

BIT06 = 000100 

BIT07 = 000200 

BIT08 = 000400 

BIT09 = 001000 

BIT1 = 000002 

BIT10 = 002000 

BIT 11 = 004000 

BIT12 = 010000 

BIT13 = 020000 

BIT14 = 040000 

BIT15 = 100000 

BIT2 = 000004 

BIT3 = 000010 

BIT4 = 000020 

3IT5 = 000040 

BIT6 = 000100 

8IT7 = 000200 

BIT8 = 0C0400 

BIT9 = 001000 

BKDEF = 000002 

BKMOD = 0C0020 

BKV;ODE= C4C000 

BKSLSH= 000134 

CAPRES= 000004 

CASTAT= 000004 

CDERCT= 000146 

CDWDCT= 000144 

CKTIM = 100000 

CLKPRE= C00001 

CONFIG= 000056 

CQCVF = 000001 

CR = 000015 

CSRA = 000100 



CSRC = 000102 
CTRLC = 000003 
CTRLO = 000017 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= 000400 
DIAGMC= 000000 
DROPMO= 100000 
DSEVNT= 000014 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BL5= C00034 
DT.CFO= 000014 
DT.CF1= 000016 
DT.ERR= C00020 
DT.-ESI= 000044 
DT.EVN= OOOOCO 
DT.EXS= 00C050 
DT.FCH= 000037 
DT.FCN= 00C03S 
DT.HMX= 000104 
DT.KBE= 000024 
DT.KBP= 0C0026 
DT.K3R= 000022 
DT.KBU= 000030 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = 000002 
DT.PFL= 000062 
DT.PSW= 000004 
DT.PTA= 000064 
DT.RCS= 000102 
DT.REL= 000040 
DT.SCT= 000066 
DT.SMX= 000106 
DT.SP = 000006 
DT.S3I= 000046 
DT.STO= 000010 
DT.ST1= 000012 
DT.SWR= 000056 
DT.SYP= 000072 
DT.W3U= 000050 
DT.WHL= 000054 
DT.WLL= 000052 
DVID1 = 000014 
ECCMEM= 000100 
ECCSTA= 000010 
ENBEOP= 010000 
ENBNUL= 000001 
ENDLST= 000000 



EOPBIT= 000001 
ERRTYP= 000106 
EVNTBE= 000200 
EVNTHD= 000200 
EVNTKT= 000203 
EVNTPE= 000202 
EVNTRE^ 000201 
FATERR= 100000 
GPA = ****** G 
HRDCNT= 000044 
HRDPAS= 000050 
ICONT = 000035 
ICOUNT= 000040 
IDNUM = 000122 
IE = 000100 
INDPAR= 000040 
INHDRP= 040000 
INHEPR= 020000 
INHREL= 001000 
INHRRE= 000400 
INIT = 000030 
1NTR = 000120 
IGMOD = 100000 
ICMODP= 102000 
IOMODR= 112000 
IGMODX= 110000 
JACK = 035060 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172345 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 
KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KTERRO= 000C40 
KTPRES= 0004C0 
KTSTAT= 000020 
KTXTND= 040000 
LF = 000012 
LPSTAT= 000001 
MAPSTA= 000200 
MED = C76S00 
MEMPAS= 040000 
MQDEXH= 004000 



MODHOL= 002000 
MODSEL= 001000 
MSGCKD= 000010 
MSGCKS= 000011 
MSGDER- 000005 
MSGDRP= 000017 
MSGECH= 177777 
MSGEOP= 000013 
MSGHDR= 000004 
M3GHNG= 000022 
MSGHRD= 00000 7 
MSGMAP= 000021 
MSGNUL= 177775 
MSGPOP= 000002 
MSGPRM= 177775 
MSGRES= 000001 
M5GSFT= 000006 
MSGSKE= 000003 
MSG5MB= 000015 
MSGSMH= 000014 
MSGSMS= 000016 
MSGSTD= OOOCOO 
MSGSYS= 000012 
MSGVEC= 000020 
NBKMOD= 00 1000 
NCPUOP= 000020 
NEWPAR= 00C004 
NOAPTY= 000002 
NULL = OOOCOO 
OLDPAR= 000002 
OWEN = 024020 
PAERR = 000010 
PARPRE= 002000 
PARSTA= 000100 
PASCNT= 000034 
PDPLSI= 020000 
PDP60 = 004000 
PDP70 = 010000 
PRIO = 000000 
PRI1 = 000040 
PRI4 = 000200 
PRI5 = 000240 
PRI6 = 000300 
PRI7 = 000340 
PRO = 000000 
PR4 = 000200 
PR5 = 000240 
PR6 = 000300 
PR7 = 000340 
PS = 177776 
PSW = 177776 
RANNUM= 000054 
RBUFEA= 000130 



R3UFPA= 000126 
R8UFSZ= 000132 
R3UFVA= 000124 
RDSERV= 000101 
RDWHMI* 000022 
RELERR= 000020 
RELMOD= 020000 
RELCC 000022RG 
RELTIM= 010000 
RESREG= ****** G 
RES1 = 000056 
RES2 = 000060 
RICHAR= 031060 
RL.DBD 000015R 
RL.DGD 000020R 
RL.DN 000505R 
Ri_.ERR 000004R 
RL.GOB 00064SR 
RL.PAR 000002R 
RL.REG OOOOOOR 
RL.RVA OOOOOSR 
RL.TB1 000010R 
RL.UP 000376R 
RL1 = 000006 
RPTDAT= 002000 
RSTRT = 000112 
RUBOUT= 000177 
RUNMOD= 100000 
R5VALU= 001740 
SAM = 075464 
SAVREG= ****** G 
5BADR = 000102 
SBKMOD= 000000 
SBKSEL= 010000 
SC.ADR= 000006 
SC.ALC= 000014 
SC.APC= 000016 
SC.CKL= 000002 
SC.CKP= 000004 
SC.CLO= 000000 
SC.HLD= 000010 
SC.SCA= 000012 
SENDLS= 177777 
SOFCNT= 000042 
SOF?AS= 000046 
SPACE = 000C40 
SFOINT= 000032 
SPVALU= 002200 
SRO = 177572 
SR1 = 177574 
SR2 = 177576 
SR3 = 172516 
STAT = 000026 



RELOC - RELOCATE CODE MACY11 30A(1052) 20-SEP-78 17:37 PAGE 2C- 
RELOC.MAC 28-JUL-7S 09:09 SYMBOL TABLE 



SEQ 0226 



STATBI= 


064757 




STAT1 = 


000027 




SUSPNDr: 


000001 




SVRO = 


000062 




SVR1 


000064 




SVR2 = 


000066 




SVR3 = 


000070 




SVR4 = 


000072 




SVR5 = 


000074 




SVR6 = 


000076 




SYSCNT= 


000052 




SVSERR= 


0001 00 




TABL = 


000000 




IMP 10 = 


000002 




TQOVF = 


000002 




UIPAR0= 


177540 




UIPAR1 = 


1 77642 




UIPAR2= 


177644 




UIPAR3= 


1 77646 




UIPAR4= 


177650 




UIPAR5= 


177652 




UIPAR6= 


177654 




UIPAR7= 


177656 




. ABS. 


000000 


000 




000750 


001 



UIPDRO= 177500 
UIPDR1= 177502 
UIPDR2= 177604 
UIPDR3= 177606 
UIPDR4= 177610 
UIPDR5= 177612 
UIPDR6= 177614 
UIPDR7= 177616 
WASADR= 000104 
WBSTAT= 000040 
WBUFEA= 000136 
WBUFPA= 000134 
WBUFRQ= 000140 
WBUFS2= 000142 
WDFR = 0001 16 
WDTO = 000114 
WTINRE= 000352 
WTWHMI= 000222 
XFLAG = 000005 
XOFF = 000023 
XON = 000021 

$BGNLE= 177777 
$ERFLG= 000400 



$F$AND= 000310 
$F$BAD= 000401 
$F$BLA= 000170 
$F$CAS= 000150 
$F$DEC= 000220 
$F$DO = 000340 
$F$FAL= 000405 
$F$GOO= 000400 
$F$IF = C0C1 10 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 000160 
$F$NO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 
$F$YES= 000402 
$IFLEV= 177777 



$ISKO = 000001 
$ISK1 = 000001 
$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000001 
$NESTL= 177777 
$NSKO = 000300 
$NSK1 = 00C120 
$NSK2 = 000120 
$NSK3 = 000110 
$NSK4 = 000110 
$SAVLE= 177777 
$SSKO = 050003 
$TAGLE= 177777 
$TAGNU= 050002 
STEMP = 000300 
$TSKO = 050002 
$TSK1 = 050003 
$TSK2 = 050006 
$TSK3 = 050007 
$TSK4 = 050010 
$TSK5 = 05001 1 
$$ARGC= 000000 



$$3YTE= 000403 
$$CASE= 000000 
$$DST = 000000 
$$ELOC= 000402 
$$ERFL= 000000 
$SFLAG= 000001 
$$FROM= 000000 
$SLOC = 000600R 
$$LGCN= 000000 
$$R£G = 177777 
$$R£TU= 000000 
$$RTN1= 050000 
$3RTN2= 050001 
$$SRC = 000000 
$$TGSV= 000000 
$$TGS1= 000000 
$$TG32= 000000 
$$T0 = 000002 
$$$TAG= 050000 
* 000750R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ: RE LOC.DSKZ:RELOC=SPMAC/ML, EQUATE, RELOC 
RUM-TIME: 22 12 .4 SECONDS 
RUN-TIME RATIO: 57/35=1.6 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 3CA(1052) 20-SEP-78 17:38 

EQUATE. MAC .13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0227 

3 COMMON EQUATE MODULE 

560 COMMON DEFINITIONS & REFERENCES 

563 000000' .PRINT ;SPMAC: VERSION 1.1 

597 RPIRQ (CODE) 



PPIRQ (PIRQ SERVICE ROUTINE) 
RPIRQ. MAC 2S-JUL-73 09:10 

508 
509 
510 
51 1 
512 
513 
514 
515 
516 
517 
513 
519 
520 
521 
522 
523 
524 
525 
523 
527 
523 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
543 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 



MACY11 30A(1052) 20-SEP-78 17:38 PAGE 19 
COMMON EQUATE MODULE 

.TITLE RPIRQ (PIRQ SERVICE ROUTINE) 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
RPIRQ 

FUNCTIONAL DESCRIPTION: 

THIS MODULE SERVICES THE PIRQ TRAP CALL (WHICH IS AN IOT). 

IT ENQUEUES HEADER ADDR. AND RETURN PC OF THE MODULE 

INTO THE CONTROL QUEUE, UPDATES THE SYSTEM STACK AND RETURNS TO 

THE INTERRUPTED ROUTINE. TO ENSURE THAT THE ENQUEUEING ROUTINE 

IS NOT INTERRUPTED, THIS MODULE IS HANDLED AT PRIORITY 7. 

IF A BACKGROUND MODULE IS THE INTERRUPTED MODULE, IT WILL 

BE TAKEN OFF THE AIR. 

INPUTS: 

NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
DATA TABLE ADDRESS 
BACKGROUND HEADER STORAGE 

SUBORDINATE ROUTINES CALLED: 

ENQCQ ;PUT ITEMS ON THE CONTROL QUEUE. 

ERREC ;ERROR RECOVERY ROUTINE 

RSTRCY ;RESTORE STATUS ROUTINE 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

THIS ROUTINE IS ENTERED BY EXECUTING A 'PIRQ' INSTRUCTION. 

VERSION: 
0.0 



SEQ 0228 



EDIT 



DATE 



BY 



REASON 



RPIRQ (PIRQ SERVICE ROUTINE) 
RPIRQ. MAC 28-JUL-78 09:10 

560 
561 
562 

563 000000' 
(1) 000000' 

564 000001 

565 00 00 01 
566 

567 
563 
563 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
58B 
589 

590 000000' 000000G 

591 000005 
592 

593 

594 000014' 

595 



MACY11 30A(1052) 20-SEP-78 17:33 PAGE 19-1 
COMMON DEFINITIONS & REFERENCES 

.S3TTL COMMON DEFINITIONS & REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 
$LSTTAG=1 

**************** 



SEQ 0229 



REFERENCED BY OTHER MODULES 
.GL08L RPIRQ 

; GLOBAL REFERENCES 

.GLOBL ENQCQ 
.GLOBL ERREC 
.GLOBL RSTRCY 

.GLOBL DTABLE 
.GLOBL DX.R5 
. GLOBL DX.SP 
.GLOBL DX.DEQ 

.GLOBL BA.HDR 
.GLOBL BA.RET 
.GLOBL BA.STAT 

; LOCAL STORAGE 

RP.EXT: DX.DEQ 

.REPT ~D<5> 

.WORD 

.ENDR 
RP.R5S: 



;MODULE ENTRY POINT 



ROUTINE TO ENQUE ITEMS ON CONTROL QUEUE 
ERROR RECOVERY ROUTINE 
RESTORE STATUS ROUTINE 

SYSTEM DATA TABLE 
SYSTEM LINK REGISTER 
SYSTEM STACK 
RET ADDR IN BOXOO 

BKMOD HEADER ADDRESS 
BKWiOD RETURN ADDRESS 
BKMOD STATUS WORD 



;GOTO ADDRESS IF INTERRUPTED MODULE IS A BK 
;R5 STORAGE 



;R5 STACK ALLOCATION FOR THIS MODULE 



RPIRQ (PIRQ SERVICE ROUTINE) 
RPIRQ. MAC 28-JUL-78 09:10 



17:38 PAGE 19-2 



597 








593 








599 








500 








601 








602 








S03 


000014' 






(2) 


000014' 






604 








505 








606 








607 








608 








609 


000014' 






(2) 


0C0014' 


010146 




610 


000016' 






(4) 


000016' 


016601 


000002 


61 1 








612 








613 








614 








615 








616 


000022 ' 






(2) 


000C22' 


01 0546 




617 


000024' 






(4) 


000024' 


012705 


000014' 


615 








519 








620 








621 








622 








623 


000030' 






(3) 


000030 ' 


01 0546 




(6) 


000032' 


01 6145 


000002 


(5) 


000036' 


01 1 145 




(4) 


00004C 


01 2745 


OOOOOOG 


(3) 


000044' 


004767 


OOOOOOG 


(3) 


000050' 


012605 




624 








625 








626 








627 








628 








629 


000052' 






(6) 


000052' 


103500 




630 


000054' 






(2) 


000054' 


012605 




63l 








632 








633 








634 








635 








636 








637 


000056' 






(4) 


000056' 


012701 


OOOOOOG 


638 


000062' 







MACY11 30A(1052) 20-SEP-78 
RPIRQ (CODE) 

•SBTTL RPIRQ (CODE) 

* *************** 
PIRQ SERVICE ROUTINE STARTS HERE 

INLINE <RPIRQ:> 

SAVE R1 AND LOAD IT WITH MODULE'S BEGIN ADDRESS 

PUSH R1 

LET R1 := 2(SP) 

SAVE R5 AND ALLOCATE LOCAL R5 STACK 

PUSH R5 

LET R5 := #RP.R5S 

ENQUEUE THE MODULE INTO THE CONTROL QUEUE 
CALL ENQCQ IN <#DTABLE , ( R1 ) , 2 ( R1 ) > 



SEQ 0230 



RPIRQ: 



MOV R1 ,-(SP) 
MOV 2(SP),R1 



MOV R5,-(SP) 
MOV #RP.R5S,R5 



MOV 


R5,-(SP) 


MGV 


2(R1),-(R5) 


MOV 


(R1 ),-(R5) 


MGV 


#DTABLE,-(R5) 


JSR 


PC, ENQCQ 


MOV 


(SP)+,R5 



IF NO ERROR RESTORE R5 STACK 

IF. NO. ERROR THEN 
POP R5 



NOW GET ADDRESS OF DTABLE AND DETERMINE IF BACKGROUND 
MODULE WAS INTERRUPTED. 



ECS 
MOV 



LET R1 := #DTABLE 

IF #BKMODE SETIN DT.ST0(R1) THEN 



50000$ 
(SP)+ f R5 



MOV 



#DTABLE,R1 



RPIRO (PIRQ SERVICE ROUTINE) 
RPIRQ.MAC 28-JUL-73 09 : 1 



MACY11 



30A(1052) 20-SEP-78 17:33 PAGE 19-3 
RPIRO (CODE) 



(6) 
(9) 
639 
640 
641 
642 
643 
644 
645 
646 
547 
(6) 

(a) 

648 
649 
550 
651 
652 
653 
654 
655 
655 
657 
(2) 
658 
(4) 
659 
660 
661 
662 
663 
664 
(4) 
665 
(6) 
666 
667 
668 
669 
670 
(6) 
671 
672 
673 
674 
675 
676 
(2) 
677 
(2) 
678 
(4) 
679 
(4) 
680 
(4) 



000062 
000070 



032761 
001464 



040000 000010 



000072' 

000072' 032766 
C00100' 001060 



000340 000010 



000102' 

000102' 010046 

000104' 

000104' 016700 OOOOOOG 



0001 10 ' 

000110' 116660 
0001 16' 
000116' 052760 



000124' 
000124' 042760 



000012 000C26 



000020 000026 



004000 000026 



0001 32' 
000132 ' 
000136' 
0001 36 ' 
000142 ' 
000142" 
000146' 
000146' 
000152' 
000152' 



012660 000062 



012660 000064 



01 0260 
01 0360 



000066 



000070 



BIT 
BEQ 



SEQ 0231 

#BKMODE,DT.ST0(R 
50001$ 



********************** st.-**************************:^***** *****>(( 



TRY TO DETERMINE IF INTERRUPTED MODULE WAS TRULY A BACKGROUND 

MODULE, THIS IS DONE BY CHECKING THE STACK TO SEE IF THE INTERRUPTED MODULE 

HAS A PRIORITY "0" . 



IF #BIT07!BIT06!BIT05 NOTSETIN 10(SP) THEN 



an************************************************************:)! 



BIT 
BNE 



IF IT WAS A BACKGROUND MODULE THEN GET IT'S HEADER ADDRESS FROM 
"BA.HDR" WHICH CONTAINS THE HEADER ADDRESS OF CURRENT RUNNING 
BACKGROUND MODULE. 



PUSH RO 

LET RO := BA.HDR 

h 
BE SURE TO SAVE THE BKMOD ' S COND CODES IN IT'S STAT WORD 

LET STAT(RO) :B = 12(SP) 

LET STAT(RO) := STAT(RO) SET . BY #BKMOD 

NOW TAKE MODULE OFF THE AIR BY CLEARING ACTBIT. 

LET STAT(RO) := STAT(RO) CLR.BY 0ACT3IT 



M3VB 



BIS 



NOW START SAVING MODULES REGISTERS 

POP SVRO(RO) 
POP SVR1 (RO) 
LET SVR2(R0) : 
LET SVR3(R0) : 
LET SVR4(R0) : 



= R2 
= R3 
= R4 



#BIT07!BIT06!BIT 
50002$ 



MOV RO,-(SP) 

MOV BA.HDR, RO 



12(SP) .STAT(RO) 
#BKMOD,STAT(R0) 



BIC #ACTBIT,STAT(R0) 



010460 000072 



MOV (SP)+,SVR0(R0) 

MOV (SP)+,SVR1 (RO) 

MOV R2,SVR2(R0) 

MOV R3,SVR3(R0) 

MOV R4,SVR4(R0) 



RPIRQ (PIRQ SERVICE ROUTINE) 
RPI3Q.MAC 28-JUL-78 09:10 



681 


000156' 






(4) 


0001 56' 


010560 


000074. 


582 








683 








684 








685 








686 








687 


000162' 






(6) 


000162' 


062706 


000004 


683 








689 








690 








691 








692 








693 








694 


C00166' 






(2) 


00C1 66' 


01 2557 


OOOOOOG 


695 


C00172' 






(4) 


000172' 


01 0660 


000076 


(6) 


000176' 


062760 


000002 000076 


595 








697 








693 








699 








700 








701 








702 


000204' 






(6) 


000204' 


052767 


000001 OOOOOOG 


703 


000212' 






(6) 


000212' 


042761 


040000 000010 


704 








705 








706 








707 








708 








709 


000220 ' 






(4) 


000220' 


01 2600 




710 








71 1 








712 








713 








714 








715 


000222' 






(4) 


000222' 


016705 


OOOOOOG 


716 


000226' 






(4) 


000226' 


016706 


OOOOOOG 


717 








718 








719 








720 








721 








722 


000232' 






(4) 


000232 ' 


01 0046 




723 


000234' 






(4) 


000234' 


016746 


177540 


724 


000240' 







MACY11 30A(1052) 20-SEP-78 1 7 : 38 PAGE 19-4 
RPIRQ (CODE) 

LET SVR5(R0) : 



R5 



MOV 



UPDATE STACK TO LOOK AT INTERRUPTED MODULE 

LET SP := SP + #4 



BEFORE SAVING R6 DETERMINE RETURN ADDRESS OF BACKGROUND 
MODULE BY LOOKING AT STACK 



ADD 



POP BA.RET 

LET SVR6(R0) := SP + #2 



IT IS NOW TIME TO SET THE BACKGROUND SUSPEND BIT IN "BA.STAT 
AND ALSO CLEAR OUT THE "BKMODE" BIT IN DT.STO. 



MOV 



MOV 
ADD 



LET BA.STAT := BA.STAT SET. BY #SUSPND 

BIS 

LET DT.ST0(R1) := DT.ST0(R1) CLR.BY #3KM0DE 

BIC 



GET THE INTERRUPTED MODULE PSW INTO RO 

LE" RO := (SP)+ 

NOW SETUP MONITOR R5 AND R6 STACKS 

LET R5 := DX.R5 
LE'i SP := DX.SP 



MOV 



MOV 
MOV 



SEQ 0232 



R5,SVR5(R0) 



#4,SP 



(SP)+, BA.RET 

SP,SVR6(R0) 
*2,SVR6(R0) 



#SUSPND, BA.STAT 
#BKM0DE,DT.ST0(R 



(SP)+,RO 



DX.R5 r R5 
DX.SP, SP 



LOAD UP PSW ON NEW R6 STACK AND A RETURN ADDRESS AND DO AN RTI TO THAT ADDRESS 



LET ~(SP) := RO 

LET -(SP) := RP.EXT 

INLINE <RTI> 



MOV 
MOV 



RO,-(SP) 
RP.EXT.-(SP) 



RPIRQ (PIRQ SERVICE ROUTINE) 
RPIRQ. MAC 2S-JUL-78 09:10 
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RPIRQ (CODE) 



(2) 


00C240 ' 


000002 




725 


000242 ' 






(4) 


000242 ' 






72S 


000242 1 






(4) 


000242' 






727 








728 








729 








730 








731 








732 








733 


000242' 






(2) 


C00242 1 


01 2601 




734 


C00244' 






(6) 


000244 ' 


062706 


000004 


735 


000250' 






(2) 


000250' 


000002 




736 








737 


000252' 






(4) 


000252' 


000421 




(3) 


000254' 






738 








739 








740 








741 








742 








743 


000254' 






(2) 


000254 ' 


000005 




744 


000256 ' 






(4) 


000256' 


01 6705 


OOOOOOG 


745 


000262 ' 






(4) 


000262 ' 


01 6706 


OOOOOOG 


746 


000266' 






(3) 


000266' 


01 0546 




(4) 


000270 ' 


01 2745 


OOOOOOG 


(3) 


000274' 


004767 


OOOOOOG 


(3) 


000300 ' 


01 2605 




747 








748 








749 








750 








751 








752 


000302 ' 






(3) 


000302' 


01 0546 




(4) 


000304' 


01 2745 


OOOOOOG 


(3) 


00310 ' 


004767 


OOOOOOG 


(3) 


000314' 


012605 




753 


000316' 






(4) 


000316' 






754 




000001 





RTI 



ENDIF 



ENDIF 



50002$: 
50001$: 



WAS NOT BACKGROUND MODULE THEN RESTORE R1 AND ADJUST THE STACK 
AND RETURN TO INTERRUPTED MODULE. 



POP R1 

LET SP := SP + #4 

INLINE <RTI> 



ELSE 



MOV 
ADD 
RTI 

BR 



50000$: 



INLINE <RESET> 

LET R5 := DX.R5 

LET SP := DX.SP 

CALL RSTRCY IN <#DTABLE> 



NOW CALL ERROR RECOVERY ROUTINE 



CALL ERREC IN <#DTABLE> 



ENDIF 
.END 



50003$: 



SEQ 0233 



(SP)+,R1 
#4,SP 

50003$ 



ERROR, CONTROL QUEUE OVERFLOW DO A RESET AND SET UP R5 AND R6 STACKS. 



RESET 

MOV DX.R5.R5 



MOV 


DX.SP, SP 


MOV 


R5,-(SP) 


MOV 


#DTABLE,-(R5) 


JSR 


PC, RSTRCY 


MOV 


(SP)+,R5 



MOV R5,-(SP) 

MOV #DTABLE,-(R5) 

JSR PC, ERREC 

MOV (SP)+,R5 



RPIRO 
RPIRQ. 



(PIRQ 
MAC 



SERVICE 
28-JUL- 



ROUTINE) 
■73 09: 10 



MACY1 1 



30A(1052) 20-SEP-78 
SYMBOL TABLE 



17:33 PAGE 20 



SEQ 0234 



ACSR = 000102 

ACTBIT= 004000 

ADDR22= 001CC0 

ADR = 000006 

APTFER= 000004 

APTPRE= 000200 

ASB = 000106 

ASS£M3= 000010 

ASTAT = 000104 

AUTO = 000010 

AUT3ST= 020000 

AWAS = 00C110 

BA.HDR= ****** G 

BA.RET= ****** G 

BA.5TA= ****** G 

BITO = 000001 

BITOO = 000001 

BIT01 = 000002 

BIT02 = C00004 

BIT03 = G00010 

BIT04 = C00C20 

BIT05 = 00C040 

BIT06 = 000100 

BIT07 = 000200 

BIT08 = 000400 

BIT09 = 00^000 

BIT1 = 000002 

BIT10 = 002000 

BIT11 = 004000 

BIT12 = 01 0000 

BIT13 = 020C00 

BIT14 = 040000 

BIT15 = 100000 

BIT2 = 000004 

3IT3 = 000010 

BIT4 = 000020 

BIT5 = 000040 

BIT6 = C00100 

BIT7 = 000200 

BIT3 = 00040C 

BIT9 = 001000 

BKDEF = 000002 

BKMOD = 000020 

3KM0DE= 040000 

BKSLSH= 000134 

CAPRES= 000004 

CASTAT= 000004 

CDERCT= 000146 

CDWDCT= 000144 

CKTIM = 100000 

CLKPRE= 000001 

CONFIG= 000056 

COOVF = 000001 



CR = 000015 
CSRA = 000100 
CSRC = 000102 
CTRLC = 000003 
CTRLO = 000017 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= 000400 
DIAGMC= 000000 
DROPMO= 100000 
DSEVNT= 000014 
DTABLE= ****** G 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000034 
DT.CFO= 000014 
DT.CF1= 000016 
DT.ERR= 000020 
DT.ESI= 000044 
DT.EVN= 000000 
DT.EXS= 000C60 
DT.FCH= 000037 
DT.FCN= 000036 
DT.HMX= 000104 
DT.KBE= 000024 
DT.KBP= 000026 
DT.KBR= 000022 
DT.KBU= 000030 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = 000002 
DT.PFL= 000062 
DT.PSW= 000004 
DT.PTA= 000064 
DT.RCS= 000102 
DT.REL= 000040 
DT.SCT= OOO0S6 
DT.SMX= 000106 
DT.SP = 000006 
DT.SSI= 000046 
DT.STO= 000010 
DT.ST1= 000012 
DT.SWR= 000056 
DT.SYP= 000072 
DT.W3U= 000C50 
DT.t».HL = 000054 
DT.WLL= 000052 
DVID1 = 000014 
DX.DEQ= ****** G 
DX.R5 = ****** G 



DX.SP = ****** G 
ECCMEM= 000100 
ECCSTA= 000010 
ENBEOP= 010000 
ENBNUL= 000001 
ENDLST= 000000 
ENQCQ = ****** G 
EOPBIT= 000001 
ERREC = ****** G 
ERRTYP= 000106 
EVNTBE= 000200 
EV!MTHD= 000200 
EVNTKT= 000203 
EVNTPE= 000202 
EVNTRE= 000201 
FATERR= 100000 
HRDCNT= 000044 
hRDPAS= 000050 
ICONT = 000035 
ICGUNT= 000040 
IDNUM = 000122 
IE = 000100 
INDPAR= 000040 
INHDRP= 040000 
INHEPR= 020000 
INHREL= 001000 
INHRRE= 000400 
INIT = C0C030 
INTR = 000120 
IOMOD = 100000 
IOMODP= 102000 
IOMODR= 1 12000 
IOMODX= 110000 
JACK = 035060 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 
KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 1723C6 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KTERRO= C00040 
KTPRES= 000400 
KTSTAT= 000020 



KTXTND= 040000 
LF = 000012 
LPSTAT= 00G001 
MAPSTA= 000200 
MED = 076600 
MEMPAS= 040000 
MODEXH= 004000 
MODHOL= 002000 
MODSEL= 00^000 
MSGCKD= 000010 
MSGCKS= 000011 
MSGDER= 000005 
MSGDRP= 000017 
MSGECH= 177777 
MSGEOP= 000013 
MSGHDR= 000004 
MSGHNG= 000022 
MSGHRD= 000007 
MSGMAP= 000021 
M3GNUL= 177775 
MSGPOP= 000002 
MSGPRM= 177776 
MSGRES= 000001 
MSGSFT= 000006 
MSGSKE= 000003 
MSGSMB= 000015 
MSGSMH= 000014 
MSGSMS= 000016 
MSGSTD= 000000 
MSGSYS= 000012 
MSGVEC= 000020 
NBKMOD= 001000 
NCPUOP= 000020 
NOAPTY= 000002 
NULL = 000000 
OWEN = 024020 
PAERR = 000010 
PARPRE= 002000 
PARSTA= 000100 
PASCNT= 000034 
PDPLSI= 020000 
PDP60 = 004000 
PDP70 = 010000 
PRIO * 000000 
PRI1 = 000040 
PRI4 = 000200 
PRI5 = 000240 
PRI6 = 000300 
PRI7 = 000340 
PRO = 000000 
PR4 = 000200 
PR5 = 000240 
PR6 = 000300 



PR7 = 000340 

PS = 177776 

PSW = 177776 

RANNUM= 000054 

RBUFEA= 000130 

R3UFPA= 000126 

R3UFSZ= 000132 

RBUFVA= 000124 

RDSERV= 000101 

RDWHMI= 000022 

RELERR= 000020 

R£LMOD= 020000 

RELTIM= 010000 

RES1 = 000056 

RES2 = 000060 

RICHAR= 031060 

RPIRQ 000014RG 

RPTDAT= 002000 

RP.EXT OOOOOOR 

RP.R5S 000014R 

RSTRCY= ****** G 

RSTRT = 000112 

RUEQUT= 000177 

RUNMOD= 100000 

R5VALU= 001740 

SAM = 075464 

S3ADR = 000102 

S8KW0D= 000000 

53KSEL= 010000 

SC.ADR= 000006 

SC.ALC= 000014 

SC.APC= 000016 

SC.CKL= 000002 

SC.CKP= 000C04 

SC.CLO= 000000 

SC.HLD= 000010 

SC.SCA= 000012 

SENDLS= 177777 

SOFCNT= 000042 

SOFPAS= 000046 

SPACE = 000040 

SPOINT= 000032 

SPVALU= 002200 

SRO = 177572 

SR1 = 177574 

SR2 = 177576 

SR3 = 172516 

STAT = 000026 

STATBI= 064757 

STAT1 = 000027 

SUSPND= 000001 

SVRO = 000062 

SVR1 = 000064 



RPIRQ (PIRQ SERVICE ROUTINE) 
RPIRQ.MAC 28-JUL-73 09:10 
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SEO 0235 



SVR2 = 


000066 




SVR3 = 


000070 




SVR4 = 


000072 




SVR5 = 


000074 




SVRS = 


000076 




SYSCNT= 


00C052 




SYSERR= 


0001 00 




TMPIO = 


00C002 




TQOVF = 


000002 




UIPARO= 


177640 




UIPAR1 = 


177642 




UIPAR2= 


177644 




UIPAR3= 


177646 




UIPAR4= 


177650 




UIPAR5= 


177652 




UIPAR6= 


177554 




UIPAR7= 


1 77656 




UIPDR0= 


177600 




UIPDR1- 


177602 




UIPDR2= 


177604 




UIPDR3= 


1 77606 




. ABS. 


000000 


000 




000316 


001 



UIPDR4= 177610 

UIPDR5= 177612 

UIPDR6= 177614 

UIPDR7= 177616 

WASADR= 000104 

WBSTAT= 000040 

WBUFEA= 000136 

WBUFPA= 000134 

WBUFRQ= 000140 

WBUFSZ= 000142 

WDFR = 000116 

WDTO = 000114 

WTINRE= 000352 

WTWHMI= 000222 

XFLAG = 000005 

XOFF = 000023 

XON = 000021 

$BGNLE= 177777 

$ERFLG= 000400 

$F$AND= 000310 

$F$BAD= 000401 



$F$BLA= 000170 
$F$CAS= 00C150 
$F$DEC= 000220 
$F$DO = 00C340 
$F$FAL= 000405 
$F$GOO= 000400 
$F$IF = 000110 
$F$INC= 000210 
$F$LOO= 00C200 
$F$NAM= 000160 
$F$NO a 000403 
$F$OR = 000320 
$FSRTI= C00350 
$F$RTN= 0003C0 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 
$F$YES= 000402 
$IFLEV= 177777 



SISKO = 000001 
SISK1 = 000001 
SISK2 = 000001 
$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000001 
SNESTL= 177777 
SNSKO = 000110 
$NSK1 = 000110 
$NSK2 = 000110 
$SAVLE= 177777 
$TAGLE= 177777 
$TAGNU= 050004 
$TEMP = 050003 
$TSK0 = 050003 
STSK1 = 050001 
$TSK2 = 050002 
$$ARGC= 000000 
$$BYTE= 000403 
$$CASE= 000000 
$$DST = 000000 



$$ELOC= 000402 
$$ERFL= 000000 
$$FLAG= 000001 
$$FROM= 000000 
$$LOC = 000100R 
$$LOCN= 000000 
$$REG = 177777 
$SRETU= 000000 
$SRTN1= 000000 
$$RTN2= 000000 
$$SRC = 000000 
$5T3SV= 000000 
$STGS1= 000000 
$$TGS2= 000000 
$$T0 = 000001 
$$$TAG= 050000 
= 000316R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSK2 : RP I R0.DSK2-.R PI RQ^SPMAC/ML, EQUATE, RPIRQ 
RUN-TIME: 14 4 .3 SECONDS 
RUN-TIME RATIO: 39/19=1.9 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:38 

EQUATE. MAC 13-SEP-78 16=13 TABLE OF CONTENTS SEQ 0236 

3 COMMON EQUATE MODULE 

553 COMMON DEFINITIONS AND REFERENCES 

556 000000' .PRINT ;SPMAC: VERSION 1.1 

582 RSTRCY ROUTINE 



RSTRCY - RESET RECOVERY MACY1 1 30A(1052) 20-3EP-78 17:33 PAGE 19 
RSTRCY.MAC 08-SEP-78 08: 17 COMMON EQUATE MODULE 



SEQ C237 



503 
509 
510 
51 1 
512 
513 
514 
515 
516 
517 
513 
519 
520 
521 
522 
523 
524 
525 
525 
527 
523 
529 
530 
531 
532 
533 
534 
535 
536 
537 
533 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 



TITLE RSTRCY - RESET RECOVERY 
IDENT /VO.O/ 

++ 
MODULE NAME: 
RSTRCY 

FUNCTIONAL DESCRIPTION: 

RESTORES PROCESSOR HARDWARE OPTIONS TO THE STATES THEY WERE 
IN BEFORE THE "RESET" WAS ISSUED. 

INPUTS: 

DATA TABLE ADDRESS 

IMPLICIT INPUTS: 
DT.STO 
DT.CFO 
DT.PTA 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
DT.KBRSP 

SUBORDINATE MODULES CALLED: 

KPON - PARITY ON ROUTINE 

FUNCTIONAL SIDE EFFECTS: 

NONE 

CALLING SEQUENCE: 

CALL RSTRCY IN <A> 

A=DATA TABLE ADDRESS 

VERSION: 
0.0 



EDIT 



BY 



DATE 



REASON 



RSTRCY 


- RESET 


RECOVERY MACY11 


RSTRCY. 


MAC 08-SEP-78 08: 17 


553 






554 






555 






556 


000000 




(1 ) 


000000 




557 




000001 


558 




000001 


559 






560 






561 






562 






563 






564 






565 






565 






567 






563 






569 






570 






571 






572 






573 






574 






575 






576 






577 






573 






579 


000000 


000002' 


580 


000002 


000015 



30A(1052) 20-SEP-78 17:38 PAGE 1S-1 

COMMON DEFINITIONS AND REFERENCES 

.SBTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



**************** 

REFERENCED BY OTHER MODULES 
GLOBL RSTRCY 
**************** 

GLOBAL REFERENCES 

GLOBL KONTRL 
GLOBL CCNTRL 
GLOBL KPON 

**************** 
LOCAL STORAGE 

RST.PTR: .WORD RST.BUF 
RST.BUF: .WORD <CR> 



SEQ 0238 



iMODULE ENTRY POINT 



BUFFER TO CACHE REGISTER 
CACHE REGISTER 
PARITY ON ROUTINE 



FAKE BUFFER POINTER 
FAKE BUFFER 



RSTRCY - RESET RECOVERY MACYl 1 30A(1052) 2C-SEP-78 17:38 PAGE 19~2 
RSTRCY.MAC 08-SEP-78 08:17 RSTRCY ROUTINE 



SEQ 02*39 



582 
583 
584 
585 
(2) 
586 
587 
588 
589 
590 
59) 
592 
(2) 
(3) 
593 
594 
595 
595 
597 
593 
599 
(4) 
600 
601 
602 
603 
604 
605 
605 
607 
(6) 
(9) 
603 
(6) 
609 
(6) 
(9) 
610 
(6) 
611 
(4) 
612 
(4) 
613 
614 
615 
616 
617 
618 
619 
620 
(6) 
(9) 
621 
(6) 
622 



000004 
000004 



000004' 

000004 

000006 



000010' 
000010 ' 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
00 

ooco 

0000 
0000 
0000 



14 
14 
22 
24 
24 
32 
32 
40 
42 
42 
50 
50 
50 
50 



000050 
000050 
000056 
000060 
000060 
000066 



01 0046 
01 0146 



016500 000000 



032760 
00141 2 

052737 

C32760 
001403 



000020 000010 



001001 
001000 



177572 
000014 



052737 000020 172516 



032760 000200 
001403 



000010 



.SBTTL RSTRCY ROUTINE 



ROUTINE RSTRCY <TABL> 



SAVE REGISTERS 



PUSH R0,R1 



SET RO TO THE START OF THE DATA TABLE 



RSTRCY: 



LET RO := TABL(R5) 



IF MEMORY MANAGEMENT WAS ENABLED, RE-ENABLE IT, INCLUDING 
22-BIT ADDRESSING IF IT EXISTS. 



IF ffKTSTAT SETIN DT.STO(RO) THEN 

LET @#SRO := @#SRO SET. BY #001001 
IF #ADDR22 SETIN DT.CFO(RO) THEN 

LET <a>4SR3 := @#SR3 SET. BY #BIT04 
ENDIF 
ENDIF 



50003$: 
50002$: 



052737 000040 172516 



IF THE UNI6US MAP HAD BEEN ENABLED, RE-ENABLE IT, 



IF 4MAPSTAT SETIN DT.STO(RO) THEN 



LET @#SR3 := @#SR3 SET. BY #BIT05 



ENDIF 



MOV 
MOV 



MOV 



BIT 
BEO 

BIS 

BIT 
BEQ 

BIS 



BIT 
EEO 

BIS 



RO,-(SP) 
R1,-(SP) 



TABL(R5) ,R0 



#KTSTAT,DT.STO(R 
50002$ 

#001001 ,@#SR0 

#ADDR22,DT.CF0(R 
50003$ 

#BIT04,@#SR3 



#MAPSTAT,DT.STO( 
50004$ 

#BIT05,@#SR3 



RSTRCY - RESET RECOVERY MACY1 1 30A(1C52) 20-SEP-78 17:38 PAGE 19-3 
RSTRCY. MAC 08-SEP-78 08:17 RSTRCY ROUTINE 



SEQ 0240 



(4) 


000066' 








623 










624 










625 










625 










327 










528 










329 










530 










631 










532 


C00066 1 








(6) 


000066' 


032760 


000100 


000010 


(8) 


000074' 


00 1004 






(6) 


000076' 


032760 


000010 


000010 


(9) 


0001 04' 


00141 1 






(S) 


0001 05' 








633 


0001 06' 








(3) 


C00106- 


01 0546 






(5) 


0001 10 ' 


01 2745 


000000 ' 




(4) 


0001 14' 


01 0045 






(3) 


0001 16' 


004767 


OOOOOOG 




(3) 


000122' 


01 2605 






634 


000124' 








(4) 


0C0124' 


005060 


000022 




635 


0001 30 ' 








(4) 


000130' 








635 










637 










638 










639 










540 










541 










642 










543 










644 


0001 30' 








(6) 


0001 30 ' 


032760 


000004 


000014 


(9) 


0001 36' 


001424 






645 


0001 40 ' 








(6) 


0001 40 ' 


032760 


000004 


000010 


(9) 


000146' 


001 006 






646 


000150 ' 








(6) 


000150' 


052767 


000014 


OOOOOOG 


647 


000156' 








(4) 


000156' 


01 6777 


OOOOOOG 


OOOOOOG 


648 


000164' 








(4) 


0001 64' 








649 


0001 64' 








(6) 


0001 64' 


032760 


000100 


000010 


(9) 


0001 72 ' 


001006 






650 


0001 74 ' 








(6) 


0001 74' 


052767 


000203 


OOOOOOG 


651 


000202' 








(4) 


0002C2 ' 


016777 


OOOOOOG 


OOOOOOG 


652 


00021C ' 








(4) 


000210' 








653 


000210' 









50004$: 



IF PARITY OR ECC HAD BEEN ENABLED, RE-LOAD THE PARITY REGISTERS. 
BY CALLING KPCN ROUTINE AND PASSING THE ADDRESS 

OF FAKE BUFFER. THEN CLEAR OUT KEYBOARD RESPONSE LOACATION IN 
DTABLE TO ELIMINATE OUTPUTTING MESSAGE. 



IF #PARSTAT SETIN DT.STO(RO) OR #ECCSTAT SETIN DT.STO(RO) THEN 



CALL KPON IN <R0 , #RST . PTR> 



LET DT.KBRSP(RO) := #0 



BIT 


#PARSTAT 


DT.ST0( 


BNE 


50005$ 




BIT 


#ECCSTAT 


DT.STO( 


BEQ 


50006$ 




0005S: 






MOV 


R5,-(SP) 




MOV 


#RST.PTR 


-(R5) 


MOV 


R0,-(R5) 




JSR 


PC, KPON 




MOV 


(SP)+,R5 





CLR 



ENDIF 



50006$: 



SEE IF CACHE MEMORY IS PRESENT. IF IT IS, AND IF IT HAD BEEN 
DISABLED, THEN RE-DISABLE IT. ALSO, IF CACHE IS PRESENT AND IF 
PARITY HAD BEEN DISABLED, THEN CACHE PARITY MUST BE RE-DISABLED, 



IF #CAPRES SETIN DT.CFO(RO) THEN 

IF #CASTAT NOTSETIN DT.STO(RO) THEN 

LET KONTRL := KONTRL SET. BY #14 
LET @CCNTRL := KONTRL 

ENDIF 

IF #PARSTAT NOTSETIN DT.STO(RO) THEN 

LET KONTRL := KONTRL SET. BY #203 
LET @CCNTRL := KONTRL 
ENDIF 

ENDIF 



DT.KBRSP(RO) 





BIT 

BEQ 


#CAPRES,DT.CF0(R 
50007$ 




BIT 
BNE 


#CASTAT,DT.ST0(R 
50010$ 




BIS 


#14, KONTRL 




MOV 


KONTRL, @CCNTRL 


50010$: 








BIT 

BNE 


#PARSTAT,DT.STO( 
5001 1$ 




BIS 


#203, KONTRL 




MOV 


KONTRL, @CCNTRL 


50011$: 
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SEQ 0241 



(4) 


00C210' 




654 






655 






65S 






657 






353 






659 






660 


000210' 




(2) 


000210' 


01 2601 


(3) 


000212' 


01 2500 


661 






662 


000214' 




(3) 


000214' 




(3) 


000214' 




(2) 


000214' 


000207 


663 




000001 



50007$: 



RESTORE REGISTERS AND RETURN. 



POP R1 ,R0 



ENDRTN 



.END 



50000$ 
50001$: 



MOV 
MOV 



RTS 



(SP)+,R1 
(SP)+,R0 



PC 



RSTRCY - RESET RECOVERY MACY1 1 30A(1052) 20-SEP-78 17:38 PAGE 20 
RSTRCY.MAC 08-SEP-78 08 : 1 7 SYMBOL TABLE 



SEO 0242 



ACSR = 000102 
ACT3IT= 004000 
ADDR22= 001000 
ADR = 000006 
APT< r ER= 000004 
APTPRE= 000200 
ASB = 0C0106 
ASSEM3= 000010 
ASTAT = 000104 
AUTO = 000010 
AUTOST= 020000 
AWAS = 0001 10 
BITO = 000001 
BITOO = 000001 
BIT01 = 000002 
BIT02 = C00004 
BIT03 = 000010 
BIT04 = 000020 
BIT05 = 000040 
BIT06 = 000100 
BIT07 = 000200 
BIT08 = 000400 
BIT09 = 001000 
BIT1 = 000002 
BIT10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT15 = 1000C0 
BIT2 = 0000C4 
BIT3 = 000010 
3IT4 = 000020 
BIT5 = 000040 
3IT6 = 000100 
BIT7 = 000200 
3IT8 = 000400 
BIT9 = 0010C0 
BKDEF = 000002 
BKMOD = 000020 
BKMODE= 040000 
3KSLSH= 0C0134 
CAPRES= 0C0004 
CASTAT= 000004 
CCNTRL= ****** G 
CDERCT= 000146 
CDWDCT= 000144 
CKTIM = 100000 
CLKPRE= 000001 
CONFIG= 000056 
CQOVF = 000001 
CR = 000015 
CSRA = 000100 



CSRC = 000102 
CTRLC = 00C003 
CTRLO = 000017 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= 000400 
DIAGMC= 000000 
DRO?MO= 100000 
DSEVNT= 000014 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 00C076 
DT.BLS= 000034 
DT.CFO= 000014 
DT.CF1= 000016 
DT.ERR= 000020 
DT.ESI= 000044 
DT.EVN= 000000 
DT.EXS= 000060 
DT.FCH= 000037 
DT.FCN= C00036 
DT.HMX= 000104 
DT.KBE= 000024 
DT.K3P= 000026 
DT.KBR= 000022 
DT.KBU= 000030 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = 000002 
DT.PFL= 000062 
DT.PSW= C00004 
DT.PTA= 0000S4 
DT.RCS= 000102 
DT.REL= 000040 
DT.SCT= 0C0066 
DT.SMX= 000106 
DT.SP = 000006 
DT.SSI= 000046 
DT.STO= C00010 
DT.ST1= 000012 
DT.SVJR= 000C56 
DT.SYP= 000072 
DT.WB'J= 000050 
DT.WHL= 000054 
DT.WLL= 000052 
DVID1 = 000014 
ECCMEM= 000100 
ECCSTA= 000010 
ENBEOP= 010000 
ENBNUL= 000001 
ENDLST= 000000 



EOPBIT= 000001 
ERRTYP= 000105 
EVNTBE= 000200 
EVNTHD= 000200 
EVNTKT= 000203 
EVNTPE= 000202 
EVNTRE= 000201 
FATERR= 100000 
HRDCNT= 000044 
HRDPAS= 000050 
ICONT = 00C036 
ICOUNT= 000040 
IDNUM = 000122 
IE = 000100 
INDPAR= 000040 
INHDRP= 040000 
INHEPR= 020000 
INHREL= 001000 
INHRRE= 000400 
INIT = 000030 
INTR = 000120 
IOMOD = 100000 
IOMODP= 102000 
IOMODR= 112000 
IOMODX* 110000 
JACK = 035050 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172345 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 
KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KONTRL= **^*** G 
KPON = ****** G 
KTERRO= 000040 
KTPRES= 0004C0 
KTSTAT= 000020 
KTXTND= 040000 
LF = 000012 
LPSTAT= 000001 
MAPSTA= 000200 
MED = 07S600 
MEMPAS= 040000 



MODEXH= 004000 
MODHOL= 002000 
MODSEL= 001000 
MSGCKD= 000010 
MSGCKS= 000011 
MSGDER= 000005 
MSGDRP= 000017 
MSGECH= 177777 
MSGEOP= 000013 
MSGHDR= 000004 
MSGHNG= 000022 
MSGHRD= 000C07 
MSGMAP= 000021 
MSGNUL= 177775 
MSGPOP= 000002 
MSGPRM= 177776 
MSGRES= 000001 
MSGSFT= 000006 
MSGSKE= 000003 
MSGSMB= 000015 
MSGSMH= 000014 
MSGSMS= 000016 
MSGSTD= 000000 
MSGSYS= 000012 
MSGVEC= 000020 
NBKMOD= 001000 
NCPUOP= 000020 
NOAPTY= 000002 
NULL = 000000 
OWEN = 024020 
PAERR = 000010 
PARPRE= 002000 
PARSTA= 000100 
PASCNT= 000034 
PDPLSI= 020000 
PDP60 = 004000 
PDP70 = 010000 
PRIO = 000000 
PRI1 = 000040 
PRI4 = 000200 
PRI5 = 000240 
PRI6 = 000300 
PRI7 = 000340 
PRO = 000000 
PR4 = 000200 
PR5 = 000240 
PR6 = 000300 
PR7 = 000340 
PS = 177776 
PSW = 177776 
RANNUM= 000054 
RBUFEA= 000130 
RBUFPA= 000126 



RBUFS2= 000132 

RBUFVA= 000124 

RDSERV= 000101 

RDWHMI= 000022 

RELERR= 000020 

RELMOD= 020000 

RELTIM= 010000 

RES1 = 000056 

RES2 = 000060 

RICHAR= 03I060 

RPTDAT= 002000 

RSTRCY 000004RG 

RSTRT = 0C0112 

RST.BU 000002R 

RST.PT OOOOOOR 

RUBGUT= 000177 

RUNMOD= 10C000 

R5VALU= 001740 

SAM = 075464 

S3ADR = 000102 

SBKMOD= 000000 

SBKSEL= 010000 

SC.ADR= 000006 

SC.ALC= 000014 

SC.APC= 000016 

SC.CKL= 000002 

SC.CKP= 000004 

5C.CL0= 000000 

SC.HLD= 000010 

SC.5CA= 000012 

SENDLS= 177777 

SOFCNT= 000042 

SQFPAS= 000046 

SPACE = 000040 

SPOINT= 000032 

SPVALU= 002200 

SRO = 177572 

SR1 = 177574 

SR2 = 177576 

SR3 = 172516 

STAT = 000026 

STATBI= 064757 

STAT1 = 000027 

SUSPND= 000001 

SVRO = 000062 

SVR1 = 000064 

SVR2 = 000066 

SVR3 = 000070 

SVR4 = 000072 

SVR5 = 000074 

SVR6 = 000076 

SYSCNT= 000052 

SYSERR= 000100 
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EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0244 

3 COMMON EQUATE MODULE ! 

566 COMMON DEFINITIONS AND REFERENCES 

570 000000' .PRINT ;SPMAC: VERSION 1.1 

S30 ACTIVATE ROUTINE 

763 SET UP FOR THE NEXT PASS THRU MODULE LIST 
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COMMON EQUATE MODULE 
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SEQ 0245 



.TITLE ACTIV - ACTIVATE NEXT OPTION MODULE 
•IDENT /VO.O/ 



++ 
MODULE NAME: 
ACTIV 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE FETCHES FROM THE MODULE QUEUE LIST SUPPLIED BY THE 
CONFIGURATOR LINKER PROGRAM THE ADDRESS OF THE NEXT OPTION MODULE 
TO BE ACTIVATED, AND ACTIVATES IT BY MAKING AN ENTRY FOR IT IN 
THE CONTROL QUEUE 

INPUTS: 

1 . ADDRESS OF DATA TABLE 

IMPLICIT INPUTS: 

1. DT.STO 

2. DT.ST1 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
1 . DT.STO 

PATHOLOGICAL CONNECTIONS: 
NONE 



SUBORDINATE ROUTINES CALLED: 

1 . ENQCQ 

2. SAVREG 

3. RESREG 



MAKE ENTRY IN CONTROL QUEUE 



FUNCTIONAL SIDE EFFECTS: 

1. THIS ROUTINE IS RESPONSIBLE FOR SETTING THE FOLLOWING BITS IN THE 
SYSTEM'S STATUS INDICATOR WORD: 

MODHOLD SET TO INDICATE THAT A SBK OR NBK MODULE 

IS PRESENTLY RUNNING 
MCDEXH SET TO INDICATE THAT ALL OF THE EXERCISER'S 

OPTION MODULES HAVE BEEN ACTIVATED 
TMPIO SET IF BKMOD IS DOING A ONE 

ONE ITERATION PASS, BKMOD WILL TAKE 
AN APPEARANCE OF AN IOMOD. 

CALLING SEQUENCE: 

CALL ACTIV IN <DTA3LE> 



DTABLE - ADDRESS OF DATA TABLE 



VERSION: 
0.0 

EDIT 



BY 



DATE 



REASON 
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ACTIV.MAC 13-SEP-7S 16:25 COMMON EQUATE MODULE SEQ 0246 

564 
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566 






567 






568 






569 






570 


000000' 




(1) 


000000' 




571 




000001 


572 




000001 


573 






574 






575 






576 






577 






578 






579 






580 






581 






582 






583 






584 






585 






586 






587 






588 






589 






590 






591 






592 






593 






594 






595 






596 






597 






596 






599 






60C 




001777 


601 




060757 


602 




177777 


603 






604 






605 






606 


000000 ' 


000000 


607 


000002' 




608 


000002' 




609 




00005C 


610 






61 1 






612 






613 






614 


000122' 


000000 


615 






616 


000124' 


000000 


617 


000126' 


oocooo 


618 


000130' 


001 000 


619 


000132' 


000020 


620 


000134' 


100000 
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COMMON DEFINITIONS AND REFERENCES 

.SBTTL COMMON DEFINITIONS AND REFERENCES 



.MCALL STRUCT 
STRUCT 
.PRINT ;SPMAC: VERSION 1.1 
$LSTIN = 1 
SLSTTAG = 1 



**************** 



SEQ 0247 



REFERENCED BY OTHER MODULES 



GLOBL 


ACTIV 


GL08L 


AC.TPTR 


GLOBL 


AC. TYPE 


GLOBL 


AC.MPTR 


GLOBL 


AC.MODQ 


GLOBL 


MODO 


GLOBL 


STATBITS 


GLOBL 


SENDLST 



'.MODULE'S ENTRY POINT 



**************** 

GLOBL RESREG 
GLOBL SAVREG 
GLOBL ENQCQ 

**************** 

LOCAL EQUATES 

N0N32K = 001777 
STATBITS = 060757 
SENDLST = 177777 



• LOCAL 


STORAGE 


- PROG 


AC.MPTR: 


.WORD 





AC.MODQ: 






MODQ: 








.REPT 


~D<40> 




.NLIST 






.WORD 







. LIST 






.ENDR 






.WORD 





AC.TPTR: 


.WORD 


SBKMOD 


AC. TYPE: 


.WORD 


SBKMOD 




.WORD 


NBKMGD 




.WORD 


BKMOD 




.WORD 


IOMOD 



RESTORE REGISTERS ROUTINE 
SAVE REGISTERS ROUTINE 
CONTROL QUEUE EN-QUEUE MODULE 



;N0N-32K BOUNDARY 

;MODULE'S STATUS WORD 

;SPECIAL END OF LIST INDICATOR 



;M0DULE-QUEUE-LIST POINTER 



;END OF LIST INDICATOR 

MODULE-TYPE-LIST POINTER (ASSEMBLED TO SBKMOD) 

SPECIAL MODULE TYPE 

NON-BACKGROUND 

BACKGROUND 

I/O MODULE - INTERRUPT DRIVEN 
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PAGE 20-1 



SEQ 0248 



521 


000136' 


1 1 0000 


522 


000140 ' 


102000 


523 


000142' 


112000 


624 


000144' 


177777 


625 






326 






627 






628 







.WORD 


IOMODX 


.WORD 


ICMODP 


.WORD 


IOMODR 


.WORD 


SENDLST 


j **************** 



I/O MODULE - NPR DRIVEN 

I/O MODULE - RUNS ONLY ON 32K BOUNDARIES 
I/O MODULE - RUNS ONLY AT LOWEST MEMORY BANK 
SPECIAL END-OF-LIST INDICATOR 
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630 








. 


631 










632 


000146' 








(2) 


000146' 








633 










534 










635 










636 










537 










633 


000146' 








(3) 


000146' 


004767 


OOOOOOG 




639 


000152 : 








(4) 


000152' 


016500 


000000 




640 










641 










642 










643 










644 










645 










646 


000156' 








(6) 


000156' 


032760 


004000 


000010 


(9) 


000164' 


001414 






647 


000166' 








(4) 


0001 66' 


01 2767 


000126' 


177730 


(6) 


0001 74' 


062767 


000006 


177722 


646 


000202' 








(4) 


000202 ' 


012767 


000002' 


177570 


649 


000210 ' 








(6) 


000210 ' 


042760 


005000 


000010 


650 


000216' 








(4) 


000216' 








651 










652 










653 










654 










655 










656 


000216' 








(4) 


000216' 








(6) 


000216' 


027727 


177702 


177777 


(9) 


0.00224' 


001563 






657 










658 










659 










660 










661 










662 


000226' 








(4) 


000226' 


017703 


177672 




663 










664 










665 










666 










667 










660 


000232' 








(4) 


000232' 








(6) 


000232' 


C05777 


177542 




(9) 


000236' 


001515 
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ACTIVATE ROUTINE 

.SBTTL ACTIVATE ROUTINE 

ROUTINE ACTIV <DTABLE> 



SAVE REGISTERS AND PUT THE DATA TABLE ADDRESS IN RO 

CALL SAVREG 

LET RO := DTABLE(R5) 



ACTIV: 



JSR 
MOV 



IF WE'VE BEEN THROUGH THE TYPE LIST ALREADY, RESET THE POINTERS TO 
IOMOD AND TO START OF MQDQ LIST, THEN CLEAR THE MODSEL AND MODEXH 
BITS INSTATUS WORD 0. 



IF #MODEXH SETIN DT.STO(RO) THEN 

LET AC.TPTR := #AC.TYPE + #6 
LET AC.MPTR := #AC.MODQ 



ENDIF 



BIT 
BEQ 

MOV 
ADD 

MOV 

LET DT.STO(RO) := DT.STO(RO) CLR.BY #MODSEL IMODEXH 

BIC 

50002$: 



SEARCH UNTIL THE MODULE-TYPE-LIST IS EXHAUSTED 



WHILE ©AC.TPTR NE #SENDLST DO 



50003$: 



CMP 

BEQ 



SAVE THE POINTER IN R3. 



LET R3 := @AC.TPTR 



MOV 



SEARCH THE MODULE-QUEUE-LIST FOR A MODULE OF THE CURRENT TYPE 



WHILE @ACMPTR NE #0 DO 



50005$: 



TST 
BEQ 



SEQ 0249 



PC,SA\/REG 
DTABLE(R5) , RO 



#MODEXH,DT.ST0(R 
50002$ 

#AC. TYPE, AC.TPTR 
#5, AC.TPTR 

tfAC.MODQ, AC.MPTR 

#MODSEL!MODEXH,D 



@AC.TPTR,#SENDLS 
50004$ 



©AC.TPTR, R3 



©AC.MPTR 
50006$ 



ACTIV - ACTIVATE NEXT 
ACTIV.MAC 13-SZP-7! 



OPTION MODULE 
i 16:25 



669 
(4) 
570 
(4) 
671 
672 
373 
574 
675 
576 
(4) 
577 
(4) 
(6) 
578 
679 
680 
581 
682 
683 
684 
(6) 
(9) 
685 
(6) 
(9) 
(6) 
(9) 
685 
687 
688 
689 
590 
691 
(4) 
692 
693 
694 
695 
696 
697 
698 
699 
(6) 
(9) 
700 
(4) 
701 
(4) 
(3) 
702 
(4) 
703 
(4) 
704 
705 



000240 ' 

000240' 017701 177534 

000244' 

000244' 010104 



000248' 

000246' 016101 000026 

000252' 

000252' 010102 

000254' 042702 060757 



000260' 
000260 ' 
000262 ' 
000264' 
000264' 
000270' 
000272 ' 
000276' 



020203 
001077 

032701 
GO 1474 
032701 
001071 



0003C4 1 

000304 

000310 ' 

0C031 2 

000312 

000316 

000316 

000320 

000320 

000320 

000324 

0C0324 



005764 
001403 
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ACTIVATE ROUTINE 

LET R1 := @AC.MPTR 

LET R4 := R1 



SEQ 0250 



MOV 
MOV 



@AC.MPTR,R1 
R1 ,R4 



CLEAR OUT ALL BUT THE MODULE TYPE BITS IN THE MODULE'S STATUS WORD. 



LET R1 := STAT(R1 ) 

LET R2 := R1 CLR.BY #STATBITS 



MOV 



MOV 
BIC 



STAT(R1 ) ,R1 

R1 ,R2 
#STATBITS,R2 



040000 



024000 



IF ONE IS FOUND MAKE SURE IT IS SELECTED AND THAT IT HAS NOT 
BEEN DROPPED AND IS NOT ACTIVE. 

IF R2 EO R3 THEN 

CMP R2.R3 

BNE 50007$ 
IF #BIT14 SETIN R1 AND #BiT 1 3 ! ACTBIT NOTSETIN R1 THEN 

BIT 4BIT14.R1 

B£0 50010$ 

BIT #BIT13!ACTBIT,R1 

BNE 50010$ 



SAVE THE MODULE LIST POINTER. 



000300' 

000300' 017701 177474 



LET R1 



@AC.MPTR 



MOV 



©ACMPTR.R1 



IF THE OPTION MODULE'S PASS COUNT IS NOT 0, THEN SAVE ITS RESTART ADDRESS. 
OTHERWISE, SAVE THE START ADDRESS AS THIS IS THE FIRST PASS. 



000034 



016104 000112 



000402 



016104 000030 



IF PASCNT(R4) NE #0 THEN 

LET R4 := RSTRT(R1 ) 
ELSE 

LET R4 := INIT(R1 ) 
ENDIF 



5001 1$: 



50012$: 



TST 
BEQ 

MOV 

BR 

MOV 



PASCNT(R4) 
5001 1$ 

RSTRT(R1 ) ,R4 

50012$ 

INIT(R1 ) ,R4 



; + 
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ACTIVATE ROUTINE 
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SEO 0251 



706 








707 








708 








709 








710 


000324' 






(4) 


000324' 


01 6161 


000032 000076 


71 1 


000332' 






(3) 


000332' 


01 0546 




(6) 


000334' 


01 0445 




(5) 


000336' 


01 0145 




(4) 


000340 ' 


01 0045 




(3) 


000342' 


004767 


OOOOOOG 


(3) 


000346' 


012605 




712 








713 








714 








715 








716 








717 


000350' 






(6) 


000350' 


052761 


004000 000026 


718 








719 








720 








721 








722 








723 








724 


000356' 






(6) 


0C0356 ' 


02C227 


000000 


(8) 


000362' 


CO 1406 




(6) 


000364' 


020227 


001000 


(8) 


000370 ' 


001403 




(6) 


0C0372' 


020227 


000020 


(9) 


000376' 


001003 




(6) 


000400' 






725 


000400 ' 






(6) 


000400 ' 


052760 


002000 000010 


726 


000406' 






(4) 


000406 ' 






727 


00040&' 






(6) 


000406' 


020227 


000000 


(9) 


000412' 


001003 




728 


000414' 






(6) 


000414' 


052760 


010000 000012 


729 


000422 ' 






(4) 


000422' 






730 








731 








73? 








733 








734 








735 








736 








737 








738 


000422' 






(6) 


000422' 


020227 


000020 


(9) 


000426' 


00101 1 





BEFORE WE EN-QUEUE THE MODULE MAKE SURE ITS STACK WILL BE SETUP PROPERLY 
THEN EN-QUEUE THE MODULE IN THE CONTROL QUEUE 



LET SVR6(R1 ) := SP0INT(R1 ) 
CALL ENQCQ IN <R0,R1,R4> 



MOV 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 



SP0INT(R1 ) ,SVR6( 

R5,-(SP) 
R4,-(R5) 
R1 f -(R5) 
R0,-(R5) 
PC, ENQCQ 
(SP)+,R5 



MARK THE OPTION MODULE AS BEING ACTIVE 



LET STAT(R1) := STAT(R1) SET. BY #ACTBIT 



BIS 



#ACTBIT,STAT(R1 ) 



IF THIS MODULE IS OF THE SBK OR NBK TYPE SET THE MODULE-HOLD-FLAG 
WHICH WILL ALLOW THE MODULE TO RUN BY ITSELF 

IF R2 EQ #SBKMOD OR R2 EQ #NBKMOD OR R2 EQ #BKMOD THEN 

CMP R2,#SBKM0D 
BEQ 50013$ 
CMP R2,#NBKM0D 
BEQ 50013$ 
CMP R2,#3KM0D 
BNE 50014$ 
50013$: 
LET DT.STO(RO) := DT.STO(RO) SET. BY #M0DH0LD 

BIS #MODH0LD,DT.ST0( 
ENDIF 

50014$: 
IF R2 EQ 4SBKM0D THEN 

CMP R2,#SBKM0D 
BNE 50015$ 
LET DT.STKRO) := DT.ST1(R0) SET. BY #S3KSEL 

BIS #SBKSEL,DT.ST1(R 
ENDIF 

50015$: 

IF MODULE IS A BKMOD THEN IT IS NECESSARY TO DO A ONE ITERATION 
PASS. THIS IS ACCOMPLISHED BY SETTING THE TMPIO BIT AND CHANGING THE 
BKMOD STAT TO THAT OF AN IOMOD. PRENDIT WILL CHANGE THE MODE 
BACK AT END-OF-PASS TIME. 



IF R2 EQ #BKMOD THEN 



CMP 

BNE 



R2,#BKM0D 
50016$ 
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739 


000430' 








(6) 


000430 ' 


052760 


000002 


000010 


740 


000436' 








(6) 


000436' 


042761 


000020 


000026 


741 


000444' 




J 




(6) 


000444' 


052761 


100000 


000026 


742 


000452' 








(4) 


000452' 








743 










744 










745 










746 










747 










743 










749 


000452' 








(6) 


000452' 


062767 


000002 


177320 


750 


000460' 








(2) 


000460' 


000450 






751 


000462' 








(4) 


000462' 








752 










753 










754 










755 










756 










757 










75B 










759 


000462' 








(4) 


00C462' 








760 


000462' 








(6) 


0C0462' 


062767 


000002 


177310 


761 


000470' 








(4) 


000470' 


000660 






(3) 


000472' 
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LET DT.STO(RO) 



SEQ 0252 



DT.STO(RO) SET. BY #TMPIO 

BIS #TMPIO,DT.ST0(R0 
LET STAT(R1) := STAT(R1) CLR.BY #BKMOD 

BIC 
LET STAT(R1) := STAT(R1) SET. BY #IOMOD 

BIS 



ENDIF 



50016$: 



ADVANCE THE MODULE-QUEUE-LIST POINTER, THEN RESTORE THE 
REGISTERS AND DO A RETURN 



LET AC.MPTR := AC.MPTR + #2 
INLINE <BR 1$> 
ENDIF 



ADD 
BR 



5001 Oi 



THE MODULE IS NOT OF THE CURRENT TYPE OR IF IT IS, IT IS 
PRESENTLY DESELECTED OR DROPPED, SO UPDATE THE MODULE-QUEUE-LIST 
POINTER AND KEEP SEARCHING 



ENDIF 

LET AC.MPTR := AC.MPTR + #2 
ENDDO 



#BKM0D,STAT(R1 ) 
#I0M0D,STAT(R1) 



#2, AC.MPTR 
1$ 



50007$: 








ADD 


#2, AC.MPTR 




BR 


50005$ 


50006$: 







ACTIV - ACTIVATE NEXT OPTION MODULE 
ACTIV.MAC 13-SEP-78 16:25 



763 










764 










765 










766 










767 










763 










769 










77C 










771 










772 


000472' 








(4) 


000472' 


012767 


000002 ' 


177300 


773 


000500' 








(6) 


000500' 


062767 


000002 


177416 


774 










775 










776 










777 










778 










779 










780 


000506' 








(6) 


000506' 


027727 


177412 


102000 


(9) 


000514 ' 


001013 






(6) 


C00516' 


026027 


000042 


000200 


(9) 


000524' 


001407 






(6) 


000526' 


032760 


001777 


000042 


(9) 


0C0534 1 


001403 






781 


000536' 








(6) 


000536' 


062767 


000002 


177360 


782 


000544' 








(4) 


000544' 








783 










784 










785 










786 










78? 










788 


000544' 








(6) 


000544' 


027727 


177354 


1 12000 


(9) 


000552' 


001007 






(6) 


000554' 


026027 


000042 


000200 


(9) 


0C0562' 


001403 






789 


000564' 








(6) 


000564' 


062767 


000002 


177332 


790 


000572' 








(4) 


000572' 








791 


000572' 








(4) 


000572' 


00061 1 






(3) 


000574' 








792 










793 










794 










795 










796 










797 










793 










799 


000574' 








(6) 


000574' 


052760 


004000 


000010 
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SET UP FOR THE NEXT PASS THRU MODULE LIST 

SBTTL SET UP FOR THE NEXT PASS THRU MODULE LIST 



THE MODULE-QUEUE-LIST HAS BEEN EXHAUSTED SO SET THE POINTER BACK TO THE 
BEGINNING OF IT AND UPDATE THE MODULE-TYPE-LIST POINTER 



SEO 0253 



LET AC.MPTR := #AC.MODQ 
LET AC.TPTR := AC.TPTR + #2 



MOV #ACMODQ, AC.MPTR 

ADD #2, AC.TPTR 



50017$ 
DT.ADDR(RO) ,#200 
50017$ 

#NQN32K,DT.ADDR( 
50017$ 

#2, AC.TPTR 



IF THE NEW CURRENT TYPE IS THAT OF IOMODP MAKE SURE THE IOMODP 
MODULES CAN RUN AT THIS ADDRESS 

IF @AC.TPTR EQ # IOMODP AND DT.ADDR(RO) NE #200 AND #N0N32K SETIN DT.ADDR(RO) 

CMP <3>AC.TPTR,# IOMODP 
BNE 
CMP 
BEO 
BIT 

BEO 
LET AC.TPTR : = AC.TPTR + #2 

ADD 
ENDIF 

50017$: 

IF ITS AN IOMODR TYPE MAKE SURE IT CAN RUN AT THIS ADDRESS 



IF @AC.TPTR EQ #I0M3DR AND DT.ADDR(RO) NE #200 THEN 

LET AC.TPTR : = AC.TPTR + #2 

ENDIF 

50020$: 
ENDDO 

50004$: 



CMP 


@AC.TPTR,#IOMODR 


BNE 


50020$ 


CMP 


DT . ADDR(RO) ,#200 


BEQ 


50020$ 


ADD 


#2, AC.TPTR 



BR 



50003$ 



THE MODULE-TYPE-LIST HAS BEEN EXHAUSTED, SO SET THE MODULE-QUEUE-LIST 
EXHAUSTED INDICATOR WHICH SAYS THAT ALL OF THE OPTION MODULES HAVE 
BEEN ACTIVATED 



LET DT.STO(RO) := DT.STO(RO) SET. BY #MODEXH 



BIS #MODEXH,DT.ST0(R 



ACTIV - ACTIVATE NEXT OPTION MODULE 
ACT I V.MAC 13-SEP-78 16:25 



MACY11 30A(1052) 20-SEP-7& 17:39 PAGE 22-1 
SET UP FOR THE NEXT PASS THRU MODULE LIST 



SEQ 0254 



300 










301 








; + 


802 








; RETURN TO CALLER 


303 








;- 


804 










305 


000602' 






INLINE <1$:> 


(2) 


C00602' 








803 


000602' 






CALL RESREG 


(3) 


00C602' 


004767 


000000G 




807 


000506' 






ENDRTN 


(3) 


000506' 








(3) 


000606' 








(2) 


000606' 


000207 






908 










309 




000001 




.END 



50000$: 
50001$: 



1$: 
JSR 

RTS 



PC, RESREG 



PC 
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MACY11 30A(1C52) 
SYMBOL TABLE 



2C-SEP-78 17:39 PAGE 23 



SEQ 0255 



ACSR = 000102 
ACT3IT= 004000 
ACTIV 000146RG 
AC. MOD 000002RG 
AC. MPT OOOOOORG 
AC.TPT 000124RG 
AC.TYP 000126RG 
ADDR22= 001000 
ADR = 000006 
APTFER= 000004 
APTPRE= 000200 
ASB = 000106 
ASSEMB= 000010 
ASTAT = 000104 
AUTO = 000010 
AUTOST= 020000 
AWAS = 000110 
BITO = 000001 
BITOO = 000001 
BIT01 = 000002 
8IT02 = 000004 
3IT03 = 000010 
BIT04 = 000020 
3IT05 = 000040 
BIT06 = 000100 
3IT07 = 000200 
BIT08 = 000400 
BIT09 = 001000 
BIT1 = 000002 
3IT10 = 002000 
BIT 1 1 = 004000 
3IT12 = 010000 
BIT13 = 02000C 
3IT14 = 040000 
3IT15 = 100000 
BIT2 = 000004 
3IT3 = 000010 
3IT4 = 000020 
3IT5 = 000040 
3IT6 = 000100 
BIT7 = 000200 
BIT8 = 00C400 
BIT9 = 001000 
3KDEF = 000002 
BKMOD = 000020 
BKKODE= 040000 
BKSLSH= 000134 
CAPRES= 000004 
CASTAT= 000004 
CDERCT= 000146 
CDWDCT= 000144 
CKTIM = 100000 
CLKPRE= 000001 



CONFIG= 000056 
CQOVF = 000001 
CR = 000015 
CSRA = 000100 
CSRC = 000102 
CTRLC = 000003 
CTRLO = 000017 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= 000400 
DIAGMC= 000000 
DROPMO= 100000 
DSEVNT= 000014 
DTABLE= 000000 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000034 
DT.CFO= 000014 
DT.CF1= 000016 
DT.ERR= 000020 
DT.ESI= 000044 
DT.EVN= 000000 
DT.EXS= 000060 
DT.FCH= 000037 
DT.FCN= 000036 
DT.HMX= 000104 
DT.KBE= 000024 
DT.KBP= 000026 
DT.KBR= 000022 
DT.KBU= 0C0030 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = 000002 
DT.PFL= 000062 
DT.PSW= 000004 
DT.PTA= 000064 
DT.RCS= 000102 
DT.REL= 000040 
DT.SCT= 000066 
DT.SMX= 000106 
DT.SP = 000006 
DT.SSI= 000046 
DT.STO= 000010 
DT.ST1= 000012 
DT.SWR= 000056 
DT.SYP= 000072 
DT.WBU= 000050 
DT.WHL= 000054 
DT.WLL= 000052 
DVID1 = 000014 



ECCMEM= 000100 
ECCSTA= 000010 
ENBEOP= 010000 
ENBNUL= 000001 
ENDLST= 000000 
ENQCQ = ****** G 
EOPBIT= 000001 
ERRTYP= 000106 
EVNTBE= 000200 
EVNTHD= 000200 
EVNTKT= 000203 
EVNTPE= 000202 
EVNTRE= 000201 
FATERR= 100000 
HRDCNT= 000044 
HRDPAS= 000050 
ICONT = 000036 
ICOUNT= 000040 
IDNUM = 000122 
IE = 000100 
INDPAR= 000040 
INHDRP= 040000 
INHEPR= 020000 
INHREL= 001000 
INHRRE= 000400 
INIT = 000030 
INTR = 000120 
IOMOD = 100000 
IOMODP= 102000 
IOMODR= 112000 
IOMODX= 110000 
JACK = 035060 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR5= 172354 
KIPAR7= 172356 
KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KTERRO= 000040 
KTPRES= 000400 
KTSTAT= 000020 
KTXTND= 040000 
LF = 000012 



LPSTAT= 000001 
MAPSTA= 000200 
MED = 076600 
MEMPAS= 040000 
MODEXH= 004000 
MODHOL= 002000 
MODQ 000002RG 
MODSEL= 001000 
MSGCKD= 000010 
MSGCKS= 000011 
MSGDER= 000005 
MSGDRP= 000017 
MSGECH= 177777 
MSGEOP= 000013 
MSGHDR= 000004 
MSGHNG= 000022 
MSGHRD= 000007 
MSGMAP= 000021 
MSGNUL= 177775 
M5GP0P= 000002 
MSGPRM= 177776 
MSGRES= 000001 
MSGSFT= 000006 
MSGSKE= 000003 
MSGSMB= 000015 
MSGSMH= 000014 
MSGSMS= 000016 
MSGSTD= 000000 
MSGSYS= 000012 
MSGVEC= 000020 
NBKM0D= 00 1000 
NCPU0P= 000020 
N0APTY= 000002 
N0N32K= 00 1777 
NULL = 000000 
OWEN = 024020 
PAERR = 000010 
PARPRE= 002000 
PARSTA= 000100 
PASCNT= 000034 
PDPLSI= 020000 
PDP60 = 004000 
PDP70 = 010000 
PRIO = 000000 
PRI1 = 000040 
PRI4 = 000200 
PRI5 = 000240 
PRI6 = 000300 
PRI7 = 000340 
PRO = 000000 
PR4 = 000200 
PR5 = 000240 
PR6 = 000300 



PR7 = 000340 

PS = 177776 

PSW = 177775 

RANNUM= 000054 

R3UFEA= 0001.30 

R3UFPA= 000126 

RBUFSZ= 000132 

RBUFVA= 000124 

RDSERV= 000101 

RDWHMI= 000022 

R£LERR= 000020 

RELMOD= 020000 

RELT1M= 010000 

RESREG= ****** G 

RES1 = 000056 

RES2 = 000060 

RICHAR= 031060 

RPTDAT= 002000 

RSTRT = 000112 

RUBCUT= 000177 

RUNMOD= 100000 

R5VALU= 001740 

SAM = 075464 

SAVREG= ****** G 

SBADR = 000102 

SEKMOD= 000000 

SBKSEL= 010000 

SC.ADR= 000006 

SC.ALC= 000014 

SC.APC= 000016 

SC.CKL= 000002 

SC.CKP= 000004 

SC.CLO= 000000 

SC.HLD= 000010 

SCSCA= 000012 

SENDLS= 177777 G 

SOFCNT= 000042 

SOFPAS= 000C46 

SPACE = 000040 

SPOINT= 000032 

SPVALU= 002200 

SRO = 177572 

SR1 = 177574 

SR2 = 177576 

SR3 = 172516 

STAT = 000026 

STATBI= 060757 G 

STAT1 = 000027 

SUSPND= 000001 

SVRO = 000062 

SVR1 = 000064 

SVR2 = 000066 

SVR3 = 000070 
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20-SEP-78 17:39 PAGE 23-1 



SEQ 0256 



SVR4 = 


000072 




SVR5 = 


000074 




SVR6 = 


000076 




SYSCNT= 


000052 




SYSERR= 


0001 00 




TMP.IO = 


000002 




TQOVF = 


000002 




UIPAR0= 


177640 




UIPAR1 = 


177642 




UIPAR2= 


177644 




UIPAR3= 


177646 




UIPAR4= 


177650 




UIPAR5= 


177652 




UIPAR6= 


177654 




UIPAR7= 


177656 




UIPDR0= 


177500 




UIPDR1 = 


177602 




UIPDR2= 


177604 




UIPDR3= 


177606 




UIPDR4= 


177610 




UIPDR5= 


1 77612 




UIPDR6= 


177614 




. ABS. 


000000 


000 




000510 


001 



UIPDR7= 177616 
WASADR= 000104 
WBSTAT= 000040 
WBUFEA= 000136 
WBUFPA= 000134 
WBUFRQ= 000140 
WBUFSZ= 000142 
WDFR = 000116 
WDTO = 000114 
WTINRE= 000352 
WTWHMI= 000222 
XFLAG = 000005 
XOFF = 000023 
XON = 000021 
$BGNLE= 177777 
$ERFLG= 000400 
$F$AND= 000310 
$F$BAD= 000401 
$F$BLA= 000170 
$F$CAS= 000150 
$F$DEC= 000220 
$F$DO = 000340 



$F$FAL= 000405 
$F$GOO= 000400 
$F$IF = 000110 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 000160 
$F$NO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 
$F$YES= 000402 
$IFLEV= 177777 
$ISK0 = 000001 
$ISK1 = 000001 
$ISK2 = 000001 
$LOCTA= 177777 
$LSTIN= 000001 



$LSTTA= 000001 
$NESTL= 177777 
$NSK0 = 000300 
$NSK1 = 000120 
$NSK2 = 000110 
$NSK3 = 000110 
$NSK4 = 000110 
$NSK5 = 000110 
$SAVLE= 177777 
$SSK0 = 050004 
$TAGLE= 177777 
$TAGNU= 050021 
$TEMP = 000300 
$TSK0 = 050003 
$TSK1 = 050004 
$TSK2 = 050020 
$TSK3 = 050006 
STSK4 = 050007 
$TSK5 = 050010 
$TSK6 = 050016 
$$ARGC= 000002 
$$BYTE= 000403 



$$CASE= 000000 

$$DST = 000000 

$$ELOC= 000402 

$$ERFL= 000000 

$5FLAG= 000001 

$SFROM= 000000 

$$LOC = 000562R 

$$LOCN= 000000 

$SREG = 177777 

$$RETU= 000000 

$$RTN1= 050000 

$SRTN2= 050001 

$$SRC = 000000 

$$TGSV= 000000 

$STGS1= 000000 

$$TGS2= 000000 

$$TO = 000000 

$$$TAG= 050000 

= 000610R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ:ACTIV,DSKZ:ACTIV=SPMAC/ML,EQUATE,ACTIV 
RUN-TIME: 19 9 .4 SECONDS 
RUN-TIME RATIO: 49/28=1.7 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:40 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0257 

3 COMMON EQUATE MODULE 

558 COMMON DEFINITIONS AND REFERENCES FOR ARGCHK 

561 000000' .PRINT ;SPMAC: VERSION 1.1 

576 ARGCHK ROUTINE 



ARGCHK CHECK A KEYBOARD COMMAND ARGUMENT MACY1 1 30A(1052) 20-SEP-78 17:40 PAGE 19 
ARGCHK.MAC 28-JUL-78 09 : 1 COMMON EQUATE MODULE 



SEQ 0258 



508 
503 
510 
51 1 
512 
513 
514 
515 
516 
517 
513 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 



TITLE ARGCHK CHECK A KEYBOARD COMMAND ARGUMENT 
IDF.NT /VO.O/ 

++ 
MODULE NAME: 
ARGCHK 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS USED TO VERIFY THE EXISTENCE OF A KEYBOARD 

COMMAND ARGUMENT. IT IS GIVEN THE DECODE BUFFER POINTER. 

IT WILL SEARCH FOR THE FIRST NON SPACE 

CHARACTER. IF IT IS A <CR> A RETURN WITH ERROR OCCURS. IN EITHER 

CASE, THE UPDATED COMMAND DECODE BUFFER PTR IS RETURNED 

POINTING TO THE FIRST NON SPACE CHARACTER. 

INPUTS: 

1 . COMMAND DECODE BUFFER POINTER 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

UPDATED COMMAND DECODE BUFFER POINTER 
ERROR INDICATION 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 

NONE 

FUNCTIONAL SIDE EFFECTS: 

NONE 

CALLING SEQUENCE: 

CALL ARGCHK IN <PTR> OUT <NEWPTR> 

WHERE PTR = CURRENT COMMAND DECODE BUFFER POINTER 

NEWPTR = UPDATED COMMAND DECODE BUFFER POINTER 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



ARGCHK 

ARGCHK 

553 
559 
560 
561 
(1) 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
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,MAC 28-JUL-78 09:10 COMMON DEFINITIONS AND REFERENCES FOR ARGCHK 

.SB1TL COMMON DEFINITIONS AND REFERENCES FOR ARGCHK 



SEQ 0259 



000000' 
000000' 



000001 
000001 



.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



**************** 

REFERENCED BY OTHER MODULES: 
GLOBL ARGCHK ;MODULE ENTRY POINT 

**************** 
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SEQ 0260 



576 






577 






573 


C00000' 




(2) 


000000' 




579 






580 






581 






582 






583 






584 






585 


000000' 




(2) 


oooooo 1 


010046 


586 


000002' 




(4) 


000002' 


01 6500 OOOOOO 


587 






588 






589 






590 






591 






592 


000006' 




(4) 


000006' 




(6) 


000006' 


121027 000040 


(9) 


000012' 


001002 


593 


000014' 




(6) 


000014' 


005200 


594 


000016' 




(4) 


000016' 


000773 


(3) 


000020' 




595 






596 






597 






538 






599 






600 






601 






602 


000020' 




(4) 


000020' 


010065 000002 


603 






604 


000024' 




(6) 


000024' 


121C27 000015 


(9) 


000030' 


00 1003 


605 


000032' 




(2) 


000032' 


01 2600 


606 


000034' 




(2) 


000034' 


000261 


(4) 


000036' 


000403 


607 






608 


000040' 




(3) 


000040' 




6C9 






610 


000040 ' 




(2) 


000040' 


012600 


611 


000042' 




(4) 


000042' 


000400 


612 






613 


000044' 





.SBTTL ARGCHK ROUTINE 
ROUTINE ARGCHK <PTR T NEWPTR> 

INITIALIZE AND SAVE CURRENT DECODE BUFFER POINTER 

PUSH RO 

LET RO := PTR(R5) 

WHILE SPACE, ADVANCE TO NEXT CHARACTER 
WHILEB (RO) EQ #SPACE DO 

LET RO := RO + #1 
END DO 



UPDATE THE CMD DECODE BUFFER POINTER 

AND IF A <CR> RETURN WITH ERROR. IF NOT A <CR> RETURN 

NO ERROR 



LET NEWPTR(R5) := RO 

IFB (RO) EQ #CR THEN 

POP RO 
RETURN ERROR 

ELSE 

POP RO 

RETURN NO. ERROR 

END IF 



ARGCHK: 



MOV 
MOV 



50004$ 



RO.-(SP) 
PTR(R5) ,R0 



50002$: 


CMPB 
BNE 


(RO) ,#SPACE 
50003$ 




INC 


RO 


50003$: 


BR 


50002$ 



MOV R0 f NEWPTR(R5) 



CMPB (RO),#CR 

BNE 50004$ 

MOV (SP)+,R0 

SEC 

BR 50001$ 



MOV (SP)+,RO 
BR 50000$ 
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ARGCHK.MAC 28-JUL-78 09:10 ARGCHK ROUTINE 



SEQ 0261 



(4) 


000044' 




614 






615 


000044' 




(3) 


000044' 




(2) 


000044' 


000241 


(3) 


000046' 




(2) 


000046' 


000207 


616 






617 




000001 



ENDRTN 



END 



50005$ 



50000$: 



50001$: 



CLC 



RTS 



PC 



ARGCHK CHECK A KEYBOARD COMMAND ARGUMENT MACY11 30A(1052) 20-SEP-78 17:40 PAGE 20 
ARGCHK.MAC 28-JUL-78 09: TO SYMBOL TABLE 



SEQ 0262 



ACSR = 000102 
ACT3IT= 004000 
ADDR22= 001000 
ADR = 000006 
APTFER= 000004 
APTPRE= 000200 
ARGCHK 00C000RG 
ASB = 000106 
ASS£M3= 000010 
ASTAT = 000104 
AUTO = 000010 
AUTOST= 020000 
AWAS = 0001 10 
BITO = 000001 
BITOO = C00001 
BIT01 = 000002 
BIT02 = 000004 
BIT03 = 000010 
BIT04 = C00020 
BIT05 = 000040 
BIT06 = 000100 
BIT07 = 000200 
BIT08 = 000400 
3IT09 = 001000 
BIT1 = 000002 
BIT10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
3IT13 = 020000 
3IT14 = 040000 
3IT15 = 100000 
BIT2 = 000004 
BIT3 = 000010 
BIT4 = 000020 
3IT5 = 000 40 
BIT6 = 000100 
3IT7 = 000200 
BIT8 = 000400 
3IT9 = 001000 
BKDEF = 000002 
3KM0D = 000020 
BKMODE= 040000 
3KSLSH= 000134 
CAPRES= 000004 
CASTAT= 000004 
CDERCT= 000146 
CDWDCT= 000144 . 
CKTIM = 100000 
CLKPRE= 000001 
CONFIG= 000056 
CQCVF = 000001 
CR = 000015 
CSRA = 000100 



CSRC = 000102 
CTRLC = 000003 
CTRLO = 000017 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= 000400 
DIAGMC= 000000 
DROPMO= 100000 
DSEVNT= 000014 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000034 
DT.CFO= 000014 
DT.CF1= 000016 
DT.ERR= 000020 
DT.ESI= 000044 
DT.EVN= 000000 
DT.EXS= 0C0060 
DT.FCH= 000037 
DT.FCN= 000036 
DT.HMX= 000104 
DT.KBE= 000024 
DT.KBP= 000026 
DT.KBR= 000022 
DT.KBU= 000030 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = 000002 
DT.PFL= 000062 
DT.PSW= 000004 
DT.PTA= 000064 
DT.RCS^ C00102 
DT.REL= 000040 
DT.SCT= 000066 
DT.SMX= 00 0106 
DT.SP = 000006 
DT.SSI= 000046 
DT.STO= 000010 
DT.ST1= 000012 
DT.SWR= 000056 
DT.SYP= 0C0072 
DT.WBU= 000050 
DT.WHL= 000054 
DT.WLL= 000052 
DVID1 = 000014 
ECCMEM= 000100 
ECCSTA= 000010 
EN3E0P= 010000 
ENBNUL= 000001 
ENDLST= 000000 



EOPBIT= 000001 
ERRTYP= 000106 
EVNTBE= 000200 
EVNTHD= 000200 
EVNTKT= 0C0203 
EVNTPE= 000202 
EVNTRE= 000201 
FATERR= 100000 
HRDCNT= 000044 
HRDPAS= 000050 
ICONT = 000035 
ICOUNT= 000040 
IDNUM = 000122 
IE = 000100 
INDPAR= 000040 
INHDRP= 040000 
INHEPR= 020000 
INHREL= 001000 
INHRRE= 000400 
INIT = 000030 
INTR a 000120 
IOMOD = 1C0000 
IOMODP= 102000 
IOMODR= 112000 
IOMODX= 110000 
JACK = 035060 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 
KIPDR0= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KTERRO= 0C0040 
KTPRES= 000400 
KTSTAT= 000020 
KTXTND= 040000 
LF = 000012 
LPSTAT= 0000C1 
MAPSTA= 000200 
MED = 076600 
MEMPAS= 040000 
MODEXH= CC4000 
MODHOL= 002000 



MODSEL= 001000 

MSGCKD= 000010 

MSGCKS= 000011 

MSGDER= 000005 

MSGDRP= 000017 

MSGECH= 177777 

MSGEOP= 000013 

MSGHDR= 000004 

MSGHNG= 000022 

MSGHRD= 000007 

MSGMAP= 000021 

MSGNUL= 177775 

MSGPOP= 000002 

MSGPRM= 177776 

MSGRES= 000001 

MSGSFT= 000006 

MSGSKE= 000003 

MSGSM3= 000015 

MSGSMH= 000014 

MSGSMS= 000016 

MSGSTD= 000000 

MSGSYS= 000012 

MSGVEC= 000020 

NBKMOD= 00 I 000 

NCPUCP= 000020 

NEWPTR= 000002 

NOAPTY= 000002 

NULL = 000000 

OWEN = 024020 

PAERR = 000010 

PARPRE= 002000 

PARSTA= 000100 

PASCNT= 000034 

PDPLSI= 023000 

PDP60 = 004000 

PDP70 = 010000 

PRIO = 000000 

PRI1 = 000040 

PRI4 = 000200 

PRI5 = 000240 

PRI6 = 000300 

PRI7 = 000340 

PRO = 000000 

PR4 = 000200 

PR5 = 000240 

PR6 = 000300 

PR7 = 000340 

PS = 177776 

PSW = 177776 

PTR = 000000 

RANNUM= 000054 

RBUFEA= 000130 

RBUFPA= 000126 



R3UFS2= 000132 

RBUFVA= 0C0124 

RDSERV= 000101 

RDWHMI= 000022 

RELERR= 000020 

RELMOD= 020000 

RELTIM= 010000 

RES1 = 000056 

RES2 = 000060 

RICHAR= 031060 

RPTDAT= 002000 

RSTRT = 000112 

RUBOUT= 000177 

RUNMOD= 100000 

R5VALU= 001740 

SAM = 075464 

SBADR = 000102 

S3KM0D= 000000 

SBKSEL= 010000 

SC.ADR= 000006 

SC.ALC= 000014 

SC.APC= 000016 

SC.CKL= 000002 

SC.CKP= 000004 

SC.CLO= 000000 

SC.HLD= 000010 

SC.SCA= 000012 

SENDLS= 177777 

SOFCNT= 000042 

SOFPAS= 000046 

SPACE = 000040 

S?QINT= 000032 

SPVALU= 002200 

SRO = 177572 

SR1 = 177574 

SR2 = 177576 

SR3 = 172516 

STAT = 000026 

STATBI= 064757 

STAT1 = 000027 

SUSPND= 000001 

SVRO = 000062 

SVR1 = 000054 

SVR2 = 000066 

SVR3 = 000070 

SVR4 = 000072 

SVR5 = 000074 

SVRS = 000076 

SYSCNT= 000052 

SYSERR= 000100 

TMPIO = 000002 

TQOVF = 000002 

UIPARO= 177640 
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SEO 0263 



UIPAR1 = 


1 77642 




WBUFPA= 


000134 


UIPAR2= 


177644 




WBUFRQ= 


000140 


UIPAR3= 


177646 




WBUFSZ= 


000142 


UIPAR4= 


177650 




WDFR = 


0001 16 


UIPAR5= 


177652 




WDTO = 


0001 14 


UIPAR6= 


177654 




WTINRE= 


000352 


UIPAR7= 


177556 




WTWHMI= 


000222 


UIPDRO= 


177600 




XFLAG = 


000005 


UIPDR1 = 


177602 




XOFF = 


000023 


UIPDR2= 


177604 




XCN 


000021 


UIPDR3= 


177606 




$BGNLE= 


177777 


UIPDR4= 


177610 




$ERFLG= 


000000 


UIPDR5= 


177612 




$F$AND= 


000310 


UIPDR6= 


177614 




$F$BAD= 


000401 


UIPDR7= 


177616 




$FSBLA= 


000170 


WASADR= 


000104 




$F$CAS= 


000150 


WBSTAT= 


000040 




$F$DEC= 


000220 


WBUFEA= 


000136 




$F$DO = 


000340 


. A3S. 


000000 
000050 


000 
001 







$F$FAL= 
SF$GO0= 
$F$IF = 
$F$INC= 
$F$LO0= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 
$IFLEV= 
$ISKO = 



000405 
000400 
0001 10 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 
000001 



$LOCTA= 
$LSTIN= 
$LSTTA= 
$NESTL= 
$NSKO = 
$NSK1 = 
$SAVLE= 
SSSKO = 
$TAGLE= 
$TAGNU= 
STEMP = 
$TSKO = 
$TSK1 = 
$$ARGC= 
$$BYTE= 
$SCASE= 
$SDST = 
$$ELOC= 



177777 
000001 
000001 
177777 
000300 
000110 
177777 
050003 
177777 
050006 
000300 
050005 
050003 
000004 
000402 
000000 
000000 
000402 



$$ERFL= 
$$FLAG= 
$$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$3RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$STGS1= 
$$TGS2= 
$$T0 = 
$$STAG= 



000000 

000001 

000000 

000030R 

OCOOOO 

177777 

000001 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000050R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSK2: ARGCHK, CSKZ:ARGCHK=SPMAC/ML, EQUATE, ARGCHK 
RUN-TIME: 11 1 .3 SECONDS 
RUN-TIME RATIO: 29/14=2.1 
CORE USED: 14K (27 PAGES) 
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SEO 0265 



508 
509 
510 
51 1 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
526 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 



TITLE BACTIV - ACTIVATE NEXT BACKGROUND MODULE 
IDENT /VO.O/ 



++ 
MODULE NAME: 
BACTIV 



FUNCTIONAL DESCRIPTION: 

THIS ROUTINE FETCHES THE ADDRESS OF THE NEXT BACKGROUND OPTION MODULE 
TO BE ACTIVATED FROM THE BACKGROUND JOB LIST CONTAINED WITHIN THE MODULE 
LIST, AND ACTIVATES THE BACKGROUND MODULE BY PLACING IT IN THE MONITOR'S 
NEXT-TO-EXECUTE SLOT 

INPUTS: 

1 . ADDRESS OF DATA TABLE 

IMPLICIT INPUTS: 

1. DT.BLST 

2. MODULE'S STATUS WORD (STAT) 

3. MODULE'S START ADDRESS (INIT) 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

1. ERROR/NO ERROR INDICATOR 
WHERE ERROR 

NO ERROR - 

PATHOLOGICAL CONNECTIONS: 

1 . DX.HDR 

2. DX.RET 

SUBORDINATE ROUTINES CALLED: 
SAVREG - SAVE REGISTERS 
RESREG ~ RESTORE REGISTERS 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL BACTIV IN <DTABLE> 

VERSION: 
0.0 



NO BKGRD MODULE TO ACTIVATE 
BKGRD MODULE HAS BEEN ACTIVATED 



EDIT 



BY 



DATE 



REASON 
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SEQ 0266 



558 

553 

560 

561 

562 

563 

(1) 

564 

565 

565 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

534 

585 

586 

537 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 



000000' 
000000' 



000001 
000001 



000000' 000000 

0C00C2' ooocco 

000004' 000000 

000006' 000000 



SBTTL COMMON DEFINITIONS AND REFERENCES 



•MCALL STRUCT 
STRUCT 
PRINT ;SPMAC: VERSION 1.1 
$LSTIN = 1 
SLSTTAG = 1 



**************** 
REFERENCED BY OTHER MODULES 

GLOBL BACTIV 

GLOBL BA.MPTP 

GLOBL BA.HDR 

GLOBL BA.RET 

GLOBL BA.STAT 

**************** 



GLOBAL REFERENCES 

GLOBL DX.HDR 

GLOBL DX.RET 

GLOBL SAVREG 

GLOBL RESREG 

**************** 
GLOBAL STORAGE 

BA.MPTR: .WORD 

BA.HDR: .WORD 

BA.RET: .WORD 

BA.STAT: .WORD 



^MODULE'S ENTRY POINT 
;MODULE'S BKGRD LIST POINTER 
SUSPENDED BKGRD MODULE'S HEADER ADDRESS 
-.SUSPENDED BKGRD MODULE'S RETURN ADDRESS 
;MODULE'S STATUS WORD 



MONITOR'S NEXT-TO-EXECUTE 

SLOT 
SAVE REGISTERS 
RESTORE REGISTERS 



BACKGROUND-JOB-LIST POINTER 

STORAGE FOR SUSPENDED MODULE'S HEADER ADDRESS 
STORAGE FOR SUSPENDED MODULE'S RESUME ADDRESS 
BACKGROUND LIST STATUS WORD 



BACTIV 
B ACT IV 

601 
502 
603 
504 
(2) 
505 
606 
607 
60S 
609 
610 
61 1 
(6) 
(9) 
512 
(2) 
(4) 
613 
(4) 
614 
615 
616 
517 
618 
619 
(3) 
620 
(4) 
621 
322 
623 
624 
625 
626 
(6) 
(9) 
627 
(4) 
628 
(4) 
629 
(4) 
630 
(6) 
631 
(2) 
632 
(4) 
633 
634 
635 
636 
637 
638 
639 
(5) 
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.SBTTL ACTIVATE BACKGROUND MODULE ROUTINE 



SEG 0267 



000010' 
000010' 



000010' 

000010' 032767 
000016' 001402 
000020 ' 

000020' C00261 
000022' 000513 
000024' 
000024' 



000024 ' 

000024' 004767 
000030' 
000030' 016500 



000034 
000034 



000042' 001413 
000044' 

000044' 016701 
000050 ' 

000050' 010167 
000054' 

000054' 016767 
000062' 

00C062' 042767 
000070' 

000070' 000461 
000072' 
000072' 



000002 177770 



000000G 
000000 



032767 000001 177744 



ROUTINE BACTIV <DTABLE> 



IS THERE A BACKGROUND MODULE CURRENTLY WORKING I" 
THE QUEUING MECHANISM? 



IF #BKD£F SETIN BA.STAT THEN 



RETURN ERROR 



ENDIF 



BACTIV: 



S WAY THRU 



BIT 
BEO 

SEC 
BR 



#BKDEF, BA.STAT 
50002$ 



50001$ 



50002$: 



DO THE NECESSARY SET UP STUFF 

CALL SAVREG 

LET RO := DTABLE(R5) 



JSR 
MOV 



PC, SAVREG 
DTABLE(R5) , RO 



177732 
OOOOOOG 

177724 OOOOOOG 
000001 177716 



IS THERE A BACKGROUND MODULE WAITING IN A SUSPEND STATE? IF SO, ACTIVATE IT BY 
ENTERING IT INTO THE MONITOR'S NEXT-TO-EXECUTE SLOT AND RETURN TO CALLER 

IF #SUSPND SETIN BA. STATUS THEN 



LET R1 := BA.HDR 
LET DX.HDR := R1 
LET DX.RET := BA.RET 

LET BA. STATUS := BA. STATUS CLR.BY #SUSPND 
INLINE <BR 1$> 
ENDIF 



OTHERWISE SEARCH THE BACKGROUND LIST LOOKING FOR A BACKGROUND MODULE TO 
ACTIVATE 





BIT 


#SUSPND,BA. STATU 




BEQ 


50003$ 




MOV 


BA.HDR, R1 




MOV 


R1 , DX.HDR 




MOV 


BA.RET, DX.RET 




BIC 


#SUSPND,BA. STATU 




BR 


1$ 


50003$: 







000072' 
000072' 027727 



IF @BA.MPTR EQ #ENDLST THEN 



177702 000000 



CMP 



@BA.MPTR,#ENDLST 



3ACTIV 


- ACTIVA 


T E NEXT 


dACKGKCw* 


JD MQDUL 


BACTIV. 


MAC 28-JUL-78 


09:10 




O) 


0001 00 ' 


001003 






640 










641 










642 










643 










644 










645 


0001 02' 








(4) 


000102 ' 


016067 


000034 


177670 


646 


0001 10' 








(4) 


0001 10' 








647 


0001 10' 








(4) 


0001 10' 


01 6703 


177664 




64B 










649 










550 










651 










652 










553 










554 


0001 14' 








(3) 


0001 14' 








655 


0001 14' 








(4) 


0001 14' 


01 7701 


177660 




655 










657 










653 










559 










660 










661 


000120' 








(4) 


000120' 


016102 


000026 




662 


000124' 








(6) 


000124' 


032702 


040000 




(9) 


000130' 


001421 






(6) 


000132' 


032702 


024000 




(9) 


000136' 


001016 






663 










664 










665 










666 










667 










663 










669 










670 


00014C ' 








(4) 


000140' 


01 0167 


000000G 




671 


000144' 








(4) 


0001 44' 


01 0167 


177632 




672 


000150' 








(4) 


000150' 


01 6167 


000030 


OOOOOCG 


673 


000156' 








(4) 


000156' 


01 6161 


000032 


000076 


674 


0001 64 ' 








(6) 


000164' 


062767 


000002 


177606 


675 


0001 72' 








(2) 


000172' 


000420 






676 


000174' 








(4) 


000174' 








677 
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IF THE LIST ENTRY IS A ZERO, RESET IT TO THE TOP OF LIST 



BNE 



LET BA.MPTR : = DT.BLST(RO) 



ENDIF 



50004$ 



LET R3 := BA.MPTR 



MOV 



MOV 



SEARCH LIST UNTIL WE WIND UP BACK WHERE WE STARTED, OR UNTIL 
WE FIND A MODULE THAT CAN BE ACTIVATED 



REPEAT 



50005S: 



LET R1 := @BA.MPTR 



ONE HAS BEEN FOUND, NOW MAKE SURE THAT IT IS ELIGIBLE TO RUN 



LET R2 := STAT(R1 ) 

IF #BIT14 SETIN R2 AND #BIT1 3 ! ACTBIT NOTSETIN R2 THEN 



MOV 



SEG 0258 



50004$ 



DT.BLST(RO) ,BA.M 



BA.MPTR, R3 



MOV @BA.MPTR,R1 



STAT(R1 ) ,R2 



BIT 


#BIT14,R2 


BEO 


50006$ 


BIT 


#BIT13!ACTBIT,R2 


BNE 


50006$ 



IF IT IS ELIGIBLE, ENTER IT INTO THE MONITOR'S NEXT-TQ-EXECUTE SLOT, SET ITS 

ACTIVE BIT, AND UPDATE THE 

BACKGROUND LIST POINTER, AND RETURN TO THE CALLER 



LET DX.HDR := R1 
LET BA.HDR := R1 
LET DX.RET := INIT(R1 ) 
LET SVR6(R1) := SP0INT(R1) 
LET BA.MPTR := BA.MPTR + #2 
INLINE <BR 1$> 
ENDIF 





MOV 


R1 , DX.HDR 




MOV 


R1 , BA.HDR 




MOV 


INIT(R1 ) , DX.RET 




MOV 


SP0INT(R1 ) ,SVR6( 




ADD 


#2, BA.MPTR 




ER 


1$ 


50006$: 
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SEO 0269 



678 
679 
580 
581 
(6) 
S82 
583 
684 
685 
636 
687 
(6) 

(9) 

638 
(4) 
639 
(4) 
690 
(3) 
(6) 
691 
592 
593 
694 
695 
696 
697 
(3) 
698 
(2) 
(4) 
699 
700 
701 
702 
703 
704 
(2) 
705 
(6) 
706 
707 
(3) 
708 
(4) 
709 
(3) 
(2) 
(3) 
(2) 
710 
711 



000174' 

000174' 062767 000002 177576 



005777 
001003 



000202' 

000202' 

00C206 1 

000210' 

000210' 

000216' 

000216' 

000216' 

000216' 026703 

000222' 001334 



177572 



016067 000034 177562 



177556 



000224' 

000224' 004767 OOOOOOG 

000230' 

000230' 000261 

000232' 000407 



000234' 
000234' 
000234' 
000234' 



052761 004000 000026 



000242' 

000242' 004767 OOOOOOG 

000246' 

000246' 000400 

000250' 

000250 ' 

000250' 000241 

000252' 

000252' 000207 

000001 



UPDATE THE LIST POINTER AND CONTINUE SEARCHING 
LET BA.MPTR := BA.MPTR + #2 

IF ENTRY IS ZERO, RESET TO TOP OF LIST 
IF ©BA.MPTR EQ #0 THEN 



LET BA.MPTR := DT.BLST(RO) 



ENDIF 



50007S 



UNTIL BA.MPTR EQ R3 

DO THE NECESSARY CLEAN-UP AND RETURN 

CALL RESREG 
RETURN ERROR 

SET THE ACTBIT AND RETURN 

INLINE <1$:> 

LET STAT(R1) : = STAT(R1) SET. BY #mCTBIT 

CALL RESREG 
RETURN NO. ERROR 
ENDRTN 

.END 



50000$: 
50001$: 



ADD 



TST 
BNE 



MOV 



CMP 
BNE 



JSR 

SEC 

BR 



1$: 
BIS 

JSR 

3R 

CLC 
RTS 



#2, BA.MPTR 



©BA.MPTR 
50007$ 

DT.BLST(RO) ,BA.M 



BA.MPTR, R3 
50005$ 



PC, RESREG 
50001$ 



#ACTBIT,STAT(R1 ) 

PC, RESREG 
50000$ 



PC 
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ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001 000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ASB 


00C106 


ASSEM3= 


000010 


ASTAT = 


0001 04 


AUTO = 


000010 


AUTOST= 


020000 


A WAS = 


0001 10 


BACTIV 


000010RG 


BA.HDR 


000002RG 


BA.MPT 


COOOOCRG 


BA.RET 


000004RG 


BA.5TA 


000006RG 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


00C004 


BIT03 = 


000010 


BIT04 = 


20 


BIT05 = 


000040 


BIT06 = 


0001 00 


BIT07 = 


000200 


BIT08 = 


000400 


B1T09 = 


001 000 


BIT1 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


01 0000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


0C0020 


BIT5 = 


000040 


BIT6 = 


000100 


BII7 = 


0002C0 


BIT8 = 


000400 


3IT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BK£LSH= 


0001 34 


CAPRE5= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDC7= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 



CONFIG= 

CQOVF = 

CR 

CSRA = 

CSRC = 

CTRLC = 

CTRLO = 

CTRLU = 

DCEVNT= 

DEFRTN= 

DIAGMC= 

DROPMO= 

DSEVNT= 

DTABLE= 

DT.ADD= 

DT.AP = 

DT.APK= 

DT.BLS= 

DT.CFO= 

DT.CF1= 

DT.ERR= 

DT.ESI= 

DT.EVN= 

DT.EXS= 

DT.FCH= 

DT.FCN= 

DT.HMX= 

DT.KBE= 

DT.KBP= 

DT.KBR= 

DT.KBU= 

DT.MLS= 

DT.MTI= 

DT.OFF= 

DT.PAS= 

DT.PC = 

DT.PFL= 

DT.PSW= 

DT.PTA= 

DT.RCS= 

DT.REL= 

DT.SCT= 

DT.SMX= 

DT.SP = 

DT.SSI= 

DT.STO= 

DT.ST1= 

DT.SWR= 

DT.SYP= 

DT.WBU= 

DT.WHL= 

DT.WLL= 

DVID1 = 



000056 
000001 
000015 
000100 
000102 
C00003 
000017 
000025 
00001 1 
000400 
OOOCOO 
100000 
00 0014 
000000 
000042 
000100 
000076 
C0C034 
000014 
000016 
000020 
000044 
OOCOOO 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
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DX.HDR= 


***)(t** Q 


LF 


000012 


DX.RET= 


****** Q 


LPSTAT= 


000001 


ECCMEM* 


000100 


MAPSTA= 


000200 


ECCSTA= 


000010 


MED 


076600 


ENBEOP= 


010000 


MEMPAS= 


040000 


ENBNUL= 


000001 


MODEXH= 


004000 


ENDLST= 


000000 


MODHOL= 


002000 


EOPBIT= 


000001 


MODSEL= 


001000 


ERRTYP= 


000106 


MSGCKD= 


000010 


EVNTBE= 


000200 


MSGCKS= 


00001 1 


EVNTHD= 


000200 


MSGDER= 


000005 


EVNTKT= 


000203 


MSGDRP= 


000017 


EVNTPE= 


0002C2 


MSGECH= 


177777 


EVNTRE= 


000201 


MSGEOP= 


000013 


FATERR= 


100000 


MSGHDR= 


000004 


HRDCNT= 


000044 


MSGHNG= 


000022 


HRDPAS= 


000050 


MSGHRD= 


000007 


ICONT = 


000036 


MSGMAP= 


000021 


ICOUNT= 


000040 


MSGNUL= 


177775 


IDNUM = 


000122 


MSGPOP= 


000002 


IE = 


000100 


MSGPRM= 


177776 


INDPAR= 


000040 


MSGRES= 


000001 


INHDRP= 


040000 


MSGSFT= 


000005 


INHEPR= 


020000 


MSGSKE= 


000003 


INHREL= 


001000 


MSGSMB= 


000015 


INHRRE= 


000400 


MSGSMH= 


000014 


INIT = 


000030 


MSGSMS= 


000016 


INTR = 


000120 


MSGSTD= 


000000 


IOMOD = 


100000 


MSGSYS= 


000012 


IOMODP= 


102000 


MSGVEC= 


000020 


IOMODR= 


1 12000 


NBKMOD= 


001 000 


IOMODX= 


110000 


NCPUOP= 


000020 


JACK = 


035060 


NOAPTY= 


000002 


KIPAR0= 


172340 


NULL = 


000000 


KIPAR1= 


172342 


OWEN = 


024020 


KIPAR2= 


172344 


PAERR = 


000010 


KIPAR3= 


172346 


PARPRE= 


002000 


KIPAR4= 


172350 


PARSTA= 


000100 


KIPAR5= 


172352 


PASCNT= 


000034 


KIPAR6= 


172354 


PDPLSI= 


020000 


KIPAR7= 


172356 


PDP50 = 


004000 


KIPDR0= 


172300 


PDP70 = 


010000 


KIPDR1= 


172302 


PRIO = 


000000 


KIPDR2= 


172304 


PRI1 


000040 


KIPDR3= 


172306 


PRI4 = 


000200 


KIPDR4= 


172310 


PRI5 = 


000240 


KIPDR5= 


172312 


PRI6 = 


000300 


KIPDRG= 


172314 


PRI7 = 


000340 


KIPDR7= 


1 72316 


PRO 


000000 


KTERRO= 


000040 


PR4 


000200 


KTPRES= 


000400 


PR5 


000240 


KTSTAT= 


000020 


PR6 


000300 


KTXTND= 


040000 


PR7 


0C0340 



SEQ 0270 



PS 

PSW 

RANNUM= 

RBUFEA= 

R3UFPA= 

RBUFSZ= 

RBUFVA= 

RDSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RESREG= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBOUT= 

RUNMOD= 

R5VALU= 

SAM = 

SAVREG= 

S3ADR = 

SBKMOD= 

SBKSEL= 

SC.ADR= 

SC.ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SQFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

S°VALU= 

SRO 

SR1 

SR2 

SR3 = 

STAT = 

STATBI= 

STAT1 = 

SUSFND= 

SVRO = 

SVR1 = 

SVR2 = 

SVR3 = 

SVR4 = 



177776 
177776 
000054 
000130 
000126 
000132 
000124 
000101 
000022 
000020 
020000 
010000 
* * * >• * * 

000056 
000060 
031 060 
002000 
0001 12 
000177 
100000 
001 740 
075464 
****** 

000102 
000000 
010000 
000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 
000C27 
00OCO1 
000062 
000064 
000066 
000070 
000072 
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SEO 0271 



SVR5 = 


000074 




SVR6 = 


000076 




SYSCNT= 


000052 




SYSERR= 


000100 




TMPIO = 


000002 




TQOVF = 


000002 




U1PAR0= 


177640 




UIPAR1 = 


1 77642 




UIPAR2= 


177644 




JIPAR3= 


177646 




UIPAR4= 


177650 




UIP4R5= 


177652 




UIPAR6= 


177654 




UIPAR7= 


177656 




UIPDRO= 


177600 




UIPDR1 = 


177602 




UIPDR2= 


177604 




UIPDR3= 


177606 




UIPDR4= 


177610 




. ABS. 


000000 


000 




000254 


001 



UIPDR5= 177612 
UI?DR6= 177614 
UIPDR7= 177616 
WASADR= 000104 
WBSTAT= 000040 
WBUFEA= 000136 
WBUFPA= 000134 
WBUFRQ= 000140 
WBUFSZ= 000142 
WDFR = 000116 
WDTO = 0001 14 
WTINRE= 000352 
WTWHMI= 000222 
XFLAG = 000005 
XOFF = 000023 
XON = 000021 
$BGNLE= 177777 
$ERFLG= 000000 
$F$AND= 000310 



$F$BAD= 000401 
$F$BLA= 000170 
$F$CAS= 000150 
$F$DEC= 000220 
$F$DO = 000340 
$F$FAL= 000405 
$F$GOO= 000400 
$ F $ I F = 000110 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 000160 
$F$NO = 000403 
$F$OR ^ 000320 
$F$RTI= 000350 
$F$RTN= 000300 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 



$F$WHI= 000120 
$F$YES= 000402 
$IFLEV= 177777 
SISKO = 000001 
$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA- 000001 
$NESTL= 177777 
$NSKO = 000300 
SNSK1 = 000130 
$NSK2 = 000110 
$SAVLE= 177777 
$TAGLE= 177777 
$TAGNU= 050010 
STEMP = 000300 
$T5K0 = 050005 
$TSK1 = 050007 
$$ARGC= 000002 
$$BYTE= 000403 



$$CASE= OCOOOO 
$$DST = 000000 
$$ELOC= 000403 
$$ERFL= 000000 
$$FLAG= 000001 
$$FROM= 000000 
$$LOC = 000222R 
$SLGCN= 000000 
$$REG = 177777 
$$RETU= 000001 
$$RTN1= 050000 
$$RTN2= 050001 
S3SRC = 000000 
$$TGSV= 000000 
$5TGS1= 000000 
$$TGS2= 000000 
$$T0 = 000000 
$$$TAG= 050000 
= 000254R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED 



DSKZ:BACTIV,DSK2: 6ACTI V=SPMAC/ML , EQUATE , BACT IV 
RUN-TIME: 14 4 .3 SECONDS 
RUN-TIME RATIO: 35/19=1.8 
CORE USED: 14K (27 PAGES) 
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508 
509 
510 
51 1 
512 
513 
514 
515 
516 
517 
513 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
536 
539 
540 
541 
542 
543 
544 
545 
546 
547 
546 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
551 
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SEQ 0273 



TITLE BADMEM - REPORT BAD MEMORY TRANSFER 
IDENT /V0.0/ 

++ 
MODULE NAME: 
BADMEM 

FUNCTIONAL DESCRIPTION: 

THIS MODULE IS USED TO REPORT A BAD MEMORY TRANSFER. 

IT IS PASSED THE ADDRESS A TABLE CONTAINING THE FAILING ADDRESS, ALONG 
WITH THE ACTUAL AND SHOULD-BE CONTENTS FOR THAT ADDRESS. THE ROUTINE 
CONVERTS THESE VALUES TO ASCII AND OUTPUTS THEM. 



INPUTS: 



DATA TABLE ADDRESS 

ADDRESS OF TABLE CONTAINING LOW-ORDER AND HIGH-ORDER BITS OF PA 

ACTUAL CONTENTS 

SHOULD-BE CONTENTS 



IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE MODULES CALLED: 
BOAC 
B0A16 
MSGDHOOK 
SAVREG 
RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 



;BINARY TO OCTAL-ASCII CONVERSION 

; 16-BIT BINARY TO OCTAL-ASCII CONVERSION 

;HOOK MESSAGE TO PROPER DRIVER 



CALLING SEQUENCE: 

CALL BADMEM IN <A I B,C,D> 

A=ADDRESS OF DATA TABLE 

B=ADDRESS OF LOW ORDER 16 BITS OF PA 

C=ACTUAL CONTENTS 

D=SHOULD-BE CONTENTS 

VERSION: 
0.0 



EDIT 



BY 



DATE 



REASON 



59: 
59: 



594 
595 



595 
597 

59S 
599 



000000 
000000 



000001 
000001 
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563 

564 
565 
566 

(D 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
536 
587 
583 
589 
590 
591 



000000 ' 
000006' 
000014 ' 
000022' 
000030' 
000033' 
000043' 
000050 ' 
000056' 
000060' 
000065' 
000074' 
000102' 
000104' 
0001 12' 



041045 
046505 
051 124 
051 105 
035122 
000010 
040 
0521 16 
020072 
000006 
020040 
046125 
020072 
000006 
000045 



042101 
051 1 17 
047101 
040445 
040 

020040 
047105 



051440 
020104 



046440 
020131 
0431 23 
042104 



047503 
051524 



047510 
042502 
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COMMON DEFINITIONS AND REFERENCES 

.SSTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



**************** 

REFERENCED BY OTHER MODULES 
GL03L BADMEM 
■* *************** 

GLOBAL REFERENCES 



SEQ 0274 



GLGBL BOAC 

GLOBL B0A16 

GLOBL MSGDHOOK 

GLOBL SAVREG 

GLOBL RESREG 



BINARY TO OCTAL-ASCII CONVERSION 

16-BIT BINARY TO OCTAL ASCII CONVERSION 

HOOK MESSAGE TO PROPER DRIVER 



LOCAL STORAGE 
BM.MSG: .ASCII /%BAD MEMORY TRANSFER%ADDR : / 



BM.ADR: .BLKB 10 

.ASCII / CONTENTS: / 



BM.3D: .BLKB 6 

.ASCII / SHOULD BE: / 



BM.GD: .BLKB 6 

•ASCIZ /%/ 

.EVEN 
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601 








602 








603 


000114' 






(2) 


C001 14' 






604 








605 








606 








607 








608 








60S 


0001 14' 






(3) 


0001 14' 


004767 


OOOOOOG 


510 








51 1 








612 








613 








614 








615 








616 








617 


000120 ' 






(4) 


C00120 1 


016500 


000000 


618 


000124' 






(4) 


000124' 


01 6501 


000002 


61S 


000130 ' 






(4) 


000130' 


016502 


000004 


620 


000134' 






(4) 


000134' 


016503 


000006 


621 








622 








623 








624 








625 








626 








627 


0C0140' 






(3) 


0001 40 ■' 


01 0546 




(7) 


000142' 


01 2745 


000033' 


(6) 


00014S' 


01 6145 


000002 


(5) 


0C0152' 


01 1 145 




(4) 


000154' 


01 0045 




(3) 


000156' 


004767 


OOOOOOG 


(3) 


000162' 


012605 




628 








629 








630 








631 








632 








633 








634 


0001 64 ' 






(3) 


000164' 


01 0546 




(5) 


000166' 


01 2745 


000060 ' 


(4) 


0001 72' 


01 0245 




(3) 


0001 74' 


004767 


OOOOOOG 


(3) 


000200' 


01 2605 




635 


000202' 






(3) 


0C0202' 


01 0546 




(5) 


000204' 


012745 


000104' 


(4) 


000210' 


010345 
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BADMEM ROUTINE 

.S8TTL BADMEM ROUTINE 

ROUTINE BADMEM <TABL , PA , BD , GD> 



SAVE REGISTERS 



SEQ 0275 



BADMEM: 



CALL SAVREG 



JSR 



PC, SAVREG 



SET RO TO THE START OF THE DATA TABLE, R1 TO THE ADDRESS OF THE PA TABLE, 
R2 TO THE ACTUAL CONTENTS, AND R3 TO THE SHOULD-BE CONTENTS. 



LET RO 

LET R1 

LET R2 

LET R3 



= TABL(R5) 

= PA(R5) 

= BD(R5) 

= GD(R5) 



MOV 


TA3L(R5) ,R0 


MOV 


PA(R5) ,R1 


MOV 


BD(R5) ,R2 


MOV 


GD(R5) ,R3 



CONVERT THE PA TO ASCII 



CALL BOAC IN <R0 , ( R1 ) , 2 ( R1 ) , #BM . ADR> 



MGV 


R5,-(SP) 


MOV 


^BM.ADR,-(R5) 


MOV 


2(R1 ) ,-(R5) 


MOV 


(R1 ),"(R5) 


MOV 


R0,-(R5) 


JSR 


PC, BOAC 


MOV 


(SP)+,R5 



CONVERT THE ACTUAL AND SHOULD-BE DATA TO ASCII 



CALL B0A16 IN <R2,#BM.BD> 



CALL B0A16 IN <R3,#BM.GD> 



MOV 


R5,-(SP) 


MOV 


#BM.BD,-(R5) 


MOV 


R2,-(R5) 


USR 


PC, B0A16 


MOV 


(SP)+,R5 


MOV 


R5,~(SP) 


MOV 


#BM.GD,-(R5) 


MOV 


R3,-(R5) 
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(3) 


000212' 


004767 


000000G 


(3) 


000216' 


012605 




636 








637 








633 








639 








640 








541 








642 


000220 ' 






(3) 


00C220 ' 


01 0546 




(7) 


000222 ' 


01 2745 


000252' 


(6) 


C00226' 


012745 


OCOOOO ' 


(5) 


000232 ' 


01 2745 


000002 


(4) 


000236' 


01 0045 




(3) 


000240 ' 


C04767 


OOOOOOG 


(3) 


000244' 


012605 




643 


000246' 






(2) 


000246' 


000240 




544 


000250' 






(2) 


000250' 


000776 




645 


000252' 






(2) 


000252' 






646 








647 








648 








649 








650 








651 








652 


000252' 






(3) 


000252' 


004767 


OOOOOOG 


653 








654 


000256' 






(3) 


000256' 






(3) 


000256' 






(2) 


000256' 


000207 




655 




000001 
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BADMEM ROUTINE 



; + 

; OUTPUT THE MESSAGE. 

CALL MSGDHOOK IN <R0 , #MSGPGP , #BM . MSG , #2$> 



SEQ 0276 



JSR 
MOV 



INLINE <1$: NOP> 
INLINE <BR 1$> 
INLINE <2$:> 

; + 

; RESTORE REGISTERS AND RETURN, 

CALL RESREG 

ENDRTN 



50000$: 
50001$: 



JSR 



RTS 



PC.B0A16 
(SP)+,R5 



MOV 


R5,-(SP) 


MOV 


#2$,-(R5) 


MOV 


#BM.MSG,-(R5) 


MOV 


#M3GP0P,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, MSGDHOOK 


MOV 


(SP)+,R5 


1$: 


NOP 


BR 


1$ 


2$: 





PC, RESREG 



PC 



.END 
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SEQ 0277 



ACSR = 000102 
ACTBIT= 004000 
ADDR22= 001000 
ADR = 000006 
APTFER= 000004 
APTPRE= 000200 
ASB = C00106 
ASSEMB= 00 0010 
ASTAT = 000104 
AUTO = 000010 
AUTOST= 020000 
AWAS = 0001 10 
BADMEM 0001 14RG 
BD = 000004 
BITO = C00001 
BITOO = 000001 
BIT01 = 000002 
BIT02 = 000004 
3IT03 = 000010 
BIT04 = 000020 
BIT05 = 000040 
3IT06 = 000100 
3IT07 = 0C0200 
3IT08 = 000400 
BIT09 = 0C1000 
3IT1 = 000002 
3IT10 = 002000 
BIT11 = 0C4000 
3IT12 = 010000 
BIT13 = 020000 
3IT14 = 040000 
3IT15 = 100000 
BIT2 = 000004 
3IT3 = 000010 
3IT4 = 000020 
B1T5 = 000040 
3IT6 = 000100 
3IT7 = 000200 
3IT8 = 000400 
3IT9 = 001000 
3KDEF = 000002 
3KM0D = 000020 
3KM0DE= 040000 
3KSLSH= 000134 
3M.ADR 000033R 
3M.BD OC006CR 
3M.GD 0C0104R 
3M.MSG OOOOOOR 
BOAC = ****** G 
30A16 = ****** G 
CAPRES= 000004 
CASTAT= 000004 
CDERCT= 000146 



CDWDCT= 000144 
CKTIM = 100000 
CLKPRE= 000001 
CONFIG= 000056 
CQOVF = 000001 
CR = 000015 
CSRA = 000100 
CSRC = 000102 
CTRLC = 000003 
CTRLO = 00C017 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= 000400 
DIAGMC= 000000 
DROPMO= 100000 
DSEVNT= 000014 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000034 
DT.CFO^ 000014 
DT.CF1= 000016 
DT.ERR= 000020 
DT.ESI^ 000044 
DT.EVN= 000000 
DT.EXS= 000060 
DT.FCH= 000037 
DT.FCN= 000036 
DT.HMX= 000104 
DT.KBE-- 000024 
DT.KBP= 000026 
DT.KBR= 000022 
DT.KBU= 000030 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = C00002 
DT.PFL= 000062 
DT.PSW= 0C0004 
DT.PTA= 000064 
DT.RCS= 000102 
DT.REL= 000040 
DT.SCT= 000066 
DT.SMX= 000106 
DT.SP = 000006 
DT.SSI= 000046 
DT.ST0= 000010 
DT.ST1= 000012 
DT.SWR= 000056 
DT.SYP= 000072 
DT.WBU= 000050 
DT.WHL= 000054 



DT.WLL= 000052 
DVID1 = 000014 
ECCMEM* 000100 
ECCSTA= 000010 
ENBEOP= 010000 
ENBNUL= 000001 
ENDLST= 000000 
EOPBIT= 000001 
ERRTYP= 000106 
EVNTBE= 000200 
EVNTHD= 000200 
EVNTKT= 000203 
EVNTPE= 000202 
EVNTRE= 000201 
FATERR= 100000 
GD = 000006 
HRDCNT= 000044 
HRDPAS= 000050 
ICONT = 000036 
ICOUNT= 000040 
IDNUM = 000122 
IE = 000100 
INDPAR= 000040 
INHDRP= 040000 
INHEPR= 020000 
INHREL= 001000 
INHRRE= 000400 
INIT = 000030 
INTR = 0C0120 
IOMOD = 100000 
IOMODP= 102000 
IOMODR= 112000 
IGMODX= 110000 
JACK = 035060 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172353 
KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KTERRO= 000040 
KTPRES= 000400 
KTSTAT= 000020 



KTXTND= 040000 
LF = 000012 
LPSTAT= 00C001 
MAPSTA= 000200 
MED = 076600 
MEMPAS= 040000 
MODEXH= 004G00 
MODHOL= 002000 
MODSEL= 001000 
MSGCKD= 000010 
MSGCKS= 000011 
MSGDER= 000005 
MSGDHO= **+*** G 
MSGDRP= 000017 
MSGECH= 177777 
MSGEOP= C00013 
MSGHDR= 000004 
MSGHNG= 000022 
MSGHRD= 000007 
MSGMAP= 000021 
MSGNUL= 177775 
MSGPOP= 000002 
MSGPRM= 177776 
MSGRES= 000001 
MSGSFT= 000006 
MSGSKE= 000003 
M5GSMB= 000015 
MSGSMH= 000014 
MSGSMS= 000016 
MSGSTD= 000000 
MSGSYS= 000012 
MSGVEC= 000020 
NBKMOD= 001000 
NCPUOP= 000020 
NOAPTY= 000G02 
NULL = 000000 
OWEN = 024020 
PA = 000002 
PAERR = 000010 
PARPRE= 002000 
PARSTA= 000100 
PASCNT= 000034 
PDPLSI= 020000 
PDP60 = 004000 
PDP70 = 010000 
PRIO = 000000 
PRI1 = 000C40 
PRI4 = 000200 
PRI5 = 000240 
PRI6 = 000300 
PRI7 = 0C0340 
PRO = 000000 
PR4 = 000200 



PR5 = 000240 
PR6 = 000300 
PR7 = 000340 
PS = 177776 
PSW = 177776 
RANNUM= 000054 
R3UFEA= 000130 
R3UFPA= 000126 
RBUFSZ= 000132 
RBUFVA= 000124 
RDSERV= 000101 
RDWHMI= 000 022 
RELERR= 000020 
R£LMOD= 020000 
R£LTIM= 010000 
RESREG= ****** G 
RES1 = 000056 
RES2 = 000060 
RICHAR= 031060 
RPTDAT= 002000 
RSTRT = 000112 
RUBOUT= 000177 
RUNMOD= 100000 
R5VALU= 001740 
SAM = 075464 
SAVREG= ****** G 
SBADR = 000102 
S3KM0D= 000000 
SBKSEL= 010000 
SC.ADR= 000006 
SC.ALC= 000014 
SC.APC= 000016 
SC.CKL= 000002 
SC.CKP= 000004 
SC.CL0= 000000 
SC.HLD= 000010 
SC.SCA= 000012 
SENDLS= 177777 
SCFCNT= 000042 
SOFPAS= 000046 
SPACE = 000040 
SSQINT= 000032 
SPVALU= 002200 
SRO = 177572 
SR1 = 177574 
SR2 = 177576 
SR3 = 172515 
STAT = 000026 
STATBI= 064757 
STAT1 = 000027 
SUSPND= 000001 
SVRC = 000062 
SVR1 = 000064 



BADMEM - REPORT BAD MEMORY TRANSFER 
BADMEM. MAC 28-JUL-78 09 : 1 1 



MACY11 30A(1052) 
SYMBOL TABLE 



20-SEP-78 17:41 PAGE 20-1 



SEQ 0278 



SVR2 = 


C00066 




SVR3 


000070 




SVR4 = 


0C0072 




SVR5 = 


000074 




SVR6 = 


000076 




SYSCNT= 


000052 




SYSERR= 


0001 00 




TABL = 


000000 




TMPIO = 


C00002 




TQOv'F = 


000002 




UIPARO= 


1 77640 




UIPAR1 = 


177642 




UIPAR2= 


177644 




UIPAR3= 


177646 




UIPAR4= 


177650 




JIPAR5= 


177652 




UIPAR6= 


177654 




UIPAR7= 


177656 




UIPDRO= 


1776C0 




. ABS. 


000000 


OOC 




000260 


001 



UIPDR1= 177602 
UIPDR2= 177604 
UIPDR3= 177606 
UIPDR4= 177610 
UIPDR5= 177612 
UIPDR6= 177614 
UIPCR7= 177616 
WASADR= 000104 
WBSTAT= 000040 
WBUFEA= 000136 
W5UFPA= 000134 
WBUFRQ= 000140 
W3UFS2= 000142 
WDFR = 000116 
WDTO = 000114 
WTINRE= 000352 
WTWHMI= 000222 
XFLAG = 000005 
XOFF = 00C023 



XON = 000021 
$BGNLE= 177777 
$ERFLG= 000400 
$F$AND= 000310 
$F$BAD= 000401 
$F$BLA= 000170 
$F$CAS= 000150 
$F$DEC= 000220 
$F$DO = 000340 
$F$FAL= 000405 
$F$GOO= 000400 
$F$IF = 000110 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 000160 
$F$NO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 



$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 
$F$YES= 000402 
$IFLEV= 177777 
$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000001 
$NESTL= 177777 
$NSKO = 000300 
$SAVLE= 177777 
$TAGLE= 177777 
$TAGNU= 050002 
STEMP = 000300 
$$ARGC= 000010 
$$BYTE= 000000 
$$CASE= 000000 



$$DST = 000000 
$$ELOC= 000000 
$SERFL= 000000 
$$FLAG= 000000 
$$FROM= 000000 
$$LOC = 000000 
$$LOCN= 000000 
$$RE.G = 177777 
$3RETU= 000000 
$SRTN1= 050000 
$SRTN2= 050001 
SSSRC = 000000 
$STGSV= 000000 
$$TGS1= 000000 
$$TGS2= 000000 
S3T0 = 000000 
S$$TAG= 050000 
= 000260R 



ERRORS DE T ECTED: 
DEFAULT GLOBALS GENERATED: 



DSK2 : BADMEM , DSK2 : BADMEM-SPMAC/ML , EQUATE , BADMEM 
RUN-TIME: 11 1 .3 SECONDS 
RUN-TIME RATIO: 28/14=2.0 
CORE USED: 1 4K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:41 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0279 

3 COMMON EQUATE MODULE 

558 COMMON DEFINITIONS AND REFERENCES 

564 OOOOOO 1 .PRINT ;SPMAC: VERSION 1.1 

594 BDACNV ROUTINE 



BDACNV - BINARY TO DECIMAL-ASCII CONVERSION ROUTINE MACY1 1 30A(1052) 20-SEP-78 17:41 PAGE 19 
BDACNV.MAC 28-JUL-78 09:11 COMMON EQUATE MODULE 



SEO 0280 



508 
509 
510 
51 1 
512 
513 
514 
515 
516 
517 
513 
519 
520 
521 
522 
523 
524 
525 
525 
527 
528 
529 
530 
531 
532 
533 
534 
535 
535 
537 
533 
539 
540 
541 
542 
543 
544 
545 
546 
547 
543 
549 
550 
551 
552 
553 
554 
555 
556 



TITLE BDACNV 
IDENT /VO.O/ 



- BINARY TO DECIMAL-ASCII CONVERSION ROUTINE 



++ 
MODULE NAME: 
BDACNV 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE CONVERTS A 16-BIT UNSIGNED BINARY NUMBER 
TO A 5-DIGIT DECIMAL-ASCII NUMBER. THE TECHNIQUE USED 
IS THAT OF REPEATED DIVISION BY POWERS OF 10 (10), WITH THE RE- 
MAINDERS, WHICH COMPOSE THE DECIMAL NUMBER, BEING 
CONVERTED TO ASCII . 



INPUTS: 



1. 16-BIT BINARY NUMBER THAT IS TO BE CONVERTED 

2. ADDRESS AT WHICH THE RESULT IS TO BE STORED 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

1. 5-CHARACTER DECIMAL-ASCII RESULT 

PATHOLOGICAL CONNECTIONS: 
NONE 



SAVE REGISTERS 
RESTORE REGISTERS 



SUBORDINATE MODULES CALLED: 

1 . SAVREG 

2. RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 



CALLING SEQUENCE: 

CALL BDACNV IN <NUMBER , ADDRESS> 

NUMBER = 16-BIT BINARY NUMBER TO BE CONVERTED 
ADDRESS = ADDRESS TO STORE 5-CHAR RESULT 

VERSION: 
0.0 



EDIT 



BY 



DATE 



REASON 



BDACNV - BINARY TO DECIMAL-ASCII CONVERSION ROUTINE MACY1 1 30A(1052) 20-SEP-78 17:41 PAGE 20 
BDACNV.MAC 28-JUL-78 09 : 1 1 COMMON DEFINITIONS AND REFERENCES 



SEQ 0281 



558 
559 
560 
561 
562 
563 
564 
d) 
565 
563 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
573 
579 
580 
581 
582 
582 
584 
585 
586 
587 
588 
589 
590 
591 

592 



000000 
000000 



000001 
000001 



SBTTL COMMON DEFINITIONS AND REFERENCES 



.MCALL STRUCT 
STRUCT 
PRINT ;SPMAC: VERSION 1.1 
SLSTIN = 1 
SLSTTAG = 1 



****** ********** 

REFERENCED BY OTHER MODULES 
GLOBL BDACNV 
**************** 

GLOBAL REFERENCES 

GLOBL SAVREG 
GLOBL RESREG 



; MODULE'S ENTRY POINT 



;SAVE REGISTERS 

; RESTORE REGISTERS 



**************** 
LOCAL STORAGE 

000000' 023420 001750 000144 BD.TEN: *D1 0000 , *D1 000 , *D1 00 , ~D1 , ~D1 
00C006' 000012 000001 



BDACNV - BINARY TO DECIMAL-ASCII CONVERSION ROUTINE 
BDACNV.MAC 28-JUL-78 09:11 BDACNV ROUTINE 
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SEQ 0283 



(4) 


000040 ' 


005003 




641 








542 


000042 1 






(4) 


000042 ' 






(6) 


000042 ' 


02651 1 


000000 


(9) 


0C0046' 


103404 




643 


000050 ' 






(6) 


000050' 


161 165 


000000 


644 


000054' 






(6) 


000054' 


005203 




645 


000056' 






(4) 


000056' 


000771 




(3) 


000060' 






646 








647 


000060' 






(6) 


000060 ' 


062703 


000060 


648 


000064 ' 






(4) 


000064' 


11 0320 




549 








550 


000066' 






(6) 


000066' 


062701 


000002 


651 


000072' 






(4) 


000072' 


000760 




(3) 


000074' 






652 








653 








654 








655 








656 








65? 








656 








659 


000074' 






(3) 


000074' 


004767 


000000G 


660 








661 








662 


0001 00' 






(3) 


0001 00 ' 






(3) 


000100 ' 






(2) 


000100' 


000207 




663 








664 




000001 





CLR 



WHILE NUM(R5) HIS (R1) DO 

LET NUM(R5) := NUM(R5) - (R1) 
LET R3 := R3 + #1 
ENDDO 

LET R3 := R3 + #60 
LET (R0) + :b= R3 

LET R1 := R1 + #2 



ENDDO 



RESTORE REGISTERS AND RETURN, 



CALL RESREG 



ENDRTN 



END 



500003: 
50001$: 



JSR 



RTS 



R3 



50004$: 


CMP 
BLO 


NUM(R5) , (R1 ) 
50005$ 




SUB 


(R1 ) ,NUM(R5) 




INC 


R3 


50005$: 


BR 


50004$ 




ADD 


#60, R3 




MOVB 


R3, (R0) + 




ADD 


#2,R1 


50003$: 


BR 


50002$ 



PC, RESREG 



PC 
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SEQ 02B4 



ACSR = 


0001 02 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000002 


APTFER= 


000004 


APTPRE= 


000200 


ASB 


0001 06 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUT3ST= 


020000 


AWAS = 


0001 10 


BDACNV 


000012RG 


BD. TEN 


OOOOOOR 


BITO = 


000001 


31 TOO = 


000001 


3IT01 = 


000002 


3IT02 = 


000004 


BIT03 = 


OC0010 


BIT04 = 


000020 


BIT05 = 


000040 


3IT06 = 


0001 00 


BIT07 = 


0C0200 


BIT08 = 


000400 


BIT 09 = 


0010C0 


B I T 1 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


3IT12 = 


010000 


31T13 = 


020000 


3IT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


3IT5 = 


000040 


BITS = 


000100 


3IT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


3KDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000C04 


CDERCT= 


0001 46 


CDWDCT= 


000144 


CKT1M = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQCVF = 


000001 


CR 


000015 



CSRA = 
CSRC = 
CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO= 
DSEVNT= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CF0= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.ST0= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL-- 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 



000100 
000102 
000003 
000017 
000C25 
00001 1 
000400 
000000 
100000 
000014 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000C22 
000030 
000032 
C001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000C54 
000052 
000C14 
000100 
000010 
010000 
000001 



ENDLST= 

EOPBIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT = 

INTR = 

IOMOD = 

IOMODP= 

IOMODR= 

IOMODX= 

JACK = 

KIPARO= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPSTAT= 

MAPSTA= 

MED 

MEMPAS= 

MODEXH= 



000000 
000001 
000106 
000200 
000200 
000203 
000202 
000201 
100000 
000044 
000050 
000036 
00C040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000030 
000120 
1 00000 
102000 
1 12000 
1 10000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040C00 
0C0012 
000001 
0002C0 
076600 
040000 
004000 



MODHOL= 


002000 


MCDSEL= 


00 1000 


MSGCKD= 


000010 


MSGCKS= 


00001 1 


MSGDER= 


000005 


MSGDRP= 


000017 


MSGECH= 


1 77777 


MSGEOP= 


000013 


MSGHDR= 


000004 


MSGHNG= 


000022 


MSGHRD= 


000007 


MSGMAP= 


000021 


MSGNUL= 


177775 


MSGPOP= 


000002 


MSGPRM= 


177776 


MSGRES= 


000001 


MSGSFT= 


000006 


MSGSKE= 


000003 


MSGSMB= 


000015 


MSGSMH= 


000014 


MSGSMS= 


000016 


MSGSTD= 


000000 


MSGSYS= 


000012 


MSGVEC= 


000020 


NEKMOD= 


001000 


NCPUOP= 


000020 


NOAPTY= 


000002 


NULL = 


OOGOOO 


NUM = 


000000 


OWEN = 


024020 


PAERR = 


000010 


PARPRE= 


002000 


PARSTA= 


000100 


PASCNT= 


000G34 


PDPLSI= 


020000 


PDP60 = 


004000 


PDP70 = 


010000 


PRIO = 


000000 


PRI1 = 


000040 


PRI4 = 


000200 


PRI5 = 


000240 


PRI6 = 


000300 


PRI7 = 


000340 


PRO 


000000 


PR4 


000200 


PR5 


000240 


PR6 


000300 


PR7 


000340 


PS 


177776 


PSW 


177776 


RANNUM= 


000054 


RBUFEA= 


000130 


RBUFPA= 


000126 



R3UFSZ= 

R3UFVA= 

RDSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RESREG= 

RES1 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBDUT= 

RUNMOD= 

R5VALU= 

SAM 

SAVREG= 

SBADR = 

SBKMOD= 

SBKSEL= 

SC.ADR= 

SC.ALC= 

SC. APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

5ENDLS= 

SQFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 = 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 

SVR6 = 

SYSCNT= 

SYSERR= 

TMPIO = 



000132 
000124 
000101 
000022 
000020 
020000 
010000 
* * * * * * 

000056 
000060 
031060 
002000 
0001 12 
000177 
100000 
001740 
075464 
****** 
000102 
000000 
010000 
000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000025 
064757 
000027 
000001 
000062 
000064 
000066 
000070 
000072 
000074 
000076 
000052 
000100 
0000C2 
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SEQ 0285 



TOOVF = 


000002 




WBUFEA= 


000!36 


UIPAR0= 


177640 




WBUFPA= 


000134 


UIPAR1 = 


1 77642 




WBUFRQ= 


000140 


UIPAR2= 


177644 




W3UFSZ= 


000142 


UIPAR3= 


177646 




WDFR = 


0001 16 


UIPAR4= 


177650 




WDTO = 


0001 14 


UIPAR5= 


177652 




WTINRE= 


000352 


UIPAR6= 


177654 




WTWHMI= 


000222 


UIPAR7= 


177656 




XFLAG = 


000005 


UIPDRO= 


177600 




XOFF = 


000023 


UIPDR1 = 


177602 




XON 


000021 


UIPDR2= 


177604 




$BGNLE= 


177777 


UIPDR3= 


177606 




$ERFLG= 


000400 


UIPDR4= 


1 77610 




$F$AND= 


00C310 


UIPDR5= 


1 77612 




$F$3AD= 


000401 


UIPDR6= 


1 77614 




$F$BLA= 


000170 


UIPDR7= 


177616 




$F$CAS= 


000150 


WASADR= 


000104 




$F$DEC= 


000220 


WBSTAT= 


000040 




$F$DO = 


000340 


. ABS. 


000000 
000102 


000 
001 







$F$FAL= 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LO0= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 
$IFLEV= 
$LOCTA= 
$LSTIN= 



000405 
000400 
0001 10 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 
177777 
000001 



$LSTTA= 
$NESTL= 
$N!SKO = 
$NSK1 = 
$NSK2 = 
$SAVLE= 
$SSKO = 
$TAGLE= 



000001 
177777 
000300 
000120 
000120 
177777 
050003 
177777 



$TAGNU= 050006 
$TEMP = 000300 



$TSKO = 
$TSK1 = 
$TSK2 = 
$TSK3 = 
$$ARGC= 
$$BYTE= 
$$CASE= 
$$DST = 
$$ELOC= 



050002 
050003 
050004 
050005 
000004 
000403 
000000 
000000 
000000 



$$ERFL= 000000 

$$FLAG= 000340 

$$FROM= 000000 

$$LOC = 000046R 

$$LOCN= 000000 

$$REG = 177777 

$SRETU= 000000 

$SRTN1= 050000 

$SRTN2= 050001 

$$5RC = 000000 

$$TGSV= 000000 

$$TGS1= 000000 

$$TGS2= 000000 

$$T0 = 000000 

$$$TAG= 050000 

= 000102R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ:BDACNV t DSK2: BDACNV-SPMAC/ML , EQUATE , BDACNV 
RUN-TIME: 12 2 .4 SECONDS 
RUN-TIME RATIO: 30/15=1.9 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:42 

EQUATE. MAC 13-SEP-78 16: 13 TABLE OF CONTENTS SEQ 0286 

3 COMMON EQUATE MODULE 
530 COMMON DEFINITIONS AND STORAGE 

533 000000' .PRINT ;SPMAC: VERSION 1.1 

572 BADVEC FIELD AN INTERRUPT THROUGH AN INCORRECT VECTOR 

532 BADVEC ROUTINE 

653 PBDVEC PROCESS EMTS(«S INTERRUPTS THRU UNEXPECTED VECTORS) 

701 PBDVEC ROUTINE 

764 SETVEC INITIALIZE ALL UNUSED VECTOR LOCATIONS (0-774) 

310 SETVEC ROUTINE 



BDVSRV SERVICE INTERRUPTS THROUGH INCORRECT VECTORS MACY1 1 30A(1052) 20-SEP-78 17:42 PAGE 19 
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SEO 0287 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 



TITLE 
IDENT 



BDVSRV 
/VO.O/ 



SERVICE INTERRUPTS THROUGH INCORRECT VECTORS 



MODULE PACKAGE NAME: 
BDVSRV 

FUNCTIONAL DESCRIPTION: 

THIS PACKAGE CONSISTS OF THE FOLLOWING ROUTINES: 

1. BADVEC - ISSUES AN EMT INSTRUCTION 

2. PBDVEC - FORMS BAD VECTOR MESSAGE 

3. SETVEC - SETS UP VECTORS 



VERSION: 
0.0 

EDIT 



DATE 



BY 



REASON 



BDVSRV SERVICE INTERRUPTS THROUGH INCORRECT VECTORS MACY1 1 30A(1052) 20-SEP-78 17:42 PAGE 19-1 
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SEQ 0288 



529 
530 
531 
532 
533 
(1) 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
54S 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 



000000 

oocooo 



000001 
000001 



000000' oooooc 
000002' cooooo 



000004 ' 
000006' 
0000.10' 
000C12 1 
000014' 



oooooc 

000000 
000000 
000000 



•SBTTL COMMON DEFINITIONS AND STORAGE 

!mCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 
$LSTTAG=1 



REFERENCED BY OTHER MODULES: 



GLCBL 
GLOBL 
GL08L 
GLOBL 



BADVEC 
BADVC1 
PBDVEC 
SETVEC 



**************** 

GLOBAL REFERENCES 

GL03L ENQTQ 

GLOBL DTABLE 

GLOBL SAVREG 

GLOBL RESREG 



**************** 
LOCAL STORAGE 



BD.VCT: 


.WORD 






.WORD 







.WORD 







.WORD 







.WORD 







.WORD 






MODULE ENTRY POINT 

MODULE ENTRY POINT 

MODULE ENTRY POINT 

MODULE ENTRY POINT 



-.MESSAGE ENQUEUER 
;ADDRESS OF DTABLE 
;SAVE REGISTERS 
jRESTCRE REGISTERS 



;HIGH/L0W VECTOR FLAG 

;SAVE R5 STUFF HERE , NOT IN INTERRUPTED MODULE 



SVR5S: 
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SEQ 0289 



571 
572 
573 
574 
575 
576 
577 
573 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
595 
599 
500 
501 
502 
603 
604 
605 
606 
607 
608 
609 
610 
61 1 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 



SBTTL BADVEC FIELD AN INTERRUPT THROUGH AN INCORRECT VECTOR 
IDENT /V0.0/ 

++ 
MODULE NAME: 
BADVEC 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS ENTERED AS A RESULT OF AN INTERRUPT THROUGH 

AN INCORRECT VECTOR. BY ISSUING AN EMT INSTRUCTION , THE PSW 

IS PUSHED ONTO THE STACK. THE PSW WILL 

CONTAIN THE LOCATION OF THE BAD VECTOR. 

THE ROUTINE INVOKED BY THE EMT DETERMINES THE BAD VECTOR 

AND QUEUES A BAD VECTOR MESSAGE. CONTROL IS RETURNED TO THIS 

ROUTINE AND A RETURN TO THE INTERRUPTED ROUTINE THEN OCCURS. 

INPUTS: 

NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 

NONE 

SUBORDINATE ROUTINES CALLED: 
NONE 

FUNCTIONAL SIDE EFFECTS: 

SINCE THE HARDWARE HAS INTERRUPTED THROUGH THE WRONG VECTOR 

IT'S INTERRUPT ROUTINE WILL NOT BE EXECUTED. 

THE DECX OPTION MODULE CONTROLLING THE 

HARDWARE WHICH INTERRUPTED THROUGH THE WRONG VECTOR 

ADDRESS WILL BECOME SUSPENDED. 

CALLING SEQUENCE: 

CALLED BY A HARDWARE INTERRUPT THROUGH AN INCORRECT VECTOR 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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624 

625 

626 

627 

S28 ; 

629 

630 
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SEQ 0292 



653 

554 
655 
656 
557 
658 
559 
660 
661 
662 
663 
664 
665 
665 
567 
668 
669 
670 
671 
572 
573 
674 
675 
676 
677 
678 
679 
580 
681 
682 
683 
684 
685 
586 
687 
686 
885 
690 
591 
692 
693 
694 
695 
596 
697 
698 
699 



SBTTL PBDVEC PROCESS EMTS(& INTERRUPTS THRU UNEXPECTED VECTORS) 
IDENT /V0.0/ 

++ 
MODULE NAME: 
PBDVEC 

FUNCTIONAL DESCRIPTION: 

IF THE SYSTEM HARDWARE INTERRUPTS THRU AN UNEXPECTED VECTOR, AN 
EMT INSTRUCTION IS EXECUTED WHICH PUSHES THE PSW AND PC 
ONTO THE STACK AND THIS ROUTINE IS ENTERED. THIS PSW ON THE 
STACK CONTAINS THE UNEXPECTED VECTOR ADDRESS. A MESSAGE 
CONTAINING THE UNEXPECTED VECTOR IS QUEUED AND A RETURN TO THE 
ROUTINE WHICH ISSUED THE EMT TAKES PLACE. 

INPUTS: 

NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 

ADDRESS OF DATA TABLE 

SUBORDINATE ROUTINES CALLED: 

ENQTQ MESSAGE ENQUEUER 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

ISSUE AN EMT INSTRUCTION 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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SEO 0293 



701 
702 
703 
(2) 
704 
705 
706 
707 
708 
709 
(2) 
(3) 
(4) 
710 
71 1 
712 
713 
714 
(4) 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
(4) 
728 
(4) 
729 
(6) 
730 
(6) 
731 
(7) 
732 
(6) 
733 
734 
735 
736 
737 
738 
(6) 
(9) 
(6) 
(9) 
739 
(6) 
740 



000024' 
000024' 



000024' 

000024' 010046 

000026' 01-0146 

000030' 010546 



000032' 
000032' 



000036' 
000036' 
000042 ' 
000042 ' 
000046' 
000046' 
000052 ' 
000052' 
000056* 
000056' 
000060' 
000060' 



000062' 
O00C62 ' 
000C70 ' 
000072' 
000100' 
000102' 
000102' 
000106' 



012705 000014 



016600 000010 

016601 000010 
042701 177760 
042700 177417 
006301 
050100 



026627 
101406 
026627 
1C3002 



000006 



000006 



000014' 
000020' 



.SBTTL PBDVEC ROUTINE 
IROUTINE PBDVEC 

INITIALIZATION - SAVE R0.R1 AND SAVE R5 HERE 
PUSH R0.R1 ,R5 

INIT THE NEW R5 STACK 
LET R5 := #SVR5S 



GET THE UNEXPECTED VECTOR CODE FROM THE STACK 

SAVE IT IN R0.R1. CLEAR OUT ALL BUT BITS 0-3 IN R1 

AND ALL BUT BITS 4-7 IN RO. SHIFT R1 TO LEFT. 

AND COMBINE THE TWO WORDS INTO RO. 

THIS IS DONE TO CONVERT THE SPECIAL VECTOR CODE BACK 

INTO THE ACTUAL VECTOR IT REPRESENTS. 



PBDVEC: 



MOV 


RO 


-(SP) 


MOV 


R1 , 


~(SP) 


MOV 


R5, 


~(SP) 



MOV 



LET RO 

LET R1 

LET R1 

LET RO 

LET R1 

LET RO 



= 10(SP) 

= 10(SP) 

= R1 CLR.BY #177760 

= RO CLR.BY #177417 

= R1 SHIFT +1 

= RO SET. BY R1 



062700 000400 



IF INTERRUPT VECTOR GREATER THEN 374 THEN ADD 400- TO BAD VECTOR 



IF 6(SP) HI #BADVC1 AND 6(SP) LO #BADVEC THEN 



LET RO := RO + #400 



ENDIF 



#SVR5S,R5 



MOV 


10(SP) ,R0 


MOV 


10(SP) ,R1 


BIC 


#177760, R1 


BIC 


#177417, RO 


ASL 


R1 


BIS 


R1 ,R0 



CMP 


6(SP) ,#BADVC1 


ELOS 


50002$ 


CMP 


6(SP) ,#BADVEC 


BHIS 


50002$ 


ADD 


#400, RO 
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(4) 


000106' 






741 








742 








743 








744 








745 








746 


0001 06' 






(3) 


000106' 


01 0546 




(8) 


0001 10 ' 


01 2745 


000000 


(7) 


CC01 14' 


01 2745 


000000 


(6) 


000120' 


01 0045 




(5) 


0001 22' 


01 2745 


000020 


(4) 


000126' 


012745 


OOOOOOG 


(3) 


000132' 


004767 


OOOOOOG 


(3) 


000136' 


01 2605 




747 








748 








749 








750 








751 








752 


000140 ' 






(4) 
753 

754 


000140' 


005067 


177634 








755 


000144' 






(2) 


000144' 


01 2605 




(3) 


000146' 


012601 




(4) 


000150' 


012600 




756 








757 








758 








759 








760 


000152' 






(3) 


000152' 






(3) 


000152' 






(2) 


000152' 


000002 




761 
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50002$: 



SEQ 0294 



ENQUEUE THE MESSAGE 
CALL ENQTQ IN <#DTABLE , #MSGVEC , RO , MO , #0> 



MOV 


R5,-(SP) 




MOV 


#0 t -(R5) 




MOV 


#0,-(R5) 




MOV 


R0,-(R5) 




MOV 


tfMSGVEC,- 


■(R5) 


MOV 


#DTABLE,- 


"(R5) 


JSR 


PC, ENQTQ 




MOV 


(SP)+,R5 





CLEAN UP 



LET BD.VCT : = #0 



POP R5.R1 ,R0 



RETURN 



ENDRTI 



CLR 



MOV 
MOV 
MOV 



50000$: 
50001$: 



RTI 



BD.VCT 



(SP)+,R5 
(SP)+ r R1 
(SP)+,R0 
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SEQ 0295 



764 
765 
766 
767 
763 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
785 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 



SBTTL SETVEC INITIALIZE ALL UNUSED VECTOR LOCATIONS (0-774) 
IDENT /V0.0/ 

++ 

MODULE NAME: 
SETVEC 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE WILL LOAD THE ADDRESS OF THE INCORRECT VECTOR 
ROUTINE IN ALL UNUSED VECTOR LOCATIONS FROM TO 774. IT WILL 
PLACE A UNIQUE CODE IN ALL VECTOR + 2 LOCATIONS. THE CODE 
REPRESENTS THE VECTOR LOCATION . 

INPUTS: 

NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
NONE 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL <SETVEC> 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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SEO 0296 



309 
810 
31 1 
(2) 
312 
313 
314 
815 
316 
817 
(3) 
318 
(4) 
319 
320 
821 
822 
823 
824 
(4) 
825 
(4) 
826 
827 
328 
329 
830 
831 
832 
(4) 
833 
(4) 
834 
835 
836 
837 
338 
839 
(4) 
840 
841 
842 
843 
844 
845 
(4) 
(6) 
(9) 
846 
(6) 
(9) 
(6) 
(9) 
(6) 
(9) 
847 



000154' 
000154' 



000154' 

000154' 004767 000000G 

000160 ' 

000160' 005067 177614 



.SBTTL SETVEC ROUTINE 
ROUTINE SETVEC 



SAVE REGISTERS AND FLAG TO LOW VECTORS 

CALL SAVREG 

LET BD.VCT := #0 

LOAD LOC. WITH BADVEC AND LOC . 2 WITH CODE 



SETVEC: 



JSR 
CLR 



000164' LET <»#0 := #BADVEC 

C00164' 012737 000020* 000000 

000172' LET @#2 := #0 

000172' 005037 000002 



MOV 
CLR 



LOAD TRACE TRAP VECTOR WITH BADVEC, AND TRACE TRAP'S PSW WITH CODE 



000176' 

000176' 012737 000020' 000014 

000204' 

000204' 012737 000006 000016 



LET @>#14 : = #BADVEC 



LET @#16 



#6 



MOV 
MOV 



000212 ' 
000212' 012700 



000216' 
000216' 
000216' 020027 



START AT LOC. 70 AND START LOADING CODES 



LET RO := #70 



C00070 



MOV 



000222 
000224 
0C0224 
00023C 
000232 
000236 
000240 



001446 

020027 
001441 
020027 
001436 
020027 



001000 



0001 14 



000200 



000250 



LOAD CODE UP TO LOCATION 1000 (WILL NOT LOAD 114,200 OR 250) 



WHILE RO NE #1000 DO 



IF RO NE #114 AND RO NE #200 AND RO NE #250 THEN 



PC, SAVREG 
BD.VCT 



#BADVEC,@#0 
@#2 



#BADVEC,@#14 
#6,@#16 



#70, RO 



000244' 001433 



50002$: 




CMP 


R0,#i000 


BEO 


50003$ 


CMP 


R0,#1 14 


BEO 


50004$ 


CMP 


R0,#200 


EEQ 


50004$ 


CMP 


R0,#250 


3E0 


50004$ 
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SETVEC ROUTINE 



DETERMINE WHETHER WORKING VECTORS 0-376 OR 400-776 



BDVSRV 


SERVICE 


INTERRUPTS THROUGH INC 


BDVSRV. 


MAC 23-JUL-73 


09: 11 


848 








849 








350 








351 








852 


000245' 






(6) 


000246' 


005767 


177526 


(9) 


000252' 


001403 




353 


C0G254' 






(4) 


000254' 


01 2710 


00C014' 


354 


000260 ' 






(4) 


000260' 


000410 




(3) 


000262' 






355 


000262' 






(4) 


000262' 


01 2710 


000020' 


856 








857 








858 








359 








850 








861 


000266' 






(6) 


000266' 


020027 


000374 


(9) 


000272' 


001003 




862 


0C0274' 






(4) 


000274' 


01 2767 


000001 177476 


863 


0003C2' 






(4) 


000302' 






864 


000302' 






(4) 


000302' 






965 








866 








867 








868 








369 








870 


0003C2' 






(4) 


000302' 


01 0001 




(6) 


000304' 


042701 


000400 


871 


000310' 






(2) 


000310' 


005720 




872 








873 








874 








875 








876 








877 


000312' 






(4) 


000312' 


01 0102 




(7) 


000314' 


006202 




878 


000316' 






(6) 


000316' 


042702 


177760 


879 








880 








88", 








832 








883 








884 


000322' 






(6) 


000322' 


042701 


177037 


885 


000326' 







SEQ 0297 



IF BD.VCT NE #0 THEN 



ELSE 



LET (RO) := #BADVC1 



LET (RO) := #BADVEC 



IF AT VECTOR 374 THEN SET FLAG TO HIGH VECTORS 



IF RO EQ #374 THEN 



50005S: 



LET BD.VCT := #1 



ENDIF 



ENDIF 



STRIP OFF BIT 08 FOR CONVERSION 

LET R1 := RO CLR.BY #BIT08 
INLINE <TST (R0)+> 

SHIFT RIGHT ONCE (DIVIDE BY 2) AND ONLY SAVE LOWER 4 BITS 
LET R2 := R1 SHIFT -1 
LET R2 := R2 CLR.BY #177760 

NOW STRIP UNWANTED BITS FROM R1 AND "OR" TOGETHER R1 AND R2 

LET R1 := R1 CLR.BY #177037 
LET R1 := R1 SET. BY R2 



TST 
BEO 

MOV 

BR 

MOV 



BD.VCT 
50005$ 

#BADVC1 , (RO) 

50006$ 

#BADVEC, (RO) 





CMP 


R0,#374 




BNE 


50007$ 




MOV 


#1 .BD.VCT 


50007$: 






50006$: 







MOV R0,R1 
BIC #BIT08,R1 

TST (R0)+ 



l/OV 


R1 T R2 


ASR 


R2 


EIC 


#177760, R2 



BIC 



#177037, R1 
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SEQ 0298 



(6) 
886 
387 
388 
889 
390 
391 
(4) 
892 
(4) 
(3) 
893 
394 
395 
396 
397 
398 
(2) 
39S 
(4) 
900 
(4) 
(3) 
901 
902 
903 
904 
905 
906 
(4) 
907 
(3) 
90S 
(3) 
(3) 
(2) 
909 



000326' 050201 



BIS 



R2,R1 



000330' 
0C0330' 
000332' 
000332 ' 
C00334' 



C00334 
000334 
000336 
000336 
000336 
000336 
000340 



000340' 
000340 ' 
000344 ' 
000344 ' 
CC0350' 
000350' 
000350 ' 
000350' 



LOAD CODE INTO PSW WORD GF VECTOR 



.ET (R0)+ := R1 



01 0120 



000401 



ELSE 



UPDATE RO BY 4 



MOV R1 , (R0)+ 
BR 50010$ 



50004$; 



INLINE <CMP (RO)+,(RO)+> 



022020 



000727 



CMP (R0)+, (R0)+ 



ENDIF 



ENDDO 



50010$ 



50003$: 



BR 



50002$ 



005067 177434 



004767 OOOOOOG 



000207 
000001 



CLEAN UP 

LET BD.VCT := #0 
CALL RESREG 
ENDRTN 

.END 





CLR 


BD.VCT 




JSR 


PC, RESREG 


50000$: 






50001 S: 







RTS 



PC 
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SEO 0299 



ACSR = 


0001 02 


ACT3IT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ASB 


0001 06 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


C0C010 


AUTOST= 


020000 


AWAS 


0001 10 


BADVC1 


000014RG 


BADVEC 


000020RG 


BD.VCT 


OOOOOOR 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


[J IT 05 = 


000040 


BIT06 = 


0001 00 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


B I T 1 


000002 


BIT10 = 


002000 


13IT11 = 


004000 


3IT12 = 


010000 


BIT13 = 


020000 


3IT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


B I T 3 = 


000010 


3IT4 = 


C0002C 


BIT5 = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


3IT9 = 


001 000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


1 00000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQOVF = 


000001 



CR 

CSRA = 

CSRC = 

CTRLC = 

CTRLO = 

CTRLU = 

DCEVNT= 

DEFRTN= 

DIAGMC= 

DROPMO= 

DSEVNT= 

DTABLE= 

DT.ADD= 

DT.AP = 

DT. APK= 

DT.BLS= 

DT.CFO= 

DT.CF1= 

DT.ERR= 

DT.ESI= 

DT.EVN= 

DT.EXS- 

DT.FCH= 

DT.FCN= 

DT.HMX^ 

DT.KBE= 

DT.KBP= 

DT.KBR= 

DT.K6U= 

DT.MLS= 

DT.MTI= 

DT.OFF= 

DT.PAS= 

DT.PC = 

DT.PFL= 

DT.PSW= 

DT.PTA= 

DT.RCS= 

DT.REL= 

DT.SCT= 

DT.SMX= 

DT.SP = 

DT.SSI= 

DT.STG= 

DT.ST1= 

DT.SWR= 

DT.SYP= 

DT.WBU= 

DT.WHL= 

DT.WLL= 

DVID1 = 

ECCMEM= 

ECCSTA= 



000015 
000100 
000102 
000003 
000017 
000025 
00001 1 
000400 
000000 
100000 
000014 

****** 

000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000C36 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
030064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 



ENBEOP= 

ENBNUL= 

ENDLST= 

ENQTQ = 

EOPBIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT= 

HRDPAS= 

ICOMT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT = 

INTR = 

IQMOD = 

IO!VIODP = 

IOMODR= 

IOMODX= 

JACK = 

KIPAR0= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPSTAT= 

MAPSTA= 



010000 
0C0001 
000000 
****** 
000001 
000105 
000200 
000200 
000203 
000202 
000201 
100000 
000044 
000050 
000035 
000040 
000122 
000100 
000040 
040000 
C20000 
001000 
C00400 
000030 
000120 
100000 
102000 
1 12000 
1 10000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
C40000 
000C12 
000001 
00C200 



MED 


076600 


MEMPAS= 


040000 


MODEXH= 


004000 


MODHOL= 


002000 


MODSEL= 


00 1000 


MSGCKD= 


000010 


MSGCKS= 


00001 1 


MSGDER= 


000005 


MSGDRP= 


000017 


MSGECH= 


177777 


MSGEOP= 


000013 


W!SGHDR = 


000004 


MSGHNG= 


000022 


MSGHRD= 


000007 


MSGMAP= 


000021 


MSGNUL= 


177775 


MSGPOP= 


000002 


MSGPRM= 


177776 


MSGRES= 


000001 


MSGSFT= 


000006 


MSGSKE= 


000003 


MSGSMB= 


000015 


MSGSMH= 


000014 


MSGSMS= 


000016 


MSGSTD= 


000000 


MSGSYS= 


000012 


MSGVEC= 


000020 


NBKMOD= 


001000 


NCPUCP= 


000020 


NOAPTY= 


000002 


NULL = 


000000 


OWEN = 


024020 


PAERR = 


000010 


PARPRE= 


002000 


PARSTA= 


000100 


PASCNT= 


000034 


PBDVEC 


000024RG 


PDPLSI= 


020000 


PDP60 = 


004000 


PDP70 = 


010000 


PRIO = 


000000 


PRI1 = 


000040 


PRI4 = 


000200 


PRI5 = 


000240 


PRI6 = 


000300 


PRI7 = 


000340 


PRO = 


000000 


PR4 


000200 


PR5 


000240 


PR6 = 


0C0300 


PR7 


0C0340 


PS 


177776 


PSW 


177776 



RANNUM= 

RBUFEA= 

RBUFPA= 

RSUFSZ= 

R3UFVA= 

RDSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RESREG= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBOUT= 

RUNMOD= 

R5VALU= 

SAM 

SAVREG= 

SBADR = 

SBKMOD= 

SBKSEL= 

SC.ADR= 

SC.ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SETVEC 

SOFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 = 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 



000054 
000130 
000126 
000132 
000124 
000101 
000022 
000020 
020000 
010000 

****** Q 

000056 
000060 
031060 
002000 
0001 12 
000177 
100000 
001740 
075464 

****** Q 

000102 

000000 

010000 

000006 

000014 

000016 

000002 

000004 

000000 

000010 

000012 

177777 

000154RG 

000042 

000046 

000040 

000032 

002200 

177572 

177574 

177576 

172516 

000026 

064757 

000027 

0000C1 

000062 

000064 

000066 

000070 

000072 

000074 
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SEQ 0300 



SVR5S 


000014R 




SVR6 = 


000076 




SYSCNT= 


000052 




SYSIRR= 


0001 00 




TMPIO = 


000002 




TQOVF = 


000002 




UIPAR0= 


177640 




UIPAR1 = 


177642 




UIPAR2= 


1 77644 




UIPAR3= 


177646 




LJIPAR4 = 


177650 




UIPAR5= 


177652 




UIPAR6= 


177654 




UIPAR7= 


177655 




UIPDR0= 


177600 




UIPDR1 = 


177602 




UIPDR2= 


177604 




UIP3R3= 


177606 




UIP0R4^ 


177610 




UIPDR5= 


177612 




UIP0R6= 


177614 




. ABS. 


000000 


000 




000352 


001 



UIPDR7= 177616 
WASADR= 000104 
WBSTAT= 000040 
WBUFEA= 000136 
WBUFPA= 000134 
WBUFR0= 000140 
WBUFS2= 000142 
WDFR = 000116 
WDTO = 000114 
WTINRE= 000352 
WTWHMI= 000222 
XFLAG = 000005 
XOFF = 000023 
XON = 000021 
$BGNLE= 177777 
$ERFLG= 000400 
$F$AND= 000310 
$F$BAD= 000401 
$F$3LA= 000170 
$F$CAS= 000150 
$F$DEC= 000220 



$F$DO = 000340 
$F$FAL= 000405 
$F$GOO= 000400 
$F$IF = 000110 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 000160 
$F$NO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 
$F$YES= 000402 
$IFLEV= 177777 
$ISK0 = 000001 
SISK1 = 000001 
$ISK2 = 000001 



$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000001 
$NESTL= 177777 
SNSKO = 000300 
SNSK1 = 000120 
$NSK2 = 000110 
SNSK3 = 000110 
$NSK4 = 0C0110 
$SAVLE= 177777 
$SSKO = 050003 
$TAGLE= 177777 
$TAGNU^ 05001 1 
$TEMP = 000300 
$TSK0 = 050002 
STSK1 = 050003 
$TSK2 = 050010 
$TSK3 = 05000S 
$TSK4 = 050007 
$$ARGC= 000000 
$$BYTE= 000403 



$$CASE= 000000 
$$DST = 000000 
$$ELOC= 000402 
$$ERFL= 000000 
$$FLAG= 000001 
$$FRQM= 000000 
$$LOC = 000272R 
$$LOCN= 000000 
$$REG = 177777 
$$RETU= 000000 
$$RTN1= 050000 
$$RTN2= 050001 
$$SRC = 000000 
$$TGSV= 000000 
$$TGS1= 000000 
$$TGS2= 000000 
$$T0 = 000000 
$$$TAG= 050000 
= 000352R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ:BDVSRV,DSKZ: BDVSRV=SPMAC/ML , EQUATE , BDVSRV 
RUN-TIME: 16 6 .4 SECONDS 
RUN-TIME RATIO: 40/23=1.7 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:43 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0301 

3 COMMON EQUATE MODULE 

582 COMMON DEFINITIONS AND REFERENCES FOR BOAC 

585 000000' .PRINT ;SPMAC: VERSION 1.1 

606 BOAC ROUTINE 

682 22 BIT ADDRESSING CONVERSION 
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BOAC. MAC 08-AUG-78 12:17 COMMON EQUATE MODULE 
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SEQ 0302 



508 

509 

510 

51 1 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

52S 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 



.TITLE BOAC BINARY TO OCTAL ASCII CONVERSION FOR 18 & 22 BIT NUMBERS 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
BOAC 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE WILL CONVERT AN 18 OR 22 BIT BINARY NUMBER TO A 
8 CHARACTER OCTAL ASCII STRING STORED AT THE CALLER SPECIFIED 
ADDRESS. 



INPUTS 



1. ADDRESS OF DATA TABLE. 

2. BITS THRU 15 OF THE NUMBER TO BE CONVERTED 

3. BITS 16 & 17 OR BITS 16-21 OF THE NUMBER TO BE CONVERTED 

(SEE CALLING SEQUENCE BELOW) 

4. STARTING ADDRESS OF THE 8 BYTE STORAGE AREA WHERE 
THE OCTAL ASCII CHARACTERS ARE TO BE STORED. 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

OCTAL ASCII CHARACTERS 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 

B0A16 16 BIT EINARY TO OCTAL ASCII CONVERT ROUTINE 

SAVREG 

RESREG 

FUNCTIONAL SIDE EFFECTS: 

NONE 

CALLING SEQUENCE: 

CALL BOAC IN <DTADR , NUM1 , NUM2 , ADDR> 
WHERE DTADR = ADDRESS OF DTABLE 

NUM1 = BITS 0-15 OF THE OCTAL NUMBER TO BE CONVERTED 



FOR 



1 8 



BITS 



NUM2 = BITS 16 & 17 OF THE OCTAL NUMBER TO BE CONVERTED 

( BITS 16 <S 17 MUST BE LINED UP IN BIT POSITIONS 

4 AND 5 I.E. 000 000 000 XYC 000 WHERE 

X = BIT 17 AND Y = BIT 16 ) 

FOR 22 BITS 

NUM2 = BITS 16 - 21 OF THE # TO BE CONVERTED. 
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WIACY11 30A(1052) 20-SEP-78 17:43 PAGE 19-1 



SEQ 0303 



564 

565 

566 

567 

56S 

569 

570 

571 

572 

573 

574 

575. 

576 

577 

578 

579 

580 



(NUM2 MUST BE IN THE FOLLOWING FORMAT: 
000 000 000 FED CBA 



WHERE 


F 


= 


BIT 


21 




E 


= 


BIT 


20 




D 


= 


BIT 


19 




C 


= 


BIT 


18 




B 


= 


BIT 


17 




A 


= 


BIT 


16 



ADDR = THE START ADDRESS OF THE 8 BYTE STORAGE AREA 

WHERE THE OCTAL ASCII CHARACTERS ARE TO BE STORED. 



VERSION: 
0.0 

EDIT 



DATE 



BY 



REASON 



EOAC BINARY TO OCTAL ASCII CONVERSION FOR 18 & 22 BIT NUMBERS MACY11 30A(1052) 20-SEP-78 17:43 PAGE 19-2 
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SEQ 0304 



582 
583 
584 
585 
(1) 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 

59e 

599 
600 
601 
602 
603 
604 



000000 
000000 



000001 
000001 



.SBTTL COMMON DEFINITIONS AND REFERENCES FOR BOAC 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 
$LSTTAG=1 

REFERENCED BY OTHER MODULES 



GLOBL BOAC 

GLOBAL REFERENCES 

GLCBL B0A16 
GLOBL SAVREG 
GLOBL RESREG 



;MODULE ENTRY POINT 



{CALLED TO CONVERT BITS 0-15 TO ASCII 



BOAC BINARY TO 


BOAC.MAC 08- 


606 




607 




608 


000000' 


(2) 


000000' 


509 




510 




611 




512 




613 




614 




615 


000000' 


(3) 


000000' 


616 




617 




618 




619 




620 




621 


000004' 


(4) 


000004' 


622 




623 




624 




525 




625 




627 




626 


000010' 


(4) 


00 010' 


629 


000014' 


(4) 


000014' 


630 


000020' 


(4) 


000020' 


631 




632 




633 




634 




635 




636 




637 


000024' 


(6) 


000024' 


O) 


000032' 


638 




639 




640 




641 




642 




643 




644 




645 


000034' 


(4) 


000034' 


646 


000040' 


(4) 


000040' 


647 




646 




649 




650 




651 
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004767 000000G 



016504 000000 



016500 000002 
016503 000004 

016501 0C0006 



032764 000200 000010 
001023 



112721 000060 
112721 000060 



.SBTTL BOAC ROUTINE 

ROUTINE BOAC <DTADR , NUMB1 , NUMB2 , ADDR> 

+ 

SAVE REGISTERS 

CALL SAVREG 

+ 

GET DTABLE ADDRESS TO RO 



BOAC: 



JSR 



LET R4 := DTADR(R5) 



PUT THE LOW ORDER BITS IN RO, THE HIGH ORDER BITS IN R3, AND 
THE ADDRESS OF THESTORAGE AREA IN R1 . 



MOV 



LET RO 
LET R3 
LET R1 



= NUMB1 (R5) 
= NUMB2(R5) 
= ADDR(R5) 



MOV 
MOV 
MOV 



IF NOT 18-BIT ADDRESSING GO TO 22-BIT SECTION 



IF #MAPSTAT NOTSETIN DT.ST0(R4) THEN 



SINCE ONLY 18 BITS REQUIRED, ZERO THE UPPER 2 MOST SIGNIFICANT 
ASCII LOCATIONS AND UPDATE TABLE ADDRESS 



LET (R1 )+ :B= #60 
LET (R1 )+ :B= #60 



CONVERT BITS 0-15 TO ASCII 



BIT 

BNE 



MOVB 
M0V3 



SEQ 0305 



PC, SAVREG 



DTADR(R5) , R4 



NUMB1 (R5) , RO 
NUMB2(R5) ,R3 
ADDR(R5) ,R1 



#MAPSTAT,DT.ST0( 
50002$ 



#60, (R1 )+ 
#60, (R1 ) + 
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652 
653 
654 
(3) 
(5) 
(4) 
(3) 
(3) 
355 
656 
S57 
658 
S59 
560 
661 
562 
(6) 
663 
664 
665 
666 
667 
668 
(7) 
(7) 
(7) 
669 
670 
671 
672 
6^3 
674 
675 
(4) 
676 
(6) 
677 
(4) 
678 
679 
(4) 
(3) 
680 



000044 1 
000044' 
0C0046' 
000050' 
000052' 
000056' 



CALL B0A16 IN <R0,R1> 



01 0546 
01 0145 
01 0045 
004767 
012605 



000000G 



MOV 
MOV 
MOV 
J3R 
MOV 



000060' 
000060' 



042703 177717 



CLEAR OUT ANY UNNEEDED BITS IF ANY ARE ACCIDENTALLY SET 
IN EXTENDED ADDRESS WORD 



LET R3 := R3 CLR.BY #177717 



SHIFT EXTENDED ADDRESS BITS FROM POSITION 4 <S 5 TO 1 & 2 



BIC 



000064' 

000064' 006203 

000066' 006203 

000070' 006203 



000072' 
000072' 
000074' 
000074' 
000076' 
000076' 

000100 ' 
000100' 
000102' 



1 1 1 100 



060300 



1 1 001 1 



000443 



LET R3 := R3 SHIFT -3 



ADD EA BITS TO FIRST ASCII CHARACTER (MOST SIGNIFICANT CHARACTER) 
THE SEQUENCE SHOWN IS TO HANDLE TABLES STARTING ON ODD BOUNDARIES 



LET RO :B= (R1 ) 

LET RO := RO + R3 

LET (R1 ) :B= RO 

ELSE 



SEQ 0306 



R5,-(SP) 
R1 ,-(R5) 
R0,-(R5) 
PC, BOA 16 
(SP)+,R5 



#177717, R3 



ASR 


R3 


ASR 


R3 


ASR 


R3 





MOVB 


(R1 ) ,R0 




ADD 


R3.R0 




MOVB 


RO, (R1 ) 




BR 


50003$ 


50002$: 
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SEQ 0307 



683 








684 








685 








68S 








687 








688 








689 








590 








691 








692 








693 








694 








695 


000102' 






(6) 


000102' 


062701 


000002 


395 


CC0106' 






(6) 


000106' 


042703 


177700 


697 








698 








699 








700 








701 








702 








703 








704 


0001 12' 






(3) 


0001 12' 


01 0546 




(5) 


0001 14' 


01 0145 




(4) 


0001 16 ' 


01 0045 




(3) 


000120' 


004767 


OOOOOOG 


(3) 


000124' 


012605 




705 








706 








707 








708 








709 








710 








71 1 








712 








713 


000126' 






(7) 


000126' 


006303 




714 


000130' 






(4) 


000130' 


01 0300 




715 








716 








717 








718 








719 








720 








721 








722 








723 








724 








725 


000132 ' 






(6) 


000132' 


042700 


177770 


726 


000136' 






(4) 


000136' 


11 1102 





SBTTL 22 BIT ADDRESSING CONVERSION 
+ 

22 BIT ADDRESSING 



INITIALIZE AND SAVE ADDRESS + 2 OF ASCII STORAGE AREA 
TO CONVERT LOWER BITS(0-15) TO OCTAL ASCII 
ALSO CLEAN UP ANY UNWANTED BITS FROM BITS 16-21 



LET R1 := R1 + #2 

LET R3 := R3 CLR.BY #177700 

+ 

SAVE BITS 0-15 AND CONVERT TO OCTAL ASCII 



ADD 
BIC 



#2,R1 
#177700, R3 



CALL B0A16 IN <R0,R1> 



MOV 
MQV 
MOV 
JSR 
MOV 



R5,-(SP) 
R1 ,-(R5) 
R0,-(R5) 
PC.B0A16 
(SP)+,R5 



SHIFT BITS 16-21 LEFT ONE TIME 

AND SAVE TO ALIGN BITS 16,17 WITH BITS 1,2 



LET R3 := R3 SHIFT +1 
LET RO := R3 



ASL 
MOV 



R3 
R3,R0 



MASK OFF ALL BUT BITS 0-2 IN REG AND ADD TO MOST 

SIGNIFICANT OCTAL ASCII CHARACTER 

THE SEQUENCE SHOWN IS FOR HANDLING ODD ADDRESSES AS WELL AS EVEN 



LET RO := RO CLR.BY #177770 
LET R2 :B= (R1 ) 



BIC 
MOVB 



#177770, RO 
(RD.R2 
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LET R2 := R2 + RO 

LET (R1 ) :B= R2 



SHIFT BITS 16-21 3 TIMES TO RIGHT 
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727 


000140' 




(6) 


000140' 


060002 


728 


000142' 




(4) 


000142' 


11 021 1 


729 






730 






731 






732 






733 






734 


000144' 




(7) 


000144' 


006203 


(7) 


000146' 


006203 


(7) 


000150' 


0062C3 


735 






736 






737 






736 






739 






74C 






741 


000152' 




(4) 


000152' 


012702 0C0002 


742 






743 






744 






745 






746 






747 






74E 






749 






750 


000156' 




(4) 


000156' 




(6) 


000156' 


005702 


(9) 


000160' 


001413 


751 






752 






753 






754 






755 


000162' 




(4) 


000162' 


01 0300 


756 






757 






758 






759 






760 






761 


000164' 




(6) 


000164' 


042700 177770 


762 


000170' 




(6) 


000170' 


062700 000060 


763 






734 






765 






766 






767 






768 


0001 74' 




(4) 


000174' 


1 1 0041 


769 


000176' 









SEQ 0308 


ADD 


R0.R2 




MOVB 


R2, (R1 ) 





LET R3 := R3 SHIFT -3 



ASR 


R3 


ASR 


R3 


ASR 


R3 



SET UP COUNTER 



LET R2 := #2 



WHILE COUNTER NOT = ,SAVE BITS 18-21 IN R0,MASK OFF ALL 
BUT BITS 0-2 IN R0,ADD #60 TO RO , STORE RO IN ASCII AREA 
SHIFT BITS 18-21 3 TIMES TO RIGHT AND DECREMENT COUNTER 



MOV 



WHILE R2 NE #0 DO 

+ 

SAVE BITS 18-21 

LET RO := R3 

+ 

MASK OFF UNNEEDED BITS AND ADD # 60 

LET RO := RO CLR.BY #177770 
LET RO := RO + #60 

+ 

STORE IN ASCII AREA, SHIFT BITS AND DECREMENT COUNTER 

LET -(R1 ) :B= RO 

LET R3 := R3 SHIFT -3 



50004$: 



TST 
BEQ 



MOV 



SIC 
ADD 



#2,R2 



R2 
50005$ 



R3.R0 



#177770, RO 
#60, RO 



MOVB 



R0,-(R1 ) 
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SEO 0309 



(7) 


C00176 1 


006203 


(7) 


000200 ' 


006203 


(7) 


000202' 


006203 


770 


000204' 




(6) 


000204' 


005302 


771 






772 


000206' 




(4) 


000206' 


000763 


(3) 


000210' 




773 






774 






775 






776 






777 






778 


000210 ' 




(4) 


000210' 




779 






780 






781 






782 






783 






784 


000210' 




(3) 


000210' 


004767 OOOOOOG 


785 






786 


000214' 




(3) 


000214' 




(3) 


000214' 




(2) 


000214 ' 


000207 


787 




000001 



ASR 


R3 


ASR 


R3 


ASR 


R3 



LET R2 := R2 - #1 



ENDDO 



DEC 



BR 



50005$: 



ENDIF 



50003S: 



RESTORE REGISTERS 



CALL RESREG 



ENDRTN 



END 



50000$: 
50001$: 



JSR 



RTS 



R2 



50004$ 



PC.RESREG 



PC 



BOAC BINARY TO OCTAL ASCII CONVERSION FOR 16 & 22 BIT NUMBERS MACY11 30A(1052) 20-SEP-78 17:43 PAGE 20 

BOAC.MAC 08-AUG-78 12:17 SYMBOL TABLE SEQ 0310 

ACSR = 000102 CR = 000015 ENBEOP= 010000 MEMPAS= 040000 RANNUM= 000054 

ACTBIT= 004000 CSRA = 000100 ENBNUL= 000001 MODEXH= 004000 RBUFEA= 000130 

ADDR = 000006 CSRC = 000102 ENDLST= 000000 MODHOL= 002000 RSUFPA= 000126 

ADDR22= 001000 CTRLC = 000003 EO?BIT= 000001 MODSEL= 001000 RBUFSZ= 000132 

ADR = 000006 CTRLO = 000017 ERRTYP= 000106 MSGCKD= 000010 RBJFVA= 000124 

APTFER= 000004 CTRLU = 000025 EVNT3E= 000200 MSGCKS= C0001 1 RDSERV= 000101 

APTPRE= 000200 DCEVNT= 000011 EVNTHD= 000200 MSGDER= 000005 RDWHMI= 000022 

ASB = 000106 DEFRTN= 000400 EVNTKT= 000203 MSGDRP= 000017 RELERR= 000020 

ASSEMB= 000010 DIAGMC= 000000 EVNTPE= 000202 MSGECH= 177777 RELMOD= 020000 

ASTAT = 000104 DROPMO= 100000 EVNTRE= 000201 MSGEOP= 000013 RELTIM= 010000 

AUTO = 000010 DSEVNT= 000014 FATERR= 100000 MSGHDR= 000004 RESREG= ****** G 

AUTQST= 020000 DTADR = 000000 HRDCNT= 000044 MSGHNG= 000022 RtSl = 000056 

AWAS = C00110 DT.ADD= 000042 HRDPAS= 000050 M5GHRD= 000007 RES2 = 000060 

BITO = 000001 DT.AP = 0C01OO ICONT = 000036 MSGMAP= 000021 RICHAR= 031060 

BITOO = 000001 DT.APK= 000076 ICOUNT= 000040 MSGNUL= 177775 RPTDAT= 002000 

BIT01 = 000002 DT.BLS= 000034 IDNUM = C00122 MSGPOP= 000002 R5TRT = 000112 

3IT02 = 000004 DT.CFO= 000014 IE = 000100 MSGPRM= 177776 PUBOUT= 000177 

BIT03 = 000010 DT.CF1= 000016 INDPAR= 000040 MSGRES= 000001 RUNMOD= 100000 

BIT04 = 000020 DT.ERR= 000020 INHDRP= 040000 MSGSFT= 000006 R5VALU= 001740 

3IT05 = 000040 DT.ESI= 000044 INHEPR= 020000 MSGSKE= 000003 SAM = 075464 

31T06 = 000100 DT.EVN= 000000 INHREL= 001000 MSGSMB= 000015 SAVR£G= ****** G 

BIT07 = 000200 DT.EXS= 000060 INHRRE= 000400 MSGSMH= 000014 S3ADR = 000102 

3IT08 = 000400 DT.FCH= 000037 INIT = 000030 MSGSMS= 000016 SBKMOD= 000000 

BIT09 = 001000 DT.FCN= 000036 INTR = 000120 MSGSTD= 000000 SBKSEL= 010000 

BIT1 = 00C002 DT.HMX= 000104 IOMOD = 100000 MSGSYS= 000012 SC.ADR= 000003 

BIT10 = 002000 DT.KBE= 000024 ICMODP= 102000 MSGVEC= 000020 SC.ALC= 000014 

BIT11 = 004000 DT.KBP= 0C0026 IOMODR= 112000 NBKMOD= 001000 SC.APC= 000016 

BIT12 = 010000 DT.KBR= 000022 IOMODX= 110000 NCPUOP= 000020 SC.CKL= 000002 

BIT13 = 020000 DT.KBU= 000030 JACK = 035060 NOAPTY= 000002 SC.CKP= 000004 

3IT14 = 040000 DT.MLS= C00032 KIPAR0= 172340 NULL = 000000 SC.CLO= OCOOOO 

BIT15 = 100000 DT.MTI= 000110 KIPAR1= 172342 NUMB1 = 000002 SC.HLD= 000010 

3IT2 = 0C0004 DT.OFF= 000070 KIPAR2= 172344 NUMB2 = 000004 SC.SCA= 000012 

3IT3 = 000010 DT.PAS= 000074 KIPAR3= 172346 OWEN = 024020 SENDLS= 177777 

BIT1 = 000020 DT.PC = 000002 KIPAR4= 172350 PAERR = 000010 SOFCNT= 000042 

BITS = 000040 DT.PFL= C0C062 KIPAR5= 172352 PARPRE= 002000 SCFPAS= 000045 

BIT6 = 000100 DT.PSW^ 000004 KIPAR6= 172354 PARSTA= 003100 SPACE = 000040 

BIT7 = 000200 DT.PTA= 000064 KIPAR7= 172356 PASCNT= 000034 SPOINT= 000032 

3IT8 = 000400 DT.RCS- 000102 KIPDRO= 172300 PDPLSI= 020000 SPVALU= 002200 

3IT9 = 001000 DT.REL= 000040 KIPDR1= 172302 PDP60 = 004000 SRO = 177572 

3KDEF = 000002 DT.SCT= 000066 KIPDR2= 172304 PDP70 = 010000 SR1 = 177574 

3KM0D = 000020 DT.SMX= 000106 KIPDR3= 172306 PRIO = 000000 SR2 = 177576 

BKMODE= C40000 DT.SP - 000006 KIPDR4= 172310 PRI1 = 000040 SR3 = 172516 

3KSLSH= 000134 DT.SSI= 000046 KIPDR5= 172312 PRI4 = 000200 STAT = 000026 

BOAC OOOOOORG DT.ST0= 0C0010 KIPDR6= 172314 PRI5 = 000240 STATBI= 064757 

30A16 = ****** G DT.ST1= 000012 KIPDR7= 172316 PRI6 = 000300 STAT1 = 000027 

CAFRES= 000004 DT.SWR= 000056 KTERRO= 000040 PRI7 = 000340 SUSPND= 000C01 

CASTAT= 0000C4 DT.SYP= 000072 KTPRES= 000400 PRO = 000000 SVRO = 000062 

CDERCT= 000146 DT.WBU= 000050 KTSTAT= 000020 PR4 = 000200 SVR1 = 000064 

CDWDCT= 000144 DT.WHL= 000054 KTXTND= 040000 PR5 = 000240 SVR2 = 000066 

CKTIM = 100000 DT.WLL= 000052 LF = 000012 PR6 = 000300 SVR3 = 000070 

CLKPRE= 000001 DVID1 = 000014 LPSTAT= 0000C1 PR7 = 000340 SVR4 = 000072 

CONFIG= 000C56 ECCMEM= 000100 MAPSTA= 000200 PS = 177776 SVR5 = 000074 

CQOVF = 000001 ECCSTA= 000010 MED = 0766C0 PSW = 177776 SVR6 = 000076 



BOAC BINARY 
BOAC. MAC 



TO OCTAL ASCII CONVERSION 
08-AUG-78 12:17 



•OR 18 & 
SYMBOL 



22 BIT 
TABLE 



NUMBERS 



MACY11 30A(1052) 20-SEP-78 17:43 PAGE 20-1 



SEQ 0311 



SYSCNT= 000052 

SYSERR= 000100 

TMPIO = 000002 

TQOVF = 000002 

UIPAR0= 177640 

UIPAR1= 177642 

UIPAR2= 177644 

UIPAR3= 177645 

UIPAR4= 177650 

UIPAR5= 177652 

UIPAR6= 177654 

LIIPAR?= 177656 

UIPDR0= 177600 

UIPDR1= 177602 

UIPDR2= 177604 

UIPDR3= 177606 

UIPDR4= 177610 

UIPDR5= 177612 

UIPDR6= 177614 



UIPDR7= 177616 
WASADR= 000104 
WBSTAT= 000040 
WBUFEA= 000136 
WBUFPA= 000134 
WBUFRO= 000140 
WBUFSZ= 000142 
WDFR = 000116 
WDTO = 000114 
WTINRE= 000352 
WTWHMI= 000222 
XFLAG = 000005 
XOFF = 0C0023 
XON = 000021 
$BGNLE= 177777 
$ERFLG= 000400 
$F$AND= 000310 
SF$BAD= 000401 
$F$BLA= 000170 



$F$CAS= 000150 
$F$DEC= 000220 
$F$DO = 000340 
$F$FAL= 000405 
$F$GOO= 000400 
$F$IF = 0001 10 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 000160 
$F$NO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 
$F$YES= 000402 



$IFLEV= 177777 
SISKO = 000001 
$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000001 
$NESTL= 177777 
SNSKO = 000300 
$NSK1 = 000110 
$NSK2 = 000120 
$SAVLE= 177777 
SSSKO = 050005 
$TAGLE= 177777 
$TAGNU= 050006 
$TEMP = 000300 
STSKO = 050003 
$TSK1 = 050004 
$TSK2 = 050005 
$$ARGC= 000010 
$$BYTE= 000403 



$$CASE= 000000 
$SDST = 000000 
$$ELOC= 000402 
$SERFL= 000000 
$SFLAG= 000001 
$$FROM= 000000 
$$LOC = 000160R 
$$LOCN= 000000 
$SREG = 177777 
$$RETU= 000000 
$$RTN1= 050000 
$$RTN2= 050001 
SSSRC = 000000 
$$TGSV= 000000 
$$TGS1= 000000 
S$TGS2= 000000 
S$TO = 000000 
S$$TAG= 050000 
= 000216R 



ABS. 000000 
000216 



000 
001 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ: BOAC, OSKZ : BOAC=SPMAC/ML, EQUATE, BOAC 
RUN-TIME: 14 4 .4 SECONDS 
RUN-TIME RATIO: 36/20=1.7 
CORE USED: 1 4K (27 PAGES) 



.MAIN. WIACY11 30A(1052) 20-SEP-7S 17:43 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0312 

3 COMMON EQUATE MODULE 
559 COMMON DEFINITIONS AND REFERENCES FOR B0A16 

562 000000' .PRINT ;SPMAC: VERSION 1.1 

578 B0A16 ROUTINE 



B0A16 OCTAL TO ASCII CONVERSION ROUTINE FOR 16 BIT NUMBERS 
B0A16.MAC 28-JUL-78 09:11 COMMON EQUATE MODULE 



MACY11 30A(1C52) 20-SEP-78 17:43 PAGE 19 



SEQ 0313 



503 
509 
510 
511 
512 
513 
514 
515 
51 6 
517 
513 
519 
520 
521 
522 
523 
524 
525 
526 
527 
523 
529 
530 
531 
532 
533 
534 
535 
535 
537 
536 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 



.TITLE B0A16 OCTAL TO ASCII CONVERSION ROUTINE FOR 16 BIT NUMBERS 
, IDENT /VO.O/ 

++ 
MODULE NAME: 
BOA16 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE WILL CONVERT A SIX CHARACTER (SIXTEEN BIT) OCTAL 
NUMBER TO A SIX CHARACTER ASCII STRING STORED AT THE CALLER 
SPECIFIED ADDRESS. 

INPUTS: 

1. NUMBER TO BE CONVERTED. 

2. START ADDRESS OF 6 BYTE STORAGE AREA WHERE 
ASCII CHARACTERS ARE TO BE STORED. 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 

NONE 

SUBORDINATE ROUTINES CALLED: 
SAVREG - SAVE GPRS 
RESREG - RESTORE GPRS 



FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL BOA16 IN <A , B> 

WHERE A = NUMBER TO BE CONVERTED 

B = START ADDRESS OF 6 BYTE STORAGE AREA WHERE ASCII 
CHARACTERS ARE TO BE STORED 



EDIT 



DATE 



BY 



REASON 



B0A16 OCTAL TO ASCII CONVERSION ROUTINE FOR 16 BIT NUMBERS 
BOA I 6. MAC 23-JUL-78 09:11 
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559 
560 
561 
562 
(1) 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 



000000 
000000 



000001 
000001 



COMMON DEFINITIONS AND REFERENCES FOR BCA16 

.SBTTL COMMON DEFINITIONS AND REFERENCES FOR B0A16 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTTAG=1 

$LSTIN=1 

**************** 

REFERENCED BY OTHER MODULES: 



SEQ 0314 



GLOBL B0A16 

**************** 
GLOBAL REFERENCES 

GLOBL SAVREG 
GLOBL RESREG 



;ENTRY POINT FOR THIS MODULE 



;SAVE GPRS ROUTINE 
;RESTOR£ GPRS ROUTINE 



30A16 OCTAL TO ASCII CONVERSION ROUTINE FOR 16 BIT NUMBERS MACY11 30A(1052) 20-SEP-78 
B0A16.MAC 28-JUL-78 09:11 COMMON DEFINITIONS AND REFERENCES FOR B0A16 



.SBTTL B0A16 ROUTINE 
ROUTINE B0A16 <NUM,ADRESS> 



577 








578 








579 


000000' 






(2) 


000000' 






580 








581 








582 








583 








584 








585 


000000' 






(3) 


000000' 


004767 


OOOOOOG 


586 








587 








586 








589 








590 








591 


0C0004' 






(4) 


000004' 


01 6500 


000002 


(6) 


000010' 


062700 


000006 


592 


000014' 






(4) 


000014' 


012701 


000006 


593 


000020' 






(4) 


000020' 


016503 


000000 


594 








595 








595 








597 








598 








599 








600 








501 


000024 ' 






(4) 


000024' 






(6) 


000024' 


005701 




(9) 


000026' 


001415 




602 


000030' 






(4) 


000030 ' 


01 0302 




603 


000032' 






(6) 


000032' 


042702 


177770 


604 


000036' 






(6) 


000036' 


062702 


000060 


605 


000042 ' 






(4) 


000042' 


1 1 0240 




606 


000044' 






(6) 


000044' 


042703 


000007 


607 


000050 ' 






(7) 


000050 ' 


006003 




(7) 


0C0052 ' 


006003 




(7) 


000054 : 


006003 




608 


00CC56' 






(6) 


000056' 


005301 




6C9 


000060 ' 






(4) 


000060' 


000761 




(2) 


000062' 






610 








611 








612 









17:43 PAGE 19-2 



B0A16: 



SEO 0315 



SAVE REGISTERS 



CALL SAVREG 



JSR 



GET 6 BYTE STORAGE ADDRESS + 6 AND SET CHARACTER COUNT 
LET RO := ADRESS(R5) + #6 

LET R1 := #6 

LET R3 := NUM(R5) 



MOV 
ADD 



MOV 
MOV 



WHILE R1 IS NOT = 0,GET THE OCTAL #, CLEAR OUT ALL BUT LSB 0-2, 
ADD 60 (CONVERT TO ASCII), STORE THE ASCII .UPDATE POINTER , CLEAR 
OUT 3 BITS JUST CONVERTED, SHIFT NEXT 3 BITS, DECREMENT COUNTER 



WHILE R1 NE #0 DO 

LET R2 := R3 

LET R2 := R2 CLR.BY #177770 

LET R2 := R2 + #60 

LET -(RO) :B= R2 

LET R3 := R3 CLR.BY #7 

LET R3 := R3 ROTATE -3 

LET R1 := R1 - #1 

ENDDO 



; + 



50003$: 



PC, SAVREG 



ADRESS(R5) , RO 
#6,R0 

#6,R1 

NUM(R5) ,R3 



50002$: 




TST 


R1 


BEO 


50003$ 


MGV 


R3.R2 


BIC 


#177770, R2 


ADD 


#60, R2 


MOVB 


R2,-(R0) 


BIC 


#7,R3 


ROR 


R3 


ROR 


R3 


ROR 


R3 


DEC 


R1 


3R 


50002$ 



BOA 16 i 


DCTAL TO 


ASCII CONVERSION 


E0A16.MAC 28 


-JUL-78 09: 1 1 


613 






614 






615 






616 


000062 1 




(3) 


000062' 


004767 000000G 


517 






318 


000066' 




(3) 


000066' 




(3) 


000066' 




(2) 


000066' 


000207 


619 




000001 



ROUTINE FOR 16 BIT NUMBERS 
30A16 ROUTINE 

; CLEAN UP 
CALL RESREG 
ENDRTN 

.END 
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50000$: 
50001$: 



JSR 



RTS 



SEQ 0316 



PC, RESREG 



PC 



3CA16 OCTAL TO ASCII CONVERSION ROUTINE FOR 16 BIT NUMBERS 
B0A16.MAC 28-JUL-78 09: 11 SYMBOL TABLE 



MACY11 30A(1C52) 



ACSR = 


000102 


ACT3IT= 


004000 


ADDR22= 


001000 


ADR 


000C05 


ADRESS= 


000002 


APTFER= 


000004 


APTPRE= 


000200 


ASB 


C00106 


ASSEMB= 


000010 


ASTAT = 


0001 04 


AUTO = 


000010 


AUTOST= 


020000 


AW AS = 


0C01 10 


bito = 


000001 


BITOO = 


000001 


31T01 = 


000002 


BIT 02 = 


000004 


BITC3 = 


000010 


BIT04 = 


000020 


3IT05 = 


000040 


BIT06 = 


0001 00 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001 000 


3IT1 = 


000002 


BIT10 = 


002000 


B I T 1 1 = 


004000 


BIT12 = 


C10000 


3IT13 = 


020000 


BIT14 = 


040000 


3IT15 = 


1 00000 


3IT2 = 


000004 


BIT3 = 


000010 


3IT4 = 


000020 


3IT5 = 


000040 


3IT6 = 


0001 00 


3IT7 = 


000200 


BITS = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


3KM0DE= 


040000 


3KSLSH= 


000134 


30A16 


OOOOOORG 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQOVF = 


000001 


CR 


000015 



CSRA = 
CSRC = 
CTRLC = 

CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DRQPMO= 
DSEVNT= 
DT. ADD= 
DT.AP = 
DT. APK= 
DT.BLS= 
DT.CFO= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN- 
DT.HMX= 
DT.KBE= 
DT .KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 



000100 
000102 
000003 
000017 
000025 
00001 1 
000400 
000000 
100000 
000014 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000050 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
0000S6 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 



ENDLST= 

EOPBIT= 

ERRTYP = 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE = 

EVNTRE = 

FATERR= 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR: 

INHDRP = 

INHEPR= 

INHREL: 

INHRRE = 

INIT - 

INTR = 

IOMOD = 

IOMODP: 

IOMODR= 
IOMODX= 
JACK = 
KIPARO= 

KIPAR1: 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPSTAT= 

MAPSTA= 

MED 

MEMPAS= 

MODEXH= 



000000 
000001 
000106 
000200 
000200 
000203 
000202 
000201 
100000 
000044 
000050 
C00036 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000030 
0C0120 
100000 
102000 
1 12000 
1 10000 
035060 
172340 
172342 
172344 
172345 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 
000001 
000200 
07 6600 
040000 
004000 



,2) 20-! 


5EP-78 17:43 
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SEQ 0317 


MODHOL= 


002000 


RBUFSZ= 


000132 


* 


MODSEL= 


001000 


R3UFVA= 


000124 




MSGCKD= 


000010 


RDSERV= 


000101 




MSGCKS= 


00001 1 


RDWHMI= 


000022 




MSGDER= 


000005 


RELERR= 


000020 




MSGDRP= 


000017 


RELMOD= 


020000 




MSGECH= 


177777 


RELTIM= 


010000 




MSGEOP= 


00O0T3 


RESREG= 


****** G 




MSGHDR= 


000004 


RES1 = 


000056 




MSGHNG= 


000022 


RES2 = 


000060 




MSGHRD= 


000007 


RICHAR= 


031060 




MSGMAP= 


000021 


RPTDAT= 


002000 




MSGNUL= 


177775 


RSTRT = 


0001 12 




MSGPOP= 


000002 


RUBOUT= 


000177 




MSGPRM= 


177776 


RUNMOD= 


100000 




MSGRES= 


000001 


R5VALU= 


001 740 




MSGSFT= 


000006 


SAM 


075464 




MSGSKE= 


000 003 


SAVREG= 


sjc jf; jf; ^c yc *f. Q-j 




MSGSMBs 


000015 


SBADR = 


000102 




MSGSMH= 


000C14 


SBKMOD= 


000000 




MSGSMS= 


000016 


SBKSEL= 


010000 




MSGSTD= 


000000 


SC. ADR= 


000006 




MSGSYS= 


000012 


SC. ALC= 


000014 




MSGVEC= 


000020 


SC.APC= 


000016 




NBKMOD= 


001000 


SC.CKL= 


000002 




NCPUOP= 


000020 


SC.CKP= 


000004 




NOAPTY= 


000002 


SC.CLO= 


000000 




NULL = 


000000 


SC.HLDs 


000010 




NUM 


OODOOO 


SC.SCA= 


000012 




OWEN = 


024020 


SENDLS= 


177777 




PAERR = 


000010 


SGFCNT= 


000042 




PARPRE= 


002000 


SOFPAS= 


000046 




PARSTA= 


000100 


SPACE = 


000040 




PASCNT= 


000034 


SPOINT= 


000032 




PDPLSI= 


020000 


SPVALU= 


002200 




PDP60 = 


004000 


SRO 


177572 




PDP70 = 


010000 


SR1 


177574 




PRIO = 


000000 


SR2 


177576 




PRI1 


000040 


SR3 


172516 




PRI4 = 


000200 


STAT = 


000026 




PRI5 = 


000240 


STATBI= 


064757 




PRI6 = 


000300 


STAT1 = 


000027 




PRI7 = 


000340 


SUSPND= 


000001 




PRO 


OOOCOO 


SVRO = 


000062 




PR4 


000200 


SVR1 


000064 




PR5 


000240 


SVR2 = 


000066 




PR6 


000300 


SVR3 = 


00C070 




PR7 


000340 


SVR4 = 


000072 




PS 


177776 


SVR5 = 


000074 




PSW 


177776 


SVR6 = 


000076 




RANNUM= 


000054 


SYSCNT= 


000052 




RBUFEA= 


000130 


SYSERR= 


000100 




RBUFPA= 


000126 


TiMPIO = 


000002 





30A16 OCTAL 
B0A16.MAC 



TO ASCII CONVERSION ROUTINE 
28-JUL-78 09: 11 



FOR 16 
SYMBOL 



BIT NUMBERS 
TABLE 



MACY11 30A(1052) 20-SEP-78 17:43 PAGE 20-1 



SEQ 0318 



TQOVF = 000002 

UIPAR0= 177640 

UIPAR1= 177642 

UIPAR2= 177644 

UIPAR3= 177646 

UIPAR4= 177650 

UIPAR5= 177652 

UIPAR6= 177654 

UIPAR7= 177656 

JIPDR0= 177600 

UIPDR1= 177602 

UIPDR2= 177604 

UIPDR3= 177606 

UIPDR4= 177610 

UIPDR5= 177612 

UIPDR6= 177614 

UIPDR7= 177S16 

WASADR= 000104 



WBSTAT= 000040 
WBUFEA= 000136 
W3UFPA= 000134 
WBUFRO= 000140 
WBUFS2= 000142 
WDFR = 0001 16 
WDTO = 000114 
WTINRE= 000352 
WTWHMI= 000222 
XFLAG = 000005 
XOFF = 000023 
XON = 000021 
$BGNLE= 177777 
$ERFLG= 000400 
$F$AND= 000310 
$F$BAD= 000401 
$F$BLA= 000170 
$F$CAS= 000150 



$FSDEC= 000220 
$F$DO = 000340 
$F$FAL= 000405 
$F$GOO= 000400 
$F$IF = 000110 
$FSINC= 000210 
$F$LOO= 000200 
$F$NAM= 000160 
$F$NO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 0004C4 
$F$UNT= 000130 
$F$WHI= 0C0120 
$F$YES= 000402 



$IFLEV= 177777 
$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000001 
$NESTL= 177777 
$NSK0 = 000300 
$NSK1 = 000120 
$SAVLE= 177777 
$SSK0 = 050003 
$TAGLE= 177777 
$TAGNU= 050004 
$TEMP = 000300 
$TSK0 = 050002 
$TSK1 = 050003 
$SARGC= 000004 
$$BYTE= 000403 
$SCASE= 000000 
$$DST = 000000 



$$ELOC= 000000 
$SERFL= 000000 
$$FLAG= 000340 
$$FROM= 0C0000 
$SLCC = 000026R 
$SLOCN= 000000 
$SREG = 177777 
$SRETU= 000000 
$$RTN1= 050000 
$$RTN2= 050001 
$$SRC = 000000 
$$TGSV= 000000 
$STGS1= 000000 
$$TGS2= 000000 
$STO = 000000 
$$$TAG= 050000 
= 000070R 



ABS. 



000000 
000070 



000 
001 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ:B0A16,DSK2:B0A16=SPMAC/ML,EQUATE,B0A16 
RUN-TIME: 12 2 .4 SECONDS 
RUN-TIME RATIO: 30/15=2.0 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:44 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0319 

3 COMMON EQUATE MODULE 

552 COMMON DEFINITIONS AND REFERENCES 

554 000000' .PRINT ;SPMAC*. VERSION 1.1 

572 CLREOP ROUTINE 



CLREOP - CLEAR END-OF-PASS INDICATORS 
CLREOP.MAC 28-JUL-78 09M2 

508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 



MACY11 30A(1052) 20-SEP-76 
COMMON EQUATE MODULE 



17:44 PAGE 19 



SEO 0320 



.TITLE CLREOP - CLEAR END-OF-PASS INDICATORS 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
CLREOP 

FUNCTIONAL DESCRIPTION: 

CLEARS THE 1 ST-END-OF-PASS INDICATOR IN EACH OPTION 
MODULE OF THE RUNTIME EXERCISER 



INPUTS: 



DATA TABLE ADDRESS 

IMPLICIT INPUTS: 
DT.MLST 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

MODULES' 1ST-E0P INDICATOR, LOCATED IN MODULE'S HEADER WORD, XFLAG 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE MODULES CALLED: 

SAVREG - SAVE REGISTERS 
RESREG - RESTORE REGISTERS 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL CLREOP IN <A> 

A=DATA TABLE ADDRESS 

VERSION: 
0.0 

EDIT BY DATE REASON 



CLREOP - CLEAR END-OF-PASS INDICATORS 
CLREOP. MAC 28-JUL-78 09:12 



552 
553 
554 
(1) 
555 
556 
557 
553 
559 
560 
561 
562 
563 
564 
565 
566 
567 
563 
569 
570 



000000' 
000000' 



000001 
000001 



MACY11 30A(1052) 20-SEP-78 17:44 
COMMON DEFINITIONS AND REFERENCES 



PAGE 19-1 



SEO 0321 



•SBTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



**************** 

REFERENCED BY OTHER MODULES: 
GLOBL CLREOP 

**************** 

GLOBAL REFERENCES 



GLOBL SAVREG 
GLOBL RESREG 



;MODULE 2NTRY POINT 



;SAVE GPR'S 
;RESTORE GPR'S 



CLREOP - CLEAR END-OF-PASS INDICATORS 
CLREOP. MAC 28-JUL-78 09:12 



572 








573 








574 


000000' 






(2) 


000000' 






575 








576 








577 








573 








579 








580 








581 


000000' 






(3) 


000000' 


004767 


OOOOOOG 


582 








583 








584 








585 








586 








587 








583 


000004' 






(4) 


000004' 


016500 


000000 


589 








590 








591 








592 








593 








594 








595 


000010' 






(4) 


000010' 


016001 


000032 


596 








597 








598 








599 








600 








601 








602 


000014' 






(4) 


000014' 






(6) 


000014 ' 


021 127 


000000 


(9) 


00C020 ' 


001405 




603 


000022' 






(4) 


000022' 


01 2102 




604 


000024 ' 






(6) 


000024' 


142762 


000001 000005 


605 


000032' 






(4) 


000032' 


000770 




(3) 


000034' 






606 








607 








606 








609 








610 








611 








612 


000034' 






(3) 


000034' 


004767 


OOOOOOG 


613 








614 


000040 ' 






(3) 


000040 ' 







MACY11 30A(1052) 20-SEP-7S 17:44 PAGE 19-2 
CLREOP ROUTINE 

.SBTTL CLREOP ROUTINE 

ROUTINE CLREOP <TABL> 



SAVE REGISTERS 



SEQ 0322 



CLREOP: 



CALL SAVREG 

SET RO TO THE START OF THE DATA TABLE 
LET RO := TABL(R5) 

GET THE MODULE LIST 
LET R1 := DT.MLST(RO) 

CLEAR EOPBIT IN XFLAG IN EACH MODULE HEADER 
WHILE (R1 ) NE #ENDLST DO 

LET R2 := (R1 )+ 

LET XFLAG(R2) : B= XFLAG(R2) CLR.BY #EOPBIT 
ENDDO 

RESTORE REGISTERS AND RETURN 
CALL RESREG 
ENDRTN 



JSR 



PC, SAVREG 



MOV 



TABL(R5) ,R0 



MOV 



DT.MLST(RO) ,R1 



50002$: 


CMP 
BEQ 


(R1 ) ,#ENDLST 
50003$ 




MOV 


(R1 )+,R2 




EICB 


#E0PBIT,XFLAG(R2 




BR 


50002$ 



50003$; 



JSR 



PC, RESREG 



50000$: 



CLREOP - CLEAR END-GF-PASS INDICATORS 
CLREOP.MAC 23-JUL-78 09:12 



MACY11 20A(1052) 
CLREOP ROUTINE 



20-SEP-76 17:44 PAGE 19-3 



SEO 0323 



(3) 
(2) 
615 
616 



000040 
000040 



000207 



000001 



50001$: 



RTS 



PC 



.END 



CLREOP - CLEAR END-OF-PASS INDICATORS 
CLREOP.MAC 28-JUL-78 09:12 



MACY1 1 
SYMBOL 



30A(1052) 
TABLE 



20-SEP-7B 17:44 PAGE 20 



SEQ 0324 



ACSR = 


0001 02 


ACTBIT= 


004000 


ADDR22= 


0010C0 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ASB 


0C0106 


ASSEM3= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


A W A 3 = 


0001 10 


BiTO = 


000001 


BITOO = 


000001 


C J I T 1 = 


000002 


3IT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


3IT05 = 


000040 


BIT 06 = 


0001 00 


3IT07 = 


000200 


3IT08 = 


000400 


3IT09 = 


001000 


3 1 T 1 


000002 


3IT10 = 


002000 


BIT11 = 


004000 


3IT12 = 


010000 


3IT13 = 


020000 


3IT14 = 


040000 


3IT15 = 


100000 


3IT2 = 


000004 


3IT3 = 


000010 


3IT4 = 


000020 


3IT5 = 


000040 


3IT6 = 


0001 00 


3IT7 = 


000200 


3IT8 = 


000400 


3IT3 = 


001000 


3KDEF = 


000002 


3KIV0D = 


000020 


3KM0DE= 


040000 


3KSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDU,DCT = 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CLREOP 


OOOOOORG 


CONFIG= 


000056 


CQOVF = 


000001 


CR 


000015 


CSRA = 


000100 



CSRC = 
CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO= 
DSEVNT= 
DT. ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CFO= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT. WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 
ENDLST= 



000102 
000003 
000017 
000025 
00001 1 
000400 
000000 
100000 
0C0014 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
00CC64 
000102 
000040 
000066 
00C106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
01 0000 
000001 
000000 



EOPBIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT = 

INTR = 

IOMOD = 

IOMODP= 

IOMODR= 

IOMODX= 

JACK = 

KIPARO= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPSTAT= 

MAPSTA= 

MED 

MEMPAS= 

MODEXH= 

MODHOL= 



000001 

000106 

000200 

000200 

000203 

000202 

000201 

100000 

000044 

000050. 

000036 

000040 

000122 

000100 

000040 

040000 

020000 

001000 

000400 

000030 

000120 

100000 

102000 

1 12000 

1 10000 

035060 

172340 

172342 

172344 

17234S 

172350 

172352 

172354 

172356 

172300 

172302 

172304 

172306 

172310 

172312 

172314 

172316 

000040 

000400 

000020 

040000 

00C012 

0CC0C1 

000200 

076600 

040000 

004000 

002000 



MODSEL = 
MSGCKD= 
MSGCKS = 
MSGDER = 
MSGDRP; 
MSGECH = 
MSGEOP= 
MSGHDR; 
MSGHNG= 
MSGHRD = 
MSGMAP = 
MSGNUL = 
MSGPOP = 
MSGPRM= 
MSGRES= 
MSGSFT = 
MSGSKE = 
MSGSMB = 
P/iSGSMH'= 
MSGSMS= 
MSGSTD = 
MSGSYS= 
MSGVEC= 
NBKMOD = 
NCPUOP = 
NOAPTY= 
NULL = 
OWEN : = 
PAERR = 
PARPRE = 
PARSTA= 
PASCNT= 
PDPLSI = 
PDP60 = 
PDP70 = 
PRIO = 
PRI1 
PRI4 ■ 
PRI5 = 
PRI6 = 
PRI7 - 
PRO 
PR4 
PR5 
PR6 
PR7 
PS 
PSW 

RANNUM= 
RBUFEA = 
RBUFPA = 
RBUFSZ = 
RBUFVA = 



001000 
000010 
00001 1 
000005 
000017 
177777 
00001 3 
000004 
000022 
000007 
000021 
177775 
000002 
177776 
000001 
000006 
000003 
000015 
000014 
000015 
000000 
000012 
000020 
001000 
000020 
000002 
000000 
024020 
000010 
002000 
000100 
000034 
020000 
004000 
01 0000 
000000 
000040 
000200 
000240 
000300 
000340 
000000 
000200 
000240 
000300 
000340 
177776 
177776 
000054 
000130 
000126 
000132 
000124 



RDSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RESREG= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUEQUT= 

RJNV.OD = 

R5VALU= 

SAM 

SAVREG= 

S3ADR = 

SBKMOD= 

SBKSEL= 

5C.ADR= 

SC.ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SQFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUS?ND= 

SVRO = 

SVR1 = 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 

SVR5 = 

SYSCNT= 

SYSERR= 

TABL = 

TMPIO = 

TOOVF * 



000101 
000022 
000020 
020000 
010000 
****** 
000056 
000060 
031 060 
002000 
0001 12 
000177 
100000 
001 740 
075464 
****** 

000102 
000000 
010000 
000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 
000027 
000001 
000062 
000064 
000065 
000070 
000072 
000074 
000076 
000052 
000100 
000000 
000002 
000002 



CLREOP - CLEAR END-OF-PASS INDICATORS 
CLREOP.MAC 28-JUL-78 09:12 



MACY11 30A(1052) 
SYMBOL TABLE 



20-SEP-78 17:44 PAGE 20-1 



SEQ 0325 



UIPARO= 


1 77640 




UIPAR1 = 


177642 




UIPAR2= 


1 77644 




UIPAR3= 


177646 




UIPAR4= 


177650 




UIPAR5= 


177652 




UIPAR6= 


177654 




UIPAR7= 


177656 




UIPDRO= 


177600 




UIPDR1 = 


177602 




UIPDR2= 


177604 




UIPDR3= 


177606 




UIPDR4= 


177610 




UIPDR5= 


177612 




UIPDR6= 


1 77614 




UIPDR7= 


177616 




WASADR= 


000104 




WBSTAT= 


000040 




. ABS. 


OOOOOC 


000 




000042 


001 



WBUFEA= 000136 

WBUFPA= 000134 

WBUFRQ= 000140 

WBUFSZ= 000142 

WDFR = 000116 

WDTO = 000114 

WTINRE= 000352 

WTWHMI= 000222 

XFLAG = 0C0005 

XOFF = 000023 

XON = 000021 

$BGNLE= 177777 

$ERFLG= C00400 

$F$AND= 000310 

$F$BAD= 000401 

$F$BLA= 000170 

$FSCAS= 000150 

$F$DEC= 000220 



$F$DO = 000340 
$F$FAL= 000405 
$F$GOO= 000400 
$F$IF = 0001 10 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 00C160 
$F$NO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 0C0130 
$F$WHI= 000120 
$F$YES= 000402 
$IFLEV= 177777 



$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000C01 
$NESTL= 177777 
SNSKO = 000300 
SNSK1 = 000120 
$SAVLE= 177777 
$S5K0 = 050003 
$TAGLE= 177777 
$TAGNU= 050004 
STEMP = 000300 
STSKO = 050002 
$TSK1 = 050003 
$$ARGC= 000002 
S$BYTE= 000403 
$$CASE= 000000 
$$DST = 000000 
$$ELOC= 000000 



$$ERFL= 000000 
$$FLAG= 000340 
$$FROM= 000000 
$$LOC = 000020R 
$$LOCN= 000000 
$$REG = 177777 
$$RETU= 000000 
$SRTN1= 050000 
$SRTN2= 050001 
$$SRC = 000000 
$$TGSV= 000000 
$$TGS1= 000000 
$3TGS2= 000000 
$$T0 = OOOCOO 
$3$TAG= 050000 
= 000042R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ: CLREOP, DSKZ: CLREOP=SPMAC/ML , EQUATE, CLREOP 
RUN-TIWE: 11 1 .4 SECONDS 
RUN-TIME RATIO: 31/13=2.2 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:44 

EQUATE. MAC 13-SEP-78 16: 13 TABLE OF CONTENTS SEO 0326 

3 COMMON EQUATE. MODULE 

552 COMMON DEFINITIONS AND REFERENCES 

557 000000' .PRINT ;SPMAC: VERSION 1.1 

584 CMDCPY ROUTINE 



CMDCPY - COMMAND COPY MACY11 30A(1052) 20-SEP-78 17:44 PAGE 19 
CMDCPY.MAC 28-JUL-73 09:12 COMMON EQUATE MODULE 



SEQ 0327 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
513 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
■j JO 
531 
532 
533 
534 
535 
536 
537 
530 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 



TITLE CMDCPY - COMMAND COPY 
IDENT /V0.0/ 
++ 
MODULE NAME: 
CMDCPY 

FUNCTIONAL DESCRIPTION: 

COPIES A COMMAND FROM THE INPUT BUFFER 

TO THE DECODE BUFFER, EXCLUDING RUBBED OUT CHARACTERS 

INPUTS: 

DATA TABLE ADDRESS, DECODE BUFFER ADDRESS 

IMPLICIT INPUTS: 
DT.KBUF 

OUTPUTS: 

ABORT FLAG 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
OV.HIKB 

SUBORDINATE MODULES CALLED: 
SAVREG 
RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL CMDCPY IN <A,B> OUT <C> 
A=DATA TABLE ADDRESS 
B=DECODE BUFFER ADDRESS 
C=ABORT FLAG 

VERSION: 
0.0 



EDIT 



BY 



DATE 



REASON 



CMDCPY - COMMAND COPY MACY11 30A(1052) 20-SEP-78 17:44 PAGE 19-1 
CMDCPY.MAC 28-JUL-78 09:12 COMMON DEFINITIONS AND REFERENCES 



552 
553 
554 
555 
555 
557 
(1) 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 



000000' 
000000 ' 



000001 
000001 



000000' OOOOOOG 



SEO 0328 



.SBTTL COMMON DEFINITIONS AND REFERENCES 



.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



REFERENCED BY OTHER MODULES 
GLOBL CMDCPY 

GLOBAL REFERENCES 



-.MODULE ENTRY POINT 



GLOBL SAVREG 
GLOBL RESREG 
GLOBL OV.HIKB 

LOCAL STORAGE: 



;KB BUF HIGH ADDR 



CM.KSI2 



OV.HIKB 



;KB HIGH LIMIT 



CMDCPY - COMMAND COPY MACY1 1 30A(1052) 20-SEP-78 17:44 PAGE 19~2 
CMDCPY.MAC 28-JUL-78 09: 12 CMDCPY ROUTINE 



SEQ 0329 



584 
585 
(2) 
586 
587 
588 
589 
590 
591 
(3) 
592 
593 
594 
595 
596 
597 
(4) 
598 
599 
600 
601 
602 
603 
(4) 
604 
605 
606 
607 
60S 
609 
(4) 
610 
61 1 
612 
613 
614 
615 
(4) 
616 
617 
618 
619 
620 
621 
622 
(6) 
(8) 
(6) 
(9) 
(6) 
623 
624 
(4) 
625 
626 
(4) 



000002' 
000002' 



000002' 

000002' 004767 000000G 



000006' 

000006' 016500 000000 



000012' 

000012' 005065 000004 



000016' 

000016' 016001 000030 



000022' 

000022' 016502 000002 



000026' 

000026' 121127 000015 

000022' C01403 

000034 1 121127 000177 

000040' 001004 

000042' 

000042' 

000042' 012765 000001 000004 

000050' 
000050' 000441 



.SBTTL CMDCPY ROUTINE 

ROUTINE CMDCPY <TABL , DECBUF f ABORT> 



SAVE REGISTERS 



CMDCPY: 



CALL SAVREG 



SET RO TO START OF DTABLE 



LET RO := TABL(R5) 



CLEAR THE ABORT FLAG 



LET AB0RT(R5) := #0 



INITIALIZE INPUT BUFFER POINTER 



LET R1 := DT.KBUF(RO) 



INITALIZE DECODE BUFFER POINTER 



LET R2 := DECBUF(R5) 



IF FIRST CHARACTER IS <CR> OR <RUBOUT>, SET 
ABORT FLAG 



IFB (R1) EQ #CR ORB (R1) EO 0RUBOUT THEN 



JSR 



PC.SAVREG 



MOV 



TABL(R5) ,R0 



CLR 



AB0RT(R5) 



MOV 



DT.KBUF(RO) ,R1 



MOV 



DECEUF(R5) ,R2 



50002$: 



LET AB0RT(R5) := #1 



CMPB 
BEQ 
CMPB 
BNE 



MOV 



(R1 ) ,6CR 

50002$ 

(R1 ) ,#RUBOUT 

50003$ 



#1 ,AE0RT(R5) 



ELSE 



BR 



50004$ 
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SEQ 0330 



(3) 


000052' 






627 








623 








529 








630 








631 








632 


000052' 






(4) 


000052' 






(6) 


000052 ' 


020167 


177722 


(9) 


000056' 


103026 




633 








634 








635 








636 








637 








638 


000060 ' 






(6) 


000060' 


121 127 


000025 


(9) 


000064' 


001005 




639 


000066' 






(4) 


000066' 


01 2765 


000001 00C0O4 


640 


000074 ' 






(2) 


000074' 


000427 




641 


000076' 






(4) 


000076' 


00041 5 




(3) 


000100' 






642 








643 








644 








645 








646 








647 








648 


0001 00' 






(6) 


000100' 


121 127 


000177 


(9) 


0001 04' 


001010 




649 


000106' 






(6) 


000106' 


005201 




650 


0001 10 ' 






(4) 


0CC1 10 ' 






(6) 


C001 10 ' 


121 127 


000177 


(9) 


0001 14' 


001403 




651 


0001 16' 






(6) 


0001 16' 


005302 




652 


0001 20 ' 






(6) 


0001 20 ' 


005201 




653 


000122' 






(4) 


000122' 


000772 




(3) 


000124' 






654 








655 


000124' 






(4) 


000124' 


000401 




(3) 


000126' 






656 








657 








658 








659 








660 









50003$: 



ELSE GO THROUGH INPUT STRING UNTIL END 



WHILE R1 LO CM.KSIZ DO 



50005$: 



CMP 
BHIS 



IF CHARACTER IS "U, SET ABORT FLAG, RESTORE REGISTERS, AND RETURN 



IFB (R1 ) EC #CTRLU THEN 

LET AB0RT(R5) := #1 
INLINE <BR 1$> 
ELSE 



ELSE IF CHARACTER IS <RUBOUT>, LOOK FOR NEXT RU30UT AND 
BACK UP DECODE BUFFER POINTER AS FAR AS NECESSARY 



IFB (R1) EQ #RUBOUT THEN 



ELSE 



50013$: 



50011$: 



ELSE COPY CHARACTER FROM INPUT BUFFER TO DECODE BUFFER AND 
INCREMENT DECODE BUFFER POINTER 



R1 , CM.KSIZ 
50003$ 





CMPB 
BNE 


(R1 ) ,#CTRLU 
50007$ 




MOV 


#1 ,AB3RT(R5) 




BR 


1$ 


50007$: 


BR 


50010$ 











CMPB 


(R1 ) ,#RUBOUT 










BNE 


50011$ 


LET R1 


:= R1 + 


#1 




INC 


R1 


WHILEB 


(R1 ) NE 


#RUBOUT 


DO 
50012$: 


CMPB 
EEC 


(R1 ) ,#RUBOUT 
50013$ 




LET R2 


:= R2 - 


#1 


DEC 


R2 




LET R1 


:= R1 + 


#1 


INC 


R1 


ENDDO 








BR 


50012$ 



50014$ 
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661 






662 


000126' 




(4) 


000126' 


1 1 1 122 


663 


000130' 




(4) 


000130' 




664 






665 






66S 






667 






668 






669 


0001 30' 




(6) 


000130' 


005201 


670 






671 


000132 ' 




(4) 


000132' 




672 


000132' 




(4) 


000132' 


000747 


(3) 


000134' 




673 






674 






675 






676 






677 






678 






679 






680 






681 






602 


C00134' 




(6) 


000134' 


162702 000002 


683 


000140' 




(5) 


000140' 


020265 000002 


(9) 


000144' 


101003 


684 


000146' 




(4) 


000146' 


012765 000001 


685 


000154' 




(4) 


000154' 




686 






687 






688 


000154' 




(4) 


000154' 




689 






690 






691 






692 






693 


000154' 




(2) 


000154' 




694 


000154' 




(3) 


000154' 


004767 000000G 


69b 






696 


000160' 




(3) 


000160' 




(3) 


000160' 




(2) 


000160' 


00 0207 


697 




000001 



PAGE 19-4 



ENDIF 



SEQ 0331 



LET (R2)+ :B= (R1) 



MOVB 



(R1),(R2)+ 



50014$: 



GET NEXT INPUT BUFFER CHARACTER 



LET R1 := R1 + #1 



ENDIF 



ENDDO 



50010$: 



50006$: 



INC 



BR 



R1 



50005$ 



IF THE ENTIRE INPUT STRING WAS RUBBED OUT, SET THE ABORT FLAG 
(FIRST, BACK UP THE DECODE BUFFER POINTER TO ALLOW 
FOR THE CR AND LF, THEN SEE IF THE POINTER IS AT THE 
BEGINNING OF THE BUFFER.) 



LET R2 := R2 - #2 

IF R2 LOS DECBUF(R5) THEN 



LET AB0RT(R5) := #1 



000004 



SUB 

CMP 
Bril 

MOV 



#2,R2 

R2,DECBUF(R5) 
50015$ 

#1 ,AB0RT(R5) 



ENDIF 



ENDIF 

+ 

RESTORE REGISTERS AND RETURN 

INLINE <1$:> 
CALL RESREG 

ENDRTN 
.END 



50015$: 



50004$: 



50000$: 
50001$: 



1$: 
JSR 

RTS 



PC, RESREG 



PC 
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SEQ 0332 



ABORT = 000004 

ACSR = 000102 

ACT3IT= 004000 

ADDR22= 001000 

ADR = 000006 

APTFER= 000004 

APTPRE= 000200 

ASB = 000106 

ASSEMB= C00010 

ASTAT = 000104 

AUTO = C00010 

AUT3ST= 020000 

AWAS = 000110 

3IT0 = 000001 

BITOO = 000001 

BIT01 = 000002 

BIT02 = 000004 

BIT03 = 000010 

BIT04 = 000020 

3IT05 = 0C0040 

BIT06 = 0C0100 

EIT07 = 0C0200 

BIT08 = 000400 

BIT09 = 001000 

3IT1 = 000 02 

BIT10 = 002000 

3IT11 = 0C4000 

8IT12 = 010000 

BIT13 = 020000 

3IT14 = 040000 

3IT15 = 100000 

3IT2 = 000004 

31T3 = 000010 

3IT4 = 000020 

3IT5 = 000040 

3IT6 = 000100 

3IT7 = 000200 

3IT8 = 000400 

BIT9 = 001000 

3KDEF = O000Q2 

3KM0D = 000020 

3KM0DE= 040000 

BKSLSH= 000134 

CAPRES= 000004 

CASTAT= 000004 

CDERCT= 000146 

CDWDCT= 000144 

CKTIM = 100000 

CLKPRE= 000001 

CMDCPY 000002RG 

CM.KSI OOOOOOR 

C0NFIG= 000056 

CQOVF = 000001 



CR = 000015 
CSRA = 000100 
CSRC = 000102 
CTRLC = 000003 
CTRLO = 000017 
CTRLU = 00C025 
DCEVNT= 000011 
DECBUF= 000002 
DEFRTN= 000400 
DIAGMC= 000000 
DROPMO= 100000 
DSEVNT= 000014 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000034 
DT.CFO= 000014 
DT.CF1= 000016 
DT.ERR= 000020 
DT.ESI= 000044 
DT.EVN= 000000 
DT.EXS- 0G0060 
DT.FCH= 000037 
DT.FCN= 000036 
DT.HMX= 000104 
DT.-KBE= 000024 
DT.KBP= 000026 
DT.KBR= 000022 
DT.KBU= 000030 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = 000002 
DT.PFL= 00C062 
DT.PSW= 000004 
DT.PTA= 0C0064 
DT.RCS= 000102 
DT.REL= 000040 
DT.SCT= 000066 
DT.SMX= 000106 
DT.SP = 00C006 
DT.SSI= 000046 
DT.STO= 000010 
DT.ST1= 000012 
DT.SWR= 000056 
DT.SYP= 000072 
DT.WBU= 000050 
DT.WHL= 000054 
DT.WLL= 000052 
DVID1 = 000014 
ECCMEM= 000100 
ECCSTA= 000010 



ENBEOP= 010000 
ENBNUL= 000001 
ENDLST= 000000 
EOPBIT= 000001 
ERRTYP= 000106 
EVNTBE= 000200 
EVNTHD= 000200 
EVNTKT= 000203 
EVNTPE= 000202 
EVNTRE= 000201 
FATERR= 100000 
HRDCNT= 0C0044 
HRDPAS= 000050 
ICONT = 000036 
ICOUNT= 000040 
IDNUM = 000122 
IE = 000100 
INDPAR= 000040 
INKDRP= 040000 
INHEPR= 020000 
INHREL= 001000 
INHRRE= 000400 
INIT = 000030 
INTR = 000120 
IOMOD = 100000 
IOMODP= 102000 
IOMODR= 112000 
IOMODX= 110000 
JACK = 035060 
KIPAR0= 172340 
KIPAR1= 172342 
KIPAR2* 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 
KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR5= 172314 
KIPDR7= 172316 
KTERRO= 000040 
KTPRES= 000400 
KTSTAT= 000020 
KTXTND= 040000 
LF = 000012 
LPSTAT= 000001 
MAPSTA= 000200 
MED = 076600 



MEMPAS= 040000 
MODEXH= 004000 
MODHOL= 002000 
MODSEL= 001000 
MSGCKD= 000010 
MSGCKS= 00001 1 
MSGDER= 000005 
MSGDRP= 000017 
MSGECH= 177777 
MSGEOP= 000013 
MSGHDR= 000G04 
MSGHNG= 000022 
MSGHRD= 000007 
MSGMAP= 000021 
MSGNUL= 177775 
MSGPOP= 000002 
MSGPRM= 177776 
MSGRES= 000001 
MSGSFT= 000006 
MSGSKE= 000C03 
M3GSMB= 000015 
MSGSMH= 000014 
MSGSMS= 000016 
MSGSTD= 000000 
MSGSY3= 000012 
MSGVEC= 000020 
NBKMOD= 001 COO 
NCPUOP= 000020 
NOAPTY= 000002 
NULL = 000000 
OV.HIK= **+•*** G 
OWEN = 024020 
PAERR = 000010 
PARPRE= 002000 
PARSTA= 000100 
PA5CNT= 000034 
PDPLSI= 020C00 
PDP60 = 004000 
PDP70 = 010000 
PRIO = 000000 
PRI1 = 000040 
PRI4 = 000200 
PRI5 = 000240 
PRI6 = 000300 
PRI7 = 000340 
PRO = 000000 
PR4 = 000200 
PR5 = 000240 
PR6 = 000300 
PR7 = 0C0340 
PS = 177776 
PSW = 177776 
RANNUM= 000054 



RBUFEA= 000130 
R3UFPA= 000126 
R3UFSZ= 000132 
R3UFVA= 000124 
RDSERV= 000101 
RDWHMI= 000022 
RELERR= 000020 
RELMOD= 020000 
RELTIM= 010000 
RESREG= ***=*=** G 
RES1 = 000056 
RES2 = 000060 
RICHAR= 031060 
RPTDAT= 002000 
RSTRT = 000112 
RUBOUT= 000177 
RUNMOD= 100000 
R5VALU= 001740 
SAM = 075464 
SAVREG= ****** G 
SBADR = 000102 
SBKMOD= 000000 
SBKSEL= 010000 
SC.ADR= 000006 
SC.ALC= 000014 
SC.APC= 000016 
SC.CKL= 000002 
SC.CKP= 000004 
SC.CLO= OOOCOO 
SC.HLD= 000010 
SC.SCA= 000012 
SENDLS= 177777 
SOFCNT= 000042 
SOFPAS= 000046 
SPACE = 000040 
SPOINT= 000032 
SPVALU= 002200 
SRO = 177572 
SR1 = 177574 
SR2 = 177576 
SR3 = 172516 
STAT = 000026 
STATBI= 064757 
STAT1 = 000027 
SUSPND= OOOOOT 
SVRC = 000062 
SVR1 = 000064 
SVR2 = 000066 
SVR3 = 000070 
SVR4 = 000072 
SVR5 = 000074 
SVR6 = 000076 
SYSCNTs 000052 
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SEQ 0333 



SYSERR= 


000100 




TABL = 


000000 




TMPIO = 


000002 




TQOVF = 


000002 




UIPAR0= 


177640 




UIPAR1 = 


177642 




UIPAR2= 


177644 




UIPAR3= 


177646 




UIPAR4= 


177650 




UIPAR5= 


177652 




UIPARS= 


177654 




UIPAR7= 


177656 




UIPDRC= 


177600 




UIPDR1 = 


177602 




UIPDR2= 


177604 




UIPDR3= 


177606 




UIPDR4= 


177610 




UIPDR5= 


177612 




UIPDR6= 


177614 




UIPDR7= 


177616 




WASADR= 


000104 




. ABS. 


000000 


000 




000162 


001 



WBSTAT= 000040 

WBUFEA= 000136 

WBUFPA= 000134 

WBUFRQ= 000140 

WBUFSZ= 000142 

WDFR = 000116 

WDTO = 000114 

WTINRE= 000352 

WTWHMI= 000222 

XFLAG = 000005 

XOFF = 000023 

XON = 000021 

$BGNLE= 177777 

$ERFLG= 000400 

$F$AND= 000310 

$F$BAD= 000401 

SF$BLA= 000170 

$F$CAS= 000150 

$F$DEC= 000220 

$F$DO = 000340 

3F$FAL= 000405 



$F$GOO= 000400 
$F$IF = 000110 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 0CO160 
$F$NO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 
$F$YES= 000402 
$IFLEV= 177777 
$ISK0 = 000001 
$ISK1 = 000001 
$ISK2 = 000001 
$LOCTA= 177777 
$L3TIN= 000001 



$LSTTA= 000001 
$NESTL= 177777 
$NSK0 = 000300 
SNSK1 = 000110 
$NSK2 = 000110 
$NSK3 = 000110 
$NSK4 = 000110 
$NSK5 = 000120 
$SAVLE= 177777 
$SSK0 = 050006 
$TAGLE= 177777 
$TAGNU= 050016 
$TEMP = 000300 
$TSK0 = 050004 
$TSK1 = 050015 
$TSK2 = 050006 
$TSK3 = 050010 
STSK4 = 050014 
$TSK5 = 050012 
$TSK6 = 050013 
$$ARGC= 000006 



$$BYTE= 000403 
$$CASE= 000000 
$$DST = 000000 
$$ELOC= 000402 
$$ERFL= 000000 
$$FLAG= 000001 
$$FROM= 000000 
$$L0C = 000144R 
$$LOCN= 000000 
$$REG = 177777 
$$RETU= 000000 
$$RTN1= 050000 
$$RTN2= 050001 
SSSRC = 000000 
S$TGSV= 000000 
$$TGS1= 000000 
SSTGS2= 000000 
S$TO x 000000 
$$$TAG= 050000 
= 000162R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSK2 : CMDCPY, DSKZ : CMDCPY=SPMAC/ML , EQUATE, CMDCPY 
RUN-TIME: 14 4 .4 SECONDS 
RUN-TIME RATIO: 39/19=1.9 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 3CA(1052) 20-SEP-78 17:45 

EQUATE. MAC 13-SEP-78 16:13 TABLE Of- CONTENTS SEQ 0334 

3 COMMON EQUATE MODULE 

554 COMMON DEFINITIONS AND REFERENCES 

559 000000' .PRINT ;SPMAC: VERSION 1.1 

581 CMDDCD ROUTINE 
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SEO 0335 



508 
509 
510 
51 1 
512 
513 
51-4 
515 
51 6 
517 
513 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
522 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 



TITLE CMDDCD - DECODE COMMAND 
IDENT /VO.O/ 



MODULE NAME: 
CMDDCD 

FUNTIONAL DESCRIPTION: 

DECODES THE CONTENTS OF THE DECODE BUFFER AND 
RETURNS A COMMAND CODE 

INPUTS: 

DECODE BUFFER ADDRESS 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

COMMAND CODE, UPDATED DECODE BUFFER POINTER 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 

NONE 

SUBORDINATE MODULES CALLED: 
NONE 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL CMDDCD IN <A> OUT <B,C> 

A=DECODE BUFFER ADDRESS 
B=UPDATED DECODE BUFFER POINTER 
C=COMMAND CODE 



VERSION: 
0.0 



EDIT 



BY 



DATE 



REASON 



CMDDCD - DECODE COMMAND 
CMDDCD. MAC 28-JUi_-78 

554 

555 

556 

557 

558 

55S 000000' 

(1) 000000' 

560 000001 

561 000001 
562 

563 
564 
565 
565 
567 
563 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 



MACY1 1 
09: 12 



30A(1052) 20-SEP-78 17:45 
COMMON DEFINITIONS 



PAGE 19-1 
AND REFERENCES 



SEQ 0336 



.SBTTL COMMON DEFINITIONS AND REFERENCES 



.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



**************** 

REFERENCED BY OTHER MODULES 
GLOBL CMDDCD 
**************** 

GLOBAL REFERENCES 
GLOBL CM.TBL 
**************** 



MODULE ENTRY POINT 



VALID COMMAND TABLE 
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SEQ 0337 



581 








582 








583 








584 


000000' 






(2) 


000000' 






585 








586 








587 








588 








589 








590 








591 


000000' 






(2) 


000000' 


010146 




(3) 


000002' 


01 0246 




592 








593 








594 








595 








596 








597 


000004' 






(4) 


000004' 


01 2701 


OO0000G 


596 








599 








500 








601 








602 








603 


000010' 






(4) 


000010' 


005065 


000004 


604 








605 








506 








607 








608 








609 








610 


000014' 






(3) 


000014' 






61 1 








612 








613 








614 








615 








616 


000014' 






(4) 


000014' 


016502 


000000 


617 








618 








619 








620 








621 








622 








623 


000020 ' 






(4) 


000020' 






(6) 


000020 ' 


121227 


000040 


(9) 


000C24' 


001002 




624 


000026' 






(6) 


000026' 


005202 




625 


000030' 







.SBTTL CMDDCD ROUTINE 
.EVEN 

ROUTINE CMDDCD <DECBUF , DBFPTR , CDCODE> 



SAVE REGISTERS 



CMDDCD: 



PUSH R1 ,R2 



LET R1 BE THE POINTER FOR THE VALID COMMAND TABLE 



LET R1 := #CM.TBL 



SET THE COMMAND CODE TO 



MOV 
MOV 



R1 ,-(SP) 
R2,-(SP) 



MOV 



#CM.TBL,R1 



LET CDC0DE(R5) := #0 



GO THROUGH THE VALID COMMAND TABLE UNTIL THE END 



REPEAT 



LET R2 BE THE DECODE BUFFER POINTER 



LET R2 := DECBUF(R5) 



FIND THE FIRST CHARACTER IN THE DECODE BUFFER THAT 
IS NOT A SPACE 



WHILES (R2) EO #SPACE DO 



CLR 



CDC0DE(R5) 



50002$: 



MOV 



DECBUF(R5) , R2 



50003$: 



LET R2 := R2 + #1 



CMPB 
BNE 

INC 



(R2) ,#SPACE 
50004$ 

R2 



ENDDO 
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(4) 


000030' 


000773 


(3) 


000032' 




626 






627 






628 






629 






630 






531 






632 


C00032' 




(4) 


C00032 1 




(6) 


000032' 


121112 


(9) 


000034 ' 


001003 


633 


000036' 




(6) 


000036' 


005201 


634 


000040' 




(6) 


000040' 


005202 


535 


C00042' 




(4) 


000042' 


000773 


(3) 


0C0044 1 




636 






537 






638 






539 






640 






541 






642 






643 


000044' 




(5) 


000044' 


10571 1 


(9) 


000046' 


001007 


644 






645 


000050' 




(6) 


0C0050' 


121227 000040 


(8) 


000054' 


001403 


(6) 


0C005S' 


121227 000015 


(9) 


000062 ' 


001001 


(6) 


000064' 




646 


000064' 




(2) 


000064' 


000415 


647 


000066 ' 




(4) 


000066' 




648 






649 


000066' 




(4) 


000066' 




650 






651 






652 






653 






654 






655 






656 


000C66 ' 




(4) 


000066' 




(6) 


0C0066' 


10571 1 


(9) 


000070' 


001402 


657 


000072' 




(6) 


000072' 


005201 


658 


000074' 





COMPARE CHARACTERS OF VALID COMMAND TO CHARACTERS IN 
DECODE BUFFER UNTIL A MISMATCH 15 FOUND 



WHILEB (R1) EO (R2) DO 



LET R1 := R1 + #1 
LET R2 := R2 + #1 



ENDDO 



50006$: 



IF AT THE END OF A VALID COMMAND, THEN CHECK IF AT 

END OF DECODE COMMAND. IF YES, 

SAVE DECODE BUFFER POINTER, SAVE REGISTERS, AND RETURN 



IFB (R1 ) EO #0 THEN 



IFB (R2) EO #SPACE ORB (R2) EQ #CR THEN 



INLINE <BR 



1$> 



ENDIF 



ENDIF 



BR 



50004$: 



BR 



50011$: 
50007$: 



ELSE THE COMMANDS DID NOT MATCH, SO INCREMENT THE COMMAND CODE 
AND GET THE NEXT VALID COMMAND FROM THE TABLE 



WHILEB (R1 ) NE #0 DO 



50012$: 



LET R1 := R1 + #1 



TSTB 

EEQ 

INC 



SEQ 0338 



50003$ 



50005$ 


CMP 3 
BNE 


(P.1),(R2) 
50006$ 




INC 


R1 




INC 


R2 




BR 


50005$ 





TSTB 


(R1 ) 




BNE 


50007$ 




CMPB 


(R2) ,#SPACE 




BEO 


50010$ 




CMPB 


(R2) ,#CR 




BNE 


50011$ 


50010$: 







1$ 



(R1 ) 
50013$ 

R1 



ENDDO 
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MACY1 1 
09: 12 



30AO052) 20-SEP-78 17:45 
CMDDCD ROUTINE 
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SEQ 0339 



(4) 
(3) 
659 
560 
661 
(6) 
562 
363 
(6) 
664 
565 
666 
667 
363 
669 
(3) 
(6) 
670 
671 
672 
573 
674 
675 
676 
(4) 
677 
578 
679 
68C 
681 
602 
(2) 
683 
(4) 
684 
685 
686 
687 
688 
68S 
690 
(2) 
(3) 
691 
692 
(3) 
(3) 
(2) 
693 
694 
695 
696 
697 
698 
699 



000074' 000774 
00C076 1 



00C076' 

000076' 005265 000004 

000102' 
000102' 005201 



000104' 

000104' 121127 177777 

000110' 001341 



0001 12' 

000112' 012765 177777 000004 



000120' 
000120' 
000120' 
000120' 010265 000002 



000124' 

000124' 012602 
000126' 012601 

000130' 
000130' 
000130' 
000130' 000207 



50013$: 



LET CDC0DE(R5) := CDC0DE(R5) + #1 



LET R1 := R1 + #1 



BR 



INC 



INC 



50012$ 



CDCODE(R5) 



R1 



000001 



END OF TABLE YET? 



UNTILB (R1 ) EQ #-1 



YES - ILLEGAL COMMAND 
SET COMMAND CODE TO -1 



LET CDC0DE(R5) : = #-1 

+ 

SAVE THE DECODE BUFFER POINTER 

INLINE <1$:> 

LET DBFPTR(R5) := R2 

+ 

SAVE REGISTERS AND RETURN 

POP R2.R1 
ENDRTN 

+ 

VALID COMMAND TABLE 

.END 



CMP! 
BNE 



(R1 ) ,#-1 
50002$ 



MOV 



#-1 ,CDC0DE(R5) 



1$: 
MOV 



R2,DBFPTR(R5) 



50000$: 
50001$: 



MOV 
MOV 



RTS 



(SP)+,R2 
(SP)+,R1 



PC 
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CMDDCD.MAC 28-JUL-78 09:12 SYMBOL TABLE 



SEQ 0340 



ACSR = 000102 
ACTBIT= 004000 
ADDR22= 001000 
ADR = 000006 
APTFER= 000004 
APTPRE= 000200 
ASB = 000106 
ASSEMB= 000010 
ASTAT = 000104 
AUTO = 000010 
AUTOST= 020000 
AW A3 = 00110 
3IT0 = 000001 
3IT00 = 000001 
BIT01 = C00002 
BIT02 = 000004 
3IT03 = 000010 
3IT04 = 000020 
3IT05 = 000040 
3IT06 = 000100 
BIT07 = 000200 
3IT08 = 000400 
3IT09 = 001000 
3IT1 = 000002 
BIT10 = 002000 
3IT11 = 004000 
BIT12 = 010000 
3IT13 = 020000 
3IT14 = 040000 
RIT15 = 100000 
3IT2 = 000004 
BIT3 = 000010 
3IT4 = 000020 
3IT5 = 0C0040 
3IT6 = 000100 
BIT7 = 000200 
3IT3 = 000400 
3IT9 = 001000 
3KDEF = 000002 
BKMOD = 000020 
3KM0DE= 040000 
3KSLSH= 000134 
CAPRES= 000004 
CASTAT= 000004 
CDCODE= 000004 
CDERCT= 000146 
CDWDCT= 000144 
CKTIM = 100000 
CLKPRE= 000001 
CMDDCD OOOOOORG 
CM.TBL= ****** G 
CONFIG= 000C56 
COOVF = 000001 



CR = 000015 
CSRA = 000100 
CSRC = 000102 
CTRLC = 000003 
CTRLO = 000017 
CTRLU = 000025 
DBFPTR= 000002 
DCEVNT= 000011 
DEC3UF= 000000 
DEFRTN= 000400 
DIAGMC= 000000 
DROPMO= 100000 
DSEVNT= 000014 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000034 
DT.CF0= 000014 
DT.CF1= 000016 
DT.ERR= 000020 
DT.ESI= 000044 
DT.EVN= 000000 
DT.EXS= 000060 
DT.FCH^ 000037 
DT.FCN= 000036 
DT.HMX= 000104 
DT.KBE= 000024 
DT.KBP= 000026 
DT.KBR= 000022 
DT.KBU= 000030 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = 00C002 
DT.PFL= 000062 
DT.PSW= 000004 
DT.PTA= 000054 
DT.RC5= 0G0102 
DT.REL= 000040 
DT.SCT= 000066 
DT.SMX= 000106 
DT.SP = 000006 
DT.SSI= 000046 
DT.STO= 000010 
DT.ST1= 000012 
DT.SWR= 000056 
DT.SYP= 000072 
DT.WBU= 000050 
DT.WHL= 000054 
DT.WLL= C00052 
DVID1 = 000014 
ECCMEM= 000100 



ECCSTA= 000010 
ENBEOP= 010000 
ENBNUL= 000001 
ENDLST= 000000 
EOPBIT= 000001 
ERRTYP= 000106 
EVNTBE= 000200 
EVNTHD= 000200 
EVNTKT= 000203 
EVNTPE= 000202 
EVNTRE= 000201 
FATERR= 100000 
HRDCNT= 000044 
HRDPAS= 000050 
ICONT = 000035 
ICOUNT= 000040 
IDNUM = 000122 
IE = 000100 
INDPAR= 000040 
INHDRP= 040000 
INHEPR= 020000 
INHREL= 001000 
INHRRE= 000400 
INIT = 000030 
INTR = 000120 
IOMOD = 1000C0 
IOMODP= 102000 
IOMODR= 112000 
IOMODXs 110000 
JACK = 035060 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172355 
KIPDRO= 1723C0 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KTERRO= 000040 
KTPRES= 0004C0 
KTSTAT= 000020 
KTXTND= 040000 
LF = 000012 
LPSTAT= 000001 
MAPSTA= 000200 



MED = 076600 
MEMPAS= 040000 
MODEXH= 004000 
MODHOL= 002000 
MODSEL= 001000 
MSGCKD= 000010 
MSGCKS= 00001 1 
MSGDER= 00C005 
MSGDRP= 000017 
MSGECH= 177777 
MSGEOP= 000013 
MSGHDR= 000004 
MSGHNG= 000022 
MSGHRD= 000007 
MSGMAP= 000021 
MSGNUL= 177775 
MSGPOP= 000002 
MSGPRM= 177776 
MSGRES= 000001 
MSGSFT= 000006 
MSGSKE= 000003 
MSGSMB= 000015 
MSGSMH= 000014 
MSGSMS= 000016 
MSGSTD= 000000 
MSGSYS= 000012 
M5GVEC= 000020 
NBKMOD= 001000 
NCPUOP= 000020 
NOAPTY= 000002 
NULL = 000000 
OWEN = 024020 
PAERR = 000010 
PARPRE= 002000 
PARSTA= 000100 
PASCNT= 000034 
PDPLSI= 020000 
PDP60 = 004000 
PDP70 = 010000 
PRIO = 000000 
PRI1 = 000040 
PRI4 = 000200 
PRI5 = 000240 
PRI6 = 000300 
PRI7 = 000340 
PRO = 000000 
PR4 = 000200 
PR5 = 000240 
PR6 = 000300 
PR7 = 000340 
PS = 177776 
PSW = 177776 
RANNUM= 000054 



RBUFEA= 000130 

RBUFPA= 000126 

RBUFS2= 000132 

RBUFVA= 000124 

RDSERV= 000101 

RDWHMI= 000022 

RELERR= 000020 

RELMOD= 020000 

RELTIM= 010000 

RES1 = 000056 

RES2 = 000060 

RICHAR= 031060 

RPTDAT= 002000 

RSTRT = 000112 

RUSOUT= 000177 

RUNMOD= 100000 

R5VALU= 001740 

SAM = 075464 

SBADR = 000102 

S3KM0D= 000000 

SBKSEL= 010000 

SC.ADR= 000006 

SC.ALC= 000014 

SC.APC= 000016 

SC.CKL= 000002 

SC.CKP= 000004 

SC.CLO= 000000 

SC.HLD= 000010 

SC.SCA= 000012 

SENDLS= 177777 

SQFCNT= 000042 

50FPAS= 000046 

SPACE = 000C40 

SPOINT= 000032 

SPVALU= 002200 

SRO = 177572 

SR1 = 177574 

SR2 = 177576 

SR3 = 172516 

STAT = 000026 

STATBI= 064757 

STAT1 = 000027 

SUSPND= 000001 

SVRO = 000062 

SVR1 = 000064 

SVR2 = 000066 

SVR3 = 000070 

SVR4 = 000072 

SVR5 = 000074 

SVRS = 000076 

SYSCNT= 000052 

SYSERR= 000100 

TMPIO = 000002 
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$F$FAL = 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO = 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL = 
$F$THE = 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 
$IFLEV= 
$ISK0 = 
$ISK1 = 



TQOVF = 


000002 




WBUFEA= 


000136 


UIPAR0= 


177640 




WBUFPA= 


000134 


U I PARI = 


177642 




WBUFRQ= 


000140 


UI D AR2= 


177644 




WBUFSZ= 


000142 


UIPAR3= 


1 77646 




WDFR = 


0001 16 


UIP4R4= 


177650 




WDTO = 


0001 14 


UIPAR5= 


177652 




WTINRE= 


000352 


UIPARS= 


177654 




WTWHMI= 


000222 


UIPAR7= 


177656 




XFLAG = 


000005 


UIPDR0= 


177500 




XOFF = 


000023 


UIPDR1 = 


177502 




XON 


000021 


UIP0R2= 


1 77604 




$BGNLE= 


177777 


UIPDR3= 


177506 




$ERFLG= 


000400 


UIPDR4= 


177610 




$F$AND= 


000310 


UIPDR5= 


177612 




$F$BAD= 


000401 


UIPDR6= 


177614 




$F$BLA= 


000170 


UIPDR7= 


177616 




$F$CAS= 


000150 


WASADR= 


000104 




$F$DEC= 


000220 


WEST AT = 


000040 




$FSDO = 


000340 


. ABS. 


000000 
000132 


000 
001 
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00C405 
000400 
0001 10 
0C0210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 
000001 
000001 



SEO 0341 



$LOCTA= 
$LSTIN= 
$LSTTA= 
$NESTL= 
$NSKO = 
$NSK1 = 
$NSK2 = 
$NSK3 = 
$SAVLE= 
SSSKO = 
$TAGLE= 
$TAGNU= 
$TEMP = 
STSKO = 
$TSK1 = 
$TSK2 = 
$$ARGC= 
$$BYTE= 
$$CASE= 



177777 
000001 
000001 
177777 
000300 
000130 
000120 
000110 
177777 
050013 
177777 
050014 
000300 
050002 
050012 
050013 
000006 
000402 
000000 



$SDST = 
$$ELOC= 
$$ERFL= 
$5FLAG= 
$$FROM= 
$$LOC = 
$$LGCN= 
$SREG = 
$$RETU= 
$$RTN1= 
$3RTN2= 
$$SRC = 
$$TG3V= 
$$TGS1= 
$3TGS2= 
$$T0 = 
$$$TAG= 



000000 

000402 

000000 

000340 

000000 

0001 10R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

cooooo 

000000 
000000 
050000 
000132R 



ERRORS DETECTED: C 
DEFAULT GLOBALS GENERATED: 



DSKZ : CMDDCD, DSKZ : CMDDCD=SPMAC/ML , EQUATE, CMDDCD 
RUN-TIME: 14 4 .4 SECONDS 
RUN-TIME RATIO: 37/18=1.9 
CORE USED: 14K (27 PAGES) 



.MAIN. IWACY11 30A(1052) 20-SEP-78 17:46 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0342 

3 COMMON EQUATE MODULE 

553 COMMON DEFINITIONS AND REFERENCES 

558 000000' .PRINT ;SPMAC: VERSION 1.1 

622 CMDPRC ROUTINE 
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508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
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COMMON EQUATE MODULE 

.TITLE CMDPRC - PROCESS KEYBOARD COMMAND 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
CMDPRC 

FUNCTIONAL DESCRIPTION: 

CONTROLS THE DECODING AND PROCESSING OF KEYBOARD COMMANDS 
BY IDENTIFYING THE COMMAND AND THEN CALLING THE PROPER 
SERVICE ROUTINE 

INPUTS: 

DATA TABLE ADDRESS 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 

NONE 

SUBORDINATE MODULES CALLED: 

CMDCPY, CMDDCD, CMDRST, ALL COMMAND SERVICE ROUTINES 

SAVRES 

RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL CMDPRC IN <A> 

A=ADDRESS OF DATA TABLE 

VERSION: 
0.0 



SEQ 0343 



EDIT 



BY 



DATE 



REASON 



000000 
000000 



000001 
000001 
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553 
554 
555 
556 
557 
553 
(1 ) 
559 
560 
561 
562 
563 
564 
565 
566 
567 
563 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
533 
534 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
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SEQ 0344 



00012: 



000000' 000000 

00C002 1 ooocoo 

000004' 000000 

000006' 047111 

000014' 020104 



.SBTTL COMMON DEFINITIONS AND REFERENCES 



.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



**************** 

REFERENCED BY OTHER MODULES 

GLGBL CMDPRC 

GLOBL CM.BADNAME 

GLOBL CM.ARG 

GLOBL CM.NUM 

GLOBL CM. ODD 

GLOBL CM. RUN 

GLOBL CM. ADR 

GLOBL CM.NBAD 

GLOBAL REFERENCES 



MODULE ENTRY POINT 
- MESSAGES 



GLOBL 


CMDCPY 


GLOBL 


CMDDCD 


GLOBL 


CMDRST 


GLOBL 


CM.DIS 


GLOBL 


SAVREG 


GLOBL 


RESREG 



040526 
047515 



044514 
052504 



COMMAND COPY MODULE ENTRY POINT 
COMMAND DECODE MODULE ENTRY POINT 
COMMAND RESET MODULE ENTRY POINT 
COMMAND DISPATCH TABLE 



**************** 

LOCAL EQUATES: 
CM.BUFSIZ=~D<82> 

**************** 
LOCAL STORAGE: 

CM. ABORT: .WORD ;ABORT FLAG 

CM.CDCODE: .WORD ; COMMAND CODE 

CM.DBFPTR: .WORD -.DECODE BUFFER POINTER 

CM.BADNAME: .ASCIZ /INVALID MODULE NAME%/ ; - MESSAGES 



BUFFER SIZE 82 (10) BYTES 
MUST ALWAYS=KEYBD. BUF SIZE 
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000022' 


042514 


047040 


046501 






C00030' 


022505 


000 






607 


000033' 


1 1 1 


0531 16 


0461 01 


CM.ARG: 




000040' 


0421 1 1 


047440 


020122 






000046 ' 


044515 


051523 


0471 1 1 






000054' 


0201 07 


051 101 


052507 






000062' 


042515 


0521 16 


000045 




608 


000070' 


05251 5 


041 1 15 


051 105 


CM.NUM: 




0C0076' 


052040 


047517 


046040 






0C01 04' 


051 1 01 


042507 


000045 




509 


0001 12' 


052515 


052123 


041040 


CM. ODD: 




000120' 


020105 


053105 


047105 






000126' 


040440 


C42104 


042522 






0001 34' 


051523 


000045 






510 


000140 ' 


0471 1 1 


040526 


044514 


CM. RUN: 




000146' 


020104 


047503 


046515 






0C0154' 


0471 01 


020104 


0471 1 1 






000162' 


051040 


047125 


046440 






0001 70 ' 


0421 1 7 


022505 


CCO 




611 


000175' 


1 1 1 


0531 16 


046101 


CM. ADR: 




00C202' 


0421 1 1 


040440 


0421 04 






210' 


042522 


051523 


000045 




512 


000216' 


047516 


020124 


0471 01 


CM.NBAD: 




000224' 


C47440 


052103 


0461 01 






000232' 


047040 


046525 


042502 






000240 ' 


022522 


000 






613 


000243' 


1 1 1 


0531 16 


046101 


CM. INVCMD 




000250 ' 


0421 1 1 


041440 


046517 






C00256' 


040515 


0421 16 


026440 






000264' 


040 








614 


000265' 


000122 






CM.DECBUF 


615 


000407' 


000 






•BYTE 


616 


000410' 


000 






.BYTE 


617 




000412' 






.EVEN 


618 










; 


619 










» ******** 


620 










; 
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.ASCIZ /INVALID OR MISSING ARGUMENT*/ 

•ASCIZ /NUMBER TOO LARGE%/ 

.ASCIZ /MUST BE EVEN ADDRESS*/ 

.ASCIZ /INVALID COMMAND IN RUN MODE*/ 

.ASCIZ /INVALID ADDRESS*/ 

.ASCIZ /NOT AN OCTAL NUMBER*/ 



SEQ 0345 



.ASCII /INVALID COMMAND - / 



***NOTE - ASCII INSTEAD OF ASCIZ 



BLKB CM.3UFSIZ ; KEYBOARD COMMAND DECODE BUFFER 

-.GUARANTEE TERMINATION 
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622 








623 


000412' 






(2) 


000412' 






524 








S25 








626 








527 








523 


000412' 






(3) 


000412' 


004767 


000000G 


529 








530 








531 








532 








533 


000416' 






(4) 


000416' 


016500 


000000 


534 








635 








535 








637 








538 








639 








540 


000422' 






(4) 


000422 ' 


01 2701 


000265' 


541 


000426' 






(4) 


000425' 


01 0102 




(6) 


0C0430' 


062702 


000122 


642 


000434' 






(4) 


C00434' 






(6) 


000434' 


1201 02 




(9) 


000436 ' 


001402 




643 


000440 ' 






(4) 


000440 ' 


105021 




644 


000442' 






(4) 


000442' 


000774 




(3) 


000444' 






645 


000444 ' 






(4) 


000444' 


005067 


177330 


646 


000450' 






(4) 


000450' 


005067 


177326 


647 


000454' 






(4) 


000454' 


005067 


177324 


648 








649 








650 








651 








652 








653 


000460' 






(4) 


000460 ' 


152705 


000002 


(3) 


000464' 


01 0545 




(5) 


000466' 


01 2745 


000265' 


(4) 


000472 ' 


01 0045 




(3) 


000474' 


004767 


OOOOOOG 


(3) 


000500' 


012605 




(4) 


000502' 


012567 


177272 


654 








65b 
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CMDPRC ROUTINE 

.SBTTL CMDPRC ROUTINE 
ROUTINE CMDPRC <TABL> 



SAVE REGISTERS 
CALL SAVREG 

+ 

SET RO TO START OF DTABLE 

LET RO := TABL(R5) 

+ 

CLEAR THE DECODE BUFFER AND LOCAL STORAGE WORDS 

LET R1 := #CM.DECBUF 

LET R2 := R1 + #CM.BUFSIZ 

WHILEB R1 NE R2 DO 



SEO 0346 



CMDPRC: 



LET (R1 )+ :B= #0 



ENDDO 



LET CM. ABORT := #0 
LET CM.CDCODE := #0 
LET CM.DBFPTR := #0 

COPY INPUT BUFFER INTO DECODE BUFFER 
CALL CMDCPY IN <R0 , #CM . DECBUF> OUT <CM.ABORT> 



JSR 



MOV 



MOV 



PC, SAVREG 



TABL(R5) ,R0 



#CM.DECBUF,R1 





MOV 


R1 , R2 




ADD 


#CM.BUFSIZ,R2 


50002$: 








CMPB 


R1 , R2 




BEO 


50003$ 




CLRB 


(R1 ) + 




BR 


50002$ 


50003S: 








CLR 


CM. ABORT 




CLR 


CM.CDCODE 




CLR 


CM.DBFPTR 



SUB 


#1*2, R5 


MCV 


R5,-(SP) 


MOV 


#CM.DECBUF,-(R5) 


MCV 


R0,-(R5) 


JSR 


PC, CMDCPY 


MOV 


(SP)+,R5 


MuV 


(R5)+, CM. ABORT 



; + 



CMDPRC 


- PROCES 


5 KEYBOARD COMMAND 


CMDPRC. 


MAC 06-SEP-78 


14:32 


656 








657 








659 








659 


000505* 






(6) 


000506' 


026727 


177266 000001 


(9) 


000514' 


001436 




660 








661 








562 








663 


000516' 






(4) 


000516' 


162705 


000004 


(3) 


000522' 


01 0546 




(4) 


000524' 


01 2745 


000265' 


(3) 


000530' 


004767 


OOOOOOG 


(3) 


000534' 


01 2605 




(4) 


000536' 


01 2567 


177242 


(4) 


000542' 


012567 


177234 


664 








665 








666 








667 








668 








669 








670 








671 


000546' 






(6) 


000546' 


026727 


177230 177777 


(9) 


000554' 


001004 




672 








673 


000556' 






(4) 


000556' 


012750 


000243' 000022 


674 








675 


000564' 






(4) 


000564' 


00C412 




(3) 


000566' 






676 


000566' 






(4) 


000566' 


01 6701 


177210 


(7) 


000572' 


006301 




677 


000574' 






(3) 


000574' 


1 0546 




(5) 


000576' 


01 6745 


177202 


(4) 


000502' 


01 CC45 




(3) 


0006C4' 


004771 


OOOOOOG 


(3) 


000610' 


01 2605 




678 


000612' 






(4) 


000612' 






679 


000612' 






(4) 


000612' 






680 








681 








682 








683 








684 








685 








686 








687 


000612' 






(3) 


000612' 


010546 
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CMDPRC ROUTINE 

; IF ABORT FLAG NOT SET, DECODE COMMAND 



IF CM. ABORT NE #1 THEN 



SEQ 0347 



CALL CMDDCD IN <#CM.DECBUF> OUT <CM . DBFPTR , CM. CDCODE> 



CMP 
BEQ 



SUB 
MOV 
MOV 
JSR 
MOV 
MOV 
MOV 



CM. ABORT, #1 
50004$ 



#2*2, R5 

R5,-(SP) 

#CM.DECBUF,-(R5) 

PC, CMDDCD 

(SP)+,R5 

(R5)+, CM. DBFPTR 

(R5)+,CM.CDC0DE 



IF THERE WAS AN ERROR ( CM . CDC0DE=-1 ) , THEN OUTPUT THE DECODE BUFFER 
ALONG WITH AN ERROR MESSAGE. IF THE COMMAND 
WAS VALID, DISPATCH CONTROL TO THE PROPER ROUTINE. 



IF CM.CDCODE EQ #-1 THEN 



LET DT.KBRSP(RO) := #CM.INVCMD 



ELSE 



LET R1 := CM.CDCODE SHIFT #+1 



CALL <g>CM.DIS(R1 ) IN <R0 , CM. DBFPTR> 



ENDIF 



CMP 
BNE 



MOV 



CM.CDC0DE,#-1 
50005$ 



#CM.INVCMD,DT.KB 



ENDIF 





BR 


50006$ 


50005$: 








MOV 


CM.CDC0DE.R1 




ASL 


R1 




MOV 


R5,-(SP) 




MOV 


CM. DBFPTR, -(R5) 




MOV 


R0,-(R5) 




JSR 


PC,@CM.DIS(R1 ) 




MOV 


(SP)+,R5 


50006$: 






50004$: 







CALL COMMAND RESET MODULE WHICH WILL OUTPUT PROMPT 



CALL CMDRST IN <R0> 



MOV 



R5,-(SP) 



CMDPRC - PROCESS KEYBOARD COMMAND 
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CMDPRC ROUTINE 



SEQ 0348 



(4) 


000614' 


01 0045 




(3) 


000616' 


004767 


OOOOOOG 


(3) 


00C622' 


012605 




688 








689 








S90 








691 








692 








693 


000624' 






(3) 


000624' 


004767 


OOOOOOG 


694 








695 








696 








697 








698 








699 


000630' 






(3) 


000630' 






(3) 


000630' 






(2) 


000630' 


000207 




700 




000001 





MOV 
u'SR 
MOV 



RESTORE REGISTERS 



CALL RESREG 



+ 
RETURN 



JSR 



ENDRTN 



END 



500005: 
50001$: 



RTS 



R0,-(R5) 

PC.CMDRST 

(SP)+,R5 



PC, RESREG 



PC 
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MACY11 30A(1052) 
SYMBOL TABLE 



20-SEP-78 17:46 PAGE 20 



SEQ 0349 



ACSR = 0C0102 
ACTBIT= 004000 
ADDR22= 001000 
ADR = 000006 
APTFER= 000004 
APTPRE= 000200 
ASB = 000106 
ASSEMB= 000010 
ASTAT = 000104 
AUTO = C00010 
AUTOST= 020000 
AWAS = 0001 10 
BITO = 000001 
BITOO = 000001 
BIT01 = 000002 
BIT02 = 000004 
BIT03 = 000010 
BIT04 = 000020 
BIT05 = 000040 
BIT06 = C001C0 
BIT07 = 000200 
BIT08 = 0004C0 
BIT09 = 001000 
BIT1 = 000002 
BIT10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT15 = 1000C0 
BIT2 = 000004 
BIT3 = 000010 
BIT4 = 000020 
BIT5 = 000040 
BIT6 = 000100 
BIT7 = 000200 
BIT8 = 000400 
BIT9 = 001000 
BKDEF = OC0002 
BKMOD = 000020 
BKMODE= 0400CO 
BKSLSH= 000134 
CAPRES= 000004 
CASTAT= 0000C4 
CDERCT= 000146 
CDWDCT= 000144 
CKTIM = 100000 
CLKPRE= 000001 
CMDCPY= ****** G 
CMDDCD= ****** G 
CMDPRC 00041 2RG 
CMDRST= ****** G 
CM. ABO OOOOOOR 



CM. ADR 000175RG 
CM.ARG 000033RG 
CM. BAD 000006RG 
CM.BUF= 000122 
CM. CDC 000002R 
CM. DBF 000004R 
CM. DEC 000265R 
CM.DIS= ****** G 
CM.INV 000243R 
CM. NBA 000216RG 
CM.NUM 000070RG 
CM. ODD 0001 12RG 
CM. RUN 000140RG 
C0NFIG= 000056 
CQOVF = 000001 
CR = 000015 
CSRA = 000100 
CSRC = 000102 
CTRLC = 000003 
CTRLO = 000017 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= 000400 
DIAGMC= 000000 
DROPMO= 100000 
DSEVNT= 000014 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000034 
DT.CFO= 000014 
DT.CF1= 000016 
DT.ERR= 000020 
DT.ESI= 000044 
DT.EVN= 000000 
DT.EXS= 000060 
DT.FCH= 0C0037 
DT.FCN= 000036 
DT.HMX= 000104 
DT.KBE= 000024 
DT.KBP= 000026 
DT.KBR= 000022 
DT.KBU= 000030 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = 000002 
DT.PFL= 000062 
DT.PSW= 000004 
DT.PTA= 000064 
DT.RCS= 000102 
DT.REL= 000040 



DT.SCT= 000066 
DT.SMX= 000105 
DT.SP = 000005 
DT.SSI= 000045 
DT.STO= 000010 
DT.ST1= 000012 
DT.SWR= 000055 
DT.SYP= 000072 
DT.WBU= 000050 
DT.WHL= 000054 
DT.WLL= 000052 
DVID1 = 000014 
ECCMEM= 000100 
ECCSTA= 000010 
ENBEOP= 010000 
ENBNUL= 000001 
ENDLST= 000000 
EOPBIT= 000001 
ERRTYP= 000106 
EVNTBE= 00C200 
EVNTHD= 000200 
EVNTKT= 000203 
EVNTPE= 000202 
EVNTRE= 000201 
FATERR= 100000 
HRDCNT= 000044 
HRDPAS= 000050 
ICONT = 000036 
ICOUNT= 000040 
IDNUM = 000122 
IE = 000100 
INDPAR= 000040 
INHDRP= 040000 
INHEPR= 020000 
INHREL= 001000 
INHRRE= C00400 
INIT = 000030 
INTR = 000120 
IOMOD = 1000C0 
IOMODP= 102000 
IOMODR= 112000 
IOMODX= 1 1C000 
JACK = 035060 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 
KIPDR0= 172300 
KIPDR1= 172302 



KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KTERRO= 000040 
KTPRES= 000400 
KTSTAT= 000020 
KTXTND= 040000 
LF = 000012 
LPSTAT= 000001 
MAPSTA= 000200 
MED = 076600 
MEMPAS= 040000 
MGDEXH= 004000 
MODHOL= 002000 
MODSEL= 00 1 000 
MSGCKD= 000010 
MSGCKS= 00001 1 
MSGDER= 000005 
MSGDRP= 000017 
MSGECH= 177777 
MSGEOP= 000013 
MSGHDR= 000004 
MSGHNG= 000022 
MSGHRD= 000007 
MSGMAP= 000021 
MSGNUL= 177775 
MSGPOP= 000002 
MSGPRM= 177776 
MSGRES= 000001 
MSGSFT= 000006 
MSGSKE= 000003 
MSGSMB= 000015 
MSGSMH= 000014 
MSGSMS= 000016 
MSGSTD= 000000 
MSGSYS= 000012 
MSGVEC= 000020 
NBKMCD= 001 COO 
NCPUCP= 000020 
NOAPTY= 000002 
NULL = 00 000 
OWEN = 024020 
PAERR = 000010 
PARPRE= 002000 
PARSTA= 000100 
PASCNT= 000034 
PDPLSI= 020000 
PDP60 = 004000 
PDP70 = 010000 
PRIO = 000000 



PRI1 = 000040 

PRI4 = 000200 

PRI5 = 000240 

PRI6 = 000300 

PRI7 = 000340 

PRO = 000000 

PR4 = 000200 

PR5 = 000240 

PR6 = 000300 

PR7 = 000340 

PS = 177775 

PSW = 177776 

RANNUM= 000054 

R8UFEA= 000130 

RBUFPA= 000126 

R3UFS2= 000132 

RBUFVA= 000124 

RDSERV= 000101 

RDWHMI= 000022 

RELERR= 000020 

RELMOD= 020000 

RELTIM= 010000 

RESREG= ****** G 

RES1 = 000056 

RES2 = 00Q060 

RICHAR= 031060 

R?TDAT= 002000 

RSTRT = 000112 

RUBGUT= 000177 

RUNMQD= 100000 

R5VALU= 001740 

SAM = 075464 

SAVREG= ****** G 

S5ADR = 000102 

SBKrv"OD= 000000 

S6KSEL= 010000 

SC.ADR= 000006 

SC.ALC= 000014 

SCAPC= 000016 

SC.CKL= 000002 

SCCKP= 000004 

SC.CLO= 000000 

SC.HLD= 000010 

SC.SCA= 000012 

SENDLS= 177777 

SOFCNT= 000042 

SGFPAS= 000046 

SPACE = 000040 

SPOINT= 000032 

SPVALU= 002200 

SRO = 177572 

SR1 = 177574 

SR2 = 177576 
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MACY11 30A(1052) 
SYMBOL TABLE 
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SEQ 0350 



SR3 


172516 




STAT = 


C00026 




STATBI= 


C64757 




STAT1 = 


000027 




SUSPND= 


000001 




SVRO = 


000062 




SVR1 


000064 




SVR2 = 


000066 




SVR3 = 


0C0070 




3VR4 = 


000072 




SVR5 = 


000074 




SVR3 = 


000076 




SYSCNT= 


C00052 




SYSERR= 


000100 




TABL = 


000000 




TMPIO = 


000002 




TQOVF = 


000002 




UIPARC= 


177640 




UIPAR1 = 


177642 




UIPAR2= 


177644 




UIPAR3= 


177646 




UIPAR4= 


177650 




. ABS. 


000000 


000 




000632 


001 



UIPAR5= 177652 
UIPAR6= 177654 
UIPAR7= 177656 
UIPDRO- 177600 
UIPDR1= 177602 
UIPDR2= 177604 
UIPDR3= 177606 
UIPDR4= 177610 
UIPDR5= 177612 
UIPDR6= 177614 
UIPDR7= 177616 
WASADR^ 000104 
WBSTAT= 000040 
WBUFEA= 000136 
WBUFPA= 000134 
WBUFRQ= 000140 
WBUFSZ= 000142 
WDFR = 000116 
WDTO = 0001 14 
WTINRE= 000352 
WTWHMI= 000222 
XFLAG = 000005 



XOFF = 000023 
XON = 0C0021 
$3GNLE= 177777 
$ERFLG= 000400 
$F$AND= 000310 
$F$BAD= 000401 
$F$BLA= 000170 
$F$CAS= 000150 
$F$DEC= 000220 
$F$DO = 00C340 
$F$FAL= 000405 
$F$GOO= 000400 
$F$IF = 0001 10 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 000150 
$F$NO = 000403 
$F$OR = 0C0320 
$F$RTI= 000350 
$F$RTN= 000300 
$F$SEL= 000140 
$F$THE= 000330 



$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 
$F$YES= 000402 
$IFLEV= 177777 
$ISKO = 000001 
$ISK1 = 000001 
$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000001 
$NESTL= 177777 
$NSKO = 000300 
$NSK1 = 000110 
$NSK2 = 000110 
$SAVLE= 177777 
SSSKO = 050003 
$TAGLE= 177777 
$TAGNU= 05DC07 
$TEMP = 000300 
STSKO = 050004 
$TSK1 = 050C06 
$$ARGC= 000002 



$$BYTE= 000403 

$$CASE= 000000 

SSDST = 000000 

$$ELOC= 000402 

$SERFL= 000000 

$$FLAG= 000001 

$$FROM= 000000 

$$LOC = 000554R 

$$LOCN= 000000 

S3REG = 177777 

$SRETU= 000000 

$3RTN1= 050000 

$$RTN2= 050001 

$$£RC = 000000 

$$TGSV= 000000 

$$TGS1= 000000 

$$TGS2= 000000 

S$TO = 000000 

$$$TAG= 050000 

= 00C632R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSK2: CMDPRC, DSK2:CMDPRC=SPMAC/ML, EQUATE, CMDPRC 
RUN-TIME: 13 3 .4 SECONDS 
RUN-TIME RATIO: 36/17=2.0 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:46 

EQUATE. MAC 13-SEP-78 16: 13 TABLE OF CONTENTS SEQ 0351 

3 COMMON EQUATE MODULE 
549 COMMON DEFINITIONS AND REFERENCES 

554 000000' .PRINT ;SPMAC: VERSION 1.1 

576 CMDRST ROUTINE 
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SEO 0352 



500 
5C9 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
523 
529 
530 
531 
532 
533 
534 
535 
536 
537 
53S 
539 
540 
541 
542 
543 
544 
545 
546 
547 



.TITLE CMDRST - KEYBOARD RESET 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
CMDRST 

FUNCTIONAL DESCRIPTION: 

OUTPUTS A PROMPT TO THE KEYBOARD 

INPUTS: 

ADDRESS OF DATA TABLE 

IMPLICIT INPUTS: 
DT.STO 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.KBPRM 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE MODULES CALLED: 
KBINI 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL CMDRST IN <A> 

A=ADDRESS OF DATA TABLE 

VERSION: 
0.0 



EDIT 



BY 



DATE 



REASON 
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SEQ 0353 



549 
550 
551 
552 
553 
554 
(1) 
555 
556 
557 
55S 
559 
560 
561 
552 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 



000000' 
000000' 



000001 
000001 



SBTTL COMMON DEFINITIONS AND REFERENCES 



.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



REFERENCED BY OTHER MODULES 
GLOBL CMDRST 

jit*************** 

LOCAL STORAGE 



000000' 051502 037131 000 CM.RUNMSG: 
000005' 103 042115 000076 CM. CMDMSG: 



•ASCIZ /BSY>/ 
.ASCI2 /CMD>/ 



;MODULE ENTRY POINT 



;RUN MODE PROMPT 

; COMMAND MODE PROMPT 



I**************** 
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.SBTTL CMDRST ROUTINE 

ROUTINE CMDRST <TABL> 



SET RO TO START OF DATA TABLE 



SEO 0354 



576 








577 








573 


000012' 






(2) 


C00012' 






57 9 








580 








581 








582 








583 








584 


000012' 






(2) 


000012' 


01 0046 




585 








586 


000014' 






(4) 


000014' 


016500 


000000 


587 








583 








589 








590 








591 








592 


000020' 






(6) 


000020' 


032760 


100000 000010 


(9) 


000026' 


001404 




593 


000030' 






(4) 


000030' 


012760 


000000' 000026 


594 








595 








596 








597 








598 








599 








600 


000036' 






(4) 


0C0036 1 


000403 




(3) 


OC0040 1 






601 


000040 ' 






(4) 


000040 ' 


01 2760 


000005' 000026 


502 


000046' 






(4) 


000046' 






603 








604 








605 


000046' 






(2) 


000046' 


012600 




606 








607 


000050' 






(3) 


000050' 






(3) 


000050' 






(2) 


000050' 


000207 




608 








609 








610 




00000-! 





CMDRST: 



PUSH RO 



LET RO := TA3L(R5) 



IF IN RUN MODE, OUTPUT RUN PROMPT 



IF tfRUNMOD SETIN DT.STO(RO) THEN 



LET DT.KBPRM(RO) : = #CM.RUNMSG 



ELSE OUTPUT COMMAND MODE PROMPT 



ELSE 



MOV 



MOV 



RO,-(SP) 
TA3L(R5) ,R0 



BIT 
BEO 

MOV 



#RUNMOD,DT.STO(R 
50002$ 

#CM.RUNMSG,DT.KB 



BR 



50003$ 



LET DT.KBPRM(RO) := //CM.CMDMSG 



END IF 



POP RO 



ENDRTN 



50002$: 



50003$ 



MOV #CM.CMDMSG,DT.KB 



50000$: 
50001$: 



MOV 



RTS 



(SP)+,RO 



PC 



END 
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SEQ 0355 



ACSR = 003102 

ACT3IT= 004000 

ADDR22= 001000 

ADR = 000006 

APTFER= 000004 

APT?RE= 000200 

ASB = 000106 

ASSEM3= 000010 

ASTAT = 000104 

AUTO = 000010 

AUTOST= C20000 

AWAS = 0001 10 

BITO = 000001 

BITOO = 000001 

BIT01 = 000002 

BIT02 = 000004 

BIT03 = 000010 

3IT04 = 000020 

3IT05 = 000040 

BIT06 = 000100 

BIT07 = 000200 

BIT08 = 000400 

3IT09 = 001000 

BIT1 = 000002 

BIT10 = 002000 

3IT11 = 004000 

3IT12 = 010000 

BIT13 = 0200C0 

3IT14 = 040000 

BIT15 = 100000 

BIT2 = 000004 

3IT3 = 000010 

3IT4 = 0C0020 

3IT5 = 000040 

BIT6 = 000100 

3IT7 = 0C0200 

BIT8 = 000400 

3IT9 = OC1000 

3KDEF = 000002 

BKMOD = 000020 

3KM0DE= 040000 

BKSLSH= 000134 

CAPRES= 000004 

CASTAT= 000004 

CDERCT= 000146 

CDWDCT= 000144 

CKTIM = 100000 

CLKPRE= 000001 

CMDRST 00001 2RG 

CM.CMD 000005R 

CM. RUN OOOOOOR 

CONFIG= 000056 

CQOVF = 000001 



CR = 000015 
CSRA = 000100 
CSRC = 000102 
CTRLC = 000003 
CTRLO = 000017 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= 000400 
DIAGMC= 000000 
DROPMO= 1C0000 
DSEVNT= 000014 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000034 
DT.CFO= 000014 
DT.CF1= C0C016 
DT.ERR= 000020 
DT.ESI= 000044 
DT.EVN= 000000 
DT.EXS= 000060 
DT.FCH= 000C37 
DT.FCN= 000036 
DT.HMX= 000104 
DT.KBE= 000024 
DT.KBP= 000026 
DT.KBR= 000022 
DT.KB'J = 000030 
DT.MlS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = 000002 
DT.PFL= 000062 
DT.PSW= 000004 
DT.PTA= 000064 
DT.RCS= 000102 
DT.REL= 000040 
DT.SCT= 000066 
DT.SMX= 000106 
DT.SP = 000006 
DT.SSI= 000046 
DT.STO= 000010 
DT.ST1= 000012 
DT.SWR= 000056 
DT.SYP^ 000072 
DT.WBU= 000050 
DT.WHL= 000054 
DT.WLL= 000052 
DVID1 = 000014 
ECCMEM= 000100 
ECCSTA= 0G001C 
ENBEOP= 010000 



ENBNUL= 000001 
ENDLST= 000000 
EOPBIT= 000001 
ERRTYP= 000106 
EVNTBE= 000200 
EVNTHD= 000200 
EVNTKT= 000203 
EVNTPE= 000202 
EVNTRE= 000201 
FATERR= 100000 
HRDCNT= 000044 
HRDPAS= 000050 
ICONT = 000036 
ICOUNT= 000040 
IDNUM = 000122 
IE = 0001C0 
INDPAR= 000040 
INHDRP= 040000 
INHEPR= 020000 
INHREL= 001000 
INHRRE= 0C0400 
INIT = 000030 
INTR = 000120 
IOMOD = 100000 
IOMODP= 102000 
IOMODR= 112000 
IOMODX= 110000 
JACK = 035060 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 
KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KTERRO= 000040 
KTPRES= 000400 
KTSTAT= 000020 
KTXTND= 040000 
LF = 000012 
LPSTAT= 000001 
MAPSTA= 000200 
MED = 076500 
MEMPAS= 040000 



MODEXH= 004000 

MODHOL= 002000 

MODSEL= 001000 

MSGCKD= 000010 

MSGCKS= 00001 1 

MSGDER= 000005 

MSGDRP= 000017 

MSGECH= 177777 

MSGEOP= 000013 

MSGHDR= 000004 

MSGHNG= 000022 

MSGHRD= 000007 

MSGMAP= 000021 

MSGNUL= 177775 

MSGPOP= 000002 

MSGPRM= 177776 

MSGRES= 000001 

MSGSFT= 000006 

MSGSKE= 000003 

MSGSMB= 000015 

MSGSMH= 000014 

MSGSMS= 000016 

MSGSTD= 000000 

MSGSYS= 000012 

MSGVEC= 000020 

NBKMOD= 001000 

NCPUOP= 000020 

NDAPTY= 000002 

NULL = 000000 

OWEN = 024020 

PAERR = 000010 

PARPRE= 002000 

PARSTA= 000100 

PASCNT= 000034 

PDPLSI= 020G00 

PDP60 = 004000 

PDP70 = 010000 

PRIO - 000000 

PRI1 = 000040 

PRI4 = 00C200 

PRI5 = 000240 

PRI6 = 000300 

PRI7 = 000340 

PRO = 000000 

PR4 = 000200 

PR5 = 000240 

PR6 = 000300 

PR7 = 000340 

PS = 177776 

PSW = 177776 

RANNUM= 000054 

RBUFEA= 0C0130 

RBUFPA= 000126 



RBUFSZ= 000132 
RBUFVA= 000124 
RDSERV= 000101 
RDWHMI= 000022 
RELERR= 000020 
RELMOD= 020000 
RELTIM= 010000 
RES1 = 000056 
RES2 = 000060 
RICHAR= 031060 
RPTDAT= 002000 
RSTRT = 000112 
RUBOUT= 000177 
R'JNMOD= 100000 
R5VALU= 001740 
SAM = 075464 
SBADR = 000102 
SBKMOD= 000000 
SBKSEL= 010000 
SC.ADR= 000006 
SC.ALC= 000014 
SC.APC= 000016 
SC.CKL= 000002 
SC.CKP= 000004 
SC.CLO= 000000 
SC.HLD= 000010 
SC.SCA= 000012 
SENDLS= 177777 
SOFCNT= 000042 
SCFPAS= 000046 
SPACE = 000040 
SPOINT= 000032 
SPVALU= 002200 
SRC = 177572 
SR1 = 177574 
SR2 = 177576 
SR3 = 172516 
STAT = 000026 
STATBI= 064757 
STAT1 = 000027 
SUSPND= 000001 
SVRO = 000062 
SVR1 = 000C64 
SVR2 = 000066 
SVR3 = 000C70 
SVR4 = 000072 
SVR5 = 000074 
SVR6 = 000076 
SYSCNT= 000052 
SYSERR= 000100 
TABL = OOOCOO 
TMPIO = 000002 
TQOVF = 030002 



CMDRST - KEYBOARD RESET MACY1 1 30A(1052) 20-SEP-78 17:46 PAGE 2C-1 
CMDRST. MAC 08-SEP-78 09:13 SYMBOL TABLE 



SEO 0356 



UIPARO= 


1 77640 




UIPAR1= 


177642 




UIPAR2= 


177644 




UIPAR3= 


177646 




UIPAR4= 


177650 




UIPAR5= 


177652 




UIPAR6= 


177654 




UIPAR7= 


177656 




UIPDR0= 


177600 




UIPDR1 = 


177602 




UIPDR2= 


177604 




UIPDR3= 


177606 




UIPDR4= 


177610 




UIPDR5= 


177612 




UIPDR6= 


177614 




UIPDR7= 


177616 




WASADR= 


000104 




WB5TAT= 


0C0040 




. ABS. 


COOOCO 


000 




000052 


001 



W6UFEA= 000136 

WBUFPA= 000134 

WB'JFRQ= 000140 

WBUFSZ= 000142 

WDFR = 0C0116 

WDTO = 000114 

WTINRE= 000352 

WTWHMI= 000222 

XFLAG = 000005 

XOFF = 000023 

XON = 000021 

$BGNLE= 177777 

$ERFLG= 000400 

$F$AND= 000310 

$F$BAD= 000401 

$F$BLA= 000170 

$F$CAS= 000150 

$F$DEC= 0CC220 



$F$DO = 000340 
$F$FAL= 0C0405 
$F$GOO= 000400 
$F$IF = 0001 10 
$F$INC= 000210 
$F$LGO= 000200 
$F$NAM= 000160 
SFSNO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 
SF$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 
$F$YES= 000402 
$IFLEV= 177777 



SISKO = 000001 
$LOCTA= 177777 
$LSTIN= 000001 
SLSTTA= 000001 
$NESTL= 177777 
$NSKO = 000300 
SNSK1 = 000110 
$SAVLE= 177777 
$TAGLE= 177777 
$TAGNU= 050004 
STEMP = 000300 
$TSKO = 050003 
$$ARGC= 000002 
$$BYTE= 000403 
$$CASE= 000000 
$$DST = 000000 
$$ELOC= 000402 
$$ERFL= 000000 



$$FLAG= 000001 
$$FROM= 000000 
$$LQC = 000026R 
$$LOCN= 000000 
S$REG = 177777 
$$RETU= 000000 
$SRTN1= 050000 
$SRTN2= 050001 
SSSRC = 000000 
$$TGSV= 000000 
$$TGS1= 000000 
$$TGS2= 000000 
$$T0 = 000000 
$$$TAG= 050000 
= 000052R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ : CWDRST , DSK2 : CMDRST=SPMAC/ML , EQUATE , CMDRST 
RUM-TIKE: 11 1 .3 SECONDS 
RUN-TIME RATIO: 30/13=2.2 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30AO052) 20-SEP-78 17:47 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0357 

3 COMMON EQUATE MODULE 



CMDTB1 - COMMAND TABLE 1 MACY11 30A(1052) 20-SEP-78 17:47 PAGE 19 
CMDTB1 .MAC 28-JUL-78 09:13 COMMON EQUATE MODULE 



508 
509 
510 
51 1 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 



SEQ 0358 



.TITLE CMDTB1 - COMMAND TABLE 1 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
CMDTB1 

FUNCTIONAL DESCRIPTION: 

CONTAINS THE COMPLETE VALID COMMAND AND COMMAND 
DISPATCH TABLES 

VERSION: 
0.0 



EDIT 



BY 



DATE 



REASON 



CMDTB1 - COMMAND TABLE 1 
CMDTB1.MAC 28-JUL-78 09:13 



MACY11 30A(1052) 20-SEP-78 17:47 
COMMON EQUATE MODULE 



PAGE 19-1 



SEQ 0359 



526 
527 
52S 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
54S 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 



000000' 
000000' 
000002' 
000004' 
000006' 
0C0010 ' 
0C0012' 
000014' 
000016' 
000020' 
000022' 
000024' 
000026' 
000030^ 
000032' 
000034' 
000036' 



OOCOOOG 
OOOOOCG 
OOOOOOG 
OOOOOCG 
OOOOOCG 
OOCOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOCOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



i**************** 



REFERENCED BY OTHER MODULES 



GLOBL 
GLOBL 



CM.DIS 
CM.TBL 



ilc*************** 



GLOBAL REFERENCES 



GLOBL 


KCOFF 


GLOBL 


KCON 


GLOBL 


KDES 


GLOBL 


KEXAM 


GLOBL 


KFILL 


GLOBL 


KKTOFF 


GLOBL 


KKTON 


GLOBL 


KLPOFF 


GLOBL 


KLPON 


GLOBL 


KMAP 


GLOBL 


KMOD 


GLOBL 


KMOFF 


GLOBL 


KMON 


GLOBL 


KPOFF 


GLOBL 


KPON 


GLOBL 


KROTOF 


GLOBL 


KROTON 


GLOBL 


KRUN 


GLOBL 


KRUNL 


GLOBL 


KSEL 


GLOBL 


KSUM 


GLOBL 


KSWR 



*!|t**>|C#*#*****>|C** 



CM.DIS: 




.WORD 


KCOFF 


.WORD 


KCON 


.WORD 


KDES 


.WORD 


KEXAM 


.WORD 


KFILL 


.WORD 


KKTOFF 


.WORD 


KKTCN 


.WORD 


KLPOFF 


.WORD 


KLPON 


.WORD 


KMAP 


.WORD 


KMOD 


.WORD 


KMOFF 


.WORD 


KMON 


.WORD 


KPOFF 


.WORD 


KPON 


• WORD 


KROTOF 



CACHE OFF ROUTINE 

CACHE ON ROUTINE 

DESELECT ROUTINE 

EXAM ROUTINE 

FILL ROUTINE 

KT OFF ROUTINE 

KT ON ROUTINE 

LP OFF ROUTINE 

LP ON ROUTINE 

MAP ROUTINE 

MODIFY ROUTINE 

UNIBUS MAP OFF ROUTINE 

UN I BUS MAP ON ROUTINE 

PARITY OFF ROUTINE 

PARITY ON ROUTINE 

WRITE BUFFER ROTATION OFF ROUTINE 

WRITE BUFFER ROTATION ON ROUTINE 

RUN ROUTINE 

RUN LOCKED ROUTINE 

SELECT ROUTINE 

SUMMARY ROUTINE 

MODIFY SWITCH REGISTER ROUTINE 



;COMMAND DISPATCH TABLE 



CMDTB1 - COMMAND TABLE 1 
CMDTB1 .MAC 28-JUL.-78 09=13 



MACY11 30A(1052) 20-SEP-78 17:47 PAGE 19-2 
COMMON EQUATE MODULE 



SEQ 0360 



532 


000040' 


OOOOOOG 






.WORD 


KROTON 


583 


000042' 


OOCOOOG 






.WORD 


KRUN 


584 


000044' 


OOOOOOG 






.WORD 


KRUNL 


585 


000046' 


OOOOOOG 






.WORD 


KSEL 


586 


000050' 


OOOOOOG 






.WORD 


KSUM 


537 


000052' 


OOOOOOG 






.WORD 


KSWR 


588 














589 














590 


000054' 






CM.T6L: 




591 


000054' 


047503 


043106 


000 


.ASCIZ 


/COFF/ 


592 


0C0061 ' 


103 


0471 17 


000 


.ASCIZ 


/CON/ 


593 


000065 ' 


104 


051505 


000 


.ASCIZ 


/DES/ 


594 


C00071 ' 


105 


040530 


0001 15 


.ASCIZ 


/EXAM/ 


595 


000076' 


044506 


0461 14 


000 


.ASCIZ 


/FILL/ 


596 


0001 03' 
0001 10 ' 


1 13 
000 


047524 


0431 OS 


.ASCIZ 


/KTOFF/ 


597 


C001 1 1 ' 


1 13 


047524 


0001 16 


.ASCIZ 


/KTON/ 


598 


0001 16' 


0501 14 


0431 17 


OOOl 06 


.ASCIZ 


/LPOFF/ 


599 


0C01 24' 


0501 14 


0471 17 


000 


.ASCIZ 


/LPON/ 


600 


000131 ' 


1 15 


0501 01 


000 


.ASCIZ 


/MAP/ 


501 


000135' 


1 15 


0421 17 


000 


.ASCIZ 


/MOD/ 


602 


000141 ' 


1 15 


0431 17 


000106 


.ASCIZ 


/MOFF/ 


603 


0001 46' 


047515 


0001 16 




.ASCIZ 


/MDN/ 


604 


000152' 


047520 


043106 


000 


.ASCIZ 


/POFF/ 


505 


0001 57' 


12C 


0471 17 


000 


.ASCIZ 


/PON/ 


606 


000163' 
C001 70' 


122 
00C106 


0521 17 


0431 17 


.ASCIZ 


/ROTOFF 


607 


0001 72' 


047522 


047524 


0001 16 


.ASCIZ 


/ROTON/ 


608 


000200' 


052522 


0001 16 




.ASCIZ 


/RUN/ 


609 


000204' 


052522 


0461 16 


000 


.ASCIZ 


/RUNL/ 


610 


00021 1 ' 


123 


046105 


000 


.ASCIZ 


/SEL/ 


611 


000215' 


123 


046525 


000 


.ASCIZ 


/SUM/ 


612 


000221 ' 


123 


051 127 


000 


.ASCIZ 


/SWR/ 


613 


000225' 


377 






• BYTE 


-1 


614 














615 








.EVEN 




616 














617 




000001 




• END 





;VALID COMMAND TABLE 



CM0TB1 
CMDTB1 



- COMMAND TABLE 1 
,MAC 28-JUL-78 09: 13 



MACY11 30A(1052) 2C-SEP-7S 
SYMBOL TABLE 



17:47 PAGE 20 



SEQ 0361 



ACSR = 000102 

ACTBIT= 004000 

ADDR22= 001000 

ADR = 000006 

APTFER= 000004 

APTPRE= 000200 

ASB = 00106 

ASTAT = C00104 

AUTO = 000010 

AUTOST= 020000 

AWAS = 000110 

BITO = 0C0001 

BITOO = 000001 

BITD1 = 000002 

BIT02 = 000004 

BIT03 = 000010 

BIT04 = 000020 

BIT05 = 000040 

BIT06 = 000100 

BIT07 = 000200 

BIT08 = 000400 

BIT09 = 001000 

BIT1 = 000002 

BIT10 = 002000 

BIT 1 1 = 004000 

BIT12 = 010000 

BIT13 = 020000 

BIT14 = 040000 

BIT15 = 1C0000 

BIT2 = 000004 

BIT3 = 000010 

BIT4 = 000020 

BIT5 = 000040 

BIT6 = 0001 CO 

BIT7 = 000200 

BIT3 = 000400 

BIT9 = 001000 

BKDEF = 000002 

BKMOD = 000020 

EKMODE= 040000 

BKSLSH= 000134 

CAPRES= 000004 

CASTAT= 000004 

CDERCT= 000146 

CDfoDCT= 000144 

CKTIM = 100000 

CLKPRE= 000001 

CM.DIS OOOCOORG 

CM.TBL 000054RG 

CONFIG= 000056 

CQOVF = 000001 

CR = 000015 

CSRA = 000100 



CSRC = 000102 
CTRLC = 000003 
CTRLO = 000C17 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= 000400 
DROPMO= 100000 
DSEVNT= 000014 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000034 
DT.CFO= 0C0014 
DT.CF1= 00C016 
DT.ERR= 000020 
DT.ESI= 000044 
DT..EVN= 000000 
DT.EXS= 000060 
DT.FCH= 000037 
DT.FCN= 000036 
DT.HMX= 000104 
DT.KBE= 000024 
DT.KBP= 000026 
DT.KBR= 000022 
DT.KBU= 000030 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = 000002 
DT.PFL= 000062 
DT.PSW= 000004 
DT.PTA= 000064 
DT.RCS= 000102 
DT.REL= 000040 
DT.SCT= 000066 
DT.SMX= 000106 
DT.SP = 000006 
DT.SSI= 000046 
DT.STO= 000010 
DT.ST1= 000012 
DT.SWR= 000056 
DT.SYP= 000072 
DT.WBU= 000050 
DT.WHL= 000054 
DT.WLL= 000052 
DVID1 = 000014 
ECCMEM= 000100 
ECCSTA= 000010 
ENBEOP= OlCOOO 
ENBNUL= 000001 
ENDLST= 000000 
E0PBIT=; 000001 



ERRTYP= 000106 
EVNTBE= 000200 
EVNTHD= 000200 
EVNTKT= 000203 
EVNTPE= 000202 
EVNTRE= 000201 
FATERR= 100000 
HRDCNT= 000044 
HRDPAS= 000050 
ICONT = 000035 
ICOUNT= 000040 
IDNUM = 000122 
IE = 000100 
INDPAR= 000040 
INHDRP= 040000 
INHEPR= 020000 
INHREL= 001000 
INHRRE= 000400 
INIT = 000030 
INTR = 000120 
ICMOD = 100000 
IQMODP= 102000 
IOMODR= 112000 
IOMODX= 110000 
JACK = 035060 
KCOFF = ****** G 
KCON = ****** G 
KDES = ****** G 
KEXAM = ****** G 
KFILL = ****** G 
KIPAR0= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172345 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 
KIPDR0= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KKTOFF= ****** G 
KKTCN = ****** G 
KLPOFF= ****** G 
KLPON = ****** G 
KMAP = ****** G 
KMOD - ****** G 
KMOFF a ****** G 



KMON = ****** G 
KPOFF = ****** G 
KPON = ****** G 
KROTOF= ****** G 
KROTON= ****** G 
KRUN = ****** G 
KRUNL = ****** G 
KSEL = ****** G 
KSUM = ****** G 
KSWR = ****** G 
KTERRO= 000040 
KTPRES= 000400 
KTSTAT= 000020 
KTXTND= 040000 
LF = 000012 
LPSTAT= 000001 
MAPSTA= 000200 
MED = 075600 
MEMPAS= 040000 
MODEXH= 004000 
MCDHOL= 002000 
MODSEL= 001000 
MSGCKD= 000010 
MSGCKS= 00001 1 
MSGDER= 000005 
MSGDRP= 000017 
MSGECH= 177777 
MSGEOP= 000013 
MSGHDR= 000004 
MSGHNG= 000022 
MSGHRD= 000C07 
M3GMA?= 000021 
MSGNUL= 177775 
MSGPOP= 000002 
MSGPRM= 177776 
MSGRES= 000001 
MSGSFT= 000006 
MSGSKE= 000003 
MSGSMB= 000015 
MSGSMH= 000014 
MSGSMS= 000016 
MSGSTD= 000000 
MSGSYS= 000012 
MSGVEC= 000020 
NBKMOD= 00 1 COO 
NCPUOP= 000020 
NOAPTY= 000002 
NULL = 000000 
OWEN = 024020 
PAERR = 000010 
PARPRE= 002000 
PARSTA= 000100 
PASCNT= OC0034 



PDPLSI= 020000 

PDP60 = 004000 

PDP70 = 010000 

PRIO = 000000 

PRI1 = 000040 

PRI4 = 0C0200 

PRI5 = 000240 

PRI6 = 000300 

PRI7 = 000340 

PRO = 000000 

PR4 = 000200 

PR5 = 000240 

PR6 = 000300 

PR7 = 000340 

PS = 177776 

PSW = 177776 

RANNUM= 000054 

R3UFEA= 000130 

RSUFPA= 000126 

R3UFSZ= 000132 

R3UFVA= 000124 

RD5ERV= 000101 

RDWHMI= 000022 

RELERR= 000020 

R5LM0D= 020000 

RELTIM= 010000 

RES1 = CC0055 

RE52 = 000060 

RICriAR= 031060 

RPTDAT= 002000 

RSTRT = 0C0112 

RUBQUT= 000177 

RUNMOD= 100000 

R5VALU= 001740 

SAM = 075464 

SBADR = 000102 

SBKMOD= 000000 

SEKSEL= 010000 

SC.ADR= 000006 

SC.ALC= 000014 

SC.APC= 000016 

SC.CKL= 000002 

■ SC.CKP= 000004 

SC.CLO= 000000 

SC.HLD= 000010 

SC.SCA= 000C12 

SENDLS= 177777 

SOFCNT= 000042 

SOFPAS= 000046 

SPACE = 000040 

SPOINT= 000032 

SPVALU= 002200 

SRO = 177572 



CMDTB1 - COMMAND TA3LE 1 
CMDTB1 .MAC 28-JUL-78 09:13 



MACY11 30A(1052) 20-SEP-78 
SYMBOL TABLE 



17:47 PAGE 20-1 



SR1 


1 77574 




SVR3 = 


000070 


SR2 


177576 




SVR4 = 


000072 


SR3 


172516 




SVR5 = 


000074 


STAT = 


000026 




SVR6 = 


000076 


STATBI= 


064757 




SYSCNT= 


000052 


STAT1 = 


000027 




SYSERR= 


000100 


SUSPND= 


000001 




TMPIO = 


000002 


SVRO = 


C00062 




TQOVF = 


000002 


SVR1 


000064 




UIPAR0= 


177640 


SVR2 = 


000066 




UIPAR1= 


177642 


. A3S. 


000000 
C00226 


000 
001 







UIPAR2-= 177644 
UIPAR3= 177646 
UIPAR4= 177650 
UIPAR5= 177652 
UIPAR6= 177654 
UIPAR7= 177655 
UIPDRO= 177600 
UIPDR1= 177602 
UIPDR2= 177604 
UIPDR3= 177606 



UIPDR4= 177610 

UIPDR5= 177612 

UIPDR6= 177614 

UIPDR7= 177616 

WASADR= 000104 

W3STAT= 000040 

WBUFEA= 000136 

WBUFPA= 000134 

WBUFRQ= 000140 

WBUFSZ= 000142 



WDFR = 000116 

WDTO = 000114 

WTINRE= 000352 

WTWhMI= 000222 

XFLAG = 000005 

XOFF = 000023 

XON = 000021 

= 000226R 



SEQ 0352 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ:CMDT31 , DSKZ : CMDTB1 =SPMAC/V.L , EQUATE , CMDT 81 
RUN-TIME: .7 .6 .3 SECONDS 
RUN-TIME RATIO: 4/1=2.5 
CORE USED: 14K (27 PAGES) 



-MAIN. MACY11 30A(1052) 20-SEP-78 17:47 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0363 

3 COMMON EQUATE MODULE 



CMDTB2 - COMMAND TABLE 2 
CMDTB2.MAC 28-JUL-78 09:13 

508 
509 
510 
51 1 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 



MACY11 30A(1052) 20-SEP-7S 17:47 
COMMON EQUATE MODULE 



PAGE 19 



SEQ 0364 



TITLE CMDTB2 - COMMAND TABLE 2 
IDENT /VO.O/ 

++ 
MODULE NAME: 
CMDTB2 

FUNCTIONAL DESCRIPTION: 

CONTAINS SHORTENED VERSIONS OF THE VALID COMMAND 
AND COMMAND DISPATCH TABLES. 



VERSION: 
0.0 

EDIT 



BY 



DATE 



REASON 



CMDTB2 - COMMAND TABLE 2 
CMDTB2.MAC 28-JUL-78 09:13 



MACY11 30A(1052) 20-SEP-78 17:47 
COMMON EQUATE MODULE 



PAGE 19-1 



SEQ 0365 



527 








528 








529 








530 








531 








532 








533 








534 








535 








536 








537 








538 








539 








540 








541 








542 








543 








544 








545 








546 








547 








548 








549 








550 








551 


oooooo * 






552 


000000' 


OOOOOOG 




553 


000002 ' 


OOOOCOG 




554 


0C0004' 


OOOOOOG 




555 


000006' 


OOOOOOG 




556 


000010' 


OOOOOOG 




557 


000012' 


OOOOOOG 




558 


000014' 


OOOOOOG 




559 








560 








561 


000016' 






562 


000016' 


042504 


000123 


563 


000022' 


044506 


0461 14 


564 


OC0027' 


1 15 


0421 17 


565 


000033' 


122 


047125 


566 


000037' 


123 


046105 


567 


000043' 


123 


046525 


568 


000047' 


123 


051 127 


569 


000053' 


377 




570 








571 








572 




000001 





Jit*************** 

REFERENCED BY OTHER MODULES 

GLOBL CM.DIS 
GLOBL. CM.TBL 

jit*************** 

GLOBAL REFERENCES 

GLOBL KDES 

GLOBL KFILL 

GL.03L KMOD 

GLOBL KRUN 

GLOBL KSEL 

GLOBL KSUM 

GLOBL KSWR 





CM.DIS: 










.WORD 


KDES 






.WORD 


KFILL 






.WORD 


KMQD 






.WORD 


KRUN 






.WORD 


KSEL 






.WORD 


KSUM 






.WORD 


KSWR 




CM.TBL: 










•ASCIZ 


/DES/ 


000 




.ASCIZ 


/FILL/ 


000 




•ASCIZ 


/MOD/ 


000 




.ASCIZ 


/RUN/ 


000 




.ASCIZ 


/SEL/ 


000 




.ASCIZ 


/SUM/ 


000 




.ASCIZ 


/SWR/ 






• BYTE 


-1 




.EVEN 








.END 







DESELECT ROUTINE 

FILL ROUTINE 

MODIFY ROUTINE 

RUN ROUTINE 

SELECT ROUTINE 

SUMMARY ROUTINE 

MODIFY SWITCH REGISTER ROUTINE 



; COMMAND DISPATCH TABLE 



;VALID COMMAND TABLE 



CMDT32 ~ COMMAND TABLE 2 
CMDTB2.MAC 28-JUL-7S 09:13 



MACY11 30A(1052) 20-SEP-78 
SYMBOL TABLE 



17:47 PAGE 20 



SEQ 0356 



ACSR = 000102 
aCTBIT= 004000 
ADDR22= 001000 
ADR = 000006 
APTFER= 000004 
APT?RE= 000200 
ASB = 000106 
ASTAT = 000104 
AUTO = 000010 
AUTOST= 020000 
AWA5 = 0C01 10 
lilTO = 000001 
BITOO = 000001 
3IT01 = 000002 
BITD2 = 000004 
BIT03 = 000010 
BIT04 = 000020 
BIT05 = 0C0040 
3IT06 = 000100 
BIT07 = 000200 
BIT08 = 000400 
BIT09 = 001000 
BIT1 = 000002 
BIT10 = 002000 
31T11 = 004000 
BIT12 = 0100 00 
BIT13 = 020000 
BIT14 = 040000 
3IT15 = 100000 
3IT2 = 000004 
BIT3 = 000010 
BIT4 = 000020 
BIT5 = 000040 
BITS = 000100 
BIT7 = 000200 
3IT8 = 0004C0 
BIT9 = 001000 
BKDEF = 000002 
BKMOD = 000020 
BKMODE= 040000 
BKSLSH= 000124 
CAPRES= 000004 
CASTAT= 000004 
CDERCT= 000146 
CDWDCT= 000144 
CKTIM = 100000 
CLKPRE= 000001 
CM.DIS oooooor: 
CM.T6L 000C16R< 
CONFIG= 000056 
CQOVF = 000001 
CR = 000015 
CSRA = 000100 



CSRC = 000102 
CTRLC = 000003 
CTRLO = 000017 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= G00400 
DROPMQ= 1COO00 
DSEVNT= 000014 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000034 
DT.CF0= 000014 
DT.CF1= 000016 
DT.ERR= 000020 
DT.ESI= 000044 
DT.EVN= 000000 
DT.EXS= 000060 
DT.FCH= C00037 
DT.FCN= 000036 
DT.HMX= 000104 
DT.KBE= 000024 
DT.KBP= 000026 
DT.KBR= 000022 
DT.KBU= 000030 
DT.MLS= 000032 
DT.MTI= 0001 10 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = 000002 
DT.PFL= 000062 
DT.PSW= 000004 
DT.PTA= 000064 
DT.RCS= 000102 
DT.REL= 000040 
DT.SCT= 000066 
DT.SMX= 000106 
DT.SP = 000006 
DT.SSI= 000046 
DT.STO= 000010 
DT.ST1= 000012 
DT.SWR= 00C056 
DT.SYP= 000072 
DT.WBU= 000050 
DT.WHL= 000054 
DT.WLL= 000052 
DVID1 = 000014 
ECCMEM= 000100 
ECCSTA= 000010 
ENBEOP= 010000 
ENBNUL= 000001 
ENDLST= COOOOO 
EOPBIT= 000C01 



ERRTYP^ 000105 
EVNTBE= 000200 
EVNTHD= 000200 
EVNTKT= 000203 
EVNTPE= 000202 
EVNTRE= 000201 
FATERR= 100000 
HRDC;>IT= 000044 
HRDPAS= 000050 
ICONT = 000036 
ICOUNT= 000040 
IDNUM = 000122 
IE = 000100 
INDPAR= 000040 
INHDRP= 04C000 
INHEPR= 020000 
INHREL= 001000 
INHRRE= 000400 
INIT = 000030 
INTR = 000120 
IOMOD = 100000 
IOMODP= 102000 
ICMODR= 112000 
IOMODX= 110000 
JACK = 035060 
KDES = ****** G 
KFILL = ****** G 
KIPAR0= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 
KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172305 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KMOD = ****** G 
KRUN = ****** G 
KSEL = ****** G 
KSUM = ****** G 
KSWR = ****** G 
KTERRO= 000040 
KTPRES= 000400 
KTSTAT= 000020 
KTXTND= 040000 
LF = 000012 



LPSTAT= 000001 
MAPSTA= 000200 
MED = 076600 
MEMPAS= 040000 
MODEXH= 004000 
MODHOL= 0C2000 
MODSEL= 001000 
MSGCKD= 000010 
MSGCKS= 000011 
M5GDER= 000005 
MSGDRP= 000017 
MSGECH= 177777 
MSGEOP= 000013 
MSGHDR= 000004 
MSGHNG= 000022 
MSGHRD= 000007 
MSGMAP= 000021 
MSGNUL= 177775 
MSGPDP= 000002 
MSGPRM- 177775 
MSGRES= 000001 
MSGSFT= 0C0006 
MSGSKE= 000003 
MSGSM3= 000015 
MSGSMH= 000014 
MSGSMS= 000016 
MSGSTD= 000000 
MSGSYS= 000012 
MSGVEC= 000020 
NBKMOD= 001000 
NCPUOP= 000J2O 
NOAPTY= 000002 
NULL = 000000 
OWEN = 024020 
PAERR = 000010 
PARPRE= 002000 
PARSTA= 000100 
PASCNT= 000034 
PDPLSI= 020000 
PDP60 = 004000 
PDP70 = 010000 
PRIO = 000000 
PRI1 = 000040 
PRI4 = 000200 
PRI5 = 000240 
PRI6 = 000300 
PRI7 = 000340 
PRO = OCOCOO 
PR4 = 000200 
PR5 = 000240 
PR6 = 000300 
PR7 = 000340 
PS = 177776 



PSW = 177776 
RANNUM= 000054 
R3UFEA= 000130 
R3UFPA= 000126 
R3UFSZ= 000132 
R3UFVA= 000124 
RDSERV= 000101 
RDWHMI= 000022 
RELERR= 000020 
RELMOD= 020000 
REL7IM= 010000 
RE31 = 000053 
RE52 = 000060 
RICHAR= 031060 
RPTDAT= 002000 
R5TRT = 000112 
RUBGUT= 000177 
RUNMOD= 100000 
R5VALU= 001740 
SAM = 075464 
SBADR = 000102 
S3KM0D= 000000 
S3KSEL= 010000 
SC.ADR= 000006 
SC.ALC= 000014 
SC.APC= 000015 
SC.CKL= 000002 
SC.CKP= 000004 
SC.CLO= 000000 
SC.HLD= 000010 
SC.SCA= 000012 
SENDLS= 177777 
SOFCNT= 000042 
SGFPAS= 000046 
SPACE = 000040 
SPOINT= 000032 
SPVALU= 002200 
SRC = 177572 
SR1 = 177574 
SR2 = 177576 
SR3 = 172516 
STAT = 000026 
STATBI= 064757 
STAT1 = 000027 
SUSPND= 000001 
SVRO = 000062 
SVR1 = 000064 
SVR2 = 000056 
SVR3 = 000070 
SVR4 = 000072 
SVR5 = 000074 
SVR6 = 00C076 
SYSCNT= 000052 



CMDTB2 - COMMAND TA3LE 2 
CMDTB2.MAC 28-JUL-78 09: 13 



MACY11 30A(1C52) 20~SE?-73 
SYMBOL TABLE 



17:47 PAGE 20-1 



SEQ C3S7 



SYSERR= 


0C0100 




UIPAR4= 


177650 


TMPIO = 


000002 




UIPAR5= 


177652 


TQOVF = 


000002 




UIPAR5= 


177654 


UIPARO= 


177640 




UIPAR7= 


177656 


UIPAR1 = 


177642 




UIPDR0= 


177600 


UIPAR2= 


177644 




UIPDR1= 


177602 


UIPAR3= 


177646 




UIPDR2= 


177604 


. A3S. 


000000 
000054 


000 
001 







UIPDR3= 
UIPDR4= 
UIPDR5= 
UIPDR6= 
UIPDR7= 
WASADR= 
WBSTAT= 



177605 
177610 
177612 
177614 
177616 
000104 
000040 



WBUFEA= 
WBUFPA= 
W5UFRQ= 
WBUFSZ= 
WDFR = 
WDTO = 
WTINRE= 



000136 
000134 
000140 
000142 
000116 
000114 
000352 



WTWHMI= 


000222 


XFLAG = 


000005 


XOFF = 


000023 


XON 


000021 


= 


000054R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ : CMDTB2 , DSKZ : CMDTB2=SPMAC/ML, EQUATE, CMDTB2 
RUN-TIME: .6 .6 .3 SECONDS 
RUN-TIME RATIO: 4/1=2.5 
CORE USED: 14K (27 PAGES) 



-MAIN. MACY11 30A(10b2) 20-5EP-73 17:47 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0368 

3 COMMON EQUATE MODULE 



CMDTB3 - COMMAND TABLE 3 
CMDTB3.MAC 28-JUL-78 09:13 

508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
51S 
520 
521 
522 
523 
524 
525 



MACY11 30A(1052) 20-SEP-78 17:47 
COMMON EQUATE MODULE 



PAGE 19 



SEQ 0369 



TITLE CMDTB3 - COMMAND TABLE 3 
IDENT /VO.O/ 

++ 
MODULE NAME: 
CMDTB3 

FUNCTIONAL DESCRIPTION: 

CONTAINS THE VALID COMMAND AND COMMAND 

DISPATCH TABLES EXCEPT: 

CON, COFF, KTON, KTOFF, MON, MOFF, RUNL 

VERSION: 
0.0 



EDIT 



BY 



DATE 



REASON 



CWIDTB3 ~ COMMAND TABLE 3 
CMDTB3.MAC 28-JUL-73 09:13 



MACY11 30A(1052) 20-SEP-78 17:47 PAGE 19-1 
COMMON EQUATE MODULE 



SEQ 0370 



527 








528 








529 








530 








531 








532 








533 








534 








535 








536 








537 








538 








539 








540 








541 








542 








543 








544 








545 








546 








547 








548 








549 








550 








551 








552 








553 








554 








555 








556 








557 








55S 








559 


OCOOOO' 






560 


000000' 


OOOOOCG 




561 


000002' 


OOOOOOG 




562 


000004' 


OOOOOOG 




563 


000006' 


OOOOOOG 




564 


000010 ' 


OOOOOOG 




565 


000012' 


OOOOOOG 




566 


000014' 


OOOOOOG 




567 


0C0016' 


OOOOOOG 




568 


000020' 


OOOOOOG 




569 


000022' 


OOOOOOG 




570 


000024 ' 


OOOOOCG 




571 


000C26' 


OOOOOOG 




572 


000030' 


OOOOOOG 




573 


00C032 1 


OOOOOOG 




574 


000034' 


OOOOOOG 




575 








576 








577 


000036' 






578 


000036' 


042504 


000123 


579 


000042' 


054105 


046501 000 


580 


000047' 


106 


046111 000114 


581 


000054' 


0501 14 


043117 000106 


582 


000062* 


0501 14 


047117 000 



Jit*************** 

REFERENCED BY OTHER MODULES 

GLOBL CM.DIS 
GLOBL CM.TBL 

GLOBAL REFERENCES 



GLOBL 


KDES 


GLOBL 


KEXAM 


GLOBL 


KFILL 


GLOBL 


KLPOFF 


GLOBL 


KLPON 


GLCBL 


KMAP 


GLOBL 


KMOD 


GLOBL 


KPOFF 


GLOBL 


KPON 


GLOBL 


KROTOF 


GLOBL 


KROTON 


GLOBL 


KRUN 


GLOBL 


KSEL 


GLOBL 


KSUM 


GLOBL 


KSWR 



ifc*************** 



CM.DIS: 




.WORD 


KDES 


.WORD 


KEXAM 


.WORD 


KFILL 


.WORD 


KLPOFF 


• WORD 


KLPON 


.WORD 


KMAP 


.WORD 


KMOD 


.WORD 


KPOFF 


.WORD 


KPON 


.WORD 


KROTOF 


.WORD 


KROTON 


.WORD 


KRUN 


.WORD 


KSEL 


.WORD 


KSUM 


.WORD 


KSWR 



CM.TBL 



.ASCIZ /DES/ 

.ASCIZ /EXAM/ 

.ASCIZ /FILL/ 

•ASCIZ /LPOFF/ 

.ASCIZ /LPON/ 



DESELECT ROUTINE 

EXAMINE ROUTINE 

FILL ROUTINE 

LP OFF ROUTINE 

LP ON ROUTINE 

MAP ROUTINE 

MODIFY ROUTINE 

PARITY OFF ROUTINE 

PARITY ON ROUTINE 

WRITE BUFFER ROTATION ROUTINE 

WRITE BUFFER ROTATION ON ROUTINE 

RUN ROUTINE 

SELECT ROUTINE 

SUMMARY ROUTINE 

MODIFY SWITCH REGISTER ROUTINE 



COMMAND DISPATCH TABLE 



VALID COMMAND TABLE 



CMDTB3 - COMMAND TABLE 3 MACY11 30A(1052) 20-SEP-78 17:47 PAGE 19-2 

CMDTB3.MAC 28-JUL-78 09:13 COMMON EQUATE MODULE SEQ 0371 

.ASCIZ /MAP/ 
.ASCIZ /MOD/ 
.ASCIZ /POFF/ 
•ASCIZ /PON/ 
.ASCIZ /ROTOFF/ 

.ASCIZ /ROTON/ 

.ASCIZ /RUN/ 
.ASCIZ /SEL/ 
.ASCIZ /SUM/ 
.ASCIZ /SWR/ 
.BYTE -1 



583 


000067' 


1 15 


050101 


000 




584 


000073' 


1 15 


0421 17 


000 




585 


000077' 


120 


0431 17 


000106 




586 


000104' 


047520 


0001 16 






587 


0001 10' 
0001 16' 


047522 

000 


047524 


043106 




588 


0001 17' 
000124' 


122 

000 


0521 17 


0471 17 




589 


000125' 


122 


047125 


000 




590 


000131 ' 


123 


046105 


000 




591 


000135' 


123 


046525 


000 




592 


000141 ' 


123 


051 127 


000 




593 


000145' 


377 








594 












595 










.EVEN 


596 












597 




000001 






.END 



CMDTB3 " COMMAND TABLE 3 
CMDTB3.MAC 28-JUL-78 09: 

ACSR = C00102 

ACT3IT= 004000 

ADDR22= 001000 

ADR = 000006 

APTFER= 000004 

APTPRE= 000200 

ASB = 000106 

ASTAT = 000104 

AUTO = 00001 C 

AUTOST= 020000 

AWA3 = C 001 10 

3IT0 = 000001 

BITOO = 000001 

BIT01 = 000002 

BIT02 = 000004 

BIT03 = 0C0010 

BIT04 = 000020 

BIT05 = 000040 

BIT06 = 000100 

BIT07 = 000200 

BIT08 = 000400 

3IT09 = 0C1000 

BIT1 = 0C0002 

BIT10 = 002000 

BIT11 = 004000 

3IT12 = 010000 

BIT13 = 020000 

BIT14 = 040000 

3IT15 = 100000 

BIT2 = 000004 

3IT3 = 000010 

BIT4 = 000020 

3IT5 = 000040 

3IT6 = 000100 

3IT7 = 000200 

BIT8 = 000400 

BIT9 = 001000 

3KDEF = 000002 

3KM0D = 000020 

BKMODE= 040000 

BKSLSH= 000134 

CAPRES= 000004 

CASTAT= 000004 

CDERCT= 000146 

CDWDCT= 000144 

CKTIIVi = 100000 

CLKPRE= 000001 

CM.DIS OOOOOCRG 

CM.TBL 000036RG 

CONFIG= 000056 

CGOVF = 000001 

CR = 000015 

CSRA = 000100 



13 



MACY11 30A(1052) 20-SEP-78 
SYMBOL TABLE 



17:47 PAGE 20 



SEQ 0372 



CSRC = 000102 
CTRLC = 000003 
CTRLO = 000017 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= C00400 
DROPMO= 100000 
DSEVNT= 000014 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000034 
DT.CFO= 000014 
DT.CF1= 000016 
DT.ERR= 000020 
DT.ESI= 000044 
DT.EVN= COOOOO 
DT.EXS= 000060 
DT.FCH= 000037 
DT.FCN= C00036 
DT.HMX= 000104 
DT.KBE= 000024 
DT.KBP= 0C0025 
DT.KBR= 000022 
DT.KBU^ 0G0030 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = 000002 
DT.PFL= 000062 
DT.PSW= 000004 
DT.PTA= 000064 
DT.RCS= 000102 
DT.REL= 000040 
DT.SCT= 000065 
DT.SMX= 000106 
DT.SP = 000006 
DT.SSI= 000046 
DT.ST0= 000010 
DT.ST1= 000012 
DT.SWR= 0C0056 
DT.3YP= 000072 
DT.WBU= 000050 
DT.WHL= 000C54 
DT.WLL= 000052 
DVID1 = 00 0014 
ECCMEM= 000100 
ECCSTA= 0C0010 
ENBEOP= 010000 
ENBNUL= C00001 
ENDLST= 000000 
E0P3IT= 000001 



ERRTYP= 000106 
EVNTBE= 000200 
EVNTHD= 000200 
EVNTKT= 000203 
EVNTPE= 000202 
EVNTRE= 000201 
FATERR= 100000 
HRDCNT= 000044 
HRDPAS= 000050 
ICONT = 000036 
ICOUNT= 000040 
IDNUM = 000122 
IE = 000100 
INDPAR= 000040 
INHDRP= 040000 
INHEPR= 020000 
INHREL= 001000 
INHRRE= 000400 
INIT = 000030 
INTRx = 0C0120 
IOMOD = 100000 
IOMODP= 102000 
IOMODR= 112000 
IOMODX= 110000 
JACK = 035060 
KDES = ****** G 
KEXAM = ****** G 
KFILL = ****** G 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172345 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 
KIPDRO= 172300 
KIPDR1- 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KLPOFF= ****** G 
KLPON - ****** G 
KMAP = ****** G 
KMOD = ****** G 
KPOFF = ****** G 
KPON = ****** G 
KROTOF= ****** G 
KROTON= ****** G 
KRUN = ****** G 



KSEL = ****** G 

KSUM = ****** G 

KSWR = ******'G 

KTERRO= 000040 

KTPRES= 000400 

KTSTAT= 000020 

KTXTND= 040000 

LF = 000012 

LPSTAT= 000001 

MAPSTA= 000200 

MED = 076600 

MEMPAS= 040000 

MODEXH= 004000 

MODHOL= 002000 

MODSEL= 001000 

MSGCKD= 000010 

MSGCKS- 000011 

MSGDER= 000005 

MSGDRP= 000017 

MSGECH= 177777 

MSGEOP= 00C013 

M5GHDR= 000004 

MSGHNG= 000022 

MSGHRD= 000007 

MSGMAP= 000021 

MSGNUL= 177775 

MSGPOP= 000002 

MSGPRM= 177776 

MSGRES= 000001 

MSGSFT= 000006 

MSGSKE= 000003 

MSGSr>/!B= 000015 

MSGSMH= 0C0014 

MSGSMS= 000016 

WISGSTD= 000000 

MSGSY5= 000012 

MSGVEC= 000020 

NBKMOD= 001000 

NCPUOP= 000020 

NOAPTY= 000002 

NULL = 000000 

OWEN = 024020 

PAERR = 000010 

PARPRE= 002C00 

PARSTA= 000100 

PASCNT= 000034 

PDPLSI= 020000 

PDP60 = 004000 

PDP70 = 010C00 

PRIO = 000000 

PRIl = 000040 

PRI4 = 0C0200 

PRI5 = 0C0240 



PRI6 = 000300 

PRI7 = 000340 

PRO = 000000 

PR4 = 000200 

PR5 = 000240 

PR6 = 000300 

PR7 = 000340 

PS = 177776 

PSW = 177 776 

RANNUM= 000054 

RBUFEA= 000130 

R3UFPA= 000126 

R3UFSZ= 000132 

R3UFVA= 000124 

RDSERV= 000101 

RDWHMI= 000022 

RELERR= 000020 

RELMOD= 020000 

RELTIM= 010000 

RES1 = 000056 

RES2 = 000060 

RICHAR= 031060 

RPTDAT= 002000 

RSTRT = 000112 

RU30UT= 000177 

RUNMOD= 100000 

R5VALU= 001740 

SAM = 075464 

S3ADR = 000102 

S3KM0D= OCOOOO 

5BKSEL= 010000 

SC.ADR= 000C06 

SC.ALC= 000014 

SC.APC= 000016 

SC.CKL= 000002 

SC.CKP= 000004 

SC.CLO= 000000 

SC.HLD= 000010 

SC.SCA= 000012 

SENDLS= 177777 

SOFCNT= 000042 

SOFPAS= 000046 

SPACE = 000040 

3P0INT= 000032 

SPVALU= 002200 

SRO = 177572 

SR1 = 177574 

SR2 = 177576 

SR3 = 172516 

STAT = 000026 

STATBI= 064757 

STAT1 = 000027 

SUSPND= 000001 



CMDTB3 - COMMAND TABLE 3 MACY11 30A(1052) 20-SEP-78 

CMDTB3.MAC 28-JUL-78 09: 13 SYMBOL TABLE 



SVRO 


= 000062 


SVR1 


= 000064 


SVR2 


= 000066 


SVR3 


= 000070 


SVR4 


= 000072 


SVR5 


= C00074 


SVR5 


= 000076 



SYSCNT= 000052 
SYSERR= 000100 



TMPIO = 
TQOVF = 
UIPARO= 
UIPAR1= 
UIPAR2= 
UIPAR3= 
UIPAR4= 
UIPAR5= 
UIPAR6= 



000002 
0C0002 
177640 
177642 
177644 
177646 
177650 
177652 
177654 



UIPAR7= 
UIPDR0= 
UIPDR1 = 
UIPDR2= 
UIPDR3= 
UIPDR4= 
UIPDR5= 
UIPDR6= 
UIPDR7= 
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177653 WASADR= 000104 

177600 WBSTAT= 000040 

177602 W3UFEA= 000136 

177604 WBUFPA= 000134 

177606 WBUFRQ= 000140 

177610 WBUFSZ= 000142 

177612 WDFR = 000115 

177614 WDTO = 000114 

177616 WTINRE= 000352 







SEO 0373 


WTWKMI= 


0C0222 




XFLAG = 


000005 




XQFF = 


000023 




XON = 


000021 




= 


000146R 





A3S. 



000000 
000146 



000 

001 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ:CMDTB3 f DSKZ:CMDT 33= SPMAC/ML, EQUATE, CMDTB3 
RUM-TIME: .7 .6 .3 SECONDS 
RUN-TIME RATIO: 4/1=2.5 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1C52) 20-SEP-73 17:47 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0374 

3 COMMON EQUATE MODULE 

537 COMMON DEFINITIONS <& REFERENCES 

540 000000' .PRINT ;SPMAC: VERSION 1.1 

573 CQINI (FUNCTIONAL DESCRIPTION) 

616 CQINI (CODE) 

633 ENQCQ (FUNCTIONAL DESCRIPTION) 

683 ENQCQ (CODE) 

748 DEQCQ (FUNCTIONAL DESCRIPTION) 

797 DEQCQ (CODE) 
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508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
52S 
530 
531 
532 
533 
534 
535 
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COMMON EQUATE MODULE 
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SEQ 0375 



TITLE CTLQUE (CONTROL QUEUE MODULES) 
IDENT /VO.O/ 



MODULE PACKAGE NAME: 
CTLQUE 

FUNCTIONAL DESCRIPTION: 

THIS MODULE CONTAINS THREE MODULES. THE FIRST ONE 

INITIALIZES THE CONTROL QUEUE AND THE NEXT TWO ACTUALLY DO THE 

ENQUEING AND DEQUEING OF ITEMS FROM THE CONTROL QUEUE. 

THE DESCRIPTION IS GIVEN UNDER THE RESPECTIVE MODULES. 

THESE MODULES ARE: 

1. CQINI - INITIALIZES THE CONTROL QUEUE. 

2. ENQCQ - ENQUES ITEMS ON THE CONTROL QUEUE. 

3. DEQCQ - DEQUES ITEMS FROM THE CONTROL QUEUE. 

THE CONTROL QUEUE AND THE QUEUE POINTERS ARE CONTAINED IN 
THIS MODULE FOR USE BY THE ABOVE-NAMED MODULES LOCALLY. 

VERSION: 
0.0 

EDIT DATE BY REASON 



000000 
000000 



000001 
000001 
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537 
530 
539 
540 
(1 ) 
541 
542 
543 
544 
545 
545 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 



000000' 000000 



ooooo: 



0OO0OCG 



000004' OOOOOOG 

000006' 000000 

000010' OOOOOOG 

000012' OOOOOOG 

000014' OOOOOOG 
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COMMON DEFINITIONS <& REFERENCES 

.SBTTL COMMON DEFINITIONS & REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 

**************** 
REFERENCED BY OTHER MODULES: 



SEQ 0376 



GLOBL COINI 
GLOBL ENQCQ 
GLOBL DEQCQ 

si:*************** 

GLOBAL REFERENCES: 

.GLOBL GETPSW 

.GLOBL OV.CQ 
.GLOBL OV.HICO 
.GLOBL OV.CQSIZ 
• **************** 

: LOCAL STORAGE 



CQ.PSW: 
CQ. INP: 
CQ.OTP: 
CQ.CT: 
CO. Hi: 





OV.CQ 

OV.CQ 



OV.HICQ 



CQ.MAX: OV.CQSIZ 
CQ.ICQ: OV.CQ 



INITIALIZE CONTROL QUEUE 

ENQUE ITEMS ON THE CONTROL QUEUE 

DEQUE ITEMS FROM THE CONTROL QUEUE 



;GET CALLER'S PS WORD ROUTINE 
; CONTROL QUEUE BUFFER 



LOC. TO SAVE CALLER'S PS WORD 

ENQUE POINTER 

DEQUE POINTER 

CURRENT ENTRY COUNT 

QUEUE'S HIGH ADDR 

MAX NO. OF ENTRIES ALLOWED 

START OF CQ 
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573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
60C 
601 
602 
603 
604 
505 
606 
607 
608 
609 
610 
611 
612 
613 
614 
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19-2 



SEQ 0377 



SBTTL CQINI (FUNCTIONAL DESCRIPTION) 

++ 

MODULE NAME: 
CQINI 

FUNCTIONAL DESCRIPTION: 

THIS MODULE INITIALIZES THE CONTROL QUEUE. IT RESETS THE ENQUE 
AND DEQUE POINTERS TO THE START OF THE QUEUE, AND SETS THE 
COUNT TO ZERO. 

INPUTS: 

NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 

NONE 

FUNCTIONAL SIDE EFFECTS: 

NONE 

CALLING SEQUENCE: 
CALL CQINI 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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SEQ 0378 



616 
617 
618 
619 
620 
621 
622 
623 
524 
625 
626 
(2) 
62? 
(4) 
328 
(4) 
629 
(4) 
530 
(3) 
(3) 
(2) 
631 



000016 

000016 

000016 

0C0016 

0C0024 

000024 

000032 

000032 

000036' 

CC0036 1 

000036' 

000036' 000207 



' 016767 177772 177756 

t 

' 016767 177764 177752 

c 

1 005067 177750 



.SBTTL CQINI (CODE) 

; ROUTINE TO INITIALIZE CONTROL QUEUE 



INIT INPUT, OUTPUT AND COUNT 

ROUTINE CQINI 

LET CQ. INP := CQ. ICQ 

LET CQ.OTP := CQ.ICQ 

LET CQ.CT := #0 

ENDRTN 



CQINI : 





MOV 


CQ 


ICQ 


CQ.INP 




MOV 


CQ 


ICQ 


CQ.OTP 




CLR 


CQ 


CT 




50000S: 










500015: 











RTS 



PC 



CTLQUE (CONTROL QUEUE MODULES) 
CTLQUE.MAC 28-JUL.-78 09: 13 

633 
634 
635 
636 
637 
633 
639 
640 
541 
642 
643 
544 
645 
S4S 
647 
548 
549 
650 
651 
552 
553 
654 
655 
556 
557 
658 
659 
660 
661 
662 
563 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
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ENQCQ (FUNCTIONAL DESCRIPTION) 

.SBTTL ENQCQ (FUNCTIONAL DESCRIPTION) 



++ 

MODULE NAME: 
ENQCQ 



SEQ 0379 



FUNCTIONAL DESCRIPTION: 

THIS MODULE HANDLES QUEUEING OF ITEMS ON THE CONTROL 
QUEUE. 

INPUTS: 

1 . DATA TABLE ADDRESS 

2. MODULE'S HEADER ADDRESS 

3. RETURN ADDRESS 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.ERR 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 

GETPSW ;GET CALLER'S PS WORD 

FUNCTIONAL SIDE EFFECTS: 

ENQUEING IS DONE AT PRIORITY LEVEL 7 WHICH 
SERVES AS A LOCK MECHANISM. 

CALLING SEQUENCE: 

CALL ENQCQ IN <DTADR , HDRADR , RETADR> 

WHERE DTADR = DATA TABLE ADDRESS 
HDRADR = HEADER ADDRESS 
RETADR = RETURN ADDRESS 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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SEQ 0360 



683 








684 








S85 


000040 ' 






(2) 


000040' 






686 








687 








683 








639 








690 








591 


000040' 






(2) 


000040' 


01 0046 




692 








693 








694 








595 








696 








697 








598 








699 


000042' 






(6) 


000042 ' 


026767 


177740 177742 


(9) 


000050 ' 


00241 




700 


000052' 






(4) 


000052' 


01 6500 


000000 


701 


000056' 






(6) 


000056' 


052760 


100001 000020 


702 


000064' 






(2) 


000064' 


012600 




703 


000066' 






(2) 


000066' 


000261 




(4) 


000070 ' 


000443 




704 


000072 ' 






(4) 


000072' 






705 








706 








707 








708 








709 








710 








711 


000072 ' 






(4) 


000072 ' 


162705 


000002 


(3) 


00 00 76' 


004767 


OOOOOOG 


(4) 


000102 ' 


01 2567 


177672 


712 


000106' 






(2) 


000106' 


01 2746 


000340 


713 


0C01 12' 






(2) 


0001 12' 


012746 


000120' 


714 


0001 16' 






(2) 


0001 16' 


000002 




715 








716 








717 








718 








719 








720 








721 








722 


000120' 







.SBTTL ENQCQ (CODE) 
ROUTINE ENQCQ <DT , HDR , RET> 

SAVE RO 
PUSH RO 



IF THE COUNT IS EQUAL TO MAXIMUM, THE 
QUEUE IS FULL. SET ERROR FLAG IN THE 
STATUS INDICATOR AND RETURN WITH ERROR 



IF CQ. CT GE CQ.MAX THEN 

LET RO := DT(R5) 

LET DT.ERR(RO) := DT.ERR(RO) SET. BY #CQOVF ! FATERR 

POP RO 

RETURN ERROR 

ENDIF 



SAVE CALLER'S PS WORD AND CHANGE 
PRIORITY LEVEL TO 7 



CALL GETPSW OUT <CQ.PSW> 

PUSH #PR7 
PUSH #1$ 
INLINE <RTI> 



IF THE ENQUE POINTER IS AT HIGH 
ADDRESS, RE-INITIALIZE IT TO THE 
START ADDRESS OF THE QUEUE. 

INLINE <1$:> 



ENQCQ: 



MOV 



R0,-(SP) 





CMP 


CQ.CT.CQ.MAX 




BLT 


50002$ 




MOV 


DT(R5) ,R0 




BIS 


#CQOVF!FATERR,DT 




MOV 


(SP)+,R0 




SEC 






BR 


50001$ 


50002$: 







SUB 


#1 *2, R5 


JSR 


PC, GETPSW 


MOV 


(R5)+,CQ.PSW 


MOV 


#PR7,-(SP) 


MOV 


#1$,-(SP) ' 



RTI 
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IF CQ. INP EQ CO. HI THEN 



SEO 0381 



(2) 


000120 ' 






723 


000120 ' 






(6) 


0001 20' 


026767 


177656 


(9) 


0001 26' 


001003 




724 


C00130' 






(4) 


000130' 


016767 


177660 


725 


000136' 






(4) 


000136' 






726 








727 








728 








72S 








730 








731 


000136' 






(4) 


000136' 


01 6700 


177640 


732 


000142' 






(4) 


000142' 


016520 


000002 


733 


000146' 






(4) 


000146' 


016520 


000004 


734 


000152' 






(4) 


000152' 


01 0067 


177624 


735 


000156' 






(6) 


000156' 


005267 


177624 


736 








737 








736 








739 








740 








741 


000162' 






(2) 


000162' 


016746 


177612 


742 


000166' 






(2) 


000166' 


012746 


000174 


743 


0001 72' 






(2) 


000172' 


000C02 




744 


000174' 






(2) 


0001 74' 






745 


000174 ' 






(2) 


000174' 


01 2S00 




746 


000176' 






(3) 


000176' 






(2) 


000176' 


C00241 




(3) 


000200' 






(2) 


000200' 


000207 





177644 



LET CO. INP := CQ. ICQ 

ENDIF 

r 

NOW ENQUE THE ENTRY. 

LET RO := CQ.INP 

LET (R0)+ := HDR(R5) 

LET (R0)+ := RET(R5) 

LET CQ.INP := RO 

LET CQ.CT := CQ.CT + #1 

RESTORE CALLER'S PS WORD AND RETURN 

PUSH CQ. PSW 
PUSH #2$ 
INLINE <RTI> 
INLINE <2$:> 
POP RO 
ENDRTN 



50003$: 



50000$: 



50001$: 



1$: 

CMP 
BNE 

MOV 



MOV 
MOV 
RTI 
2$: 
MOV 

CLC 
RTS 



CQ. INP, CO. HI 
50003$ 

CQ. ICQ, CQ.INP 



MOV 


CQ. INP.RO 


MOV 


HDR(R5) , (R0) + 


MOV 


RET(R5) , (R0) + 


MOV 


RO.CQ. INP 


INC 


CQ.CT 



CQ.PSW.-(SP) 
#2$,-(SP) 



(SP)+,RO 



PC 
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748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
753 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
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.SBTTL DEOCQ (FUNCTIONAL DESCRIPTION) 



++ 
MODULE NAME: 
DEQCQ 



SEQ 0382 



FUNCTIONAL DESCRIPTION*. 

THIS MODULE HANDLES DEQUEUEING OF ITEMS FROM THE CONTROL 
QUEUE. 

INPUTS: 

NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

1. MODULE'S HEADER ADDRESS 

2. RETURN ADDRESS 

IMPLICIT OUTPUTS: 

ERROR RETURN INDICATES QUEUE UNDERFLOW. 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
GETPSW 

FUNCTIONAL SIDE EFFECTS: 

DEQUEING IS DONE AT PRIORITY LEVEL 7 WHICH 
SERVES AS A LOCK MECHANISM. 

CALLING SEQUENCE: 

CALL DEQCQ OUT <HDRADR , RETADR> 

WHERE HDRADR = HEADER ADDRESS 
RETADR = RETURN ADDRESS 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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SEQ 0383 



797 








798 








799 


000202' 






(2) 


000202' 






800 








801 








802 








803 








804 








305 








80S 


000202' 






(6) 


009202' 


005767 


177600 


(9) 


000206' 


003002 




807 


000210' 






(2) 


000210' 


000261 




(4) 


000212' 


000444 




808 


000214' 






(4) 


0C0214' 






809 








810 








811 








812 








313 








814 








815 


000214' 






(4) 


000214' 


162705 


000002 


(3) 


000220' 


004767 


OOOOOOG 


(4) 


000224' 


012567 


177550 


816 


000230' 






(2) 


000230' 


01 2746 


000340 


817 


000234' 






(2) 


0C0234' 


012746 


000242 ' 


818 


000240' 






(2) 


000240' 


000002 




819 








820 








821 








822 








823 








824 








825 








826 


000242' 






(2) 


000242' 






827 


000242 ' 






(6) 


000242' 


026767 


177536 177540 


(9) 


000250 ' 


001003 




828 


000252' 






(4) 


000252' 


012767 


OOOOOOG 177524 


829 


000260' 






(4) 


000260' 






830 








831 








832 








833 








824 








835 


000260' 







.SBTTL DEQCQ (CODE) 
ROUTINE DEQCQ <HDR f RET> 



; IF COUNT IS EQUAL TO ZERO, THE QUEUE 
; IS EMPTY. RETURN WITH ERROR. 



DEQCQ: 



IF CQ.CT LE #0 THEN 



RETURN ERROR 



TST 

BGT 

SEC 
BR 



CQ.CT 
50002$ 



50001$ 



ENDIF 



; + 



50002$: 



; SAVE CALLER'S PS WORD AND 
; CHANGE PRIORITY LEVEL TO 7 



CALL GETPSW OUT <CQ.PSW> 

PUSH #PR7 
PUSH #3$ 
INLINE <RTI> 



SUB 
USR 
MOV 

MOV 

MOV 

RTI 



#1*2, R5 
PC, GETPSW 
(R5)+,CQ.PSW 

#PR7,-(SP) 

#3$,-(SP) 



; + 



IF DEQUE POINTER IS AT HIGH ADDRESS, 
RE-INITIALIZE IT TO THE QUEUE'S 
START ADDRESS. 



INLINE. <3$:> 

IF CQ.OTP EQ CQ.HI THEN 

LET CQ.OTP := #OV.CQ 
ENDIF 

; + 

; NOW DEQUEUE THE ENTRY. 
i — 

PUSH RO 



3$: 

CMP 
ENE 

MOV 



CQ.OTP, CQ.HI 
50003$ 

#OV.CQ, CQ.OTP 



50003$: 
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LET RO := CQ.OTP 

LET HDR(R5) := (R0) + 

LET RET(R5) : = (R0) + 

LET CO-OTP := RO 

LET CQ.CT : = CQ.CT - #1 

RESTORE CALLER'S PS WORD AND RETURN 

PUSH CQ.PSW 
PUSH #4$ 
INLINE <RTI> 
INLINE <4$:> 
POP RO 
ENDRTN 

.END 



(2) 


000260' 


01 0046 




836 


000262 ' 






(4) 


000262' 


01 6700 


177516 


837 


000266' 






(4) 


000266' 


012065 


000000 


833 


000272' 






(4) 


000272' 


01 2065 


000002 


839 


000276' 






(4) 


000276' 


01 0067 


177502 


840 


000302' 






(6) 
841 
342 


000302' 


005367 


177500 








843 








344 








845 








846 


000306' 






(2) 


000306' 


016746 


177466 


847 


000312' 






(2) 


000312' 


01 2746 


000320 


S48 


000316' 






(2) 


000316' 


000002 




849 


000320 ' 






(2) 


00032C ' 






850 


000320 ' 






(2) 


000320 ' 


01 2600 




851 


000322 ' 






(3) 


000322 ' 






(2) 


000322 ' 


000241 




(3) 


000324' 






(2) 


000324' 


000207 




852 




000001 







SEQ 0384 


MOV 


RO,-(SP) 


MOV 


CQ.OTP.RO 


MOV 


(R0)+,HDR(R5) 


MOV 


(R0)+ f RET(R5) 


MOV 


RO.CQ.OTP 


DEC 


CQ-CT 



MOV 


CQ.PSW.-(SP) 


MOV 


#4$,-(SP) 


RTI 




4$: 




MOV 


(SP)+,RO 



50000$: 



50001$: 



CLC 



RTS 



PC 
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ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001 000 


ADR 


0C0006 


APTFER= 


000004 


APTPRE= 


0C0200 


ASB 


000106 


ASSEM3= 


000010 


ASTAT = 


0001 04 


AUTO = 


000010 


AUTOST= 


020000 


A WAS = 


0001 10 


BITO = 


00C001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


3IT04 = 


0CC02C 


BIT05 = 


000040 


BIT06 = 


0001 00 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


3IT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


1C0000 


BIT2 = 


000004 


8IT3 = 


000010 


BIT4 = 


000020 


3IT5 = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


0010C0 


BKDEF = 


000002 


BKMOD = 


000020 


3KM0DE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


0C0146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQINI 


000016RG 


CQCVF = 


000001 


CQ.CT 


000006R 


CO. HI 


000C10R 



CO. ICO 

CQ. INP 

CQ. MAX 

CQ-OTP 

CQ.PSW 

CR 

CSRA = 

CSRC = 

CTRLC = 

CTRLO = 

CTRLU = 

DCEVNT= 

DEFRTN= 

DEQCO 

DIAGMC= 

DROPMO= 

DSEVNT= 

DT 

DT.ADD= 

DT.AP = 

DT.APK= 

DT.BLS= 

DT.CFO= 

DT.CF1= 

DT.ERR= 

DT.ESI= 

DT.EVN= 

DT.EXS= 

DT. FCH= 

DT.FCN= 

DT.HMX= 

DT.KBE= 

DT.KBP= 

DT.KBR= 

DT.KBU= 

DT.MLS= 

DT.MTI= 

DT.OFF= 

DT.PAS= 

DT.PC = 

DT.PFL= 

DT.PSW= 

DT.PTA= 

DT.RCS= 

DT.REL= 

DT.SCT= 

DT.SMX= 

DT.SP = 

DT.SSI= 

DT.STO= 

DT.ST1= 

DT.SWR= 

DT.SYP= 



000014R 

CC0002R 

000012R 

000004R 

OOOOOOR 

000015 

000100 

000102 

000003 

000C17 

000025 

00001 1 

OC0400 

000202RG 

000000 

100000 

000014 

000000 

000042 

000100 

000076 

000034 

000014 

000016 

000020 

000044 

000000 

000060 

000037 

000036 

000104 

000024 

000026 

000022 

000030 

000032 

0001 10 

000070 

000074 

000002 

C00062 

000004 

000064 

000102 

000040 

000066 

000105 

000006 

000046 

000010 

000012 

000056 

000072 
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l 




DT.WBU= 


000050 


KIPDR7= 


172316 


DT.WHL= 


000054 


KTERRO= 


000040 


DT.WLL= 


000052 


KTPRES= 


000400 


DVID1 = 


000014 


KTSTAT= 


000020 


ECCMEM= 


000100 


KTXTND= 


040000 


ECCSTA= 


000010 


LF 


000012 


ENBEOP= 


010000 


LPSTAT= 


000001 


ENBNUL= 


000001 


MAPSTA= 


000200 


ENDLST= 


000000 


MED 


076600 


ENQCQ 


000040RG 


MEMPAS= 


040000 


EOPBIT= 


000001 


MODEXH= 


004000 


ERRTYP= 


000106 


MODHOL= 


002000 


EVNTBE= 


000200 


MODSEL= 


001000 


EVNTHD= 


000200 


MSGCKD= 


000010 


EVNTKT= 


000203 


MSGCKS= 


00001 1 


EVNTPE= 


000202 


MSGDER= 


000005 


EVNTRE= 


0C0201 


MSGDRP= 


000017 


FATERR= 


100000 


MSGECH= 


177777 


GETPSW= 


****** G 


MSGEOP= 


000013 


HDR 


000000 


MSGHDR= 


000004 


HRDCNT= 


000044 


MSGHNG= 


000022 


HRDPAS* 


000050 


MSGHRD= 


000007 


ICONT = 


000036 


MSGMAP= 


000021 


ICOUNT= 


000040 


MSGNUL= 


177775 


IDNUM = 


000122 


MSGPOP= 


000002 


IE 


000100 


MSGPRM= 


177776 


INDPAR= 


000040 


MSGRES= 


000001 


INHDRP= 


040000 


MSGSFT= 


00C006 


INHEPR= 


020000 


MSGSKE= 


000003 


INHREL= 


001 000 


MSGSM3= 


000015 


INHRRE= 


000400 


MSGSMH= 


000014 


INIT = 


000030 


MSGSMS= 


000016 


INTR = 


000120 


MSGSTD= 


000000 


IOMOD = 


100000 


MSGSYS= 


000012 


IOMODP= 


102000 


MSGVEC= 


000020 


IGMODR= 


1 12000 


NBKMOD= 


001000 


IOMODX= 


1 100C0 


NCPUOP= 


000020 


JACK = 


035060 


NOAPTY= 


000002 


KIPAR0= 


172340 


NULL = 


000000 


KIPAR1= 


172342 


OV.CO = 


****** Q 


KIPAR2= 


172344 


OV.CQS= 


****** Q 


KIPAR3= 


172346 


OV.HIC= 


****** Q 


KIPAR4= 


172350 


OWEN = 


024020 


KIPAR5= 


172352 


PAERR = 


000010 


KIPAR6= 


172354 


PARPRE= 


002000 


KIPAR7= 


172356 


PARSTA= 


000100 


KIPDR0= 


172300 


PASCNT= 


000034 


KIPDR1= 


172302 


PDPLSI= 


020000 


KIPDR2= 


172304 


PDP60 = 


004000 


KIPDR3= 


172306 


PDP70 = 


010000 


KIPDR4= 


172310 


PRIO = 


000000 


KIPDR5= 


172312 


PRI1 = 


000040 


KIPDR6= 


172314 


PRI4 = 


000200 



SEQ 0385 



PRI5 = 

PRI6 = 

PRI7 = 

PRO 

PR4 

PR5 

PR6 

PR7 

PS 

PSW 

RANNUM= 

R3UFEA= 

R8UFPA= 

RSUFSZ= 

RBUFVA= 

RDSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RES1 = 

RES2 = 

RET 

RICHAR= 

R?TDAT= 

RSTRT = 

RUBOUT= 

RUNMOD= 

R5VALU= 

SAM 

SBADR = 

SBKMOD= 

S3KSEL= 

SC.ADR= 

SC.ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SCFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 



000240 
000300 
000340 
000000 
000200 
000240 
000300 
000340 
177776 
177776 
000054 
000130 
000126 
000132 
000124 
000101 
000022 
000020 
020000 
010000 
000056 
000060 
000002 
031060 
002000 
0001 12 
000177 
100000 
001 740 
075464 
000102 
000000 
010000 
000006 
000014 
0000I6 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 



CTLQUE (CONTROL QUEUE MODULES) 
CTLQUE.MAC 23-JUL-78 09M3 
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SEQ 0386 



STAT1 = 


000027 




SUSPND= 


000001 




SVRO = 


000062 




SVR1 


000064 




SVR2 = 


000066 




SVR3 = 


000070 




SVR4 = 


000072 




SVR5 = 


000074 




SVR5 = 


000076 




SYSCNT= 


000052 




SYSERR= 


000100 




TMPIO = 


00C002 




TOOVF = 


000002 




UIPARO= 


177640 




UIPAR1= 


177642 




UIPAR2= 


177644 




UIPAR3= 


177646 




UIPAR4= 


17765C 




UIPAR5= 


177652 




UIPAR6= 


177654 




. A3S. 


000000 


000 




000326 


001 



UIPAR7= 177656 
UIPDRO= 177600 
UIPDR1= 177602 
UIPDR2= 177604 
UIPDR3= 177606 
UIPDR4= 177610 
UIPDR5= 177612 
UIPDR6= 177614 
UIPDR7= 177616 
WA5ADR= 000104 
WBSTAT= 000040 
WBUFEA= 000136 
WBUFPA= 000134 
WBUFRQ= 000140 
WBUFSZ= 0C0142 
WDFR = 000116 
WDTO = 000114 
WTINRE=. 000352 
WTWKMI= 0C0222 
XFLAG = 000005 



XOFF = 000023 
XGN = 000021 
$BGNLE= 177777 
$ERFLG= 000400 
$F$AND= 000310 
$F$BAD= 000401 
$F$BLA= 000170 
$F$CAS= 000150 
$F$DEC= 000220 
$F$DO = 0C0340 
$F$FAL= 0C0405 
$F$GOO= 000400 
$F$IF = 000110 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 000160 
$F$NO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 



$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 
$F$YES= 000402 
$IFLEV= 177777 
$ISKO = 000001 
$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000001 
$NESTL= 177777 
SNSKO = 000300 
SNSK1 = 000110 
$SAVLE= 177777 
$TAGLE= 177777 
$TAGNU= 050004 
$TEMP = 000300 
STSKO = 050003 
$$ARGC= 000004 



S$BYTE= 000403 
$$CASE= 000000 
$$DST = 000000 
$3EL0C= 000402 
$$ERFL= 000000 
$SFLAG= 000001 
$$FRCM= 000001 
$$L0C = 000250R 
$$L0CN= 000000 
$$REG = 177777 
$$R£TU= 000001 

$sr:ni= 050000 

$$RTN2= 050001 

$$SRC = 000000 

$$TGSV= 000000 

$$TGS1= 000000 

$$TGS2= 000000 

$$TQ = 000000 

$$$TAG= 050000 

= 000326R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSK2:CTL0UE,DSK2:CTL0UE=SPMAC/ML, EQUATE, CTLQUE 
RUN-TIME: 14 4 .4 SECONDS 
RUN-TIME RATIO: 40/19=2.0 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:48 

EQUATE. MAC 13-5EP-78 16: 13 TABLE OF CONTENTS SEQ 0387 

3 COMMON EQUATE MODULE 

531 COMMON DEFINITIONS AND REFERENCES FOR CONOF 

534 000000' .PRINT ;SPMAC: VERSION 1.1 

577 KCON PROCESS THE 'CON' (CACHE ON) KEYBOARD COMMAND 

629 KCCN ROUTINE 

722 KCOFF PROCESS THE 'COFF' KEYBOARD COMMAND 

772 KCOFF PROCESS THE KEYBOARD COMMANDS 'COFF' 



CONOF PROCESS THE 'CON' AND 'COFF' KEYBOARD COMMAND MACY1 1 30A(1052) 
CONOF. MAC 08-AUG-78 12:21 COMfviON EQUATE MODULE 
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508 
509 
510 
51 1 
512 
513 
514 
515 
51 6 
517 
513 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 



SEQ 0388 



TITLE 
IDENT 



CONOF 

/vo.o/ 



PROCESS THE 'CON' AND 'COFF' KEYBOARD COMMAND 



MODULE PACKAGE NAME: 
CONOF 

FUNCTIONAL DESCRIPTION: 

THIS MODULE PACKAGE CONTAINS: 

1. KCON - PROCESS THE 'CON' KEYBOARD COMMAND 

2. KCOFF - PROCESS THE 'COFF' KEYBOARD COMMAND 

VERSION: 
0.0 



EDIT 



BY 



DATE 



REASON 



CONOF PROCESS THE 'CON 1 AND 'COFF' KEYBOARD COMMAND MACY1 1 30A(1052) 20-SEP-78 17:48 PAGE 19-1 
CONOF. MAC 08-AUG-78 12:21 COMMON DEFINITIONS AND REFERENCES FOR CONOF 



SEQ 0389 



531 
532 
533 
534 
(1) 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
548 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 



571 

572 

573 

574 
575 



000000' 
000000' 



000000' 
000006' 
000014' 
00C022' 
000030 ' 
000036' 
000044' 
000050' 
000056' 
000062' 
000070' 



000001 
000001 



00035: 



041445 
042440 
026440 
052047 
0201 16 
040503 
0471 17 
047516 
042510 
040503 
0431 1 7 
000076 



041501 
051 122 
053440 
052040 
0471 17 
044103 
000045 
041440 
000045 
044103 
022506 



.SBTTL COMMON DEFINITIONS AND REFERENCES FOR CONOF 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION i.1 

$LSTTAG=1 
$LSTIN=1 
**************** 

REFERENCED BY OTHER MODULES: 



GLOBL KCON 
GLOBL KCOFF 



GLOBAL REFERENCES: 



GLOBL 


CCNTRL 


GLOBL 


SAVREG 


GLOBL 


RESREG 


GL03L 


ARGCHK 


GLOBL 


CM.ARG 


GLOBL 


KONTRL 



;KCON MODULE ENTRY POINT 
;KCOFF MODULE ENTRY POINT 



CONTROL WORD FOR CACHE REG, 

SAVE REGISTERS 

RESTORE REGISTERS 

CHECK AN ARGUMENT 

'INVALID ARGUMENT' MESSAGE 

CONTROL WORD 



; FLUSH 11/60 CACHE 



**************** 
**************** 



**************** 
LOCAL EQUATES: 
CFLUSH=352 

**************** 

LOCAL STORAGE: 



042510 CO. BAD: .ASCIZ /%CACHE ERROR - WON'T TURN ON%/ 

051 1 17 

0471 17 

051 1 25 

000045 

0201C5 CO. ON: .ASCIZ /CACHE ON%/ 

0415C1 CO. NUN: .ASCIZ /NO CACHE%/ 

020105 CO. OFF: .ASCIZ /CACHE OFF%/ 
000 

.EVEN 



CONOF PROCESS THE 'CON 1 AND 
CONOF. MAC 08-AUG-76 12:21 

577 

578 

579 

580 

581 

582 

583 

584 

585 

585 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

504 

605 

606 

607 

608 

509 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 



COFF 
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KCON PROCESS THE 'CON' (CACHE ON) KEYBOARD COMMAND 
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SEQ 0390 



SBTTL KCON PROCESS THE 'CON' (CACHE ON) KEYBOARD COMMAND 
IDENT /V0.0/ 

++ 

MODULE NAME: 
KCON 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PROCESSES THE 'CON' (CACHE ON) KEYBOARD COMMAND. IT 

WILL FIRST CHECK FOR THE PRESENCE 

OF ILLEGAL ARGUMENTS. IF ANY, AN ERROR MESSAGE IS OUTPUTTED 

AND IF NOT, AND IT'S AN 11/60, THE CACHE IS FIRST 

CLEARED. 

IF NO CACHE, AN ERROR MESSAGE IS STUFFED. 

INPUTS: 

1 . ADDRESS OF DATA TABLE 

2. DECODE BUFFER PTR 

IMPLICIT INPUTS: 
DT.CFO 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.KBRSP 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 

1 . ARGCHK - CHECK AN ARGUMENT 

2. SAVREG - SAVE REGISTERS 

3. RESREG - RESTORE REGISTERS 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL KCON IN <DTADR , BUFPTR> 
WHERE DTADR = ADDRESS OF DATA TABLE 
BUFPTR = DECODE BUFFER POINTER 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



CONOF 
CONOF 

629 
630 
631 
(2) 
632 
633 
634 
635 
636 
637 
(3) 
633 
(4) 
639 
(4) 
640 
641 
642 
643 
644 
645 
(4) 
(3) 
(4) 
(3) 
(3) 
(4) 
646 
647 
(6) 
546 
649 
650 
651 
652 
653 
654 
(6) 
(9) 
655 
656 
657 
658 
659 
660 
(6) 
O) 
661 
662 
663 
664 
665 
666 
667 
668 
(4) 



PROCESS THE 'CON' 
MAC 08-AUG-78 12 



AND 
21 



COFF 1 



KEYBOARD COMMAND 
KCON ROUTINE 
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000076' 
000076' 



000076' 

000076' 004767 OOOOOOG 

000102' 

000102' 016501 000000 



000106' 
000106' 



0001 12 
0001 12 
0001 16 
000120 
000122 
000126 
000130 

000132 
000132 



016502 000002 



162705 
01 0546 
01 0245 
004767 
01 2605 
012502 



103045 



000134' 

0C0134' 032761 
000142' 001435 



000002 



OOOOOOG 



000004 000014 



000144' 

000144' 032761 004000 000014 

000152' 001404 



000154' 

000154' 012700 000200 



•SBTTL KCON ROUTINE 
ROUTINE KCON <DTADR , BUFPTR> 

INIT AND SAVE DTABLE , BUFPTR 

CALL SAVREG 

LET R1 := DTADR(R5) 

LET R2 := BUFPTR(R5) 

CHECK FOR JUNK ARGUMENTS 
CALL ARGCHK IN <R2> OUT <R2> 



KCON: 



IF. ERROR THEN 



NO JUNK ARGS. . .CONTINUE. . . SEE IF CACHE EXISTS AT ALL 



IF #CAPRES SETIN DT.CF0(R1) THEN 



BIT 
BEG 



THERE IS CACHE... SEE WHAT FLAVOR 



PDP 1 1/60 OR OTHER 



IF #PDP60 SETIN DT.CF0(R1) THEN 



BIT 
BEQ 



IT'S AN 11/60 SO, USING THE 'MED' INSTRUCTION FEATURE OF IT, DO A 
CACHE SWEEP. CODE OF 200 TO R0,352 TRAILING TO GET INIT REG(INTERNAL 
MICROCODE). CLEAR THE FORCE MISS BITS 



LET RO := #200 



SEO 0391 



JSR PC, SAVREG 
MOV DTADR(R5),R1 
MOV BUFPTR(R5) ,R2 



SUB 


#1*2,R5 


MOV 


R5,-(SP) 


MOV 


R2,-(R5) 


JSR 


PC, ARGCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R2 


BCC 


50002$ 



#CAPRES,DT.CF0(R 
50003$ 



#PDP60,DT.CF0(R1 
50004$ 



MOV 



#200, RO 



CONQF PROCESS 
CONOF.MAC 08' 
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-AUG-78 12:21 KCON ROUTINE 

INLINE <MED> 

INLINE <#CFLUSH> 

ENDIF 

LET KONTRL : = KONTRL CLR.BY #14 

LET @CCNTRL := KONTRL 



SEQ 0332 



669 


000160 ' 








(2) 


0001 60 ' 


076600 






670 


000162' 








(2) 


000162' 


000352 






671 


000164' 








(4) 


000164' 








572 


000164' 








(6) 


000164' 


042767 


000014 


OOOOOOG 


673 


000172' 








(4) 


000172' 


016777 


OOOOOOG 


OOOOOOG 


674 










575 










676 










677 










678 










679 










580 










681 










682 


0002C0 ' 








(6) 


000200' 


032777 


000014 


OOOOOOG 


(9) 


000206' 


001404 






683 


000210 ' 








(4) 


C00210 ' 


01 2761 


000000 ' 


000022 


684 


000216' 








(4) 


000216' 


000406 






(3) 


000220' 








685 










586 










587 










688 










689 










690 


000220 ' 








(4) 


000220' 


012761 


000036' 


000022 


691 


000226' 








(6) 


000226' 


052761 


000004 


000010 


692 










693 


000234' 








(4) 


000234' 








694 


000234' 








(4) 


000234' 


000403 






(3) 


C00236' 








695 










696 










697 










698 










699 










700 


000236' 








(4) 


000236' 


012761 


000050' 


000022 


701 


000244' 








(4) 


000244' 








702 










703 










704 










705 










706 


000244' 






E 


(4) 


000244' 


000403 







50004$: 



MED 
#CFLUSH 

BIC #14, KONTRL 
MOV KONTRL, @CCNTRL 



SEE IF IT REALLY DID ENABLE... IF NOT STUFF ERROR MSG... 

IF #14 SETIN @CCNTRL THEN 

LET DT.KBRSP(RI) := #CO.BAD 



ELSE 



BIT #14,@CCNTRL 

BEO 50005$ 

MOV #CO.BAD,DT.KBRSP 

BR 50006$ 



50005$: 



NOW STUFF THE CACHE ON MSG, SET THE CACHE ENABlE BIT IN STATUS WORD... 

LET DT.KBRSP(RI) := #CO.ON 

MOV #CO.ON,DT.KBRSP( 

LET DT.ST0(R1) : = DT.ST0(R1) SET. BY #CASTAT 

BIS #CASTAT,DT.STO(R 



ENDIF 



ELSE 



50006$: 



50003$: 



BR 50007! 



THERE IS NO CACHE... TELL OPERATOR - STUFF THE NO CACHE ERROR MSG 



LET DT.KBRSP(RI) := #CO.NuN 



MOV 



#CO.NUN,DT.KBRSP 



ENDIF 



50007$: 



ELSE 



ER 



50010$ 



CONOF 
CONOF 



PROCESS THE 'COM' AND 
MAC C8-AUG-7S 12:21 



COFF 



KEYBOARD COMMAND 
KCON ROUTINE 



(3) 
707 
708 
709 
710 
71 1 
712 
713 
(4) 
714 
71E 
(4) 
716 
717 
(3) 
718 
719 
(3) 
(3) 
(2) 
720 



000246 
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50002$: 



SEQ 0393 



000246 
000246 

C00254 

C00254 



000254' 
000254' 004767 

000260 ' 
0C0260' 
000260 ' 
000260' 000207 



012761 000000G 000022 



THERE WAS A JUNK ARGUMENT 

DON'T HONOR COMMAND STUFF ERROR MSG 



LET DT.KBRSP(RI) := #CM.ARG 



ENDIF 



CALL RESREG 



OOOOOOG 



ENDRTN 



500105: 



50000$: 
50001$: 



MOV 



JSR 



RTS 



#CM.ARG,DT.KBRSP 



PC,RESREG 



PC 
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722 
723 
724 
725 
723 
727 
728 
729 
730 
731 
732 
733 
734 
735 
735 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
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KCOFF PROCESS THE 'COFF' KEYBOARD COMMAND 

.SBTTL KCOFF PROCESS THE 'COFF' KEYBOARD COMMAND 
.IDENT /V0.0/ 

++ 
MODULE NAME: 
KCOFF 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PROCESSES THE 'COFF' (CACHE OFF) KEYBOARD COMMAND, 

WILL FIRST CHECK FOR THE PRESENCE 

OF ILLEGAL ARGUMENTS. IF ANY, AN ERROR MESSAGE IS OUTPUTTED 

AND IF NOT THE FORCE MISS BITS IN THE CONTROL 

REGISTER ARE SET. 

IF NO CACHE AN ERROR MESSAGE IS STUFFED. 



SEQ 0394 



IT 



INPUTS: 

1 . ADDRESS OF DATA TABLE 
2. DECODE BUFFER PTR 

IMPLICIT INPUTS: 
DT.CFO 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
1. DT.KBRSP 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 

1 . ARGCHK - CHECK AN ARGUMENT 

FUNCTIONAL SIDE EFFECTS: 

NONE 

CALLING SEQUENCE: 

CALL KCOFF IN <DTADR , BUFPTR> 
WHERE DTADR = ADDRESS OF DATA TABLE 
BUFPTR = DECODE BUFFER POINTER 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



CONOF PROCESS THE 'CON' AND 'COFF 
CONOF.WAC 08-AUG-78 12:21 



772 
773 
774 
(2) 
775 
776 
777 
778 
779 
780 
(2) 
(3) 
781 
(4) 
782 
(4) 
783 
784 
785 
786 
787 
788 

(4) 
(3) 
(4) 
(3) 
(3) 
(4) 
789 
790 
(6) 
791 
792 
793 
794 
795 
796 
797 
(6) 
(9) 
798 
799 
800 
801 
802 
803 
804 
(6) 
805 
(4) 
806 
(4) 
807 
(6) 
808 
809 



000262' 
000262' 



000262' 

000262' 010046 

000264' 010146 

000266' 

000266' 016500 000000 

000272' 

000272' 016501 000002 



000276' 

000276 

000302' 



162705 
01 0546 



000304' 010145 
000306' 004767 



000002 



000000G 



000312 
000314 

000316 
000316 



01 2605 
01 2501 



103025 



KEYBOARD COMMAND MACY1 1 30A(1052) 20-SEP-78 17:48 PAGE 19-7 
KCOFF PROCESS THt-1 KEYBOARD COMMANDS 'COFF' 

.SBTTL KCOFF PROCESS THE KEYBOARD COMMANDS 'COFF' 

ROUTINE KCOFF <DTADR , BUFPTR> 



SEO 0395 



000320' 

000320' 032760 
000326' 001415 



000004 000014 



KCOFF: 



INITIALIZE AND SAVE DATA TABLE ADDRESS AND BUFPTR 



PUSH R0.R1 



LET RO := DTADR(R5) 
LET R1 := BUFPTR(R5) 

SEE IF ANY JUNK ARGUMENTS 
CALL ARGCHK IN <R1> OUT <R1> 



MOV 
MOV 


RO,-(SP) 
R1 ,~(SP) 


MOV 


DTADR(R5) ,R0 


MOV 


BUFPTR(R5) ,R1 



IF. ERROR THEN 



NO JUNK ARGUMENTS FOUND SO SEE IF CACHE EXISTS AT ALL 



SUB 


#1*2, R5 


MOV 


R5,-(SP) 


MOV 


R1 ,-(R5) 


JSR 


PC, ARGCHK 


MGV 


(SP)+,R5 


MOV 


(R5)+,R1 


BCC 


50002$ 



IF #CAPRES SETIN DT.CFO(RO) THEN 



BIT 
BEQ 



000330 ' 

000330' 052767 000014 OOOOOOG 

00C336' 

000336' 016777 OOOOOOG OOOOOOG 

000344' 

000344' 012760 000062' 000022 

000352' 

000352' 042760 000004 000010 

000360' 



CACHE DOES EXIST SO TURN OFF CACHE AND STUFF MSG 
LET KONTRL := KQNTRL SET. BY #14 
LET fcCCNTRL := KONTRL 
LET DT.KBRSP(RO) := #00. OFF 
LET DT.STO(RO) := DT.STO(RO) CLR.BY #CASTAT 

ELSE 



BIS 
MOV 
MOV 
EIC 



#CAPRES,DT.CFO(R 
50003$ 



#14, KONTRL 
KONTRL, @CCNTRL 
#CO.OFF,DT.KBRSP 
#CASTAT,DT.ST0(R 



CONOF 


PROCESS 


THE 'CON' AND 


CONGF.MAC 08 


-AUG-78 


12:21 


(4) 


000360' 


000403 




(3) 


000362' 






810 








31 1 








812 








813 








314 








815 


0003S2' 






(4) 


000382' 


012760 


00005( 


315 








317 


0C0370 1 






(4) 


C00370' 






318 


000370' 






(4) 


000370' 


000403 




(3) 


000372' 






319 








820 








821 








822 








823 








824 


000372' 






(4) 


000372' 


012760 


OOOOOC 


325 








825 


000400' 






(4) 


000400' 






827 








328 








829 








330 








831 








832 


000400' 






(2) 


000400 ' 


012601 




(3) 


0C0402' 


01 2600 




833 








834 


000404' 






(3) 


000404' 






(3) 


000404' 






(2) 


000404' 


000207 




835 








836 




000001 





COFF' 



KEYBOARD 
KCOFF 



COMMAND 
PROCESS 



MACY11 30A(1052) 20-SEP-78 
THE KEYBOARD COMMANDS 'COFF' 



17:43 PAGE 19-8 



50003S: 



SEQ 0396 



BR 



50004$ 



NO CACHE ON SYSTEM 
STUFF ERROR MSG. . . 



GO INSULT OPERATOR. . . 
LET DT.KBRSP(RO) := 0CO.NUN 



ENDIF 



ELSE 



50004$ 



50002$: 



MOV 



BR 



#CO.NUN f DT.KBRSP 



50005$ 



THERE ARE JUNK ARGUMENTS - STUFF ERROR MSG AND LEAVE 



LET DT.KBRSP(RO) 



#CM.ARG 



MOV 



#CM.ARG,DT.KBRSP 



ENDIF 



CLEAN UP AND SCRAM 



50005$: 



POP R1 ,R0 



ENDRTN 



50000$: 
50001$: 



MOV 
MOV 



RTS 



(SP)+,R1 
(SP)+,RO 



PC 



.END 



CONUF PROCESS THE 'CON' AND 'COFF 
CONOF.MAC 08-AUG-78 12:21 



KEYBOARD COMMAND 
SYMBOL TABLE 
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SEQ 0397 



ACSR = 000102 
ACTSIT= 004000 
ADDR22= 001000 
ADR = 000006 
APTFER= 00C004 
APTPRE= 000200 
ARGCHK= ****** G 
ASB = 000105 
ASSEMB= 000010 
ASTAT = 00C104 
AUTO = 000010 
AUTOST= 020000 
AWAS = 0C01 10 
BITO = 000001 
BITOO = 0000C1 
BIT01 = 000002 
BIT02 = 000004 
BIT03 = 000010 
BIT04 = C00020 
BIT05 = 000040 
BIT06 = 000100 
BIT07 = 000200 
BIT08 = 000400 
BIT09 = 001000 
BIT1 = 000002 
BIT10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT15 = 100000 
BIT2 = 0000C4 
BIT3 = 000010 
BIT4 = 000020 
BIT5 = 000040 
BIT6 = 000100 
BIT7 = 000200 
BIT8 = 000400 
B1T9 = 001000 
BKDEF = 000002 
BKMOD = 000020 
BKMODE= 040000 
3KSLSH= 000134 
BUFPTR= 000002 
CAPRES= 000C04 
CASTAT= 000004 
CCNTRL= ****** G 
CDERCT= 000146 
CDWDCT= 000144 
CFLUSH= 000352 
CKTIM = 100000 
CLKPRE= OO0C01 
CM.ARG= ****** G 



CONFIG= 000056 
CO. BAD OOOOOOR 
CO. NUN 000050R 
CO. OFF 000052R 
CO. ON 000036R 
CQOVF = 000001 
CR = 000015 
CSRA = 000100 
CSRC = 000102 
CTRLC = 000003 
CTRLO = 000017 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= 000400 
DIAGMC= 000000 
DROPMO= 100000 
DSEVNT= 000014 
DTADR = OCOOOO 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000034 
DT.CFO= 000014 
DT.CF1= 000016 
DT.ERR= 000020 
DT.ESI= 000044 
DT.EVN= 000000 
DT.EXS= 000060 
DT.FCH= 000037 
DT.FCN= 000036 
DT.HMX= 000104 
DT.KBE= 000024 
DT.KBP= 000026 
DT.KBR= 000022 
DT.KBU= 000030 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PAS= 0C0074 
DT.PC = 000002 
DT.PFL= 000062 
DT.PSW= 000004 
DT.PTA= 0000S4 
DT.RCS= 000102 
DT.REL= 000040 
DT.SCT^ 000066 
DT.SMX= 0001C6 
DT.SP = 000006 
DT.SSI= C00046 
DT.STO= 000010 
DT.ST1= 000012 
DT.SWR= 000056 
DT.SYP= 000072 



DT.WBU= 000050 
DT.WHL= 000054 
DT.WLL= 000052 
DVID1 = 0C0014 
ECCMEM= 000100 
ECCSTA= 000010 
ENBEOP= 010000 
ENENUL= 000001 
ENDLST= 000000 
EOPBIT= 000001 
ERRTYP= 000106 
EVNTBE= 000200 
EVNTHD= 000200 
EVNTKT= 000203 
EVNTPE= 000202 
EVNTRE= 000201 
FATERR= 100000 
HRDCNT= 000044 
HRDPAS= 000050 
ICONT = 000036 
ICOUNT= 000040 
IDNUM = 000122 
IE = 000100 
INDPAR= 00C040 
INHDRP= 040000 
INHEPR= 020000 
INHREL= 001000 
INHRRE= 000400 
INIT = 000030 
INTR = 000120 
IOMOD = 100000 
IOMODP= 102000 
IOMODR= 1120C0 
I0M0DX= 110000 
JACK = 035060 
KCOFF 000262RG 
KCON 000076RG 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 
KIPDRO= 1723C0 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 



KONTRL= ****** G 
KTERRO= 000040 
KTPRES= 000400 
KTSTAT= 000020 
KTXTND= 040000 
LF = 000012 
LPSTAT= 000001 
MAPSTA= 000200 
MED = 076600 
MEMPAS= 040000 
MODEXH= 004000 
MODHOL= 002000 
MODSEL= 001000 
MSGCKD= 000010 
MSGCKS= 00001 1 
MSGDER= 000005 
MSGDRP= 000017 
MSGECH= 177777 
MSGEOP= 000013 
MSGHDR= 000004 
MSGHNG= 00.0022 
MSGHRD= 000007 
MSGMAP= 000021 
MSGNUL= 177775 
MSGPOP= 000002 
MSGPRM= 17777S 
MSGRES= 000001 
MSGSFT= 000005 
MSGSKE= 000C03 
MSGSMB= 000015 
MSGSMH= 000014 
MSGSMS= 000016 
MSGSTD= 000000 
MSGSYS= 000012 
MSGVEC= 000020 
NBKMOD= 001000 
NCPUOP= 000020 
NOAPTY= 000002 
NULL = 000000 
OWEN = 024C20 
PAERR = 000C10 
PARPRE= 002000 
PARSTA= 000100 
PASCNT= 000034 
PDPLSI= 020000 
PDP60 = 004000 
PDP70 = 010000 
PRIO = 000000 
PRI1 = 000040 
PRI4 = 000200 
PRI5 = 000240 
PRI6 = 000300 
PRI7 = 000340 



PRO = 000000 
PR4 = 000200 
PR5 = 000240 
PR6 = 000300 
PR7 = 000340 
PS = 177776 
PSW = 177776 
RANNUM= 000054 
R!3'JFEA= 000130 
R9UFPA= 0C0126 
RB'JFSZ= 000132 
RSUFVA= 000124 
RDSERV= 00C10) 
RDWHMI=. 000022 
RELERR= 000020 
RELMOD= 020000 
RELTIM= 010000 
RESREG= ****** G 
RES1 = 000056 
RES2 = 000060 
RICHAR= 031060 
RPTDAT= 002000 
RSTRT = 000112 
RUBCUT= 000177 
RUNMOD= 100000 
R5VALU= 001740 
SAM = 075464 
SAVREG= ****** G 
SBADR = 000102 
S3KM0D= 000000 
SBKSEL= 010000 
SC.ADR= 000006 
SC.ALC= 000014 
SC.APC= 000016 
SC.CKL= 000002 
SC.CKP= 000004 
SC.CLO= 000000 
SC.HLD= 000010 
SC.SCA= 000012 
SENDLS= 177777 
SOFCNT= 000042 
SOFPAS= 000046 
S^ACE = 000040 
SPOINT= 000032 
SPVALU= 002200 
SRO = 177572 
SR1 = 177574 
SR2 = 177576 
SR3 = 172516 
STAT = 000026 
STATBI= 064757 
STAT1 = 000027 
SUSPND= 000001 



CONOF 


FROCESS THE ' C 


CONOF.MAC 08-AUG-78 


SVRO = 


000062 


SVR1 


000064 


SVR2 = 


000066 


SVR3 = 


0C0070 


SVR4 = 


000072 


SVR5 = 


000074 


5VR5 = 


000076 


SYSCNT= 


000052 


SYS£RR= 


0001C0 


TMPIO = 


000002 


TQOVF = 


000002 


UIPAR0= 


177640 


UIPAR1 = 


177642 


UIPAR2= 


177644 


UIPAR3= 


177646 


U1PAR4= 


177650 


UIPAR5= 


177652 


UIPAR6= 


177654 


UIPAR7= 


177656 


UIPDR0= 


177600 


UIPDR1 = 


177602 


. ABS. 


000000 000 




0C0406 001 



CON' AND 
12:21 



'COFF 



KEYBOARD COMMAND 
SYMDQL TABLE 
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SEO 0398 



U1PDR2= 177604 
UIPDR3= 177606 
UIPDR4= 177610 
UIPDR5= 177612 
UIPDR6= 177614 
UIPDR7= 177616 
WASADR= 000104 
WBSTAT= 000040 
WBUFEA= 000136 
WBUFPA= 000134 
WBUFRQ= 000140 
WBUFSZ= 000142 
WDFR = 0001 16 
WDTO = 000114 
WTINRE= 000352 
WTWHMI= 000222 
XFLAG = 000005 
XOFF = 00C023 
XON = 000C21 
$BGNLE= 177777 
$ERFLG= 000400 



$F$AND= 000310 
$F$BAD= 000401 
$F$3LA= 000170 
$F$CAS= 000150 
$F$DEC= 000220 
$F$DO = 000340 
$F$FAL= 000405 
$F$GOO= 000400 
$F$IF = 0001 10 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 000160 
$F$NO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 



$F$YES= 000402 
$IFLEV= 177777 
$ISKO = 000001 
$ISK1 = 000001 
SISK2 = 000001 
$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000001 
$NESTL= 177777 
SNSKO = 000300 
$NSK1 = 000110 
$NSK2 = 000110 
$NSK3 = 000110 
SSAVLE= 177777 
$TAGLE= 17^777 
$TAGNU= 050006 
$TEMP = 000300 
STSKO = 050005 
$TSK1 = 050004 
$TSK2 = 050006 
$$ARGC= 000004 



$SBYTE= 000403 
$$CASE= 000000 
$$DST = 000000 
$$ELOC= 000402 
$$ERFL= 000000 
$$FLAG= 000001 
$3FR0M= 000001 
$$LOC = 000325R 
$$LOCN= 000000 
$$REG = 177777 
$$RETU= 000000 
$$RTN1= 050000 
$$RTN2= 050001 
$$SRC = 000000 
$3TGSV= 000000 
$$TGS1= 000000 
$$TGS2= 000000 
$$T0 = 000001 
$$$TAG= 050000 
= 000406R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ:CCN0F,DSKZ:C0NOF=SPMAC/ML, EQUATE, CONOF 
RUN-TIME: 15 5 .4 SECONDS 
RUN-TIME RATIO: 42/21=2.0 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:48 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0399 

3 COMMON EQUATE MODULE 

555 COMMON DEFINITIONS AND REFERENCES 

553 000000' .PRINT ;SPMAC: VERSION 1.1 

595 DPEOP ROUTINE 



DPEOP - XXDP/ACT-1 1 END-OF-PASS MACY11 
DPEOP. MAC 28-JUL-78 09:14 



508 
509 
510 
51 1 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
533 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 



30A(1052) 20-SEP-78 
COMMON EQUATE MODULI 
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SEQ 0400 



.TITLE DPEOP - XXDP/ACT-11 END-OF-PASS 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
DPEOP 

FUNCTIONAL DESCRIPTION: 

CONTROLS RETURN TO AND RESTART FROM XXDP/ACT-11 

INPUTS: 

DATA TABLE ADDRESS 

IMPLICIT INPUTS: 

DT.ESIZ, DT.ADDR, DT.BLST, DT.SSIZ, DT.ST1 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 



PATHOLOGICAL CONNECTIONS: 
MD.COD 
DX.R5 
DX.SP 
BA.MPTR 

SUBORDINATE MODULES CALLED: 
RSTRCY 
MSGDEQ 
DX. INI 



MESSAGE CODE IN MSGDEQ 

R5 STACK POINTER 

R6 STACK POINTER 

BACKGROUND MODULE LIST POINTER 



; RECOVER FROM RESET 
; MESSAGE DEQUEUER 
;M0NIT0R INIT. ROUTIN: 



FUNCTIONAL SIDE EFFECTS: 

CAUSES PROGRAM CONTROL TO LEAVE THE EXERCISER 

CALLING SEQUENCE: 

CALL DPEOP IN <A> 

A*ADDRESS OF DATA TABLE 

VERSION: 
0.0 
EDIT BY DATE 



REASON 



DPEOP - XXDP/ACT-11 ENQ-OF-PASS MACY11 30A(1052) 20-SEP-78 17:43 PAGE 19-1 
DPEOP.MAC 28-JUL-78 09:14 COMMON DEFINITIONS AND REFERENCES 



SEQ 0401 



555 

556 

557 

558 

(1) 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

57C 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

58^ 

585 

586 

567 

588 

589 

590 

591 

592 

593 



000000' 
000000' 



000001 
000001 



000000' 000000 
000002' 000000 
000004' oooooo 



.SBTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$|_STIN = 1 

$LSTTAG=1 



**************** 
REFERENCED BY OTHER MODULES 



GLOBL DPEOP 
GLOBL $ENDAD 

**************** 
GLOBAL REFERENCES 

GLOBL RSTRCY 

GLCBL DX.INI 

GLOBL DX.SP 

GLOBL DX.R5 

GLOBL DX.DEQ 

GLOBL BA.MPTR 

GLOBL MSGDEQ 

GLOBL MD.COD 

**************** 
LOCAL STORAGE 

DP.RO: .WORD 
DP.R1 : .WORD 
DP.R2: .WORD 

***************** 



;MODULE ENTRY POINT 
; XXDP/ACT-11 "HOOK" 



RECOVER FROM RESET 
MONITOR INIT. ROUTINE 
POINTER TO MONITOR'S R6 STACK 
POINTER TO MONITOR'S R5 STACK 
MONITOR'S DEQUEUING ROUTINE 
BACKGROUND MODULE LIST POINTER 
MESSAGE DEQUEUER 
MESSAGE TYPE CODE 



;R0 STORAGE 
;R1 STORAGE 
;R2 STORAGE 



DPEOP - XXDP/ACT-1 1 END-OF-PASS MACY11 
DPEOP. MAC 28-JUL-78 09:14 
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595 
595 
597 
(2) 
598 
599 
600 
601 
602 
503 
604 
(4) 
605 
606 
507 
608 
609 
610 
611 
(3) 
612 
(3) 
(4) 
(3) 
(3) 
613 
(3) 
(6) 
614 
515 
616 
517 
618 
619 
620 
621 
622 
(6) 
(9) 
623 
(4) 
624 
(4) 
(3) 
625 
(4) 
(7) 
(7) 
(7) 
(7) 
(7) 
(7) 
626 
(4) 
627 
628 



000006' 
000006' 



000006 
000006' 



000012' 
00001 2 ' 
000012' 
000012 ' 
000014' 
000016' 
000022' 
0C0024' 
000024' 
000032' 



000034' 
000034' 
000042 ' 
000044 ' 
000044 ' 
000050' 
000050 ' 
0C0052' 
000052' 
00C052' 
000056' 
00G060' 
000062' 
000064 ' 
000C66' 
000070' 
000072' 
000072' 



01 0546 
01 C045 
004767 
012605 

026727 
001367 



026027 
103403 



01 6002 
006302 
006302 
006302 
006302 
006302 
006302 



30A(1052) 20-SEP-78 
DPEOP ROUTINE 

.SBTTL DPEOP ROUTINE 

ROUTINE DPEOP <TABL> 



SET RO TO THE START OF THE DATA TABLE 



SEQ 0402 



DPEOP: 



016500 000000 



LET RO := TABL(R5) 



WAIT FOR THE TYPE QUEUE TO EMPTY, 



MOV 



TABL(R5) ,R0 



REPEAT 



50002$: 



CALL MSGDEO IN <R0> 



OOOOOOG 



OOOOOOG 177775 



UNTIL MD.COD EQ #MSGNUL 



MOV 
MOV 
JSR 
MOV 

CMP 
BNE 



R5,-(SP) 
R0,-(R5) 
PC, MSGDEO 
(SP)+,R5 

MD.COD,#MSGNUL 
50002$ 



MOVE THE XXDP MONITOR (EVEN IF IT DOESN'T EXIST, BECAUSE WE DON'T KNOW 
IF WE HAVE XXDP OF ACT-1 1 ) TO THE TOP 1 . 5K OF MEMORY (BUT NOT HIGHER 
THAN 28K SINCE XXDP CAN'T USE KT). 



IF DT.SSIZ(RO) HIS #1600 THEN 



000046 001600 



012702 160000 



000410 



ELSE 



LET R2 := #160000 



LET R2 := DT.SSIZ(RO) SHIFT #6 



000046 





CMP 


DT.SSIZ(RO) ,#160 




BLO 


50003$ 




MOV 


#160000, R2 




BR 


50004$ 


50003$: 








MOV 


DT.SSIZ(RO) ,R2 




ASL 


R2 




ASL 


R2 




ASL 


R2 




ASL 


R2 




ASL 


R2 




ASL 


R2 



ENDIF 



i0004$: 
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629 

630 

631 

632 

633 

634 

635 

636 

(4) 

(6) 

637 

(4) 

638 

639 

(4) 

(6) 

(9) 

640 

(4) 

641 

(6) 

642 

(4) 

(3 

643 

644 

645 

646 

647 

648 

649 

(4) 

650 

(4) 

651 

(4) 

652 

653 

654 

655 

656 

657 

65B 

659 

(2) 

660 

(2) 

661 

(2) 

662 

(2) 

663 

664 

665 

666 

667 



28-JUL-78 09: 14 



C00072 
000072 
000076 
C00102 
C00102 



01 6001 
062701 



0001 06' 
0001 06' 

0C0106' 005703 
C00110 1 001403 
0001 12' 

000112' 014142 
0001 14' 

000114' 005303 
0001 16' 

000116' 000773 
) 000120' 



000120' 

000120' 010067 
000124' 

000124' 010167 
000130' 
000130' 010267 



000134 
000134 
000136 
000136 
000142 
000142 
000144 
000144 



000005 
01 3700 
004710 
000240 



000044 
000002 



012703 003000 



177654 
177652 
177650 



000042 



000240 000240 



DPEOP ROUTINE 

+ 
SET R1 TO THE 1ST ADDRESS ABOVE THE EXERCISER, SET R3 TO 
1.5K, AND MOVE THE CODE. 

(DON'T FORGET THAT DT.ESI2 IS THE SIZE OF THE EXERCISER PLUS THE XXDP 
MONITOR. ) 



SEO 0403 



LET R1 := DT.ESIZ(RO) + U1 
LET R3 := #~D1536 
WHILE R3 NE #0 DO 

LET ~(R2) := -(R1 ) 
LET R3 := R3 - #1 
ENDDO 



50005S 



50006$: 



SAVE REGISTERS FOR AFTER THE RETURN FROM XXDP 



LET DP.RO 
LET DP.R1 
LET DP.R2 



= RO 
= R1 
= R2 



**************** 
HERE IS THE ACTUAL XXDP/ACT-1 1 STUFF 

INLINE < RESET> 

INLINE < MOV <&#42,R0> 

INLINE <$ENDAD: JSR PC,(R0)> 

INLINE < .WORD NOP,NCP,NOP> 

; + 

• **************** 



MOV 
ADD 

MOV 



TST 

BEQ 

MOV 
DEC 

BR 



MOV 
MOV 
MOV 



SENDAD: 



DT.ESIZ(RO) ,R1 
#2,R1 

#"D1536,R3 



R3 
50006$ 

-(R1),-(R2) 

R3 

50005$ 



RO.DP.RC 
R1 ,DP.R1 
R2, DP.R2 



RESET 

MOV 

JSR 



@#42,R0 
PC, (RO) 



.WORD NOP, NOP, NO 



DPEOP - XXDP/ACT-1 1 END-GF-PASS MACY11 30A{1052) 20-SEP-78 17:48 PAGE 19-4 
DPEOP.MAC 28-JUL-78 09:14 DPEOP ROUTINE 



SEQ 0404 



668 
669 
670 
571 
672 
(4) 
573 
(4) 
674 
(4) 
575 
576 
677 
578 
579 
680 
581 
(4) 
582 
(4) 
(6) 
(9) 
583 
(4) 
584 
(6) 
685 
(4) 
(3) 
686 
687 
688 
689 
690 
691 
692 
(4) 
693 
(4) 
694 
(4) 
695 
(4) 
696 
697 
698 
699 
700 
701 
702 
(4) 
703 
704 
705 
706 
707 



000152' 

000152' 016700 177622 

000156' 

000156' 016701 177620 

000162' 

000162' 016702 177616 



000166' 
000166' 
0C0172' 
000172' 
0001 72' 
000174' 
000176' 
0C01 76' 
000200 ' 
0C0200 1 
000202' 
000202 ' 
000204' 



012703 003000 



005703 
001403 



01 2221 



005303 



000773 



000204' 

000204' 012706 002200 

000210 ' 

000210' 01C667 OOOOOOG 

000214' 

000214' 012705 001740 

000220' 

000220' 010567 OOOOOOG 



000224' 

000224' 016067 000034 OOOOOOG 



RESTORE THE REGISTERS WE WERE USING. 

LET RO := DP.RO 
LET R1 := DP.R1 
LET R2 := DP.R2 

NOW MOVE THE XXDP MONITOR BACK TO THE TOP OF THE EXERCISER, 

LET R3 := #~D1536 
WHILE R3 NE #0 DO 



LET (R1)+ := (R2)+ 
LET R3 := R3 - #1 

ENDDO 



RE-INITIALIZE THE STACKS. 

LET SP := #SPVALUE 

LET DX.SP := SP 

LET R5 := 4R5VALUE 

LET DX.R5 := R5 

RE-INITIALIZE THE BACKGROUND LIST POINTER 
LET BA.MPTR := DT.BLST(RC) 



MOV 


DP 


RO 


RO 


MOV 


DP 


R1 


R1 


MOV 


DP 


R2 


R2 





MOV 


#~D1536,R3 


50007$: 








TST 


R3 




BEQ 


50010$ 




MOV 


(R2)+, (R1 )+ 




DEC 


R3 




BR 


50007$ 


50010$: 







MOV 


#SPVALUE, 


SP 


MOV 


SP, DX.SP 




MOV 


#R5VALUE, 


R5 


MOV 


R5.DX.R5 





MOV 



DT.BLST(RO) ,BA.M 



; + 

; SINCE ACT-11 REQUIRES AT LEAST 200 MILLISECONDS BETWEEN RESETS, 
; GO INTO A WAIT LOOP. 



DPEOP - XXDP/ACT-1 1 END-OF-PASS MACY11 3CA(1052) 20-SEP-78 
DPEOP. MAC 28-JUL-78 09:14 DPEOP ROUTINE 



17:43 PAGE 19-5 



SEQ 0405 



708 






709 






710 


000232 




(4) 


000232 


012704 000010 


711 


000236 




(4) 


000236 




(6) 


000236 


005704 


(9) 


000240 


003410 


712 


000242 




(4) 


000242 


012703 177777 


713 


000246 




(4) 


000246 




(6) 


000246 


005703 


(9) 


000250 


0014C2 


714 


000252 




(6) 


000252 


005303 


715 


000254 




(4) 


C00254 


000774 


(3) 


000256 




715 


000256 




(6) 


000256 


005304 


717 


000260 




(4) 


000260 


000766 


(3) 


000262 




718 






719 






720 






721 






722 






723 






724 


000262 




(2) 


000262 


000005 


725 






726 






727 






728 






72S 






730 






731 






732 


000264 




(3) 


000264 


01 0546 


(4) 


0C0266 


01 0045 


(3) 


000270 


004767 000000G 


(3) 


000274 


012605 


733 






734 






735 






736 






737 






738 






739 


000276 




(6) 


000276 


042760 040000 


740 






741 






742 






743 







LET R4 := #10 
WHILE R4 GT #0 DO 



LET R3 := #177777 
WHILE R3 NE #0 DO 



LET R3 := R3 - #1 



ENDDO 



LET R4 := R4 - #1 



ENDDO 



NOW WE CAN DO A RESET 



INLINE <RESET> 



MOV 



RESET 



RESTORE ALL PROCESSOR OPTIONS TO THE STATE THEY WERE IN BEFORE 
WE BEGAN THIS NONSENSE. 



CALL RSTRCY IN <R0> 



CLEAR MEMPAS 



LET DT.ST1(R0) : = DT.STI(RO) CLR.BY /'MEMPAS 



; + 

; RE-INITALIZE THE MONITOR. 



BIC 



#10, R4 



5001 1$: 


TST 

BLE 


R4 
50012$ 




MOV 


#177777, R3 


50013S: 


1ST 

BEQ 


R3 
50014$ 




DEC 


R3 


50014$: 


BR 


50013$ 




DEC 


R4 


50012$: 


BR 


5001 1$ 



MOV 


R5,-(SP) 


MOV 


R0,-(R5) 


JSR 


PC, RSTRCY 


MOV 


(SP)+,R5 



#MEMPAS,DT.ST1(R 



DPEOP - XXDP/ACT-1 1 END-OF-PASS MACY11 30A(1052) 20-SEP-78 
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17:43 PAGE 19-6 



SEO 0406 



744 








745 








746 


000304' 






(3) 


000304' 


004767 


OOOOOOG 


747 








748 








749 








750 








751 








752 








753 








754 


000310 ' 






(2) 


000310' 


000137 


OOOOOOG 


755 








756 








757 


000314' 






(3) 


000314' 






(3) 


000314' 






(2) 


000314* 


000207 




758 




000001 





CALL DX. INI 



JSP. PC.DX.INI 



NOW WE CAN CONTINUE WHERE WE LEFT OFF EY RETURNING TO THE MONITOR'S 
DE-OUEUEING MECHANISM. 



INLINE <JMP @#DX.DEQ> 



ENDRTN 



jr.lP (MDX.DEQ 



50000$: 
50001S: 



RTS 



PC 



END 



DPEOP - XXDP/ACT-11 END-OF-PASS MACY11 30A(1052) 20-SEP-78 17:48 PAGE 20 
DPEOP.MAC 28-JUL-78 09:14 SYMBOL TABLE 



SEQ 0407 



ACSR = 000102 

ACT3IT= 004000 

ADDS22= 001000 

ADR = 000006 

APTFER= 000004 

APTPRE= 000200 

ASB = C00106 

ASSEMB= 000010 

ASTAT = 000104 

AUTO = 000010 

AUTOST= 020000 

AWAS = 000110 

8A.MPT= ****** G 

BITO = 000001 

BITOO = 000001 

3IT01 = 000002 

BIT02 = 000004 

BIT03 = 000010 

BIT04 = 000020 

BIT05 = 000040 

BIT06 = 000100 

BIT07 = 000200 

3IT08 = 000400 

BIT09 = 001000 

BIT1 = 000002 

I3IT10 = 0020C0 

3IT11 = 004000 

BIT12 = 010000 

BIT13 = 020000 

3IT14 = 040000 

BIT15 = 100000 

3IT2 = 000004 

3IT3 = 000010 

3IT4 = 000020 

3IT5 = 000040 

BIT6 = 000100 

3IT7 = 000200 

BITS = 000400 

BIT9 = 001000 

3KDEF = 000002 

3KMCD = 000020 

3KM0DE= 040000 

3KSLSH= 000134 

CAPRES= 000004 

CASTAT= 000004 

CDERCT= 000146 

CDWDCT= 00C144 

CKTIWI = 100000 

CLKPRE= 000001 

CONFIG= 000056 

CQOVF = 000001 

CR = 000015 

CSRA = 000100 



CSRC = 000102 
CTRLC = 000003 
CTRLO = 000017 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= 000400 
DIAGMC= 000000 
DPEOP 000006RG 
DP.RO OOOCOOR 
DP.R1 000002R 
DP.R2 000C04R 
DROPMO= 100000 
DSEVNT= 000014 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS=. 000034 
DT.CFO= 0CC014 
DT.CF1= C00016 
DT.ERR= 000020 
DT.ESI= 000044 
DT.EVN= 000000 
DT.EX5= 000060 
DT.FCH= 000037 
DT.FCN= 000036 
DT.HMX= 000104 
DT.K6E= 000024 
DT.KBP= 000026 
DT.KBR= 000022 
DT.KBU= 000C30 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = 000002 
DT.PFL= 000062 
DT.PSW= 000004 
DT.PTA= 000064 
DT.RCS= 0001C2 
DT.REL= 000040 
DT.SCT= 000066 
DT.SMX= 000106 
DT.SP = 000006 
DT.SSI= 000046 
DT.STO= 000010 
DT.ST1= 000012 
DT.SWR= 000056 
DT.SYP= 000C72 
DT.WBU= 000050 
DT.WHL= 000054 
DT.WLL= 000052 
DVID1 = 000014 
DX.DEQ= ****** G 



DX.INI= ****** G 
DX.R5 = ****** G 
DX.SP = ****** G 
ECCMEM= 0001 CO 
ECCSTA= 000010 
ENBEOP= 010000 
ENBNUL= 000001 
ENDLST= 000000 
EOPBIT= 000001 
ERRTYP= 000106 
EVNTBE= 000200 
EVNTHD= 000200 
EVNTKT= 000203 
EVNTPE= 000202 
EVNTRE= 000201 
FATERR= 100000 
HRDCNT= 000044 
HRDPAS= 000050 
ICONT = 000038 
ICOUNT= 000040 
IDNUM = 000122 
IE = 000100 
INDPAR= 000040 
INHDRP= 040000 
INHEPR= 020000 
INHREL= 0C1000 
INHRRE= 000400 
INIT = 000030 
INTR = 000120 
IOMOD = 100000 
IOMODP= 102000 
IOMODR= 112000 
IOMODX= 110000 
JACK = 035060 
KIPAR0= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 
KIPDRO= 172300 
KIPDRl= 172302 
KIPDR2= 1723C4 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KTERRO= 000040 
KTPRES= 000400 
KTSTAT= 000020 



KTXTND= 040000 

LF = 000012 

LPSTAT= 000001 

MAPSTA= 000200 

MD.COD= ****** G 

MED = 076600 

MEMPAS= 040000 

MODEXH= 004000 

MODHOL= 002000 

MODSEL= 001000 

MSGCKD= 000010 

MSGCKS= 00001 1 

MSGDEQ= ****** G 

MSGDER= 000005 

MSGDRP= 000017 

MSGECH= 177777 

MSGEOP= 000013 

MSGHDR= 000004 

MSGHNG= 000022 

MSGHRD= 000007 

MSGMAP= 000021. 

MSGNUL= 177775 

MSGPOP= ,000002 

M5GPRM= 177776 

MSGRES= 000001 

MSGSFT= 0000'06 

MSGSKE= 000003 

MSGSM3= 000015 

MSGSMH= 000014 

MSGSMS= 000016 

MSGSTD= 000000 

MSGSYS= 000012 

MSGVEC= 000020 

NBKMOD= 001000 

NCPUOP= 000020 

NOAPTY= 000002 

NULL = 000000 

OWEN = 024C20 

PAERR = 000010 

PARPRE= 002C00 

PARSTA= 000100 

PASCNT= 000034 

PDPLSI= 020000 

PDP60 = 004000 

PDP70 = 010000 

PRIO = 000000 

PRI1 = 000040 

PRI4 = 000200 

PRI5 = 000240 

PRI6 = 000300 

PRI7 = 000340 

PRO = 000000 

PR4 = 000200 



PR5 = 000240 

PR6 = 000300 

PR7 = 000340 

PS = 177776 

PSW = 177776 

RANNUM= 000054 

RBUFEA= 000130 

R3UFPA= 000126 

RBUFSZ= 000132 

RBUFVA= 000124 

RDSERV= 000101 

RDWHMI= 000022 

RELERR= 000020 

RELMOD= 020000 

RELTIM= 010000 

RES1 = 000055 

RES2 = 000060 

RICHAR= 031060 

RPTDAT= 002000 

RSTRCY= ****** G 

RSTRT = 000112 

RUBOUT= 000177 

RUNMOD= 100000 

R5VALU= 001740 

SAM = 075464 

S3ADR = 000102 

SBKMOD= 000000 

SBKSEL= 010000 

SC.ADR= 000006 

SC.ALC= 000014 

SC.APC= 000016 

SC.CKL= 000002 

SC.CKP= 000004 

SC.CLO= OOOCOO 

SC.HLD= 000010 

SC.SCA= 000012 

SENDLS= 177777 

SQFCNT= 000042 

SOFPAS= 000046 

SPACE = 000040 

SPOINT= 000032 

SPVALU= 002200 

SRC = 177572 

SR1 = 177574 

SR2 = 177576 

SR3 = 172516 

STAT = 000026 

STATBI= 064757 

STAT1 = 000027 

SUSPND= 000001 

SVRO = 000062 

SVR1 = 000064 

SVR2 = 000066 



DPEOP - XXDP/ACT-11 END-OF-PASS MACY11 30A(1052) 20-SEP-78 17:43 PAGE 20-1 
DPEOP.MAC 28-JUL-78 09:14 SYMBOL TABLE 



SEQ 0408 



SVR3 = 


000070 




SVR4 = 


000072 




SVR5 = 


C00074 




SVRS = 


000076 




SYSCNT= 


000052 




SYSERR= 


000100 




T A B L = 


OOCOOO 




TMPIO = 


000002 




TQOVF = 


000002 




U1PAR0= 


1 77640 




lI I PARI = 


177642 




UIPAR2= 


1 77644 




UIPAR3= 


1 77646 




UIPAR4= 


177650 




LJIPAR5 = 


177652 




UIPAR6= 


177654 




UIPAR7= 


177556 




UIPDR0= 


177600 




UIPDR1 = 


177602 




UIPDR2= 


177604 




UIPDR3= 


177606 




. AB5. 


OOOOOC 


000 




0C0316 


001 



UIPDR4= 177610 
UIPDR5= 177612 
UIPDR6= 177614 
UIPDR7= 177616 
WASADR= 000104 
WBSTAT= 000040 
WBUFEA= 000136 
WBUFPA= 000134 
WBUFRQ= 000140 
WBUFSZ= 000142 
WDFR = 0001 16 
WDTO = 0001 14 
WTINRE= 000352 
WTWHMI= 000222 
XFLAG = 000005 
XOFF = 000023 
XON = 000021 
$BGNLE= 177777 
$ENDAD 000142RG 
SERFLG= 000400 
$F$AND= 000310 



$F$BAD= 000401 
$F$BLA= 000170 
$F$CAS= 000150 
$F$DEC= 000220 
$F$DO = 000340 
$F$FAL= 000405 
$F$GOO= 000400 
$F$IF = 000110 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 000160 
$F$NO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 00C120 
$F$YES= 000402 



$IFLEV= 177777 
$ISKO = 000001 
$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000001 
$NESTL= 177777 
$NSKO = 000300 
SNSK1 = 000120 
$NSK2 = 000120 
$SAVLE= 177777 
$SSKO = 050012 
$TAGLE= 177777 
$TAGNU= 050015 
$TEMP = 000300 
$TSKO = 05001 1 
$TSK1 = 050012 
$TSK2 = 050013 
$TSK3 = 050014 
$$ARGC= 000002 
$$BYTE= 000403 
$$CASE= 000000 



$$DST = 000000 

SSELOC= 000402 

$$ERFL= 000000 

$$FLAG= 000340 

$SFRQM= 000000 

$SLGC = 000250R 

$$LOCN= 000000 

$$REG = 177777 

$$RETU= 000000 

$$RTN1= 050000 

$$RTN2= 050001 

$SSRC = 000000 

$$TGSV= 000000 

$$TGS1= 000000 

$$TGS2= 000000 

$$T0 = 000000 

$$$TAG= 050000 

= 000316R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ: DPEOP, DSK2:DPE0P=SPMAC/ML r EQUATE, DPEOP 
RUN-TIME: 16 5 .4 SECONDS 
RUN-TIME RATIO: 45/22=2.0 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:49 

EQUATE. MAC 13-SEP-78 16: 13 TABLE OF CONTENTS SEQ 0409 

3 COMMON EQUATE MODULE 

552 COMMON DEFINITIONS AND REFERENCES 

555 000000' .PRINT ;SPMAC: VERSION 1.1 

576 DPSTRT ROUTINE 



DPSTRT 
DPSTRT. 

503 
509 
510 
51 1 
512 
5". 3 
514 
51 5 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 



- XXDP/ACT-11 
,MAC 28-JUL- 



START-UP 
78 09:14 



MACY11 30a (1052) 2G-SEP-7S 17:49 PAGE 19 
COMMON EQUATE MODULE 

.TITLE DPSTRT - XXDP/ACT-11 START-UP 
.IDENT /VO.O/ 



++ 
MODULE NAME: 
DPSTRT 



SEQ 0410 



FUNCTIONAL DESCRIPTION: 

MOVES XXDP MONITOR AND FAKES A "RUN" COMMAND 

INPUTS: 

DATA TABLE ADDRESS 

IMPLICIT INPUTS: 

DT.ESIZ.DT.SSIZ.DT.REL 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

DT.ESIZ,DT.REL 

PATHOLOGICAL CONNECTIONS'- 
NONE 

SUBORDINATE MODULES CALLED: 
SAVREG 
.RESREG 
KRUN 



;SAVE REGISTERS 

-.RESTORE REGISTERS 

; PROCESS "RUN" COMMAND 



FUNCTIONAL SIDE EFFECTS: 

STARTS THE EXERCISING OF THE SYSTEM 

CALLING SEQUENCE: 

CALL DPSTRT IN <A> 

A=DATA TABLE ADDRESS 

VERSION: 
0.0 
EDIT BY DATE 



REASON 



DPSTRT - XXDP/ACT-11 START-UP 
DPSTRT. MAC 23-JUL-78 09:14 

552 
553 
554 

555 000000' 
(1) 000000' 

556 000001 

557 000001 
553 

559 
560 
561 
562 
563 
564 
565 
566 
567 
566 
569 
570 
571 
572 
573 
574 
575 
576 



MACY11 30A(1052) 20-SEP-78 17:49 PAGE 19-1 
COMMON DEFINITIONS AND REFERENCES 

.SBTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



**************** 

REFERENCED BY OTHER MODULES 
GL03L DPSTRT 

**************** 

GLOBAL REFERENCES 

GLOBL SAVREG 
GL.OBL RESREG 
GLOBL KRUN 

*************** 



SEQ 0411 



MODULE ENTRY POINT 



SAVE REGISTERS 
RESTORE REGISTERS 
PROCESS "RUN" COMMAND 



DPSTRT - XXDP/ACT-11 START-UP 
DPSTRT.MAC 28-JUL-78 09:14 



578 
579 
580 
(2) 
581 
582 
583 
584 
585 
586 
587 
(3) 
588 
589 
590 
591 
592 
593 
594 
(4) 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
(6) 
(9) 
606 
(4) 
607 
(4) 
(3) 
608 
(4) 
(7) 
(7) 
(7) 
(7) 
(7) 
(7) 
609 
(4) 
610 
(4) 
(6) 
611 
612 
(4) 
(6) 
613 



000000' 
000000 ' 



000000' 
000000' 004767 



000004' 
000004' 016500 



000010 
00001 o 
000016 
000020 
000020 
C00024 
000024 
000026 
000026 
000026 
000032 
000034 
000036 
000040 
000042 
000044 
0C0C46 
000046 
000C46 
000046 
000250 

000054 
000054 
000060 
000064 



026027 
103403 

01 2703 

000410 



01 6003 
006303 
0C6303 
006303 
006303 
006303 
006303 



01 0302 
162702 



01 6001 
062701 



MACY11 30AM052) 20-SEP-78 
DPSTRT ROUTINE 

.SBTTL DPSTRT ROUTINE 

ROUTINE DPSTRT <TABL> 



SAVE REGISTERS 



17:49 PAGE 19-2 



SEQ 0412 



000000G 



000000 



000046 001600 



160000 



000046 



006002 



000044 
000002 



DPSTRT 



CALL SAVREG 



SET RO TO THE START OF THE DATA TABLE 



JSR PC, SAVREG 



LET RO := TABL(R5) 



MOV TABL(R5),R0 



r 

MOVE THE XXDP MONITOR (EVEN IF IT DOESN'T EXIST, SINCE WE DON'T KNOW 

IF WE'RE UNDER XXDP OR ACT-1 1 ) FROM ITS LOAD AREA (HIGHEST NON-KT 

ADDRESSABLE MEMORY IN THE SYSTEM) TO JUST ABOVE THE EXERCISER. 

(R1 IS INITIALIZED TO THE 1ST FREE ADDRESS ABOVE THE EXERCISER, AND R2 IS 

INITIALIZED TO THE LOWEST ADDRESS OF XXDP.) 

IF DT.SSIZ(RO) HIS #1600 THEN 



ELSE 



LET R3 := #160000 



LET R3 := DT.SSIZ(RO) SHIFT #+6 



ENDIF 

LET R2 := R3 - #~D3074 

LET R1 := DT.ESIZ(RO) + #2 
WHILE R2 LO R3 DO 





CMP 


DT.SSIZ(RO) 


,#160 




BLO 


50002$ 






MOV 


#160000, R3 






BR 


50003$ 




50002$: 










MOV 


DT.SSIZ(RO) 


,R3 




ASL 


R3 






ASL 


R3 






ASL 


R3 






ASL 


R3 






ASL 


R3 






ASL 


R3 




50003$: 










MOV 


R3,R2 






SUB 


#~D3074,R2 






MOV 


DT.ESIZ(RO) 


R1 




ADD 


#2,R1 
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SEQ 0413 



(4) 
(6) 
(9) 
614 
(4) 
515 
(4) 
(3) 
616 
617 
618 
61S 
S20 
621 
622 
(4) 
(6) 
623 
624 
625 
626 
627 
628 
629 
(4) 
630 
531 
632 
633 
634 
635 
636 
(3) 
(5) 
(4) 
(3) 
(3) 
637 
636 
639 
640 
641 
642 
643 
(3) 
644 
645 
(3) 
(3) 
(2) 
646 
647 



000064' 
000064' 
000066' 
000070 ' 
CC0070' 
000072' 
000072' 
000074' 



020203 
103002 

01 2221 

000774 



LET (R1 )+ := (R2)+ 



ENDDO 



50004S: 








CMP 


R2, R3 




BHIS 


50005$ 




MOV 


(R2)+, (R1 )+ 




BR 


50004$ 


50005$: 







ADJUST THE EXERCISER SIZE TO INCLUDE THE XXDP MONITOR. 



000074' 

000074' 010160 000044 

000100' 162760 000002 000044 



LET DT.ESIZ(RO) 



R1 - #2 



MOV 
SUB 



INCREASE THE RELOCATION CONSTANT TO 28K, 



000106' LET DT.REL(RO) 

000106' 012760 001600 000040 



= #1600 



MOV 



0001 14 
0001 14 
0001 16 
000122 
000124 
000130 



NOW PRETEND A "RUN" COMMAND HAS BEEN TYPED. 



CALL KRUN IN <R0,#0> 



01 0546 
012745 
01 0045 
004767 
01 2605 



000000 



OOOOOOG 



000132' 
000132' 

000136' 
0001 36 ' 
000136' 
000136' 



RESTORE REGISTERS AND RETURN, 



CALL RESREG 



004767 OOOOOOG 



000207 



000001 



ENDRTN 



• END 



50000$: 
50001$: 



JSR 



RTS 



R1 .DT.ESIZ(RO) 
#2,DT.ESIZ(R0) 



#1600,DT.REL(R0) 



MOV 


R5,-(SP) 


MOV 


#0,-(R5) 


MGV 


R0,-(R5) 


JSR 


PC, KRUN 


MOV 


(SP)+,R5 



PC, RESREG 



PC 
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SEQ 0414 



ACSR = C0C102 

ACT3IT= 004000 

ADDR22= 001000 

ADR = 000006 

APTFER= 000004 

APTPRE= 000200 

ASB = 000106 

ASSEMB= 000010 

ASTAT = 000104 

AUTO = 000010 

AUTOST= 020000 

AWAS = 0001 10 

3IT0 = 000001 

3IT00 = 000001 

BIT01 = 000002 

BIT02 = 0C0C04 

BIT03 = 0C0010 

3IT04 = 000020 

3IT05 = 000040 

3IT06 = 000100 

3IT07 = 000200 

3IT08 = 000400 

31T09 = 001000 

3IT1 = 000002 

3IT10 = 002000 

BIT11 = 004000 

3IT12 = 010000 

3IT13 = 020000 

3IT14 = 040000 

3IT15 = 100000 

3IT2 = 000004 

3IT3 = 000010 

BIT4 = 000020 

3IT5 = 000040 

3IT6 = 000100 

3IT7 = 000200 

BIT8 = 000400 

3IT9 = 001000 

3KDEF = 000002 

3KM0D = 000020 

3KM0DE= 040000 

3KSLSH= 000134 

CAPRES= 000004 

CASTAT= 000004 

CDERCT= 000146 

CDWDC7= 000144 

CKTIM = 100000 

CLKPRE= 000001 

CONFIG= 000056 

CQOVF = 000001 

CR = 000015 

CSRA = 000100 

CSRC = 000102 



CTRLC = 000003 
CTRLO = 000017 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= 000400 
DIAGMC= 000000 
DPSTRT OOOOOORG 
DR0PM3= 100000 
DSEVNT= 000014 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000034 
DT.CF0= 000014 
DT.CF1= 000016 
DT.ERR= 000020 
DT.ESI= 0C0044 
DT.Ev'NU 000000 
DT.EXS= 000060 
DT.FCH= 00C037 
DT.FCN= 000036 
DT.HMX= 000104 
DT.K8E= 000024 
DT.KBP= 000026 
DT.KBR= 000022 
DT.KBU= 000030 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = 000002 
DT.PFL= 000062 
DT.PSW= 000004 
DT.PTA= 000064 
DT.RCS= 000102 
DT.REL= 000040 
DT.SCT= 000066 
DT.SMX= 000106 
DT.SP = 000006 
DT.SSI= 000046 
DT.STO= 000010 
DT.ST1= 000012 
DT.SWR= 0C0056 
DT.SYP= 000072 
DT.WBU= 000050 
DT.WHL= 000C54 
DT.WLL= 000052 
DVID1 = 000014 
ECCMEM= 000100 
ECCSTA= 000010 
ENBEOP= 010000 
ENBNUL= 000001 
ENDLST= 000000 



EOPBIT= 000001 
ERRTYP= 000105 
EVNTBE= 000200 
EVNTHD= 000200 
EVNTKT= 000203 
EVNTPE= 000202 
EVNTRE= 000201 
FATERR= 100000 
HRDCNT= 00C044 
HRDPAS= 000050 
ICGNT = 000033 
ICOUNT= 000040 
IDNUM = 000122 
IE = 000100 
INDPAR= 000040 
INHDRP= 040000 
INHEPR= 020000 
INHREL= 001000 
INHRRE= 000400 
INIT = 000030 
INTR = 000120 
IGMOD = 100000 
IOMODP= 102000 
IOMODR= 112000 
ICMODX= 1 1 0000 
JACK = 035060 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172345 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 
KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172305 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KRUN = ****** G 
KTERRO= 000040 
KTPRES= 000400 
KTSTAT= 000020 
KTXTND= 040000 
LF = 000012 
LPSTAT= 000001 
MAPSTA= 000200 
MED = 076600 
MEMPAS* 040000 
MODEXH= 004000 



MODHOL= 002000 
MODSEL= 001000 
MSGCKD= 000010 
MSGCKS= 00001 1 
MSGDER= 000005 
MSGDRP= 000017 
MSGECH= 17 7777 
MSGEOP= 000013 
MSGHDR= 000004 
MSGHNG= 000022 
MSGHRD= 000007 
MSGMAP= 000021 
MSGNUL= 177775 
MSGPOP= 000002 
MSGPRM= 177776 
MSGRES= 000001 
MSGSFT= 000006 
MSGSKE= 000003 
MSGSMB= 0C0015 
MSGSMH= 000014 
MSG5MS= 000016 
MSGSTD= 000000 
MSGSYS= 000012 
MSGVEC= 000020 
NBKMOD= 001000 
NCPUOP= 000020 
NOAPTY= 000002 
NULL = 000000 
OWEN = 024020 
PAERR = 000010 
PARPRE= 002000 
PARSTA= 000100 
PASCNT= 000034 
PDPLSI= 020000 
PDP60 = 004000 
PDP70 = 010000 
PRIO = 000000 
PRI1 = 000040 
PRI4 - 000200 
PRI5 = 000240 
PRI6 = 000300 
PRI7 = 000340 
PRO = 000000 
PR4 = 000200 
PR5 = 000240 
PR6 = 000300 
PR7 = 000340 
PS = 177776 
PSW = 177776 
RANNUM= 000054 
RBUFEA= 000130 
RBUFPA= 000126 
RBUFSZ= 000132 



RBUFVA= 000124 
RD3ERV= 000101 
RD*iHMI= 000022 
RELERR= 000020 
R£LMOD= 020000 
RELTIM= 010000 
RZSREG= ****** G 
RES1 = 000056 
RES2 = 000060 
RICHAR= 031060 
R°TDAT= 002000 
RSTRT = 000112 
R'JBOUT= 000177 
RUNMOD= 100000 
R5VALU= 001740 
SAM = 075464 
SAVREG= ****** G 
SBADR = 000102 
sbkv;od= 000000 
SBKSEL= 010000 
SC.ADR= C00006 
SC.ALC= 000014 
SC.APC= 000016 
SC.CKL= 000002 
SC.CKP= 00C004 
SC.CLO= 000000 
SC.HLD= 000010 
SC.SCA= 000012 
SENDLS= 177777 
SGFCNT= 000042 
SGFPAS= 000046 
SPACE = 0C0040 
SPOINT= 000032 
SPVALU= 002200 
SRC = 177572 
SRI = 177574 
SR2 = 177576 
SR3 = 172516 
STAT = 000025 
STATBI= 064757 
STAT1 = 000027 
SUSPND= 000001 
SVRO = 000062 
SVR1 = 000064 
SVR2 = 000066 
SVR3 = 000070 
SVR4 = 000072 
SVR5 = 000074 
SVR6 = 000076 
SYSCNT= 000052 
SYSERR= 000100 
TABL = 000000 
TMPIO = 000002 
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SEQ 0415 



TQOVF = 


000002 




UIPARO= 


1 77640 




UIPAR1 = 


1 77642 




UIPAR2= 


177644 




UIPAR3= 


177646 




UIPAR4= 


177650 




UIPAR5= 


177652 




UIPAR6= 


177654 




UIPAR7= 


177656 




UIPDRO= 


177600 




UIPDR1 = 


177602 




UIPDR2= 


177604 




UIPQR2= 


177606 




UIPDR4= 


177610 




UIPDR5= 


177612 




UIPDR6= 


177614 




UIPDR7= 


177616 




WASADR= 


000104 




. ABS. 


000000 


OCO 




000140 


001 



WBSTAT= 000040 
W3UFEA= 000136 
WBUFPA= 000134 
W3UFRQ= 000140 
WBUFSZ= 000142 
WDFR = 0001 16 
WDTO = 000114 
WTINRE= 000352 
WTWHMI= 000222 
XFLAG = 000005 
XOFF = 000023 
XON = 000021 
$BGNLE= 177777 
$ERFLG= 000400 
$F$AND= 000310 
$F$BAD= 000401 
$F$BLA= 000170 
$F$CAS= 000150 



$F$DEC= 000220 
$F$DO = 000340 
$F$FAL= 000405 
$F$GOO= 000400 
$F$IF = 0001 10 
$F$INC= 000210 
$F$LOO= 000200 
$F$NAM= 000160 
$F$NO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 0003C0 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 
$F$YES= 000402 



$IFLEV= 177777 
$ISKO = 000001 
$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000001 
$NESTL= 177777 
SNSKO = 000300 
$NSK1 = 000120 
$SAVLE= 177777 
SSSKO = 050005 
$TAGLE= 177777 
$TAGNU= 050006 
STEMP = 000300 
STSKO = 050004 
STSK1 = 050005 
$SARGC= 000002 
$SBYTE= 000403 
$$CASE= 000000 



$$DST = 000000 
$$ELOC= 000402 
$SERFL= 000000 
$$FLAG= 000340 
$$FROM= 000000 
$$LOC = 000066R 
$SLCCN= 000000 
$$REG = 177777 
$$RETU= 000000 
$3RTN1= 050000 
$$RTN2= 050001 
$SSRC = 000000 
$$TGSV= 000000 
$$TGS1= 000000 
$$TGS2= 000000 
$$T0 = 000000 
$$$TAG= 050000 
= 000140R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ: DPSTRT, DSKZ: DPSTRT=SPMAC/ML , EQUATE , DPSTRT 
RUM-TIME: 13 2 .3 SECONDS 
RUN-TIME RATIO: 34/16=2.1 
CORE USED: 14K (27 PAGES) 



•MAIN. MACY11 30A(1052) 20-SEP-78 17:50 

EQUATE. MAC 13-SEP-78 i6:l3 TABLE OF CONTENTS SEQ 0416 

3 COMMON EQUATE MODULE 

572 COMMON DEFINITIONS AND REFERENCES FOR DRPMOD 

575 000000' .PRINT ;SPMAC: VERSION 1.1 

599 DRPMOD ROUTINE 
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508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
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SEO 0417 



.TITLE DRPMOD DROP A MODULE FROM AN EXERCISER 
. IDENT /VO.O/ 



MODULE NAME: 

urtrmuu 

FUNCTIONAL DESCRIPTI 
THIS ROUTINE W 
FIRST INSURE T 
BEEN DROPPED. 
THE MODHOLD BI 
MODULES ACTIVE 
IN THE MODULE 1 
IF THE MODULE 
CLOCK PRESENT 
AND THE LOCATI 



ON: 

ILL DROP A MODULE FROM AN EXERCISER. IT WILL 
HAT THE MODULE BEING DROPPED HAS NOT ALREADY 
IF THE MODULE IS AN SBK OR NBK, IT WILL CLEAR 
T IN THE STATUS INDICATOR. THEN CLEAR THE 

BIT IN THE STATUS WORD AND SET THE DROPPED BIT 
S STATUS WORD. THEN, SET THE CKTIM BIT. 
BEING DROPPED IS THE SYSTEM CLOCK MODULE, THE 
BIT IN THE CONFIGURATION WORD WILL BE CLEARED 
ON SC.CLO WILL BE CLEARED. 



INPUTS: 

1 . DATA TABLE ADDRESS 

2. MODULE HEADER ADDRESS 

IMPLICIT INPUTS: 
DT.STO 
DT.ST1 
DT.PC 
DT.ADDR 
DT.SCT 
DT.CFO 
DT.MLST 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

1. DT.MACT - NUMBER OF MODULES ACTIVE 

2. DT.STO - STATUS INDICATOR 

3. DT.MEOP - MODULES END OF PASS COUNT 

4. DT.CFO - CONFIGURATION WORD 

5. DT.ST1 - STATUS INDICATOR 1 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 

1 . SAVREG 

2. RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL DRPMOD IN <DTADR ,MODHDR> 
WHERE 

1 . DTADR = ADDRESS OF DATA TABLE 

2. MODHDR - MODULE BEING DROPPED HEADER ADDRESS 



DRPWIOD DROP A MODULE FROM AN EXERCISES MACY11 30A(1052) 20-SEP-78 17:50 PAGE 19-1 
DRPMOD.MAC 28-JUL-78 OS: 14 COMMON EQUATE MODULE 



SEQ 0418 



564 
565 
566 
567 
568 
569 
570 



VERSION: 
0.0 

EDIT 



DATE 



BY 



REASON 



DRPMOD 
DRPMOD, 

572 
573 
574 
575 
(D 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 



DROP A MODULE FROM AN EXERCISER MACY11 30A(1052) 20-SEP-7S 17:50 PAGE . 1 9-2 
.MAC 28-JUL-78 09:14 COMMON DEFINITIONS AND REFERENCES FOR DRPMOD 

.SBTTL COMMON DEFINITIONS AND REFERENCES FOR DRPMOD 



SEQ 0419 



000000' 
000000 • 



000001 
000001 



.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTTAG=1 
$LSTIN=1 

* * * * * * * * * * $ * * * * * 

REFERENCED BY OTHER MODULES: 
GLOBL DRPMOD ;MODULE ENTRY POINT 

**************** 



GLOBAL REFERENCES: 

GLOBL ENQTQ 

GLOBL DUNCHK 

GLOBL SAVREG 

GLOBL RESREG 

**************** 
**************** 



ENQUEUE A MESSAGE 

SEE IF ANY OTHER MODULES CAN RUN 

SAVE THE REGISTERS 

RESTORE THE REGISTERS 
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599 
600 
601 
(2) 
602 
603 
604 
605 
506 
607 
(3) 
608 
(4) 
609 
(4) 
610 
611 
612 
513 
614 
615 
616 
517 
618 
(6) 

CIO 

620 
621 
(6) 
622 
(6) 
623 
624 
625 
626 
627 
628 
(4) 
629 
(6) 
630 
631 
632 
(6) 
(8) 
(6) 
(9) 
(6) 
633 
634 
635 
636 
637 
638 
639 
(6) 



000000' 
000000' 



000000' 

000000' 004767 
000004' 
000004' 016500 



OOOOOOG 



000000 



000010' 
000010' 



016501 000002 



000014' 

000014' 052760 100000 000012 



000022' 

000022' 042761 004000 000026 

000030 1 

000030' 052761 020000 000026 



000036' 

000036' 016102 000026 

000042' 

000042' 042702 064757 



000046" 
000046' 
000052" 
000054' 



020227 
001403 
020227 



000000 



001000 



000060' 001003 
000062' 
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DRPMOD ROUTINE 

.SBTTL DRPMOD ROUTINE 

ROUTINE DRPMOD <DTADR ,MODHDR> 



SEO 0420 



DRPMOD: 



INIT AND SAVE DATA TABLE ADDRESS AND MODULE HEADER ADDRESS 

CALL SAVREG 

LET RO := DTADR(R5) 

LET R1 := M0DHDR(R5) 



SET CKTIM BIT TO INDICATE THAT MODULE HAS BEEN 
DROPPED. SET DROPPED BIT IN MODULE STAT WORD 



LET DT.ST1(R0) := DT.STt(RO) SET. BY #CKTIM 

LET STAT(R1) := STAT(RI) CLR.BY #ACTBIT 
LET STAT(R1) := STAT(R1) SET. BY #BIT13 

h 

GET A COPY OF THE STATUS WORD AND SEE IF NBK OR SBK MOD 

LET R2 := STAT(R1 ) 

LET R2 := R2 CLR.BY tfSTATBITS 

IF R2 EQ #SBKMOD OR R2 EQ #NBKMQD THEN 



50002$: 



000062' 

000062' 042760 002000 000010 



IT'S AN SBK OR NBK SO CLEAR THE MODHOLD BIT IN DT.STO 



LET DT.STO(RO) := DT.STO(RO) CLR.BY #MODHOLD 



JSR 
MOV 
MOV 



BIS 

BIC 
BIS 



MOV 
BIC 



CMP 
BEO 
CMP 
BNE 



PC, SAVREG 
DTADR(R5) ,R0 
M0DHDR(R5),R1 



#CKTTM,DT.ST1 (RO 

#ACTBIT,STAT(R1 ) 
#BIT13,STAT(R1) 



STAT(R1 ),R2 
#STATBITS,R2 



R2,#SBKM0D 
50002$ 
R2,#NBKM0D 
50003$ 



EIC 



#MODHOLD,DT.ST0( 
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640 








641 


000070' 






(4) 


000070' 






642 








643 








644 








645 








646 








647 








648 


000070' 






(4) 


000070' 


016002 


000066 


649 








650 








651 








652 








653 








654 








655 








656 


C00074' 






(6) 


000074' 


020162 


000012 


(9) 


000100' 


001005 




657 








658 








659 








660 








661 


0001 02' 






(4) 


000102' 


005062 


000000 


662 


000106' 






(6) 


000106' 


042760 


000001 


663 








564 


000114' 






(4) 


000114' 






665 








666 








667 








668 








669 








670 








671 


000114' 






(3) 


000114' 


010546 




(5) 


000116' 


010145 




(4) 


000120' 


010045 




(3) 


000122' 


004767 


OOOOOOG 


(3) 


000126' 


012605 




672 








673 








674 








675 








676 








677 


000130' 






(4) 


000130' 


016003 


000002 


(6) 


000134' 


162703 


000002 


678 


000140' 






(3) 


000140' 


010546 




(8) 


000142' 


012745 


000000 


(7) 


000146' 


010145 
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END IF 



50003$: 



GET ADDRESS OF SYS CLOCK TABLE 



LET R2 := DT.SCT(RO) 



MOV 



IF SYS CLOCK IS THE ONE BEING DROPPED - CLEAR OUT SC.CLO 
AND CLOCK PRESENT BIT IN DT.CFO 



IF R1 EO SC.SCA(R2) THEN 

YUP - IT'S THE SYS CLOCK 

LET SCCL0(R2) := #0 

LET DT.CFO(RO) := DT.CFO(RO) CLR.BY #CLKPRES 



CMP 
BNE 



000014 



BIC 



ENDIF 



50004S: 



SEE IF ANY MORE MODULES CAN RUN 



CALL DUNCHK IN <R0,R1> 



MOV 
MOV 
MOV 
JSR 
MOV 



ENQUE THE MESSAGE 



LET R3 := DT.PC(RO) - #2 



CALL ENQTQ IN <R0 ,#MSGDRP , R3 , R1 , #0> 



MOV 
SUB 

MOV 
MOV 
MOV 



SEQ 0421 



DT.SCT(R0),R2 



R1 ,SC.SCA(R2) 
50004$ 



•JV* . O !_t-l I I 



#CLKPRES,DT.CFO( 



R5,-(SP) 
R1 ,-(R5) 
R0,-(R5) 
PC, DUNCHK 
(SP)+,R5 



DT.PC(RO) r R3 
#2,R3 

R5,-(SP) 
#0,-(R5) 
R1 t -(R5) 
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(6) 


000150' 


010345 






(5) 


000152' 


012745 


000017 




(4) 


000156' 


010045 






(3) 


000160' 


004767 


OOOOOOG 




I 3) 


000154' 


012605 






S73 










680 










681 








;+ 


682 








; CLEAN UP 


683 








;- 


684 










685 


000166' 






CALL RESREG 


(3) 


000166' 


004767 


OOOOOOG 




686 










587 


000172' 






ENDRTN 


(3) 


000172' 








(3) 


000172' 








(2) 


000172' 


000207 






588 










689 










690 




000001 




• END 





SEQ 0422 


MOV 


R3,-(R5) 


MOV 


#MSGDRP,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC.ENQTQ 


MOV 


(SP)-f t R5 



50000: 

50001J 



JSR 



RTS 



PC, RESREG 



PC 
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ACSR = 
ACT3IT= 
ADDR22= 
ADR 

APTFE'Rr 
APTPRE= 
ASB 

ASSEMB= 
ASTAT = 
AUTO = 
AUTOST= 
AW AS = 
BITO = 
BITOO = 
BIT01 = 
BIT02 = 
BIT03 = 
BIT04 = 
BIT05 = 
BIT06 = 
BIT07 = 
BIT08 = 
BIT09 = 
BIT1 = 
BIT10 = 
BIT11 = 
BIT12 = 
BTT13 = 
BIT14 = 
BIT15 = 
BIT2 = 
BIT3 = 
BIT4 = 
BIT5 = 
BITS = 
BIT7 = 
BIT8 = 
BIT9 = 
BKDEF = 
BKMOD = 
BKMODE= 
BKSLSH= 
CAPRES= 
CASTAT= 
CDERCT= 
CDWDCT= 
CKTIM = 
CLKPRE= 
CONFIG= 
CQOVF = 
CR 

CSRA = 
CSRC = 



000102 

004000 

001000 

000006" 

000004 

000200 

000106 

000010 

000104 

000010 

020000 

000110 

000001 

000001 

000002 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

000002 

002000 

004000 

010000 

020000 

040000 

100000 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

000002 

000020 

040000 

000134 

000004 

000004 

000146 

000144 

100000 

000001 

000056 

000001 

000015 

000100 

000102 



CTRLC = 


000003 


CTRLO = 


000017 


CTRLU = 


000025 


DCEVNT= 


000011 


DEFRTN= 


000400 


r\ t ji r*njio_ 


C^OOOO 


U i MUHIU- 




DROPMO.= 


100000 


DRPMOD 


OOOOOORG 


DSEVNT= 


000014 


DTADR = 


000000 


DT.ADD= 


000042 


DT.AP = 


000100 


DT.APK= 


000076 


DT.BLS= 


000034 


DT.CFO= 


000014 


DT.CF1= 


000016 


DT.ERR= 


000020 


DT.ESI= 


000044 


DT.EVN= 


000000 


DT.EXS= 


000060 


DT.FCH= 


000037 


DT.FCN= 


000036 


DT.HMX= 


000104 


DT.KBE= 


000024 


DT.KBP= 


000026 


DT.KBR= 


000022 


DT.KBU= 


000030 


DT.MLS= 


000032 


DT.MTI= 


000110 


DT.OFF= 


000070 


DT.PAS= 


000074 


DT.PC = 


000002 


DT.PFL= 


000062 


DT.PSW= 


000004 


DT.PTA= 


000064 


DT.RCS= 


000102 


DT.REL= 


000040 


DT.SCT= 


0000S6 


DT.SMX= 


000106 


DT.SP = 


000006 


DT.SSI= 


000046 


DT.STO= 


000010 


DT.ST1= 


000012 


DT.SWR= 


000056 


DT.SYP= 


000072 


DT.WBU= 


000050 


DT.WHL= 


000054 


DT.WLL= 


000052 


DUNCHK= 


** **** Q 


DVID1 = 


000014 


ECCMEM= 


000100 


ECCSTA= 


000010 


ENBEOP= 


010000 



ENBNUL= 

ENDLST= 

ENQTQ = 

EOPBIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHSEL= 

INHRRE= 

INIT = 

INTR = 

IOMOD = 

IOM0DP= 

I0M0DR= 

IOMODX^ 

JACK = 

KIPAR0= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPSTAT= 

MAPSTA= 

MED 



000001 
000000 

000001 
000106 
000200 
000200 
000203 
000202 
000201 
100000 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000030 
000120 
100000 
102000 
1 12000 
110000 
035060 
17234,0 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 
000001 
000200 
076600 
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MEM'PAS= 


040000 


MODEXH= 


004000 


MODHDR= 


000002 


MODHQL= 


002000 


MODSEL= 


001000 


MSGCKD= 


000010 


MSGCKS= 


00001 1 


MSGDER= 


000005 


MSGDRP= 


000017 


MSGECH= 


177777 


MSGEOP= 


000013 


MSGHDR= 


000004 


MSGHNG= 


000022 


MSGHRD= 


000007 


MSGMAP= 


000021 


MSGNUL= 


177775 


MSGPOP= 


000002 


MSGPRM= 


177776 


MSGRES= 


000001 


MSGSFT= 


000006 


MSGSKE= 


000003 


M5GSMB- 


000015 


MSGSMH= 


000014 


MSGSMS= 


000016 


MSGSTD= 


000000 


MSGSY'S = 


000012 


MSGVEC= 


0000^0 


NBKMOD= 


001000 


NCPUOP= 


000020 


NOAPTY= 


000002 


NULL = 


000000 


OWEN = 


024020 


PAERR = 


000010 


PARPRE= 


002000 


PARSTA= 


0001C0 


PASCNT= 


000034 


PDPLSI= 


020000 


PDP60 = 


004000 


PDP70 = 


010000 


PRIO = 


000000 


PRI1 = 


000040 


PRI4 = 


000200 


PRI5 = 


000240 


PRI6 = 


000300 


PRI7 = 


000340 


PRO 


000000 


PR4 


000200 


PR5 


000240 


PR6 


000300 


PR7 


000340 


PS 


177776 


PSW 


177776 


RANNUM= 


000054 







SEQ 0423 


RBUFEA= 


000130 




RBUFPA= 


000126 




R3UFSZ= 


000132 




R3UFVA= 


000124 




RDSERV= 


000101 




RDWHMI= 


000022 




RELERR= 


000020 




RELMOD= 


020000 




RELTIM= 


010000 




RESREG= 


****** Q 




RES1 = 


000056 




RES2 = 


000060 




RICHAR= 


031060 




RPTDAT= 


002000 




RSTRT = 


000112 




RUBOUT= 


000177 




RUNMOD= 


100000 




R5VA.LU = 


001740 




SAM 


075464 




SAVREG= 


****** Q 




SBADR = 


000102 




SBKMOD= 


000000 




SBKSEL= 


010000 




SC.ADR= 


000006 




SC.ALC= 


000014 




SC.APC= 


000016 




SC . CKL= 


000002 




SC.CKP= 


000004 




SC.CLO= 


000000 




SC.HLD= 


000010 




SC.SCA= 


000012 




SENDLS= 


177777 




SOFCNT= 


000042 




SOFPAS= 


000046 




SPACE = 


000040 




SPOINT= 


000032 




S?VALU= 


002200 




SRO 


177572 




SR1 


177574 




SR2 


177576 




SR3 


172516 




STAT = 


000026 




STATBI= 


064757 




STAT1 = 


000027 




SUSPND= 


000001 




SVRO = 


000062 




SVR1 = 


000064 




SVR2. = 


000066 




SVR3 = 


000070 




SVR4 = 


000072 




SVR5 = 


000074 




SVR6 = 


000076 




SYSCNT= 


000052 
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SYSERR= 


000100 




UIPDR7= 


177616 


TMPIO = 


000002 




WASADR= 


000104 


TQOVF = 


000002 




WBSTAT= 


000040 


UIPAR0= 


177640 




WBUFEA= 


000136 


UIPAR1= 


177642 




WBUFPA= 


000134 


UI PAR2= 


■* '"7 r 7 O A A 

1 / / ott 




WBUFR^= 


000140 


UIPAR3= 


177646 




WBUFSZ= 


000142 


UIPAR4= 


177650 




WDFR = 


000116 


UIPAR5= 


177652 




WDT0 = 


000114 


UIPAR6= 


177654 




WTINRE= 


000352 


UIPAR7= 


177656 




WTWHMI= 


000222 


UIPDR0= 


177600 




XFLAG = 


000005 


UIPDR1= 


177602 




XOFF = 


000023 


UIPDR2= 


177604 




X0N 


000021 


UIPDR3= 


177606 




$BGNLE= 


177777 


UIPDR4= 


177610 




$ERFLG= 


000400 


UIPDR5= 


177612 




$F$AND= 


000310 


UIPDR6= 


177614 




$F$BAD= 


000401 


. ABS. 


000000 
000174 


000 
001 







$FSBLA= 
$F$CAS= 
$F$DEC= 
SF$D0 = 
$FSFAL= 
$FSGOO= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$F$UMT= 



000170 
000150 
000220 
000340 
000405 
000400 
000110 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 



$F$WHI= 000120 
$F$YES= 000402 
$IFLEV= 177777 
$ISK0 = 000001 
$LOCTA= 177777 
$LSTIN= 000001 
SLSTTA= 000001 
SNESTL= 177777 
$NSK0 = 000300 
SNSK1 = 000110 
SSAVLE= 177777 
$TAGLE= 177777 
$TAGNU= 050005 
STEMP = 000300 
$TSK0 = 050004 
$$ARGC= 000004 
$$BYTE= 000403 
$$CASE= 000000 







SEQ 0424 


$$DST = 


000000 




$$EL0C= 


000402 




$$£RFL= 


000000 




$$FLAG= 


000001 




$$FROM= 


000000 




4> ^P t-u/C = 


000100R 




$SLGCN= 


000000 




SSREG = 


177777 




$SRETU= 


000000 




$SRTN1= 


050000 




S$RTN2= 


050001 




SSSRC = 


000000 




SSTGSV= 


000000 




$$TGS1= 


000000 




SSTGS2= 


000000 




$$T0 = 


000000 




$$$TAG= 


050000 




= 


000174R 





ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ:DRPMOD,DSKZ:DRPMOD=SPMAC/NIL, EQUATE, DRPMOD 
RUN-TIME: 13 3 .4 SECONDS 
RUN-TIME RATIO: 38/17=2.1 
CORE USED: 14K (27 PAGES) 



.MAIN. MACYIt 30A(1052) 20-SEP-78 17:51 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0425 

3 COMMON EQUATE MODULE 
563 COMMON DEFINITIONS AND REFERENCES FOR DUNCHK 

566 000000' .PRINT ;SPMAC: VERSION 1.1 
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SEQ 0426 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
53S 
53S 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 



.TITLE DUNCHK - SEE IF ANY MORE MODULES CAN RUN 
.IDENT /VO.O/ 



MODULE NAME: 
DUNCHK 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE CHECKS ALL OPTION MODULES TO SEE IF ANY OPTION 

MODULE CAN POSSIBLY RUN. IF NOT, AND THE EXERCISER IS RELOCATED, 

A RELOCATION BACK TO LOWEST MEMORY OCCURS AND A RETURN TO CMD 

MODE TAKES PLACE. A MESSAGE INDICATING THAT THE 

RUN IS OVER AND THE LAST MGDULE IS DROPPED IS OUTPUTTED. 

IF MORE MODULES CAN RUN, A RETURN SIMPLY OCCURS. 

INPUTS: 

1 . DTABLE 

2. MODULE HEADER ADDRESS (OF MODULE BEING DROPPED) 

IMPLICIT INPUTS: 

1 . OT.MLST 

2. DT.ADDR 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
1. DT.STO 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 



1 . 

2. 

3. 
4. 
5. 
6. 


PRRLOC 

SAVREG 

RESREG 

MSGDHOOK 

APTKIL 

APTDED 


FUNCTIONAL SIDE EFFECTS: 

NONE 



CALLING SEQUENCE: 

CALL DUNCHK IN <DT,AD> WHERE DT = DATA TABLE ADDRESS 
AND AD = MODULE HEADER ADDRESS. 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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SEQ 0427 



563 
564 
565 
566 
£1) 
567 
563 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 

601 



602 
603 
604 
605 



000000' 
000000' 



000000' 
000001 ' 
000006' 
000014' 
000016* 
000024' 
00Q032 1 
000040' 
000046' 
000054' 
000062' 



000001 
000001 



045 
000005 
042040 
042105 
020445 
020116 
026440 
046440 
051505 
050120 
022441 
000066 



047522 050120 



020041 
053117 
040440 
042117 
042040 
042105 
000 



052522 
051105 
0461 14 
046125 
047522 
020440 



.SBTTL COMMON DEFINITIONS AND REFERENCES FOR DUNCHK 

.MCALL STRUCT 

STRUCT: 

.PRINT ;SPMAC: VERSION 1.1 

$LSTTAG=1 

$LSTIN=1 



•J:***** ********** 

REFERENCED BY OTHER MODULES: 
GLOBL DUNCHK 

**************** 

GLOBAL REFERENCES: 



GLOBL 


SAVREG 




GLOBL 


RESREG 




GLOBL 


PRRLOC 


RELOCATE CODE 


GLOBL 


MSGDHOOK 


;0/P A MESSAGE 


GLOBL 


DX.RSTRT 


JRESTART ADDRESS 


GLOBL 


APTDED 


;PUT APT IN THE COFFIN 


GLOBL 


APTKIL 


;KILL APT FATALLY 



**************** 



*************** 



LOCAL STORAGE: 



DR. WOW: .ASCII /%/ 

DR. NAM: .BLKB 5 

.ASCII / DROPPED/ 

.ASCIZ /%!! RUN OVER - ALL MODULES DROPPED ! !%/ 



EVEN 
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ROUTINE DUNCHK <DTB,MOD> 

CALL SAVREG 

LET RO := DTB(R5) 

LET R1 := M0D(R5) 



SEQ 0423 



607 


000066 






(2) 


000066 






608 


000066 






(3) 


000066 


004767 


OOOOOOG 


609 


000072 






(4) 


000072 


016500 


000000 


610 


000076 






(4) 


000076 


016501 


000002 


S11 








512 








613 








614 








615 








615 








517 








618 








619 


000102 






(6) 


000102 


032760 


000200 000014 


(9) 


0001 10 


001413 




620 


0001 12 






(3) 


000112 


010546 




(5) 


000114 


010145 




(4) 


0001 16 


010045 




(3) 


000120 


004767 


OOOOOOG 


(3) 


000124 


012505 




621 


000126 






(3) 


000 i 26 


01 0546 




(4) 


000130 


010045 




(3) 


000132 


004767 


OOOOOOG 


(3) 


000136 


012605 




622 


000140 






(4) 


000140 






623 








624 








625 








626 








627 








628 


000140 






(4) 


000140 


015002 


000032 


629 


000144 


. 




(4) 


000144 


005004 




630 


000146 






(4) 


000146 


■ 




(6) 


000146 


005712 




(9) 


000150 


001413 




631 


000152 






(4) 


000152 


012203 




632 


000154 






(6) 


000154 


032763 


040000 000026 


(9) 


000162 


001405 




(6) 


000164 


032763 


020000 000026 


(9) 


000172 


001001 




633 


000174 






(6) 


000174 


005204 




634 


000176 






(4) 


000176 







DUNCHK: 



JSR 
MOV 
MOV 



IF UNDER APT AND WE GOT HERE (TO DUNCHK) IT WAS PROBABLY THE CLOCK 
THAT DID IT - SO CALL THE APTDED ROUTINE WHICH WILL PUT THE 

DROPPED MODULE NAME INTO APT MAILBOX THEN CALL APTKIL, 

WHICH WILL HALT THE EXERCISER FATALLY 



IF #APTPRES SETIN DT.CFO(RO) THEN 



CALL APTDED IN <R0,R1> 



CALL APTKIL IN <R0> 

ENDIF 

SEE IF THERE ARE ANY POSSIBLE MODULES LEFT TO RUN 

LET R2 := DT.MLST(RO) 

LET R4 := #0 

WHILE (R2) NE #0 DO 

LET R3 := (R2)+ 



IF #BIT14 SETIN STAT(R3) AND #BIT13 NOTSETIN STAT(R3) THEN 

LET R4 := R4 + #1 

INC 
ENDIF 

50005$: 



PC, SAVREG 
DTB(R5) ,R0 
M0D(R5) ,R1 



BIT 


#APTPRES,DT.CF0( 


BEQ 


50002$ 


MOV 


R5,-(SP) 


MOV 


R1,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, APTDED 


MOV 


(SP)+,R5 


MOV 


R5,-(SP) 


MOV 


R0i-(R5) 


JSR 


PC, APTKIL 


MOV 


(SP)+,R5 


50002$: 





MOV 


DT.MLST(RO) ,R2 


CLR 


R4 


0003$: 




TST 


(R2) 


EEQ 


50004$ 


MOV 


(R2)+,R3 


(R3) THEN 




BIT 


#BIT14,STAT(R3) 


BEO 


50005$ 


BIT 


#BIT13,STAT(R3) 


BNE 


50005$ 



R4 
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ENDDO 



SEQ 0429 



635 


000176 1 






(4) 


000176' 


000763 




(3) 


000200' 






536 








637 








638 








639 








640 








641 








542 








643 








S44 


000200' 






(6) 


000200' 


005704 




(9) 


000202' 


001046 




645 


000204' 






(4) 


000204' 


012702 


000001 ' 


646 


000210' 






(4) 


000210' 


012703 


000005 


647 


000214' 






(4) 


000214' 






(6) 


000214' 


005703 




(9) 


000216' 


001403 




648 


000220' 






(4) 


000220' 


112122 




649 


000222' 






(6) 


000222' 


005303 




650 


000224 : 






(4) 


000224' 


000773 




(3) 


000226' 






651 


000226' 






(3) 


000226' 


010546 




(7) 


000230* 


012745 


000260' 


(6) 


000234' 


012745 


000000' 


(5) 


000240' 


012745 


000002 


(4) 


000244' 


010045 




(3) 


000246' 


004767 


OOOOOOG 


(3) 


000252' 


012605 




652 


000254' 






(2) 


000254' 


000240 




653 


000256' 






(2) 


000256' 


000776 




654 


000260' 






(2) 


000260' 






655 








656 








657 








658 








659 








660 








661 


000260' 






(6) 


000260' 


026027 


000042 


(9) 


000266' 


001407 




662 


000270' 






(3) 


000270' 


010546 




(5) 


000272' 


012745 


000200 


(4) 


000276' 


010045 





BR 



50004$: 



IF NO MORE CAN RUN, GET THE MODULE NAME INTO THE 

MESSAGE THAT SAYS !! RUN OVER !! ETC. AND THEN 0/P MESSAGE. 



IF R4 EQ #0 THEN 

LET R2 := #DR.NAM 

LET R3 := #5 

WHILE R3 NE #0 DO 

50007$: 

LET (R2}+ :B= (R1) + 
LET R3 := R3 - #1 



50010S: 



CALL MSGDHOOK IN <R0 , #MSGPOP , #DR . WOW, #443$> 



000200 



INLINE <1$: NOP> 
INLINE <BR 1S> 
INLINE <443$:> 

IF RELOCATED, RELOCATE BACK DOWN TO ZERO 
IF DT.ADDR(RO) NE #200 THEN 

CALL PRRLOC IN <R0,#200> 



50003$ 



TST 

BNE 


R4 

50006$ 


MOV 


#DR.NAM,R2 


MOV 


#5,R3 


TST 
BEQ 


R3 
50010$ 


MOVB 


(R1)+,(R2)+ 


DEC 


R3 


BR 


50007$ 


MOV 
MOV 
MOV 
MOV 
MOV 
USR 
MOV 


R5,-(SP) 

#443$, -(R5) 

#DR.W0W,-(R5) 

#MSGP0P,-(R5) 

R0,-(R5) 

PCMSGDHOOK 

(SP)+,R5 


1$: 


NOP 


BR 


1$ 


443$: 





CMP DT.ADDR(RO) ,#200 

SEQ 50011$ 

MOV R5,-(SP) 

MOV #200, -(R5) 

MOV R0,-(R5) 



DUNCHK 
DUNCHK 

(3) 
(3) 
663 
(4) 
664 
665 
(6) 
866 
667 
(2) 
668 
869 
(4) 
670 
671 
672 
673 
674 
675 
876 
677 
678 
(3) 
679 
(3) 
(3) 
(2) 
680 



- SEE IF ANY MORE MODULES CAN RUN MACY11 30A(1052) 20-SEP-78 17:51 PAGE 19-4 
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000300' 004767 OOOOOOG 
000304 ' 012805 
000306' 
000306' 

000306' 

000306' 042760 100000 000010 

00031 4 ' 

000314' 000167 OOOOOOG 

000320' 
000320' 



ENDIF 

LET DT.STO(RO) := DT.STO(RO) CLR.BY #RUNMODE 

INLINE < JWIP DX.RSTRT> 



50011$: 



JSR 
MOV 



aiu 



JMP 



ENDIF 



50006$: 



000320' 
000320' 
000324' 
000324' 
000324' 
000324 ! 



004767 OOOOOOG 



uuu^u / 
000001 



RESTORE REGISTERS 

CALL RESREG 
ENDRTN 

.END 



50000S: 
50001$: 



JSR 



RTq 



SEQ 0430 



PC,PRRLOC 
(SP)+,R5 



ffKuNiviODE , DT . STO ( 



DX.RSTRT 



PC, RESREG 



pr 
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17151 PAGE 20 



ACSR = 
ACTBIT= 
ADDR22= 
ADR 

APTDED= 
APTFER= 
APTKIL= 
APTPRE= 
ASB 

ASSEM3= 
ASTAT = 
AUTO = 
AUTOST= 
AWAS = 
BITO = 
BITOO - 
BIT01 = 
BIT02 = 
BIT03 = 
BIT04 = 
BIT05 = 
BIT06 = 
BIT07 = 
BIT08 = 
BIT09 = 
BIT1 = 
BIT10 = 
BIT11 = 
BIT12 = 
BIT13 = 
BIT14 = 
BIT15 = 
BIT2 = 
BIT3 = 
3IT4 = 
3IT5 = 
BIT6 = 
BIT7 = 
BITS = 
BIT9 = 
BKDEF = 
3KM0D = 
3KM0DE= 
BKSLSH= 
CAPRES= 
CASTAT= 
CDERCT= 
CDWDCT= 
CKTIM = 
CLKPRE= 
CONFIG= 
CQOVF = 
CR 



000102 
004000 
001000 
000006 

* ** * ** 

000004 
****** 
000200 
000106 
000010 
000104 
000010 
020000 
000110 
000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 
100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
000020 
040000 
000134 
000004 
000004 
000146 
000144 
100000 
000001 
000056 
000001 
000015 



CSRA = 

CSRC = 

CTRLC = 

CTRLO = 

CTRLU = 

DCEVNT= 

DEFRTN= 

DIAGMC= 

DROPMO= 

DR. NAM 

DR. WOW 

DSEVNT= 

DTB 

DT.ADD= 

DT.AP = 

DT.APK= 

DT.BLS= 

DT.CFO= 

DT.CF1= 

DT,ERR= 

DT.ESI= 

DT..EVN = 

DT»EXS= 

DT.FCH= 

DT.FCN= 

DT.HMX= 

DT .KBE = 

DT.KBP= 

DT.KBR= 

DT.KBU= 

DT.MLS= 

DT.MTI= 

DT.OFF= 

DT.PAS= 

DT.PC = 

DT.PFL= 

DT.PSW= 

DT.PTA= 

DT.RCS= 

DT.REL= 

DT.SCT= 

DT.SMX= 

DT.SP = 

DT.SSI= 

DT.STO= 

DT.ST1= 

DT.SWR= 

DT.SYP= 

DT.WBU= 

DT.WHL= 

DT.WLL= 

DUNCHK 

DVID1 = 



000100 

000102 

000003 

000017 

000025 

000011 

000400 

000000 

100000 

000001R 

OOOOOOR 

000014 

000000 

000042 

000100 

000076 

000034 

000014 

000016 

000020 

000044 

000000 

000060 

000037 

000036 

000104 

000024 

000026 

000022 

000030 

000032 

0001 10 

000070 

000074 

000002 

000062 

000004 

000064 

000102 

000040 

000066 

000106 

000006 

000046 

000010 

000012 

000056 

00.0072 

000050 

000054 

000052 

000066RG 

000014 



DX.RST= 

ECCMEM= 

ECCSTA= 

ENBEOP= 

EN8NUL= 

ENDLST= 

EOPBIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT = 

iN i R 

IOMOD = 

IOMODP= 

IOMODR= 

IOMOD'X = 

JACK = 

KIPARO= 

KIPAR1= 

KIPAR2- 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 



****** 
000100 
000010 
010000 
000001 
000000 
000001 
000106 
000200 
000200 
000203 
000202 
000201 
100000 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
= 000030 
- 000 1 ^.0 
100000 
102000 
112000 
110000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 



LPSTAT= 


000001 


MAPSTA= 


000200 


MED 


076600 


MEMPAS= 


040000 


MOD' 


000002 


MODEXH= 


004000 


MODHOL= 


002000 


MODSEL= 


001000 


MSGCKD= 


000010 


MSGCKS= 


00001 1 


MSGDER= 


000005 


MSGDHO= 


* * * * * * 


MSGDRP= 


000017 


MSGECH= 


177777 


MSGEOP= 


000013 


MSGHDR= 


000004 


MSGHNG= 


000022 


MSGHRD= 


000007 


■MSGMAP = 


000021 


M5GNUL= 


177775 


MSGPOP= 


000002 


MSGPRM= 


177776 


MSGRE5= 


000001 


MSGSFT= 


000006 


MSGSKE* 


000003 


MSGSMB= 


000015 


I'rlJUO.lii 1 — 


wuyu i -t 


MSGSMS- 


000016 


MSGSTD= 


000000 


MSGSYS= 


000012 


MSGVEC= 


000020 


N3KM0D= 


001000 


NCPUOP= 


000020 


NOAPTY= 


000002 


NULL = 


000000 


OWEN = 


024020 


PAERR = 


000010 


PARPRE= 


002000 


PARSTA= 


000100 


PASCNT= 


000034 


PDPLSI= 


020000 


PDP6.0 = 


004000 


PDP70 = 


010000 


PRIO = 


000000 


PRI1 = 


000040 


PRI4 = 


000200 


PRI5 = 


000240 


PRI6 = 


000300 


PRI7 = 


000340 


PRRLOC= 


****** 


PRO 


000000 


PR4 


000200 


PR5 


000240 







SEQ 0431 


PR6 


000300 




PR7 


000340 




PS 


177776 




PSW 


177776 




RANNUM= 


000054 




R3UFEA= 


000130 




RBUFPA= 


000126 




R3UFS2= 


000132 




RBUFVA= 


000124 




RDSERV= 


000101 




RDWHMI= 


000022 




RELERR= 


000020 




RELMOD= 


020000 




RELTIM= 


010000 




RESREG= 


af: ^c ^ sjc sjc >je Q 




RES1 = 


000056 




RES2 = 


000060 




RICHAR= 


031060 




RPTDAT= 


002000 




RSTRT = 


0001 12 




RUBOUT= 


000177 




RUNMOD= 


100000 




R5VALU= 


001740 




SAM 


075464 




SAVREG= 


****** Q 




SBADR = 


000102 




c3L'imn = 


000000 




SBKSEL= 


010000 




SC.ADR= 


000006 




SC.ALC= 


000014 




SC.APC= 


000016 




SC.CKL= 


000002 




SC.CKP= 


000004 




SC.CLO= 


000000 




SC.HLD= 


000010 




SC.SCA= 


000012 




SENQLS= 


177777 




SOFCNT= 


000042 




SQFPAS= 


000046 




SPACE = 


000040 




SPOINT= 


000032 




SPVALU= 


002200 




SRC 


177572 




SR1 


177574 




SR2 


177576 




SR3 


172516 




STAT = 


000026 




STATBI= 


064757 




STAT1 = 


000027 




SUSPND= 


000001 




SVRO = 


000062 




SVR1 = 


000064 




SVR2 = 


000066 
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SEQ 0432 



SVR3 = 


000070 




UIPDR4= 


177610 


SVR4 = 


000072 




UIPDR5= 


177612 


SVR5 = 


000074 




UIPDR6= 


177614 


SVR6 = 


000076 




UIPDR7= 


177616 


SYSCNT= 


0OG052 




WASADR= 


000104 


SYSERR= 


000100 




WBSTAT= 


C00040 


TMPIO = 


000002 




WBUFEA= 


000136 


TQOVF = 


000002 




WBUFPA= 


00 0134 


UIPAR0= 


177640 




WBUFRQ= 


000140 


UIPAR1= 


177642 




WBUFSZ= 


000142 


UIPAR2= 


177644 




WDFR = 


000116 


UIPAR3= 


177646 




WDTO = 


000114 


UIPAR4= 


177650 




WTINRE= 


000352 


UIPAR5= 


177652 




WTWHMI= 


000222 


UIPAR6= 


177654 




XFLAG = 


000005 


UIPAR7= 


177656 




XOFF = 


000023 


UIPDR0= 


177600 




XON 


000021 


UIPDR1= 


177602 




$BGNLE= 


177777 


UIPDR2= 


177604 




$ERFLG= 


000400 


UIPDR3= 


177606 




$F$AND= 


000310 


. ABS. 


000000 
000326 


000 
001 







$F$BAD= 
$FSBLA= 
$F$CAS= 
$F$DEC= 
SFSDO = 
$F$FAL= 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$FSOR = 
$F$RTI= 
$F$RTN= 
$FSSEL= 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 



000401 
000170 
000150 
000220 
000340 
000405 
000400 
000110 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 



$F$YES= 
$IFLEV= 
$ISK0 = 
SISK1 = 
$LOCTA= 
$LSTIN= 
SLSTTA= 
$NESTL= 
SNSKO = 
SNSK1 = 
SNSK2 = 
$SAVLE= 
SSSKO = 
$TAGLE= 
$TAGNU= 
$TEMP = 
$TSKO = 
$TSK1 = 
STSK2 = 
$$ARGC= 



000402 
177777 
000001 
000001 
177777 
000001 
000001 
177777 
000300 
000110 
000110 
177777 
050010 
177777 
050012 
000300 
050006 
05001 1 
050010 
000004 



$$8YTE= 

$$CASE= 
$$DST = 
$SELOC= 
$SERFL= 
$SFLAG= 

CfirnnM- , . 



$$LOC = 
$SL0CN= 
SSREG = 
SSRETU = 
$SRTN1= 
$$RTN2 = 
SSSRC = 
SSTGSV= 
$$TGS1= 
$$TGS2= 

ssto = 

$S$TAG= 



000403 
000000 
000000 
000402 
000000 
000001 
nnnQQA 

000266R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000326R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ: DUNCHK, DSK2;DUNCHK=SPMAC/ML, EQUATE, DUNCHK 
RUN-TIME: 14 4 .4 SECONDS 
RUN-TIME RATIO: 41/20=2.0 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:51 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0433 

3 COMMON EQUATE MODULE 

562 COMMON DEFINTIONS AND REFERENCES 

565 000000' .PRINT ;SPMAC: VERSION 1.1 

628 ERREC ROUTINE 
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SEQ 0434 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 



.TITLE ERREC - ERROR RECOVERY 
. IDENT /VO.O/ 



MODULE NAME: 
ERREC 

FUNCTIONAL DESCRIPTION: 

ON FATAL ERRORS, THE CURRENT RUN OF THE EXERCISER IS 
ABORTED. IF THE ERROR IS NOT FATAL, THE EXERCISER IS 
RESTARTED. ' 

INPUTS: 

DATA TABLE ADDRESS 

IMPLICIT INPUTS: 

DT.ERR, DT.ADDR, DT.CFO 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.STO 

PATHOLGICAL CONNECTIONS: 

BUSY FLAG IN MSGDEQ (MD.BSY) 



SUBORDINATE MODULES CALLED: 
MSGDHOQK 
PRRLOC 
WBFLIM 
UNIMAP 
MSGDEQ 
CLKON 
KBINI 
APTKIL 
SAVREG 
RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL ERREC IN <A> 

A=DATA TABLE ADDRESS 

VERSION: 
0.0 



HOOK MESSAGE TO PROPER DRIVER 

PROCESS RELOCATION 

DETERMINE WRITE BUFFER LIMITS 

LOAD UNIDUS MAP 

MESSAGE DEQUEUER 

TURN ON SYSTEM CLOCK 

INITIALIZE KEYBOARD 

KILL AN APT RUN 

SAVE REGISTERS 

RESTORE REGISTERS 



EDIT 



BY 



DATE 



REASON 
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SEQ 0435 



562 
563 
564 
565 
(1) 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 



609 



610 



000000' 
000000' 



000000' 
000000' 
000002' 
000004' 
000006' 
000010' 
000012' 
000014' 



000016' 
000024' 
000032' 
000040' 
000045' 
000052' 
000060' 
000066' 



000001 
000001 



000072' 
000121 ' 
000145' 
000151 ' 
000167' 
000202' 
000205' 



043045 
042440 
052045 
047101 
040 
051522 
040440 
042105 



052101 
051122 
047517 
0201 31 
051105 
051045 
047502 
000045 



046101 
051117 
046440 
000 
047522 
047125 
052122 



.SBTTL COMMON DEFINTIONS AND REFERENCES 

.iViCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



**************** 

REFERENCED BY OTHER MODULES: 
GLOBL ERREC 

**************** 



;MODULE ENTRY POINT 



GLOBAL REFERENCES 



GLOBL 


MSGDHOOK 


GLOBL 


APTKIL 


GLOBL 


PRRLOC 


GLOBL 


WBFLIM 


GLOBL 


■UNIMAP 


GLOBL 


MSGDEQ 


GLOBL 


CLKON 


GLOBL 


K B I N I 


GLOBL 


DX.RSTST 


GLOBL 


MD.BSY 


GLOBL 


MD.COD 


GLOBL 


SAVREG 


GLOBL 


RESREG 



;MONITOR'S RESTART LOCATION 

; MSGDEQ BUSY FLAG 

; MESSAGE CODE IN MSGDEQ 



**************** 
LOCAL STORAGE 

ER.TBL: 

.WORD ER.CQO 

.WORD ER.TQO 

.WORD ER.APT 

.WORD ER.PAR 

.WORD ER.REL 

.WORD ER.KT 

.WORD ER.SYS 

; - MESSAGES - 

ER.MG1: .ASCIZ /%FATAL ERROR%TOO MANY / 



ER.MG2: .ASCIZ / ERRORS%RUN ABORTED%/ 



;MESSAGE ADDRESS TABLE 
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SEQ 0436 



611 
612 
613 
614 
615 
S16 
617 
618 



619 



620 
621 



522 

523 
624 

625 
S26 



THE FOLLOWING MESSAGES MUST BE IN THE SAME ORDER AS THEY ARE 

IN THE ERROR WORD OF THE DATA TABLE, I. E., THE ERROR 

MESSAGE ASSOCIATED WITH BIT MUST BE FIRST, THEN THE ERROR MESSAGE 

ASSOCIATED WITH BIT 1, ETC. 



000072' 047503 052116 047522 ER.CQO: .ASCIZ /CONTROL QUEUE OVERFLOW/ 

000100' 020114 052521 052505 

000106' 020105 053117 051105 

000114' 046106 053517 000 

000121' 124 050131 020105 ER.TQO: .ASCIZ /TYPE QUEUE OVERFLOW/ 

000126' 052521 052505 020105 

000134' 053117 051105 046106 

000142' 053517 000 

000145' 101 052120 000 ER.APT: .ASCIZ /APT/ 

000151' 120 051101 052111 ER.PAR: .ASCIZ /PARITY OR ECC/ 

000156' 020131 051117 042440 

000164' 041503 000 

000167' 122 046105 041517 ER.REL: .ASCIZ /RELOCATION/ 

000174' 052101 047511 000116 

000202' 052113 000 ER.KT: .ASCIZ /KT/ 

000205' 123 051531 042524 ER.SYS: .ASCIZ /SYSTEM/ 

000212' 000115 

.EVEN 
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.SBTTL ERREC ROUTINE 



ROUTINE ERREC <TABL> 



SEQ 0437 



628 








629 








630 








631 


000214' 






(2) 


000214' 






632 








633 








634 








635 








636 








637 








633 


000214' 






(3) 


000214' 


004767 


OOOOOOG 


639 








640 








641 








642 








S43 








644 








645 


000220' 






(4) 


000220' 


016500 


000000 


646 








647 








548 








549 








650 








651 


000224 






(6) 


000224' 


032760 


100000 


(9) 


000232' 


001532 




652 








653 








654 








655 








656 








657 








658 








659 








660 








661 








662 








663 








664 








665 








666 


000234' 






(4) 


000234' 


016002 


000020 


(6) 


000240' 


042702 


100000 


667 


000244' 






(4) 


000244' 


012703 


000001 


668 


000250' 






(4) 


000250' 


012704 


177777 


669 


000254' 






(3) 


000254' 






670 


000254' 






(6) 


000254' 


040302 




671 


000256' 






(6) 


000256' 


005204 





ERREC: 



SAVE REGISTERS 



CALL SAVREG 



JSR 



PC, SAVREG 



MOV 



000020 



BIT 
B£Q 



SET RO TO THE START OF THE DATA TABLE, 



LET RO := TA3L(R5) 



SEE IF THE ERROR WAS FATAL. 



IF 4FATERR SETIN DT.ERR(RO) THEN 



THE ERROR WAS FATAL. 



DETERMINE THE TYPE OF ERROR. THIS IS DONE BY FIRST COPYING THE CONTENTS 
OF THE ERRGR WORD (EXCEPT THE FATAL ERROR BIT) INTO TEMPORARY 
STORAGE (R2). THEN THE BIT NUMBER (R4) OF THE SET ERROR INDICATOR 
IS DETERMINED. 



LET R2 := DT.ERR(RO) CLR.BY #100000 

LET R3 := #000001 
LET R4 := #-1 
REPEAT 

LET R2 := R2 CLR.BY R3 

LET R4 := R4 + #1 



TABL(R5) f R0 



#FATERR,DT.ERR(R 
50002$ 





MOV 
BIC 


DT.ERR(RO) , 
#100000, R2 


R2 




MOV 


#000001 ,R3 






MOV 


#-1 ,R4 




50003$: 










BIC 


R3,R2 






INC 


R4 
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LET R3 := R3 SHIFT #+1 

UNTIL R2 EQ #0 



SEO 0438 



672 


000260 






(7) 


000260 


006303 




673 


000262 


■ 




(3) 


000262 


005702 




(6) 


00C264 


001373 




674 








675 








676 








677 








578 








679 








580 








681 


000266 






(7) 


000266 


006304 




582 








683 


000270 






(4) 


000270 


012701 


000000' 


(6) 


000274 


060401 




684 








685 


000276 






(3) 


000276 


010546 




(7) 


000300 


012745 


000330' 


(6) 


000304 


012745 


000016' 


(5) 


000310 


012745 


000002 


(4) 


000314 


010C45 




(3) 


000316 


004767 


OOOOOOG 


(3) 


000322 


1 2u0d 




685 


000324. 






(2) 


000324 


000240 




687 


000326 






(2) 


000326 


000776 




688 


000330 






(2) 


000330 






689 


000330 






(3) 


000330 


010546 




(7) 


000332 


012745 


000360' 


(6) 


000336 


01 1145 




(5) 


000340 


012745 


000002 


(4) 


000344 


010045 




(3) 


000346 


004767 


OOOOOOG 


(3) 


000352 


012605 




690 


000354 






(2) 


000354 


000240 




691 


000356 






(2) 


000356 


000776 




692 


000360 






(2) 


000360 






693 


000360 






(3) 


000360 


010546 




(7) 


000362 


012745 


000412' 


(6) 


000366 


012745 


000045' 


(5) 


000372 


012745 


000002 


(4) 


000376 


010045 




(3) 


000400 


004767 


OOOOOOG 


(3) 


000404 


012605 




694 


000406 







LET R4 := R4 SHIFT #+1 



LET R1 := #ER.TBL + R4 



CALL MSGDHOOK IN <R0, #M3GP0P, #ER. MG1 , #2$> 



INLINE <1$: NOP> 

INLINE <3R 1$> 

INLINE <2$:> 

CALL MSGDHOOK IN <R0 , #MSGPOP, ( R1 ) , #4$> 



INLINE <3$: NOP> 

INLINE <BR 3$> 

INLINE <4$:> 

CALL MSGDHOOK IN <R0 , #MSGPOP , #ER.MG2 , #6$> 



ASL 

TST 

BNE 



R3 

R2 
50003$ 



NOW DOUBLE THE ERROR BIT NUMBER (R4) AND USE IT AS AN OFFSET INTO 
THE MESSAGE ADDRESS TASLE, THEN OUTPUT THE PROPER MESSAGE. 



ASL 



R4 



MOV 


#ER.TBL,R1 


ADD 


R4.R1 


MOV 


R5,-(SP) 


MOV 


#2$,-(R5) 


MOV 


#ER.MG1 ,-(R5) 


MOV 


#MSGP0P,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, MSGDHOOK 


MOV 


(SP)+ f R5 


1$: NOP 





BR 1$ 
2$: 



MOV 


R5,-(SP) 


MOV 


#4$,-(R5) 


MOV 


(R1),-(R5) 


MOV 


#MSGP0P,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, MSGDHOOK 


MOV 


(SP)+,R5 



3$: NOP 



BR 3$ 




4$: 




MOV 


R5.-(SP) 


MOV 


#6S,-(R5) 


MOV 


#ER.MG2,-(R5) 


MOV 


#MSGP0P,-(R5) 


MOV 


R0,-(R5) 


USR 


PC, MSGDHOOK 


MOV 


(SP)+,R5 



INLINE <5$: NOP> 
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INLINE <BR 5$> 



SEQ 0439 



(2) 


000406' 


000240 




695 


000410' 






(2) 


000410* 


000776 




696 








697 


000412' 




I 


(2) 


000412' 






693 








699 








700 








701 








702 








703 








704 








705 


000412' 






(6) 


000412' 


026027 


000042 000200 


(9) 


000420' 


001425 




706 


000422' 






(3) 


000422' 


010546 




(5) 


000424' 


012745 


000200 


(4) 


000430* 


010045 




(3) 


000432' 


004767 


000000G 


(3) 


000436' 


012605 




707 


000440' 






(3) 


000440' 


010546 




(4) 


000442* 


010045 




(3) 


000444' 


004767 


OOOOOOG 


( 3) 


000450 ' 


01 2605 




703 


000452' 






(6) 


000452' 


032760 


001000 000014 


(9) 


000460' 


001405 




709 


000462' 






(3) 


000462' 


010546 




(4) 


000464' 


010045 




(3) 


000466' 


004767 


OOOOOOG 


(3) 


000472' 


012605 




710 


000474' 






(4) 


000474' 






711 


000474' 






(4) 


000474' 






712 








713 








714 








715 








716 








717 








718 


000474' 






(6) 


000474' 


042760 


100000 000010 


719 








720 








721 








722 








723 








724 








725 








726 








727 


000502* 







INLINE <6$:> 



5$: NOP 
BR 5$ 

6$: 



IF THE EXERCISER IS NOT AT THE LOWEST PART OF MEMORY, MOVE IT, RESET 
THE WRITE BUFFER, AND RELOAD THE UNIBUS MAP IF IT EXISTS. 



IF DT.ADDR(RO) NE #200 THEN 



CALL PRRLOC IN <R0,#200> 



CALL WBFLIM IN <R0> 



IF #ADDR22 SETIN DT.CFO(RO) THEN 



CALL UNIMAP IN <R0> 



ENDIF 



ENDIF 



CMP 

BED 


DT.ADDR(RO) ,#200 
50004$ 


MOV 
MOV 
MOV 
JSR 
MOV 


R5,-(SP) 
#200, -(R5) 
R0,-(R5) 
PC, PRRLOC 
(SP)+,R5 


MOV 
MOV 
JSR 
MOV 


R5,-(SP) 
R0,-(R5) 
PCWBFLIM 
(SP)+,R5 


BIT 
BEQ 


#ADDR22,DT.CF0(R 
50005$ 


MOV 
MOV 
JSR 
MOV 


R5,-(SP) 
R0,-(P5) 
PC, UN I MAP 
(SP)+,R5 


50005S: 




50004$: 





CLEAR THE RUN MODE BIT, 



LET DT.STO(RO) := DT.STO(RO) CLR.BY #RUNMODE 



IF AN APT FATAL ERROR ... CALL THE APT KILL ROUTINE 



IF #APTFER SETIN DT.ERR(RO) THEN 



BIC #RUNMODE,DT.STO( 
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SEQ 0440 



(6) 


000502' 


032760 


000004 000020 


(9) 


000510' 


001402 




728 


000512' 






(3) 


000512' 


004767 


OOOOOOG 


729 


000516' 






(4) 


000516' 






730 








731 


000516' 






(4) 


000516' 


000431 




(3) 


000520' 






732 








733 








734 








735 








736 








737 








733 








739 








740 








741 








742 








743 


000520' 






(3) 


000520' 


010546 




(4) 


000522' 


010045 




(3) 


000524' 


004767 


OOOOOOG 


(3) 


000530' 


012605 




74^ 








745 








746 








747 








748 








749 








750 


000532' 






(4) 


000532' 


005067 


OOOOOOG 


751 


000536' 






(3) 


000536' 






752 


000536' 






(3) 


000536' 


010546 




(4) 


000540 ! 


010045 




(3) 


000542' 


004767 


OOOOOOG 


(3) 


000546' 


012605 




753 


000550' 






(3) 


000550' 


026727 


OOOOOOG 177775 


(6) 


000556' 


001367 




754 








755 








756 








757 








758 








759 
760 


000560' 






(6) 


000550' 


032760 


000001 000014 


(9) 


000566' 


001405 




761 


000570' 






(3) 


000570' 


010546 




(4) 


000572' 


010045 





CALL APTKIL 



ENDIF 



ELSE 



50006$: 



50002$: 



Dx I 

BEQ 
JSR 



BR 



THE ERROR WAS NOT FATAL, 



ENABLE THE KEYBOARD INPUT 



CALL KBINI IN <R0> 



MOV 
MOV 
JSR 
MOV 



WAIT FOT THE TYPE QUEUE TO EMPTY. 

LET MD.BSY := #0 
REPEAT 

CALL MSGDEO IN <R0> 

UNTIL MD.COD EQ #MSGNUL 

TURN ON THE SYSTEM CLOCK IF IT EXISTS. 
IF #CLKPRES SETIN DT.CFO(RO) THEN 
CALL CLKON IN <R0> 



#APTF£R,DT.ERR(R 
50006$ 

PC.APTKIL 



50007$ 



R5,-(SP) 
R0,-(R5) 
PC, KBINI 
(SP)+,R5 





CLR 


MD.BSY 


50010$: 








MOV 
MOV 
JSR 
MOV 


R5,-(SP) 
R0,-(R5) 
PC,MSGDEQ 
(SP)+,R5 




CMP 
BNE 


MD.COD, #MSGNUL 
50010$ 



BIT #CLKPRES,DT.CF0( 

BEQ 50011$ 

MOV R5,-(SP) 

MOV R0,-(R5) 
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SEQ 0441 



(3) 


000574' 


004767 


OOOOOOG 


(3) 


000600' 


012605 




762 


000502' 






(4) 


000602' 






763 








764 








765 


000602 ■' 






(4) 


000602' 






766 








767 








768 








769 








770 








771 


000602' 






(3) 


000602' 


004767 


OOOOOOG 


772 








773 








774 








775 








776 








777 








778 


000606' 






(2) 

"7'7Cs 


000606' 


000157 


OOOOOOG 


/ /y 
780 








781 


000612' 






(3) 


000512 ' 






(3) 


000612' 






(2) 


000612' 


000207 




782 




000001 





JSR 
MOV 



PC, CLKON 
(SpI+,R5 



ENDIF 



Eiir\ 1 



50011$: 



50007$: 



RESTORE REGISTERS 



CALL RESREG 



RESTART THE MONITOR 



INLINE <JMP DX.RSTRT> 



ENDRTN 



.END 



JSR 



PC, RESREG 



UMP DX.RSTRT 



500005: 
50001S: 



RTS 



PC 
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ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER-= 


000004 


APTKIL= 


****** 


APTPRE= 


000200 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


000110 


BITO = 


000001 


BIT.00 = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT1 1 - 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BITS = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKON = 


****** 


CLKPRE= 


000001 


CONFIG= 


000056 


CQCVF = 


000001 


CR 


000015 



CSRA = 
CSRC = 
CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROP!WO = 
DSEVNT= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CFO= 
DT.CF1 = 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
OT-KBU= 
DT.MLS= 
DT.MTI= 
DT.GFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT..WBU = 
DT.WHL= 
DT.WLL= 
DVID1 = 
DX.RST= 
ECCMEM= 
ECCSTA= 
ENBEOP= 



000100 
000102 
000003 
000017 
000025 
000011 
00 0400 
000000 
100000 
000014 
00 0042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
000110 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
****** 

000100 
000010 
010000 



ENBNUL= 

ENDLST = 

EOPBIT= 

ERREC 

ERRTYP= 

ER.APT 

ER.CQO 

ER.KT 

ER.MG1 

ER.MG2 

ER,T>AR 

ER.REL 

ER,SYS 

ER.TBL 

ER.TQO 

EVNTBE: 

EVNTHD= 

EVNTKT = 

EVNTPE= 

EVNTRE: 

FATERR = 

HRDCNT= 

HRDPAS = 

ICONT = 

I COUNT: 

IDNUM : 

IE 

INDPAR: 

INHDRP: 

INHEPR = 

INHREL= 

INHRRE= 

INIT = 

INTR ■■ 

IOMOD = 

IOMODP = 

IOMODR: 

IOMODX: 

JACK = 

KBINI = 

KIPARO = 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5: 

KIPAR6: 

KIPAR7= 

KIPDRO: 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 
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000001 

OQOOOO 

000001 

000214RG 

000106 

000145R 

r\ a n A 7 o D 

000202R 

000016R 

000045R 

000151R 

0001 67R 

000205R 

OOOOOOR 

000121R 

000200 

000200 

000203 

000202 

000201 

100000 

000044 

000050 

000036 

000040 

000122 

000100 

000040 

040000 

020000 

001000 

000400 

000030 

000120 

100000 

102000 

112000 

110000 

035060 

****** Q 

172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 



ftl KUKD= 


1 / VJI 4. 


KIPDR6= 


172314 


KIPDR7= 


172316 


KTERRO= 


000040 


KTPRES= 


000400 


KTSTAT= 


000020 


KTXTND= 


040000 


LF 


000012 


LPSTAT= 


000001 


IVlAPSTA= 


000200 


MD.BSY= 


****** Q 


MD.COD= 


****** Q 


MED 


076600 


MEMPAS= 


040000 


MODEXH= 


004000 


MODHOL= 


002000 


MODSEL= 


001000 


MSGCKD= 


000010 


WlSGCKS= 


00001 1 


MSGDEO= 


****** Q 


MSGDE'R=. 


000005 


MSGDHO- 


****** Q 


MSGDRP= 


000017 


M'SGECH= 


177777 


MSGEOP= 


000013 


MSGHDR= 


000004 


MSGHMG= 


000022 


MSGHRD= 


000007 


MSGMAP= 


000021 


MSGMUL= 


177775 


MSGPOP= 


000002 


MSGPRM= 


177776 


MSGRES= 


000001 


MSGSFT= 


000006 


MSGSKE= 


000003 


MSGSMB= 


000015 


MSGSMH= 


000014 


MSGSMS= 


000016 


W!SGSTD= 


000000 


MSGSYS= 


000012 


MSGVEC= 


000020 


NBKMOD= 


001000 


NCPUOP= 


000020 


NOAPTY= 


000002 


NULL = 


000000 


OWEN = 


024020 


PAERR = 


000010 


PARPRE= 


002000 


PARSTA= 


000100 


PASCNT= 


000034 


PDPLSI= 


020000 


PDP60 = 


004000 


PDP70 = 


010000 







SEQ 0442 


PR JO = 


OnAAAA 

W W \J V V V 




pan = 


000040 




PRI4 = 


000200 




PRI5 = 


000240 




PRI6 = 


000300 




PRI7 = 


000340 




PRRLOC= 


****** Q 




PRO 


000000 




PR4 


000200 




PR5 


000240 




PR6 


000300 




PR7 


000340 




PS 


177776 




PSW 


177776 




RANNUM= 


000054 




RBUFEA= 


000130 




R3UFPA= 


000126 




R3UFSZ- 


000132 




RBUFVA= 


000124 




RDSERV= 


000101 




RDWHMI= 


000022 




RELERR- 


000020 




RELMOD- 


020000 




RELTIM= 


010000 




RESREG= 


****** Q 




RESl = 


000056 




RES2 = 


000060 




RICHAR= 


031060 




RPTDAT= 


002000 




RSTRT = 


000112 




RUEOUT= 


000177 




RUNMOD= 


100000 




R5VALU= 


001740 




SAM 


075464 




SAVREG= 


****** Q 




SBADR = 


000102 




SBKMOD= 


000000 




S3KSEL= 


010000 




SC.ADR= 


000006 




SC.ALC= 


000014 




SC.APC= 


000016 




SC.CKL= 


000002 




SC.CKP= 


000004 




SC.CLO= 


000000 




SC.HLD= 


000010 




SC.SCA= 


000012 




SENDLS= 


177777 




SOFCNT= 


000042 




SOFPAS= 


000046 




SPACE = 


000040 




SPOINT= 


000032 




SPVALU= 


002200 




SRO 


177572 
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SR1 


177574 




UIPAR4= 


177650 


SR2 


177576 




UIPAR5= 


177652 


SR3 


172516 




UIPAR6= 


177654 


STAT = 


000026 




UIPAR7= 


177656 


STATBI= 


064757 




UIPDRO= 


177600 


STAT1 = 


000027 




UIPDR1= 


177602 


SUSPND= 


000001 




UIPDR2= 


1 77604 


SVRO = 


000062 




UIPDR3= 


177606 


SVR1 = 


000064 




UIPDR4= 


177610 


SVR2 = 


000066 




UIPDR5= 


177612 


SVR3 = 


000070 




UIPDR6= 


177614 


SVR4 = 


000072 




UIPDR7= 


177616 


SVR5 = 


000074 




UNIMAP= 


****** 


SVR6 = 


000076 




WASADR= 


000104 


SYSCNT= 


000052 




WBFLIM= 


****** 


SYSERR= 


000100 




WBSTAT= 


000040 


TABL = 


000000 




WBUFEA= 


000136 


TMPIO = 


000002 




WBUFPA= 


000134 


TQOVF = 


000002 




W5UFR0= 


000140 


UIPAR0= 


177640 




WBUFS2= 


000142 


UIPAR1= 


177642 




WDFR = 


000116 


UIPAR2= 


177644 




WDTO = 


000114 


UIPAR3* 


177646 




WTINRE= 


000352 


. ABS. 


000000 
000614 


000 
001 







17:51 
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WTWHMIs 


000222 


$F$THE= 


000330 


XFLAG = 


000005 


$F$TRU= 


000404 


XOFF = 


000023 


$F$UNT= 


000130 


XON 


000021 


$F$WHI= 


000120 


$BGNLE= 


177777 


$FSYES= 


000402 


$ERFLG= 


000400 


$IFLEV= 


177777 


$F$AND= 


A A A O 1 A 
V \J V *J 1 IJ 


$ISKO = 


000001 


$F$BAD= 


000401 


SISK1 =' 


000001 


$F$BLA= 


000170 


$ISK2 = 


000001 


$FSCAS= 


000150 


SLOCTA= 


177777 


$F$DEC= 


000220 


$LSTIN= 


000001 


SFSDO = 


000340 


$LSTTA= 


000001 


$F$FAL= 


000405 


SNESTL= 


177777 


$F$GOO= 


000400 


SNSKO = 


00300 


$F$IF = 


0001 10 


SNSK1 = 


000110 


$F$INC= 


000210 


SNSK2 = 


000110 


$F$LOO= 


000200 


SNSK3 = 


000110 


$F$NAM= 


000160 


$SAVLE= 


177777 


SFSNO = 


000403 


$TAGLE= 


177777 


$F$OR = 


000320 


$TAGNU= 


050012 


$F$RTI= 


000350 


$TEMP = 


000300 


$F$RTN= 


000300 


STSKO = 


050007 


$F$SEL= 


000140 


$TSK1 = 


050011 



SEQ 0443 



•o i *j r\£. — 

S$ARGC= 
$S3YTE= 
$SCASE= 
SSDST = 
S$ELOC= 
$$ERFL= 
$$FLAG= 
$$FROM= 
$$LOC = 
$$LQCN= 
$$REG = 
$$RETU= 
$SRTN1= 
$$RTN2= 
SSSRC = 
SSTGSV= 
$STGS1= 
$$TGS2= 
$$TQ = 
S$STAG= 



050005 

000002 

000403 

000000 

000000 

000402 

000000 

000001 

000000 

000566R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000614R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ: ERREC, DSKZ:ERREC=SPMAC/ML, EQUATE, ERREC 
RUN-TIME: 15 5 .4 SECONDS 
RUN-TIME RATIO: 44/22=2.0 
CORE USED*. 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:52 

EQUATE. MAC 13-SEP-7S 16:13 TABLE OF CONTENTS SEQ 0444 

3 COMMON EQUATE MODULE 

562 COMMON DEFINITIONS AND REFERENCES 

566 000000' .PRINT ;SPMAC: VERSION 1.1 

613 MESSAGE - END-OF-PASS 

S24 MESSAGE - SUM COMMAND HEADER LINE (JUST A CR FOR THIS MONITOR) 

628 MESSAGE - SUM COMMAND MODULE LINE 

845 MESSAGE ■■— SUM COMMAND SUMMARY LINE 

554 MESSAGE - COMMON HEADER 

667 MESSAGE - HRDERR , SOFERR 

593 MESSAGE - HRDERR , SOFERR f EXTENSION 

700 MESSAGE - DROP MODULE 

709 MESSAGE - CKDATA , DATACK , DATERR 

734 MESSAGE - CKDATA/DATACK SUMMARY LINE 

747 FILLMSG - FILL-IN THE BLANKS ROUTINE 

769 PROCESS END-OF-PASS TYPE MESSAGE 

796 PROCESS COMMON HEADER TYPE MESSAGE 

836 PROCESS HRDERR , SOFERR 

919 PROCESS HRDERR, SOFERR EXTENDED PRINTOUT MESSAGES? 

973 PROCESS SUM COMMAND TYPE MESSAGES 

985 PROCESS SUM COMMAND MODULE LINE MESSAGE 

1016 PROCESS SUM COMMAND SUMMARY LINE MESSAGE 

1036 PROCESS DROP MODULE TYPE MESSAGE 

1068 PROCESS CKDATA/DATACK/DATERR 

1189 PROCESS CKDATA/DATACK SUMMARY LINE 

1218 DO THE NECESSARY CLEAN-UP AND THEN RETURN 

1234 GET MODULE NAME 

nfiQ rnwveDT VTPTUAL ADDRESS TQ PHYSICAL ADDRESS ASCII 



FILLML - FILL MESSAGE (LITTLE) 
FILLML. MAC 16-AUG-78 14:36 

508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 



TO FILL IN SKELETAL MSGS 

COMMON EQUATE MODULE 



MACY11 30A(1052) 20-SEP-78 17:52 PAGE 19 



SEQ 0445 



.TITLE FILLML - FILL MESSAGE (LITTLE) - TO FILL IN SKELETAL MSGS 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
FILLMSG 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS RESPONSIBLE FOR FULLING IN THE BLANK FIELDS 

OF THE MONITOR GENERATED SKELETAL MESSAGES. 

THE TYPES OF SKELETAL MESSAGES SUPPORTED ARE: 

1. END OF PASS 2. HARD ERROR 

3. SUM COMMAND 4. SOFT ERROR 

5. COMMON HEADER 6. DROP MODULE 

7. DATA ERROR 8. 

9. MAP SUMMARY 10. 



BAD VECTOR 
CKDATA CALL 



INPUTS: 
1 . 
2. 
3. 
4. 



DATA TABLE 

MSG TYPE CODE 

MSG ADDR/SPECIAL VALUE 

MODULE'S HDR ADDR 



IMPLICIT INPUTS: 
DT.STO 

OUTPUTS: 

1. ADDRESS OF FILLED-IN MESSAGE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 



BINARY TO DECIMAL ASCII CONVERSION 
BINARY TO OCTAL-ASCII CONVERSION 
GET PHYSICAL ADDRESS 



SUBORDINATE ROUTINES CALLED: 

1 . BDACNV 

2. BOAC 

3. GPA 

4. SAVREG 

5. RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL FILLMSG IN <DTABLE , TYPCODE ,MSGADDR ,HDRADDR> OUT <FILMSGADR> 

VERSION*. 
0.0 



EDIT 



BY 



DATE 



REASON 



FILLML - FILL MESSAGE (LITTLE) 
FILLML. MAC 16-AUG-78 14:36 

562 

563 

564 

565 

566 000000 ' 

(1) 000000' 

DO / WW W^U I 

568 000001 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

59C 

591 

592 

593 

594 

595 000010 

596 

597 

598 

599 

600 

601 000000' 000000 

602 000002' 000000 

603 000004' 

604 000004' 000000 

605 000006' 000000 

606 000010' 000000 

607 000012' 000000 

608 000014' 000000 
609 

610 
611 



TO FILL IN SKELETAL MSG5 MACY11 30A(1052) 20-btP-/B v/;^ kauc: i»-i 
COMMON DEFINITIONS AND REFERENCES 

.SBTTL COMMON DEFINITIONS AND REFERENCES 



.MCALL STRUCT 
STRUCT 
.PRINT ;SPMAC: VERSION 1.1 
SLSTIN = 1 
SLSTTAG = 1 



**************** 

REFERENCED BY OTHER MODULES 
GLOBL FILLMSG 
**************** 

GLOBAL REFERENCES 



SEQ 0446 



GLOBL BDACNV 
GLOBL B0A16 
GLOBL BOAC 
GLOBL CKHUNG 
GLOBL GPA 

GLOBL SAVREG 

GLOBL RESREG 

**************** 
LOCAL EQUATES: 
FLDMAX = ~D<8> 
**************** 

LOCAL STORAGE 



FLDCNT: 


.WORD 


LINECNT: 


•WORD 


TMP1 : 




TMPVA: 


.WORD 


TMPPA: 


.WORD 


TMPEA: 


.WORD 


FM.PA: 


•WORD 


FM.EA: 


.WORD 


***************** 



;MODULE'S ENTRY POINT 



BINARY TO DECIMAL ASCII CONVERSION ROUTINE 
BINARY TO OCTAL-ASCII CONVERSION ROUTINE 
BINARY TO OCTAL ASCII CONVERSION 
CHECK FOR HUNG MODULES ROUTINE 
GET PHYSICAL ADDRESS ROUTINE 



;MAX FIELDS PER LINE 



FIELD COUNTER 
LINE COUNTER 
STORAGE WORD 
STORAGE/VIRTUAL ADDRESS 
STORAGE/PHYSICAL ADDRESS 
STORAGE/EA BITS 
STORAGE - PHYS. ADDR. 
STORAGE - EA BITS 



FILLML - FILL MESSAGE (LITTLE) - TO FILL IN SKELETAL MSGS 
FILLML.MAC 16-AUG-78 14:36 MESSAGE - END-OP-PASS 



WIACY11 30A(1052) 20-SEP-78 17:52 PAGE 19-2 



SEQ 0447 



613 
614 
615 
616 
617 
618 
619 

620 
621 
622 



000016 

000017 1 

000024' 

000032 1 

000037' 



045 
000005 
042440 
051501 
000005 



000044' 000045 



042116 
020123 



050040 
043 



■SBTTL MESSAGE - END-OF-PASS 



EOPMSG: 
EOPNAM: 



■ASCII 
, BLKB 
.ASCII 



EOPPAS: .BLKB 



/%/ 
~D<5> 
/ END PASS #/ 

~D<5> 



ASCIZ /%/ 



FILLML - FILL MESSAGE (LITTLE) - TO FILL IN SKELETAL MSGS MACY11 30A(1052) 2U-btK-/a i/.o^ r Wt . 9 ^ 

FILLML. MAC 16-AUG-78 14:36 MESSAGE - SUM COMMAND HEADER LINE (JUST A CR FOR THIS MONITOR) SEQ 0448 

624 .SBTTL MESSAGE - SUM COMMAND HEADER LINE (JUST A CR FOR THIS MONITOR) 

625 

326 000046' 000045 RNHMSG: .ASCIZ /%/ 



FILLML - FILL MESSAGE (LITTLE) - TO FILL IN SKELETAL MSGS MACY1 1 30A(1052) 20-SEP-78 17:52 PAGE 19-4 

FILLML. MAC 16-AUG-78 14:36 MESSAGE - SUM COMMAND MODULE LINE 



SEQ 0449 



628 
629 
630 
631 
632 

633 
634 
S35 
636 

637 
638 

639 
640 

641 
642 
643 



000050' 
000051 ' 
000056' 
000064' 
000066' 
000074' 
000102' 
000110' 
0001 16' 
000117' 
000124' 
000132' 
000135' 
000142' 
000150' 
000153' 
000160' 



045 
000005 
040440 
020072 

f\ /v /\ r\ r\ /•* 
UUUUUD 

051440 
000006 
050040 

043 
000005 
044040 
051522 
000005 
051440 
051522 
000005 

000 



020124 040526 



040524 020124 



051501 020123 



042122 
040 

052106 
040 



051105 



051105 



.SBTiL MESSAGE - SUM COMMAND MODULE LINE 

RNBMSG: .ASCII /%/ 
RNBNAM: .BLKB "D<5> 

.ASCII / AT VA: / 

RN8PC: .BLKB ~D<6> 

.ASCII / STAT / 

RNBSTAT: .BLKB ~D<6> 

.ASCII / PASS #/ 

RNBPAS: .BLKB ~D<5> 

.ASCII / HRDERRS / 

RNBHRD: .BLKB ~D<5> 

.ASCII / SFTERRS / 



RNBSFT: .BLKB 

.BYTE 



"D<5> 



FILLML - FILL MESSAGE (LITTLE) - TO FILL IN SKELETAL MSGS MACY11 30A(1052) 20-SEP-78 17:52 PAlit is- 3 
FILLM'L.MAC 16-AUG-78 14:35 MESSAGE - SUM COMMAND SUMMARY LINE 



SEO 0450 



545 
645 
647 



S48 
543 



550 
651 
652 



000161 ' 
000166 1 
000174 1 
000201 ' 
000206' 
000214' 
000222' 
000230' 
000235' 



045 
046505 
0511 17 
000005 
020040 
053517 
044501 
000005 

045 



054523 
042440 
035123 

020040 
051105 
051514 

000 



052123 

051122 

040 

05G040 
043040 
020072 



.SBTTL MESSAGE - SUM COMMAND SUMMARY LINE 
RNSMSG: .ASCII /%SYSTEM ERRORS: / 



RNSERR: .BLKB 



RNSPWR: 



.BLKB 
.ASCIZ 



'D<5> 



~D<5> 
/%/ 



POWER FAILS: / 



FILLML - FILL MESSAGE (LITTLE) 
FILLM L.MAC 16-AUG-78 14:36 



TO FILL IN SKELETAL MSGS 

MESSAGE - COMMON HEADER 



MACY11 30A(1052) 20-SEP-78 17:t>2 HAUt l y-to 



SEQ 0451 



654 
655 
656 
657 
658 
659 
650 
661 
662 

663 
664 
665 



SnTT i anr-f^r^A^r* 



COMMON HEADER 



000237' 



045 



000245' 
000252' 
000262' 
000270' 



000240 ' 000005 
040 

000010 

040440 

000006 
000276' 050040 051501 020123 



040520 020072 



041520 020072 



000304' 
000305' 



043 
000005 



000312' 000045 



HDRMSG: .ASCII /%/ 
HDRNAM.* .BLKB ~D<5> 

.ASCII / PA: / 
HDRPA: .BLKB ~D<8> 

.ASCII / APC: / 
HDRPC: .BLKB 6 

.ASCII / PASS #/ 

HDRPAS: .BLKB ~D<5> 

.ASCI2 /%/ 



FILLML - FILL MESSAGE (LITTLE) 
FILLML.MAC 16-AUG-78 14:36 



TO FILL IN SKELETAL MSGS MAGY11 30A(1052J 20-SfcH-ya iy:s>* PAtat is-y 
MESSAGE - HRDERR,SQFERR 



SEQ 0452 



667 










. So i i L 


MESSAGE - HRDERR.SO 


668 
















669 


000314' 


045 






DATAMSG: 




.ASCII /%/ 


670 


000315' 


000005 






DATNAM: 


.BLKB 


~D<5> 


571 


000322* 


Q50040 


035101 


040 




.ASCII 


/ PA: / 


672 


000327' 


000010 






DAT PC: 


.BLKB 


~D<8> 


673 


0003o / 
000344' 


A/! f\ 

040 




0351 03 




« ASCI I 


/ APC: / 


674 


000345' 


000006 






DATAPC: 


.BLKB 


~D<6> 


675 


000353' 
000360' 


040 
021440 


040520 


051523 




.ASCII 


/ PASS #/ 


676 


000362' 


000005 






DATPAS: 


.BLKB 


~D<5> 


677 


000367' 


040 








.ASCII 


/ / 


678 


000370' 


000004 






DATTYP: 


.BLKB 


~D<4> 


679 


000374' 


042440 


051122 


043 




.ASCII 


/ ERR#/ 


580 


000401 ' 


000005 






DATNUM: 


.BLKB 


~D<5> 


681 


000406' 
000414' 


041445 
040 


051123 


035101 




.ASCII 


/%CSRA: / 


682 


000415' 


000006 






DAT ADD: 


.BLKB 


"D<6> 


683 


000423' 
000430' 


040 
020072 


051503 


041522 




.ASCII 


/ CSRC: / 


684 


000432' 


000006 






DATCON: 


.BLKB 


~D<6> 


685 


000440' 
000446' 


040440 
020072 


052123 


052101 




.ASCII 


/ ASTAT: / 


686 


000450' 


000006 






DATSTAT: 


.BLKB 


"D<6> 


687 


000456' 
000464' 


042440 
035120 


051122 
040 


054524 




.ASCII 


/ ERRTYP: / 


688 


000467' 


000006 






DATERR: 


.BLKB 


~D<6> 


689 


000475' 


045 








•ASCII 


/%/ 


690 


000476' 


000 






datend: 


.BYTE 





691 

















DATA, HARD, SOFT 



END OF MESSAGE INDICATOR 



FILLML - FILL MESSAGE (LITTLE) - TO FILL IN SKELETAL MSGS MACY1 1. 30A(1052) 20-SEP-78 17:52 PAGE 19-8 

FILLM L.MAC 1S-AUG-78 14:36 MESSAGE - HRPERR,SOFERR t EXTENSION SEQ 0453 

693 .SBTTL MESSAGE - HRDERR.SOf ERR , EXTENSION 

694 

695 000477' EXTMSG: 

695 000477' 000344 .BLKB ~D<228> 

697 001043' 000 EXTEND: .BYTE 

698 



FILLML - FILL MESSAGE (LITTLE) - TO FILL IN SKELETAL MSGS 
FILLML.MAC 16-AUG-78 14:36 MESSAGE - DROP MODULE 



MACY11 30A(1052) 20-SEP-78 17:52 PAGE 19-9 



SEQ 0454 



700 
701 
702 
703 
704 



705 
706 
707 



001044' 
001045' 



045 
000005 



001052' 042040 

001060' 042105 

001066' 050101 

001073' 000006 



001101 ' 



045 



047522 
040440 
035103 

000 



050120 

020124 

040 



.SBTTL MESSAGE - DROP MODULE 

DRPMSG: .ASCII /%/ 
DRPNAM: .BLKB ~D<5> 

.ASCII / DROPPED AT APC: / 



DRPPC: 



.BLKB ~D<6> 
.ASCIZ /%/ 



FILLML - FILL MESSAGE (LITTLE) 
FILLML. MAC 16-AUG-78 14:36 



TO FILL IN SKELETAL MSGS MACY11 30A(1052) 20-SEP-78 17:52 PAGE 19-10 
MESSAGE - CKDATA,DATACK,DATERR 



SEQ 0455 



709 










.SBTTL 


MESSAGE 


: - CKDATA,! 


710 
















711 


001103' 


045 






CKDMSG: 


.ASCII 


/%/ 


712 


001104' 


000005 






CKDNAM: 


.BLK3 


~D<5> 


713 


001111 ' 


040 


040520 


020072 




.ASCII 


/ PA: / 


714 


001116' 


000010 






CKDPA: 


.BLK8 


"D<8> 


715 


001126' 


040440 


041520 


020072 




.ASCII 


/ APC: / 


716 


001134' 


000006 






CKDVA: 


.BLKB 


~D<6> 


717 


001142' 
001150' 


050040 
043 


051501 


020123 




.ASCII 


/ PASS #/ 


718 


001151 ' 


000005 






CKDPAS: 


.BLKB 


~D<5> 


719 


001156' 


042440 


051122 


021440 




.ASCII 


/ ERR #/ 


720 


001164' 


000005 






CKDNUM: 


.BLKB 


~D<5> 


721 


001171 ' 
001176' 


045 
020072 


051503 


040522 




.ASCII 


/%CSRA: / 


722 


001200' 


000006 






CKDADD: 


.BLKB 


~D<6> 


723 


001206' 


051440 


041057 


020072 




.ASCII 


" S/B: " 


724 


001214' 


000006 






CKDSB: 


.BLKB 


~D<6> 


725 


001222' 


053440 


051501 


020072 




.ASCII 


/ WAS: / 


726 


001230' 


000006 






CKDWAS: 


• BLKB 


~D<6> 


727 


001236' 
001244' 


053440 
040 


040522 


051104 




.ASCII 


/ WRADR / 


728 


001245' 


000010 






CKDWRA: 


.BLKB 


~D<8> 


729 


001255' 
001262' 


040 
020122 


042122 


042101 




.ASCII 


/ RDADR / 












^t/nnn a * 


a i l/n 


~n<ca> 


730 


00i26^ ' 


UUUU 1 u 






wr\L^ i\ u»r\ • 






731 


001274' 


000045 








.ASCII 


/%/ '"" 


732 

















FILLML - FILL MESSAGE (LITTLE) - TO 
FILLM L.MAC 15-AUG-78 14:36 



734 
735 
736 
737 
738 
739 
740 



741 
742 



743 
744 
745 



001276' 
001276' 
001303' 
001310' 
001315' 
001322' 
001330' 
001334' 
001341 ' 
001346' 
001354' 



000005 

040 

000005 

040 

051522 

047440 

000005 

040 

020123 

000045 



051105 
047440 
020106 

047527 
042522 



FILL IN SKELETAL MSGS 

MESSAGE - CKDATA/DATACK 



040510 020104 



047522 
052125 



042122 
042101 



MACY11 30A(1C52) 
SUMMARY LINE 



20-SEP-78 17:52 PAGE 19-11 



SEQ 0456 



.SBTTL MESSAGE - CKDATA/DATACK SUMMARY LINE 

CKDSMSG: 

CKDSNAM: .BLKB ~D<5> 

.ASCII / HAD / 
CKDSCNT: .BLKB ~D<5> 

.ASCII / ERRORS OUT OF / 



CKDSRD: 



BLKB ~D<5> 
,ASCIZ / WORDS READ%/ 



.EVEN 



FILLML 
FILLML, 

747 
748 
749 
750 
751 
752 
(2) 
753 
754 
755 
756 
757 
758 
759 
760 
761 
(3) 
762 
(4) 
763 
(4) 
764 
(4) 
765 
(4) 
766 
767 



- FILL MESSAGE (LITTLE) - TO FILL IN SKELETAL MSGS MAO i 1 30A(,lUb^J ifU-str-YB i/;a<; t-Auc is-i-i 
,MAC 16-AUG-78 14:36 FILLMSG - FILL-IN THE BLANKS RGUTINE 

.S8TTL FILLMSG - FILL-IN THE BLANKS ROUTINE 



SEQ 0457 



001356' 
001356' 



001356' 

001356' 004767 
001362' 

001362' 016500 
001366' 

001366' 016501 
001372' 

001372' 016502 
001376' 
001376' 016504 



000000G 



000000 



000006 



000004 



000002 



ROUTINE FILLMSG <DTABLE,TYPCODE f MSGADR , HDRADR f FLMSADR> 



FILLMSG: 



SAVE REGISTERS AND SAVE DTABLE, ADR , MSGADR AND TYPCODE 

CALL SAVREG 
LET RO := DTABLE(R5) 
LET R1 := HDRADR(R5) 
LET R2 := MSGADR(R5) 
LET R4 := TYPC0DE(R5) 



JSR 
MOV 
MOV 
MOV 
MOV 



PC, SAVREG 
DTABLE(R5) ,R0 
HDRADR(R5),R1 
MSGADR(R5) ,R2 
TYPC0DE(R5) ,R4 



FILLML - FILL MESSAGE (LITTLE) - TO FILL IN SKELETAL MSGS MACY11 30A(1052) 20-SEP-78 17:52 PAGE 19-13 
FILLML. MAC 16-AUG-78 14:36 PROCESS END-OF-PASS TYPE MESSAGE 



SEQ 0458 



769 








770 








771 








772 








773 








774 








775 








776 








777 








778 








779 


001402' 






(6) 


001402' 


020427 


000013 


(9) 


001406' 


001024 




780 








781 








782 








783 








784 








785 


001410' 






(3) 


001410' 


010546 




(5) 


001412' 


012745 


000017' 


(4) 


001416' 


010145 




(3) 


001420' 


004767 


002032 


(3) 


001424' 


012605 




786 








787 








788 








789 








790 


001426' 






(3) 


001426' 


010546 




(5) 


001430' 


012745 


000037' 


(4) 


001434' 


016145 


000034 


(3) 


001440' 


004767 


OOOOOOG 


(3) 


001444' 


012605 




791 








792 


001446' 






(4) 


001446' 


012765 


000016' 


793 


001454' 






(2) 


001454' 


000167 


001770 


794 


001460' 






(4) 


001460' 







.SBTTL PROCESS END-OF-PASS TYPE MESSAGE 



IS IT AN END-Of-PASSS TYPfc? IF SO, FILL IN THE BLANK FIELDS, 
UPDATE THE MODULE'S PASS TIME, AND CHECK FOR ANY "HUNG" MODULES 



IF R4 EO #MSGEOP THEN 



GET MODULE NAME 



CMP 
BNE 



CALL GETNAM IN <R1 , #EOPNAM> 



CONVERT PASS COUNT TO DECIMAL ASCII 

CALL BDACNV IN <PASCNT(R1), #EOPPAS> 



000010 



LET FLMSADR(RS) := #EOPMSG 



INLINE <JMP 1$> 



MOV 
MOV 
MQV 
JSR 
MOV 



MOV 
JMP 1$ 



ENDIF 



R4,#MSGE0P 
50002$ 



MOV 


R5,-(SP) 


MOV 


#E0PNAM,-(R5) 


MOV 


R1 ,-(R5) 


JSR 


PC, GETNAM 


MOV 


(SP)+,R5 



R5,-(SP) 
#E0PPAS,-(R5) 
PASCNT(R1 ),-(R5) 
PC, BDACNV 
(SP)+,R5 



#EOPMSG,FLMSADR( 



50002$: 



FILLML - FILL MESSAGE (LITTLE) 
FILLML. MAC 15-AUG-78 14:36 



796 








. 


797 










798 










799 










800 










801 










802 


001460' 






I 


(6) 


001460' 


020427 


000004 




(9) 


001464' 


001045 






803 










804 










805 










806 










807 


001466' 








(3) 


001466' 


010546 






(5) 


001470' 


012745 


000240' 




(4) 


001474' 


010145 






(3) 


001476' 


004767 


001754 




(3) 


001502' 


012605 






808 










809 










810 










811 










812 


001504' 








(3) 


001504' 


010546 






(6) 


00 i 506 ! 


01 2745 


a r\ « r\ r- r\ l 




(5) 


001512' 


010245 






(4) 


001514' 


010045 






(3) 


001516' 


004767 


001774 




(3) 


001522' 


012605 






813 










814 










815 










816 










317 










818 


001524' 








(4) 


001524' 


010203 






(6) 


001526' 


160103 






819 










820 










821 










822 










823 










824 


001530' 








(3) 


001530' 


010546 






(5) 


001532' 


012745 


000270' 




(4) 


001536' 


010345 






(3) 


001540' 


004767 


000000G 




(3) 


001544' 


012605 






825 










826 










827 










828 










829 










830 


001546' 








(3) 


001546' 


010546 







TO FILL IN SKELETAL fviSGS MACY11 30A(1052) 20-SEP-78 

PROCESS COMMON HEADER TYPE MESSAGE 

SBTTL PROCESS COMMON HEADER TYPE MESSAGE 

+ 
IS IT A COMMON HEADER TYPE MESSAGE? 



IF R4 EO #MSGHDR THEN 

- 
GET MODULE NAME 

CALL GETNAM IN <R1 , #HDRNAM> 



17:52 PAGE 19-14 



SEQ 0459 



CMP 
BNE 



MOV 
MOV 
MOV 
JSR 
MOV 



GET PHYSICAL ADDRESS 

CALL GETAPA IN <R0, R2 ,#HDRPA> 



FORM APC 



LET R3 := R2 - R1 



AND CONVERT IT TO ASCII 



MOV 
SU3 



CALL B0A16 IN <R3, #HDRPC> 



MOV 
MOV 
MOV 
JSR 
MOV 



CONVERT PASCNT TO ASCII 



CALL BDACNV IN <PASCNT(R1), #HDRPAS> 



R4,#MSGHDR 
50003$ 



R5,-(SP) 
#HDRNAM,-(R5) 
R1 ,-(R5) 
PC , GETNAM 
(SP)+ T R5 



MOV 


R5 T -(SP) 


MOV 


#HDRPA ; -(R5) 


MOV 


R2,-(R5f 


MQV 


R0,-(R5) 


JSR 


PC, GETAPA ■ 


MOV 


(SP)+,R5 



R2,R3 
R1 ,R3 



R5,-(SP) 

#HDRPC,-(R5) 

R3 r -(R5) 

PC,B0A16 

(SP)+,R5 



MOV 



R5,-(SP) 



FILLML - FILL MESSAGE (LITTLE) - 
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(5) 


001550' 


012745 


000305' 


(4) 


001554' 


016145 


000034 


(3) 


001560' 


004767 


000000G 


(3) 


001564' 


012605 




331 


001566' 






(4) 


001566' 


012765 


000237' 000010 


832 


001574' 






(2) 


001574' 


000167 


001650 


833 


001600' 






(4) 


001600' 






834 









TO FILL IN SKELETAL MSGS MACY1 1 30A(1052) 
PROCESS COMMON HEADER TYPE MESSAGE 



LET FLMSADR(R5) := #HDRMSG 
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MOV 
MOV 
JSR 
MOV 



INLINE <JMP 1$> 



ENDIF 



MOV 
JMP 1$ 



50003$: 



SEQ 0460 



#HDRPAS,-(R5) 
PASCNT(R1 ) f -(R5) 
PC,BDACNV 
(SP)+,R5 

#HDRMSG,FLMSADR( 



FILLML - FILL MESSAGE (LITTLE) 
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836 
837 
833 
839 
840 
841 
842 
843 
844 
(6) 
(9) 
(6) 
(9) 
845 
(2) 
346 
(4) 
847 
843 
849 
850 
851 
(4) 
352 
853 



855 
356 
857 
(3) 
(5) 
(4) 
(3) 
(3) 
858 
859 
860 
861 
862 
863 
(3) 
(6) 
(5) 
(4) 
(3) 
(3) 
864 
865 
866 
867 
868 
869 
(4) 
(6) 
870 
871 



001600' 
001600' 
001604' 
001606' 
001612' 
001614' 
001614' 
001 620' 
001620' 



001620' 
001620' 



001624' 
001624' 
001626' 
001632 1 
001634' 
001640' 



001642' 
001642' 
001644' 
001650' 
001652' 
001654' 
001660' 



020427 
001405 
020427 
001402 



010546 
012745 
010145 
004767 
012605 



010546 
012745 
010245 
010045 
004767 
012605 



001662' 

001662' 010203 
001664' 160103 



TO FILL IN SKELETAL MSGS MACY11 30A(1052) 20-SEP-78 17:52 PAGE 19-16 
PROCESS HRDERR.SOFERR 

.SBTTL PROCESS HRDERR, SOFERR 



IF NOT A HARD OR SOFT ERfiOR, CONTINUE CHECKING 



SEQ 0461 



000006 



000007 



000167 000474 



105067 176652 



000315 
001616 



000327' 



001636 



IF R4 NE #MSGSFT AND R4 NE #MSGHRD THEN 



CMP 


R4 F #MSGSFT 


BEQ 


50004$ 


CMP . 


R4 r #MSGHRD 


BEQ 


50004$ 



INLINE <UMP 100$> 

JMP 100$ 

50004$: 

INSERT THE END OF MESSAGE CHARACTER AND ASSUME THAT THERE IS NO EXTENDED PRINTOUT 



ENDIF 

+ 



LET DATEND : B= #0 



r.PT winnni f w/smp 



CALL GETNAM IN <R1 T #DATNAM> 



CLRB DATEND 



MOV R5,-(SP) 

MOV #DATNAM,-(R5) 

MOV R1 t -(R5) 

JSR PC f GETNAM 

MOV (SP)+,R5 



GET P. A, 



CALL GETAPA IN <R0 r R2 , #'DATPC> 



MOV 


R5,-(SP) 


MOV 


#DATPC,-(R5) 


MOV 


R2,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, GETAPA 


MOV 


(SP)+,R5 



FORM APC 



LET R3 := R2 - R1 



; + 



MOV 
SUB 



R2,R3 
R1 r R3 



FILLML - FILL MESSAGE (LITTLE) 
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872 








373 








874 








875 


001666' 






(3) 


001666' 


010546 




(5) 


001670' 


012745 


000345' 


(4) 


001674' 


010345 




(3) 


001676' 


004767 


000000G 


(3) 


001702' 


012605 




876 








877 








878 








879 








880 








881 


001704' 






(3) 


001704' 


010546 




(5) 


001706' 


012745 


000352' 


(4) 


001712' 


016145 


000034 


(3) 


001716' 


004767 


000000G 


(3) 


001722' 


012605 




882 








883 


001724' 






(4) 


001724' 


012703 


000370' 


884 








885 








ooo 








887 








888 


001730' 






(6) 


001730' 


020427 


000006 


O) 


001734' 


001013 




889 


001736' 






(4) 


001736' 


112723 


000123 


89C 


001742' 






(4) 


001742' 


112723 


000117 


891 


001746' 






(4) 


001746' 


112723 


000106 


892 


001752' 






(4) 


001752' 


112723 


000124 


893 


001756' 






(4) 


001756' 


016100 


000042 


894 


001762' 






(4) 


001762' 


000412 




(3) 


001764' 






895 


001764' 






(4) 


001764' 


112723 


000110 


896 


001770' 






(4) 


001770' 


112723 


000101 


897 


001774' 






(4) 


00177V 


112723 


000122 


898 


002000' 






(4) 


002000' 


112723 


000104 


899 


002004' 






(4) 


002004' 


016100 


000044 


900 


002010' 






(4) 


002010' 






901 









TO FILL IN SKELETAL MSSS 

PROCESS HRDERR.SOFERR 

: CONVERT IT TO ASCII 
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SEQ 0462 



CALL BDA16 IN <R3, #DATAPC5 



CONVERT PASS COUNT TO ASCII 



CALL BDACNV IN <PASCNT(R1), #DATPAS> 



LET R3 := #DATTYP 

IF SOFT FILL IN WORD 'SOFT'. IF HARD, FILL IN IVORD 'HARD' 
IF R4 EQ #MSGSFT THEN 

LET (R3)+ :B= #'S 
LET (R3)+ :B= #'0 
LET (R3)+ :B= #'F 
LET (R3)+ :B= #'T 
LET RO := S0FCNT(R1 ) 
ELSE 

LET (R3)+ :B= #'H 

LET (R3)+ :B= #'A 

LET (R3)+ :B= #'R 

LET (R3)+ :B= #'D 

LET RO := HRDCNT(R1 ) 

ENDIF 

50006$: 



MOV 
MOV 
MOV 
JSR 
MOV 



R5,-(SP) 

ffDATAPC,-(R5) 

R3,-(R5) 

PC t B0A16 

(SP)+,R5 



MOV 


R5 f -(SP) 


MOV 


#DATPAS,-(R5) 


MOV 


PASCNT(R1 ),-(R5) 


JSR 


PC, BDACNV 


MOV 


(SP)+ t R5 


MOV 


#DATTYP,R3 



CMP 
BNE 


R4,#MSGSFT 
50005$ 




MOV 3 


#'S f (R3)+ 




MOVB 


#'0, (R3)+ 




MOVB 


#'F,(R3)+ 




MOVB 


#'T, (R3) + 




MOV 


S0FCNT(R1 ) 


RO 


BR 
50005$: 


50006$ 




MOVB 


#'H f (R3)+ 




MOVB 


#<A, (R3)+ 




MOVB 


#'R, (R3)+ 




MOVB 


#'D,(R3)+ 




MOV 


HRDCNT(R1 ) 


RO 



FILLML - FILL MESSAGE (LITTLE) - TO FILL IN SKELETAL MSGS 
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SEQ 0463 



902 








903 








904 








905 








906 








907 


002010 ' 






(3) 


002010' 


010546 




(5) 


002012' 


012745 


000401 ' 


(4) 


002016' 


010045 




(3) 


002020' 


004767 


OOOOOOG 


(3) 


002024' 


012605 




908 








909 








910 








911 








912 








913 


002026' 






(3) 


002026' 


010546 




(5) 


002030' 


012745 


000415' 


(4) 


002034' 


016145 


000100 


(3) 


002040' 


004767 


OOOOOOG 


(3) 


002044' 


012605 




914 


002046' 






(3) 


002046' 


010546 




(5) 


002050' 


012745 


000432' 


f4^ 


002054' 


016145 


000102 


(3) 


002060' 


004767 


OOOOOOG 


(3) 


002064' 


012605 




915 


002066' 






(3) 


002066' 


010546 




(5) 


002070' 


012745 


000450' 


(4) 


002074' 


016145 


000104 


(3) 


002100' 


004767 


OOOOOOG 


(3) 


002104' 


012605 




916 


002106' 






(3) 


002106' 


010546 




(5) 


002110' 


012745 


000467' 


(4) 


002114' 


016145 


000106 


(3) 


002120' 


004767 


OOOOOOG 


(3) 


002124' 


012605 




917 









CONVERT HARD OR SOFT TO ASCII 



CALL BDACNV IN <R0 , #DATNUM> 



MOV R5,-(SP) 

MOV #DATNUM',-'(R5) 

MQV R0 f -(R5) 

J5R PC, BDACNV 

MOV (SP)+,R5 



CONVERT CSRA,'CSRC T ASTAT,ERRTYP TO ASCII 



CALL B0A16 IN <CSRA(R1), #DATADD> 



CALL B0A16 IN <CSRC(R1), #DATC0N> 



CALL B0A16 IN <ASTAT( R1 ) ,#DATSTAT> 



CALL B0A16 IN <ERRTYP(R1 ) , #DATERR> 



MOV 


R5,-(SP) 


MOV 


#DATADD,-(R5) 


MOV 


CSRA(R1 ),~(R5) 


JSR 


PC,B0A16 


MOV 


(SP)+,R5 


MOV 


R5,-(SP) 


MOV 


#DATC0N,-(R5) 


MQV 


CSRC(R1 ) ,-(R5) 


JSR 


PC , B0A1 6 


MOV 


(SP)t,R5 


MQV 


R5,-(5P) 


MQV 


#DATSTAT,-(R5) 


MOV 


ASTAT(R1) --(R5) 


JSR 


PC,B0A16 


MOV 


(SP)+,R5 


MQV 


R5,-(SP) 


MQV 


#DATERR,-(R5) 


MQV 


ERRTYP(R1 ) f -(R5) 


JSR 


PC,B0A16 


MOV 


(SP)+,R5 
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17:52 PAGE 19-19 



SEQ 0464 



919 








920 








921 








922 








923 








924 








925 








926 








927 


002126' 






(6) 


002126' 


020427 


000006 


(8) 


002132" 


001403 




(6) 


002134' 


020427 


000007 


(9) 


002140' 


001065 




(6) 


002142' 






928 


002142' 






(6) 


002142' 


062702 


000004 


929 


002146' 






(4) 


002146' 


011202 




930 


002150' 






(6) 


002150' 


005702 




(9) 


002152' 


001453 




931 


002154' 






(4) 


002154' 


112767 


000015 176314 


932 








933 








r\>~\ a 








=?OH 








935 








936 








937 








938 








939 








940 








941 








942 








943 








944 








945 


002162' 






(4) 


002162' 


012703 


000477' 


946 


002166' 






(4) 


002166' 


005067 


175606 


947 


002172' 






(4) 


002172' 






(6) 


002172' 


021227 


177777 


(9) 


002176' 


001436 




948 


002200' 






(4) 


002200' 






(6) 


002200' 


020327 


001043' 


(9) 


002204' 


103032 




949 


002206' 






(4) 


002206' 






(6) 


002206' 


026727 


175566 000010 


(9) 


002214' 


002021 




950 


002216' 






(3) 


002216' 


010546 




(5) 


002220' 


010345 




(4) 


002222' 


013245 





.SBTTL PROCESS HRDERR, SOFERR EXTENDED PRINTOUT MESSAGES? 



lb TH&Rt A KkDEkR/SOFERk EXTENDED PRINTOUT ASSOCIATED WITH THIS MESSAGE? 



IF R4 EQ #MSGSFT OR R4 EQ #MSGHRD THEN 



LET R2 := R2 + #4 
LET R2 := (R2) 
IF R2 NE #0 THEN 

LET DATEND : B= #<CR> 



CMP 


R4,#MSGSFT 


BEQ 


50007$ 


CMP 


R4,#MSGHRD 


BNE 


50010$ 


500073: 




ADD 


#4,R2 


MOV 


(R2),R2 


TST 


R2 


BEQ 


50011$ 



MOVB 



#<CR>, DATEND 



GO THROUGH THE MESSAGE TABLE AND, FOR EACH ADDRFSS IN THE TABLE. FIND 
THE CONTENTS OF THAT ADDRESS, CONVERT IT TO ASCII, STORE THE ASCII IN THE 
EXTENDED PRINTOUT TABLE (EXTMSG) FOLLOWED BY A SPACE AND, IF THE MAXIMUM 
NUMBER OF ENTRIES PER LINE HAS BEEN REACHED, LOAD A CR, LF {%) INTO THE 
TABLE. CONTINUE THIS UNTIL EITHER THE LAST ENTRY IN THE MESSAGE 
TABLE OR THE END OF THE PRINTOUT STORAGE AREA (EXTEND) 
IS REACHED. 



LET R3 := #EXTMSG 







MOV 


#EXTMSG,R3 


NT : = 


#0 










CLR 


FLDCNT 


2) NE 


#-1 DO 

50012$: 










CMP 


(R2) ,#-1 






BEQ 


50013$ 


WHILE 


R3 LO #EXTEND DO 

50014$: 










CMP 


R3,#EXTEND 






BHIS 


50015$ 




WHILE FLDCNT LT #FLDMAX DO 








50016$: 










CMP 


FLDCNT,#FLDMAX 






5GE 


50017$ 




CALL B0A16 IN <@(R2)+,R3> 








MOV 


R5,-(SP) 






MOV 


R3,-(R5) 






MOV 


@(R2)+ t -(R5) 



FILLML - FILL MESSAGE (LITTLE) 
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TO FILL IN SKELETAL MSGS MACY11 3GA(1Q52) 

PROCESS HRDERR, SOFERR EXTENDED PRINTOUT MESSAGES? 



(3) 


002224 


004767 


000000G 


(3) 


002230 


012605 




951 


002232 






(6) 


002232 


062703 


000006 


952 


002236 






(4) 


002236 


112723 


000040 


953 


002242 






(6) 


002242 


021227 


177777 


(9) 


00.2246 


001001 




954 


002250 






(2) 


002250 


000411 




955 


C02252 






(4) 


002252 






956 


002252 






(6) 


002252 


005267 


175522 


957 


002256 






(4) 


002256 


000753 




(3) 


002260 






958 


002260 






(4) 


002260 


112723 


000045 


959 


002264 






(4) 


002264 


005067 


175510 


960 


002270 






(4) 


002270 


000743 




(3) 


002272 






r\z? * 


n /-it-ito 






cu I 








(4) 


002272 


000737 




(3) 


002274 






962 


002274 






(2) 


002274 






963 


002274 






(4) 


002274 


112723 


000045 


964 


002300 






(4) 


002300 


105023 




965 








966 








967 


002302 






(4) 


002302 






968 


002302 






(4) 


002302 


012765 


000314' 


969 


002310 






(2) 


002310 


000167 


001134 


970 


002314 






(4) 


002314 






971 


002314 






(2) 


002314 







ENDDO 

LET (R3)+ :B= #'% 
LET FLDCNT := #0 
ENDDO 



INLINE <1000$:> 



ENDDO 

LET (R3)+ : B= #'% 
LET (R3)+ :B= #0 
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MESSAGES? 




SEO 0465 




JSR 


PC.B0A16 




MOV 


(SP)+ t R5 


LET R3 := R3 + #6 








ADD 


#6, R3 


LET (R3)+ :B= #<SPACE> 








MOVB 


#<SPACE>, (R3)+ 


IF (R2) EQ #-1 THEN 








CMP 


(R2),#-1 




BNE 


50020$ 


INLINE <BR 


1000$> 






BR 


1000$ 


ENDIF 






50020$: 






LET FLDCNT := FLDCNT + 


#1 






INC 


FLDCNT 




BS 


50016$ 


50017S: 






/b 


MOVB 


#'%,(R3)+ 




CLR 


FLDCNT 




BR 


50014$ 


50015$: 








n-i 


cnm nt 




cfi 


*■» \J w i x-s* 


500135: 


1000$: 






MOVE 


#'%,(R3)+ 




C'LRB 


(R3) + 



ENDIF 



LET FLMSADR(R5) := #DATAMS 



000010 



INLINE <JMP 



1$> 



ENDIF 



50011$: 



50010$: 



INLINE <100$:> 



MOV 
JMP 

100$: 



#DATAMS,FLMSADR( 
1$ 



FILLML 
FILLML, 

973 
974 
975 
976 
977 
97S 
979 
980 
981 
(6) 
(9) 
982 
(4) 
983 
(2) 
984 
(4) 



- FILL MESSAGE (LITTLE) - TO FILL IN SKELETAL MSGS MACY11 30A(1052) 
, PjIAC 16-AUG-78 14:36 PROCESS SUM COMMAND TYPE MESSAGES 

.SBTTL PROCESS SUM COMMAND TYPE MESSAGES 



IS IT A SUM COMMAND HEADER LINE TYPE MESSAGE? 
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002314' 

002314' 020427 000014 

002320' 001005 

002322' 

002322' 012765 000046' 000010 

002330' 

002330' 000167 001114 

002334' 

002334' 



IF R4 EQ #MSGSMH THEN 

LET FLMSADR(R5) 
INLINE <JMP 1$> 
ENDIF 



:= #RNHMSG 



SEO 0466 



CMP 




R4,#MSGSMH 


ENE 
MOV 




50021$ 
#RNHMSG,FLMSADR( 


JMP 


1$ 





50021S 
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986 








. 


987 










988 










989 










990 










99i 










992 










993 










994 


002334' 






I 


(6) 


002334* 


020427 


000015 




(9) 


002340' 


001063 






995 










996 










997 










998 










999 










1000 


002342' 








(3) 


002342' 


010546 






(5) 


002344' 


012745 


000051 ' 




(4) 


002350' 


010145 






(3) 


002352' 


004767 


001100 




(3) 


002356' 


012605 






1001 










1002 










1003 










1 004 










1005 










1006 


002360' 








(3) 


002360' 


010546 






(5) 


002362' 


012745 


000066' 




(4) 


002366' 


010145 






(3) 


002370' 


004767 


000000G 




(3) 


002374' 


012605 






1007 


002376' 








(3) 


002376' 


010546 






(5) 


002400' 


012745 


000102' 




(4) 


002404' 


016145 


000026 




(3) 


002410' 


004767 


OOOOOCG 




(3) 


002414' 


012605 






1008 


002416' 








(3) 


002416' 


010546 






(5) 


002420' 


012745 


000117' 




(4) 


002424' 


016145 


000034 




(3) 


002430' 


004767 


OOOOOOG 




(3) 


002434' 


012605 






1009 


002436' 








(3) 


002436' 


010546 






(5) 


002440' 


012745 


000135' 




(4) 


002444' 


016145 


000044 




(3) 


002450' 


004767 


OOOOOOG 




(3) 


002454' 


012605 






1010 


002456' 








(3) 


002456' 


010546 






(5) 


002460' 


012745 


000153' 




(4) 


002464' 


016145 


000042 




(3) 


002470' 


004767 


OOOOOOG 





TO FILL IN SKELETAL MSGS MACY11 30A(1C52) 20-SEP-78 17:52 
PROCESS SUM COMMAND MODULE LINE MESSAGE 

SBTTL PROCESS SUM COMMAND MODULE LINE MESSAGE 



IS IT A "SUM COMMAND-MODULE - LINE" MESSAGE? 



PAGE 19-22 



SEQ 0467 



IF R4 EQ #MSGSMB THEN 



GET MODULE NAME 



CMP 
BNE 



CALL GETNAM IN <R1 , #RNSNAM> 



MOV 
MOV 
MOV 
JSR 
MOV 



CONVERT PC r STAT,PASS COUNT, HARD ERORRS AND SOFT ERRORS 
TO ASCII 

CALL BCA16 IN <R1 T #RNBPC> 



CALL BQA16 IN <STAT(R1), #RNBSTAT> 



CALL BDACNV IN <PASCNT(R1), #RNBPAS> 



CALL BDACNV IN <HRDCNT(R1), #RNBHRD> 



CALL BDACNV IN <S0FCNT(R1), #RNBSFT> 



R4,#MSGSMB 
50022$ 



R5,-(SP) 
#RNBNAM,-(R5) 
R1 ,-(R5) 
PC, GETNAM 
(SP)+,R5 



MOV 


R5,-(SP) 


MOV 


#RNBPC,-(R5) 


MOV 


R1 ,-(R5) 


JSR 


PC,60A16 


MOV 


(SP)+,R5 


MOV 


R5,-(SP) 


MOV 


#RNBSTAT,~(R5) 


MOV 


STAT{R1 ),-(R5) 


JSR 


PC,B0A16 


MOV 


(SP)+,R5 


MOV 


R5,-(SP) 


MOV 


#RNBPAS,-(R5) 


MOV 


PASCNT(R1 ),-(R5) 


JSR 


PC, BDACNV 


MOV 


(SP)+,R5 


MOV 


R5,-(SP) 


mv 


#RNBHRD,-(R5) 


MOV 


HRDCNT(R1 ),-(R5) 


JSR 


PC, BDACNV 


MOV 


(SP)+,R5 


MOV 


R5,-(SP) 


MOV 


#RNBSFT,-(R5) 


MOV 


S0FCNT(R1 ) ,-(R5) 


JSR 


PC, BDACNV 



FILLML - FILL MESSAGE (LITTLE) - TO FILL IN SKELETAL MSGS MACY1 1 30A(1052) 20-SEP-78 17:52 PAGE 19-23 

FILLML.MAC 16-AUG-78 14:36 PROCESS SUM COMMAND MODULE LINE MESSAGE SEQ 0468 

(3) 002474' 012605 MOV (SP)+,R5 

1011 002476' LET FLMSADR(R5) := #RNBMSG 

(4) 002476' 012765 000050' 000010 MOV #RNBMSG, FLMSADR( 

1012 002504' INLINE <JMP 1 $> 

(2) 002504' 000167 000740 JMP 1$ 

1013 002510 1 ENDIF 

(4) 002510' 50022$: 
1014 



FILLML - FILL MESSAGE (LITTLE) - TO FILL IN SKELETAL MSG5 MACY11 3CA(1052) 20-SEP-78 17:52 PAGE 19-24 
FILLML.MAC 16-AUG-78 14:36 PROCESS SUM COMMAND SUMMARY LINE MESSAGE 



SEQ 0469 



1016 








1017 








1018 








1019 








1020 








1021 








1022 








1023 








1024 


002510' 






(6) 


002510' 


020427 


000016 


(9) 


002514' 


001025 




1025 








1026 








1027 








1028 








1029 


002516' 






(3) 


002516' 


010546 




(5) 


002520' 


012745 


000201 ' 


(4) 


002524' 


016045 


000060 


(3) 


002530' 


004767 


OOOOOOG 


(3) 


002534' 


012605 




1030 


002536' 






(3) 


002536' 


010546 




(5) 


002540' 


012745 


000230' 


(4) 


002544' 


016045 


000062 


(Z\ 


002550' 


004767 


OOOOOOG 


(3) 


002554' 


012605 




1031 


002556' 






(4) 


002556' 


012765 


000161 ' 


1032 


002564' 






(2) 


002564' 


000167 


000660 


1033 


002570' 






(4) 


002570' 






1034 









.SBTTL PROCESS SUM COMMAND SUMMARY LINE MESSAGE 



IS IT A SUM COMMAND SUMMARY LINE MESSAGE? 



IF R4 EQ 0MSGSMS THEN 



CONVERT SYSTEM ERRORS AND POWER FAILS TO ASCII 
CALL BDACNV IN <DT.EXS(R0), #RNSERR> 



CALL BDACNV IN <DT-PFL(R0), #RNSPWR> 



LET FLMSADR(R5) := #RNSMSG 



CMP 

BNE 



000010 



R4 f #MSGSMS 
50023$ 



INLINE <JMP 1$> 



ENDIF 



MOV 
MOV 
MOV 
JSR 
MOV 


R5 — ( SP ) 

#RNSERR,-(R5) 

DT.EXS(R0),-(R5) 

PCBDACNV 

(SP)+,R5 


MOV 
MOV 
MOV 
JSR 
MOV 


R5,-(SP) 
#RNSPWR,-(R5) 
DT.PFL(RO) ,-(R5) 
PCBDACNV 


MOV 


#RNSMSG r FLMSADR( 


JMP 1$ 




50023$: 





FILLML - FILL MESSAGE (LITTLE) - TO FILL IN SKELETAL MSGS MACY11 30A(1052) 20-SEP-78 17:52 PAGE 19-25 

FILLML. MAC 16-AUG-78 14:36 PROCESS DROP MODULE TYPE MESSAGE 



SEQ 0470 



1036 
1037 
1038 
1039 
1040 

4 r\ a -i 
t U1 I 

1042 

1043 

1044 

1045 

(6) 

(9) 

1046 

1047 

1048 

1049 

1050 

(3) 

(5) 

(4) 

(3) 

(3) 

1051 

1052 

1053 

1054 

1055 

1056 

(4) 

(6) 

1057 

1058 

1059 

1060 

1061 

1062 

(3) 

(5) 

(4) 

(3) 

(3) 

1063 

(4) 

1064 

(2) 

1065 

(4) 

1066 



002570' 

002570' 020427 
002574' 001025 



002576' 
002576' 
002600' 
002604' 
002606' 
002612' 



010546 
012745 
010145 
004767 
012605 



002614' 

002614' 010203 
002616' 160103 



002620' 
002620' 
002622' 
002626' 
002630' 
002634' 
002636' 
002636' 
002644' 
002644' 
002650' 
002650' 



000017 



.SBTTL PROCESS DROP MODULE TYPE MESSAGE 

IS IT A DROP MODULE MESSAGE? 
IF R4 EQ #MSGDRP THEN 

GET MODULE NAME 

CALL GETNAM IN <R1 t #DRPNAM> 



001045 



000644 



CMP 
BNE 



MOV 
MOV 
MOV 
JSR 
MOV 



FORM APC 



LET R3 := R2 - R1 



CONVERT DROP PC TO ASCII 



MOV 
SUB 



010546 

012745 0C1073' 

010345 

004767 OOOOOOG 

012605 

012765 001044' 000010 

000167 000600 



CALL B0A16 IN <R3, #DRPPC> 



LET FLMSADR(R5) := #DRPMSG 
INLINE <JMP 1$> 



MOV 
MOV 
MOV 
JSR 

MOV 

MOV 
UMP 1$ 



ENDIF 



R4 r #MSGDRP 
50024$ 



R5,-(3P) 
#DRPNAM,-(R5) 
R1 ,-(R5) 
PC, GETNAM 
(SP)+,R5 



R2,R3 
R1 ,R3 



R5 f -(SP) 

#DRPPC,-(R5) 

R3,-(R5) 

PC.B0A16 

(SP)+,R5 

#DRPMSG,FLMSADR( 



50024$: 



FILLML - FILL MESSAGE (LITTLE) 
FILLML. MAC 16-AUG-78 14:36 



1068 








1069 








1070 








1071 








1072 








1073 








1074 


002650' 






(6) 


002650' 


020427 


000010 


(9) 


002654' 


001405 




(6) 


002656' 


020427 


000005 


(9) 


002662' 


001402 




1075 


002664' 






(2) 


002664' 


000167 


000460 


1076 


002670' 






(4) 


002670' 






1077 








1078 








1079 








1080 








1081 








1082 


002670' 






(3) 


002670' 


010546 




(5) 


002672' 


012745 


001104' 


(4) 


002676' 


010145 




(3) 


002700' 


004767 


000552 


(3) 


002704' 


012605 




1083 








1084 








1085 








1086 








1087 








1088 


002706 1 






(3) 


002706' 


010546 




(6) 


002710' 


012745 


001116' 


(5) 


002714' 


010245 




(4) 


002716 s 


010045 




(3) 


002720' 


004767 


000572 


(3) 


002724' 


012605 




1089 








1090 








1091 








1092 








1093 








1094 


002726' 






(4) 


002726' 


010203 




(6) 


002730' 


160103 




1095 








1096 








1097 








1098 








1099 








1100 


002732' 






(3) 


002732' 


010546 




(5) 


002734' 


012745 


001134' 


(4) 


002740' 


010345 




(3) 


002742' 


004767 


000000G 



TO FILL IN SKELETAL MSGS MACY11 30A(1052) 20-SEP-78 
PROCESS CKDATA/DATACK/DATERR 

.SBTTL PROGESS CKDATA/DATACK/DATERR 



IS IT A CKDATA/DATACK/DATERR TYPE MESSAGE? 
IF R4 NE #MSGCKD AND R4 NE #MSGDER THEN 



INLINE <JMP 339$> 



END IF 



17:52 PAGE 19-26 



SEQ 0471 



CMP 
BEO 
CMP 
BEG 

JMP 



50025$: 



GET MODULE NAME 



CALL GETNAM IN <R1 r #CKDNAM> 



GET A PA 



CALL GETAPA IN <R0 f R2, #CKDPA> 



FORM APC 



LET R3 := R2 - R1 



CONVERT VA TO ASCII 



CALL B0A16 IN <R3, #CKDVA> 



MOV 
SUB 



MOV 
MOV 
MOV 
USR 



R4,#MSGCKD 
50025$ 
R4,#MSGDER 
50025$ 

339$ 



MOV 


R5,-(SP) 


MOV 


#CKDNAM,-(R5) 


MOV 


R1 f -(R5) 


JSR 


PC , GETNAM 


MOV 


(SP)+,R5 



MGV 


R5,-(SP) 


MOV 


#CKDPA,-(R5) 


MGV 


R2,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, GETAPA 


MOV 


(SP)+,R5 



R2,R3 
R1 ,R3 



R5,-(SP) 
#CKDVA,-(R5) 
R3,-(R5) 
PC, B0A16 



FILLML - FILL MESSAGE (LITTLE) 
FILLML. MAC 16-AUG-78 14:36 



(3) 


002746' 


012605 




1101 








1102 








1103 








1104 








1105 








1106 


002750' 






(3) 


002750' 


010546 




(5) 


002752' 


012745 


001151 ' 


(4) 


002756' 


016145 


000034 


(3) 


002762' 


004767 


OOOOOOG 


(3) 


002766' 


012605 




1107 








1103 








1109 








1110 








1111 








1112 


002770' 






(3) 


002770' 


010546 




(5) 


002772' 


012745 


001164' 


(4) 


002776' 


016145 


000042 


(3) 


003002' 


004767 


OOOOOOG 


(3) 


003006' 


012605 




1113 








1114 








1115 








1116 








1117 








1118 


003010' 






(3) 


003010' 


010546 




(5) 


003012' 


012745 


001200' 


(4) 


003016' 


016145 


000100 


(3) 


003022' 


004767 


OOOOOOG 


(3) 


003026' 


012605 




1119 


003030' 






(3) 


003030' 


010546 




(5) 


003032' 


012745 


001214' 


(4) 


003036' 


016145 


000106 


(3) 


003042' 


004767 


OOOOOOG 


(3) 


003046' 


012605 




1120 


003050' 






(3) 


003050' 


010546 




(5) 


003052' 


012745 


001230' 


(4) 


003056' 


016145 


000110 


(3) 


003062' 


004767 


OOOOOOG 


(3) 


003066' 


012605 




1121 








1122 








1123 








1124 








1125 








1126 


003070' 






(6) 


003070' 


020427 


000005 


(9) 


003074' 


001476 




1127 








1128 









TC FILL IN SKELETAL MSGS MACY11 30A(1052) 
PROCESS CKDATA/DATACK/DATERR 



CONVERT PASS COUNT TO ASCII 



CALL BDACNV IN <PASCNT(R1) f #CKDPAS> 



2Q-SEP-78 17:52 PAGE 19-27 



MGV 



SEQ 0472 



MOV 
MOV 
MOV 
JSR 
MOV 



CONVERT SOFCNT TO ASCII 



CALL BDACNV IN <S0FCNT(R1) T #CKDNUM> 



MOV 
MQV 
MOV 
JSR 
MOV 



CONVERT CSRA,ASB r AWAS TO ASCII 



CALL B0A16 IN <CSRA(R1) f #CKDADD> 



CALL BDA16 IN <ASB(R1), #CKDSB> 



CALL B0A16 IN <AWAS(R1), #CKDWAS> 



IF NOT A DATERR, 

GO BUILD THE PHYSICAL ADDRESSES 

IF R4 NE #MSGDER THEN 



CMP 
BEQ 



(SP)+,R5 



R5,-(SP) 
#CKD?AS,-(R5) 
PASCNT(R1),-(R5) 
PC, BDACNV 
(SP)+,R5 



R5 f -(SP) 
#CKDNUM,-(R5) 
S0FCNT(R1 ),-(R5) 
PC, BDACNV 
(SP)+,R5 



MQV 


R5,-(SP) 




MQV 


#CKDADD,- 


•(R5) 


MOV 


CSRA(R1 ) , 


-(R5) 


JSR 


PC,B0A16 




MOV 


(SP)+,R5 




MOV 


R5,-(SP) 




MQV 


#CKDS3,-(R5) 


MGV 


ASB(R1 ) ,- 


-(R5) 


JSR 


PC,B0A16 




MOV 


(SP)+,R5 




MGV 


R5,-(SP) 




MQV 


#CKDWAS,- 


"(R5) 


MGV 


AWAS(R1 ) , 


-(R5) 


JSR 


PC.B0A16 




MOV 


(SP)+,R5 





R4,#MSGDER 
50026$ 



FILLML - FILL MESSAGE (LITTLE) 
FILLML.MAC 16-AUG-78 14:36 



1129 








1130 








1131 








1132 








1133 


003076' 






/ A \ 

A"* I 




V 1 O I WsJ» 


000144 


(6) 


003102' 


042703 


100000 


1134 








1135 








1136 








1137 








1138 








1139 


003106' 






(6) 


003106' 


005303 




1140 


0031 10' 






(7) 


0031 10' 


006303 




1141 


003'1 12' 






(4) 


0031 12' 


010304 




(6) 


003114' 


066104 


000134 


1142 








1143 


003120" 






(4) 


003120' 


010467 


174662 


1144 


003124' 






(4) 


003124' 


016167 


000136 174656 


1145 


003132' 






(4) 


003132' 


016767 


174650 174652 


1146 


003140' 






(4) 


003140' 


016767 


174644 174645 


1147 








1148 








1149 








1150 








1151 








1152 








1153 








1154 


003146' 






(3) 


003146' 


010546 




(7) 


003150' 


012745 


001245' 


(6) 


003154' 


016745 


174634 


(5) 


003160' 


016745 


174626 


(4) 


003164' 


010045 




(3) 


003166' 


004767 


000000G 


(3) 


003172' 


012605 




1155 


003174' 






(4) 


003174' 


010204 




(6) 


003176' 


062704 


000004 


1156 


003202' 






(6) 


003202' 


067403 


000000 


1157 


003206' 






(4) 


003206' 


01 1404 




(6) 


003210' 


062704 


000002 


1158 


003214' 






(4) 


003214' 


011404 




1159 








1160 


003216' 






(4) 


003216' 


010367 


174564 



- TO FILL IN SKELETAL MSGS MACY11 

PROCESS CKDATA/DATACK/DATERR 



CLEAR MSB OF WORD COUNT 



30A(1052) 20-SEP-78 17:52 PAGE 19-28 



SEQ 0473 



LET R3 := CDWDCT(R1) CLR.5Y #BIT15 

FORM WRITE BUFFER FAILING ADDRESS 

LET R3 := R3 - #1 

LET R3 := R3 SHIFT 1 

LET R4 := R3 + WBUFPA(R1) 



MOV CDWDCT(R1 ) ,R3 

BIC #BIT15,R3 



LET TMPPA : 

LET TMPEA : 

LET FM.PA : 

LET FM.EA : 



= R4 

= WBUFEA(R1 ) 

= TMPPA 

= TMPEA 



DEC 


R3 


ASL 


R3 


MOV 


R3,R4 


ADD 


WBUFPA(R1 ) ,R4 


MOV 


R4, TMPPA 


MOV 


WBUFEA(RI) ? TMPEA 


MOV 


TMPPA, FM.PA 


MQV 


TMPEA, FM.EA 



CONVERT WRITE ADDRESS TO ASCII 



CALL BOAC IN <R0 , FM. PA, FM. EA, #CKDWRA> 



LET R4 := R2 + #4 

LET R3 := R3 + @(R4) 

LET R4 := (R4) + #2 

LET R4 := (R4) 

LET TMPPA := R3 



MOV 


R5,-(SP) 


MOV 


#CKDWRA,-(R5) 


MOV 


FM.EA, -(R5) 


MOV 


FM.PA,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, BOAC 


MOV 


(SP)+,R5 


MOV 


R2.R4 


ADD 


#4,R4 


ADD 


@(R4) ,R3 


MOV 


(R4),R4 


ADD 


#2,R4 



MOV 



MOV 



(R4),R4 



R3, TMPPA 



FILLML - FILL MESSAGE (LITTLE) 
FILLML.MAC 16-AUG-78 14:36 



1161 

(4) 

1162 

1163 

(4) 

H -1 C /I 
I I Ot 

(4) 

1165 

1166 

1167 

1168 

116S 

1170 

(3) 

(7) 

(6) 

(5) 

(4) 

(3) 

(3) 

1171 

1172 

1173 

1174 

1175 

1176 

(4) 

(3) 

1177 

(3) 

(6) 

(5) 

(4) 

(3) 

(3) 

1178 

(3) 

(6) 

(5) 

(4) 

(3) 

(3) 

1179 

1180 

1181 

(4) 

1182 

1183 

1184 

(4) 

1185 

(2) 

1186 

(2) 

11 87 



003222' 

003222' 010467 174562 



- TO FILL IN SKELETAL MSGS MACY11 

PROCESS CKDATA/DATACK/DATERR 

LET TMPEA := R4 



30A(1052) 20-SEP-78 17:52 PAGE 19-29 



SEQ 0474 



MOV 



003226' 

003226' 016767 174554 174556 

A /-> O <"l O /l I 

003234' 016767 174550 174552 



003242' 
003242' 
003244' 
003250' 
003254' 
003260' 
003262' 
003266' 



003270' 
003270' 
003272' 
003272' 
003272' 
003274' 
003300' 
003304' 
003306' 
003312' 
003314' 
003314' 
003316' 
003322' 
003326' 
003330' 
003334' 



003336' 
003336' 



003336' 
003336' 
003344' 
003344' 
003350' 
003350' 



010546 
012745 
016745 
016745 
010045 
004767 
012605 



000422 



010546 
012745 
016145 
010045 
004767 
012605 

010546 
012745 
016145 
010045 
004767 
012605 



001264' 

174540 

174532 

000000G 



001245 
000102 

000204 



001264' 
000104 

000162 



LET FM.PA := TMPPA 
LET FM.EA := TMPEA 

CONVERT READ ADDRESS TO ASCII 

CALL BOAC IN <R0 T FM.PA,FM.EA T #CKDRDA> 



IT'S A DATERR, SO GET SBADR AND WASADR 



ELSE 



CALL GETAPA IN <R0 ,SBADR( R1 ) , #CKDWRA> 



CALL GETAPA IN <R0 , WASADR(R1 ) ,#CKDRDA> 



012765 001103' 000010 



000167 000100 



ENDIF 

LET FLMSADR(R5) := #CKDMSG 
INLINE <JMP 1$> 
INLINE <339$:> 



50027$: 



R4, TMPEA 



MOV TMPPA, FM.PA 

MOV TMPEA, FM.EA 



MOV 


R5,-(SP) 


MOV 


#CKDRDA,-(R5) 


MOV 


FM.EA,-(R5) 


MOV 


FM.PA,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, BOAC 


MOV 


(SP)+,R5 



BR 


b002Y$ 


50026$: 




MOV 


R5,-(SP) 


MCV 


#CKDWRA,-(R5) 


MOV 


SBADR(R1) ,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, GETAPA 


MOV 


(SP)+,R5 


MOV 


R5,-(SP) 


MOV 


#CKDRDA,-(R5) 


MOV 


WASADR(R1 ) ,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, GETAPA 


MOV 


(SP)+,R5 



MOV #CKDMSG,FLMSADR( 

JMP 1$ 

339S: 



FILLML 


- FILL MESSAGE (LITTLE) - TG FI 


FILLML. 


MAC 16-AUG-78 


14:36 


1189 








1190 








1191 








1192 








1193 








1 194 








1195 








1196 


003350' 






(6) 


003350' 


020427 


000011 


(9) 


003354' 


001035 




1197 


003356' 






(4) 


003356' 


016103 


000146 


(6) 


003362" 


042703 


100000 


1198 








1199 








1200 








1201 








1202 








1203 


003366' 






(3) 


003366' 


010546 




(5) 


003370' 


012745 


001276' 


(4) 


003374' 


010145 




(3) 


003376' 


004767 


000054 


(3) 


003402' 


012605 




1204 








1205 








1206 








1207 








120S 








1209 


003404' 






(3) 


003404' 


01 0546 




(5) 


003406' 


012745 


001310' 


(4) 


003412' 


010345 




(3) 


003414' 


004767 


000000G 


(3) 


003420' 


012605 




1210 








1211 








1212 








1213 








1214 


003422' 






(3) 


003422' 


010546 




(5) 


003424' 


012745 


001334' 


(4) 


003430' 


016145 


000132 


(3) 


003434' 


004767 


OOOOOOG 


(3) 


003440' 


012605 




1215 


003442' 






(4) 


003442' 


012765 


001276' 000010 


1216 


003450' 






(4) 


003450' 







. IN SKELETAL MSGS 
PROCESS CKDATA/DATACK 



MACY11 30A(1052) 
SUMMARY LINE 



20-SEP-78 17:52 PAGE 19-30 



SEQ 0475 



.SBTTL PROCESS CKDATA/DATACK SUMMARY LINE 



; + 

; IS IT THE CKDATA/DATACK SUMMARY LINE? 



IF R4 EQ #MSGCKS THEN 



LET R3 := CDERCT(R1) CLR.BY #BIT15 



GET THE MODULE NAME 



CALL GETNAM IN <R1 , #CKDSNAM> 



CMP 
BNE 

MOV 
BIC 



CONVERT SUMMARY COUNT TO ASCII 



CALL BDACNV IN <R3, #CKDSCNT> 



CONVERT NUMBER OF LOCATIONS READ TO ASCII 
CALL BDACNV IN <RBUFSZ(R1 ) t #CKDSRD> 



LET FLMSADR(RS) := #CKDSMSG 



R4 f #MSGCKS 
50030$ 

CDERCT(R1 ),R3 
#BIT15,R3 



MOV 


R5,-(SP) 


MOV 


#CKDSNAM f -(R5) 


MOV 


R1 ,-(R5) 


USR 


PC, GETNAM 


MOV 


(SP)+,R5 



MOV 


R5,-(SP.) 


MOV 


#CKDSCNT,-(R5) 


MOV 


R3,-(R5) 


JSR 


PC, BDACNV 


MOV 


(SP)+,R5 



MOV R5 r -(SP) 

MOV #CKDSRD,-(R5) 

MOV RBUFSZ(R1 ) ,-(R5) 

•USR PC, BDACNV 

MOV (SP)+,R5 

MOV #CKDSMSG,FLMSADR 



ENDIF 



50030$: 



FILLML - FILL MESSAGE (LITTLE) - TO FILL IN SKELETAL MSGS MACY11 30A(1052) 20-SEP-78 17:52 PAGE 19-31 
FILLML.MAC 16-AUG-78 14:36 DO THE NECESSARY CLEAN-UP AND THEN RETURN 



SEQ 0476 



1218 
1219 
1220 
1221 
1222 



.SBTTL DO THE NECESSARY CLEAN-UP AND THEN RETURN 



1224 

1225 

1226 

1227 

1228 

1229 

(2) 

1230 

(3) 

1231 

(3) 

(3) 

(2) 

1232 



003450 1 
003450 ' 
003450' 
003450' 
003454' 
003454' 
003454' 
003454' 



NOW THAT WE'VE FILLED-IN THE BLANK FIELDS, DO THE CLEAN UP AND RETURN 



004767 OOOOOOG 



000207 



INLINE <1$:> 
CALL RESREG 
ENDRTN 



50000S: 
50001$: 



1$: 
JSR 

RTS 



PC, RESREG 



PC 



FILLML - FILL MESSAGE (LITTLE) - TO FILL IN SKELETAL MSGS 
FILLML.MAC 16-AUG-78 14:36 GET MODULE NAME 



MACY11 30A(1052) 20-SEP-78 17:52 PAGE 19-32 



SEQ 0477 



1234 
1235 
1236 
1237 
1238 
1 239 
1240 
1241 

(2) 
1242 
1243 
1244 
1245 
1246 
1247 

(3) 
1248 
1249 
1250 
1251 
1252 
1253 

(4) 
1254 

(4) 
1255 

(4) 
1256 

(4) 

(6) 

(9) 
1257 

(4) 
1258 

(6) 
1259 

(4) 

(3) 
1260 
1261 
1262 
1263 
1264 

(3) 
1265 

(3) 

(3) 

(2) 
1266 
1267 



.SBTTL GET MODULE NAME 



THIS ROUTINE RETRIEVES THE MODULE NAME FROM THE MODULE'S HEADER AND 
STORES IT IN THE CALLER SUPPLIED STORAGE AREA 



003456' 
003456' 



003456' 

003456' 004767 OOOOOOG 



003462' 
003462' 016500 



000000 



003466' 

003466' 016501 000002 

003472' 

003472' 012702 000005 

003476' 

003476' 

003476' 005702 

003500' 003403 

003502' 

003502' 112021 

003504' 

003504' 005302 

003506' 

003506' 000773 

003510' 



003510' 

003510' 004767 OOOOOOG 

003514' 

003514' 

003514' 

003514" 000207 



ROUTINE GETNAM <HDRADR , RSLTADR> 

SAVE REGISTERS 
CALL SAVREG 

GET HEADER ADDR., MOVE 5 CHARS TO RESULT ADDR 

LET RO := HDRADR(R5) 
LET R1 := RSLTADR(R5) 
LET R2 := #~D<5> 
WHILE R2 GT #0 DO 

LET (R1)+ :B= (R0)+ 

LET R2 := R2 - #1 
ENDDO 

RESTORE REGISTERS 

CALL RESREG 
ENDRTN 



GETNAM: 



JSR 



50000$: 
50001$: 



JSR 



RTS 



PC, SAVREG 





MOV 


HDRADR(R5) , RO 




MOV 


RSLTADR(R5) ,R1 




nnr\\f 
iviu v 


il"T\^-E-v no 


50002$: 


T3T 

BLE 


R2 
50003$ 




MQVB 


(R0)+, (R1 )+ 




DEC 


R2 


50003$: 


BR 


50002$ 



PC, RESREG 



PC 



FILLML - FILL MESSAGE (LITTLE) 
FILLML. MAC 16-AUG-78 14:36 

1269 
1270 
1271 
1272 
1273 

1 07 A 



- TO FILL IN SKELETAL MSGS 

CONVERT VIRTUAL ADDRESS 



MACY11 30A(1052) 20-SEP- 
TO PHYSICAL ADDRESS ASCII 



73 17:52 PAGE 19-33 



SEQ 0478 



1275 

1276 

1277 

(2) 

1278 

1279 

1280 

1281 

1282 

1283 

1284 

(3) 

1285 

1288 

1287 

1288 

1289 

(4) 

1290 

(4) 

1291 

(4) 

1292 

1293 

1294 

1295 

(3) 

(5) 

(4) 

(3) 

(3) 

1296 

(3) 

(7) 

(6) 

(5) 

(4) 

(3) 

(3) 

1297 

1298 

1299 

1300 

1301 

(3) 

1302 

(3) 

(3) 

(2) 

1303 



.SBTTL CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS ASCII 



THIS ROUTINE ACCEPTS A 16-BIT VIRTUAL ADDRESS AND RETURNS AN 8-BYTE 
(22 BIT) PHYSICAL ADDRESS IN THE CALLER SUPPLIER STORAGE AREA 



003516' 
003516' 



003516' 
003516' 004767 



OOOOOOG 



003522' 

003522' 016500 000000 

003526' 

003526' 016501 000004 

003532' 

003532' 016567 000002 174244 



003540' 
003540' 
003542' 
003546' 
003550' 
003554' 
003556' 
003556' 
003560' 
003562' 
003566' 
003572' 
003574' 
003600' 



003602' 
003602' 
003606' 
003606' 
003606' 
003606' 



010546 
012745 
010045 
004767 
012605 

010546 
010145 
016745 
016745 
01 0045 
004767 
012605 



000004' 



OOOOOOG 



174222 
174214 

OOOOOOG 



ROUTINE GETAPA <DTABLE, VA, RSLTADR> 



SAVE REGISTERS 

CALL SAVREG 

+ 
SAVE DTABLE ADDR, RESULT ADDR 

LET RO := DTABLE(R5) 
LET R1 := RSLTADR(R5) 
LET TMPVA ;= VA(R5) 

; + 

; CONVERT TO PA AND THEN TO ASCII 
CALL GPA IN <R0, #TMPVA> 



CALL BOAC IN <R0, TMPPA, TMPEA, R1> 



GETAPA: 



JSR 



MOV 
MOV 

MOV 



004767 OOOOOOG 



000207 



RESTORE REGISTERS 
CALL RESREG 
ENDRTN 



50000$: 
50001$: 



uSR 



RTS 



PC, SAVREG 



DTABLE(R5),R0 
RSLTADR(RS) ,R1 
VA(R5) , TMPVA 



MOV 


R5,-(SP) 


MOV 


#TMPVA,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, GPA 


MOV 


(SP)+,R5 


MOV 


R5 f -(SP.) 


MOV 


R1 ,-(R5) 


MOV 


TMPEA, -(R5) 


MOV 


TMPPA, -(R5) 


MOV 


R0,-(R5) 


JSR 


PC, BOAC 


MOV 


(SP)+,R5 



PC, RESREG 



PC 



FILLML - FILL MESSAGE (LITTLE) - TO FILL IN SKELETAL MSGS MACY11 30A(1052) 20-SEP-73 17:52 PAGE 19-34 

FILLML.MAC 16-AUG-78 14:36 CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS ASCII SEQ 0479 

1304 000001 .END 
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MACY11 


30A(1052) 20-: 
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FILLML.MAC 16-AUG- 


78 14:36 


SYMBOL TABLE 












SEQ 04S0 


AC5R = 


000102 


CKDPA 


001116R 


DT.FCH= 


000037 


GETAPA 


. 00351 6R 


MODEXH= 


004000 




ACT3IT= 


004000 


CKDPAS 


001151R 


DT.FCN= 


000033 


GETNAM 


003456R 


MQDHOL= 


002000 




ADDR22= 


001000 


CKDRDA 


001264R 


DT.HMX* 


000104 


GPA 


****** g 


MODSEL= 


001000 




ADR = 


000006 


CKDSB 


001214R 


DT.KBE= 


000024 


HDRADR= 


000000 


MSGADR= 


000004 




APTFER= 


000004 


CKDSCN 


001310R 


DT.KBP= 


000026 


HDRMSG 


000237R 


MSGCKD= 


000010 




APTPRE= 


000200 


CKDSMS 


C01276R 


DT.KBR= 


000022 


HD'RNAM 


000240R 


MSGCKS= 


00001 1 




AS3 


000106 


CKDSNA 


001276R 


DT.KBU= 


000030 


HDRPA 


000252R 


MSGDER= 


000005 




ASSEM3= 


000010 


CKDSRD 


001334R 


DT.MLS= 


000032 


HDRPA3 


000305R 


MSGDRP= 


000017 




ASTAT = 


000104 


CKDVA 


001134R 


DT.MTI= 


000110 


HDRPC 


0.Q0270R 


MSGECH= 


177777 




AUTO = 


000010 


CKDWAS 


001230R 


DT.OFF= 


000070 


HRDCNT= 


000044 


MSGEOP= 


000013 




AUTOST= 


020000 


CKDWRA 


001245R 


DT.PAS= 


000074 


HRDPAS= 


000050 


MSGHDR= 


000004 




AWAS = 


000110 


CKHUNG= 


****** g 


DT.PC = 


000002 


ICONT = 


000035 


MSGHNG= 


000022 




BDACNV= 


****** G 


CKTIM = 


100000 


DT.PFL= 


000062 


ICOUNT= 


000040 


MSGHRD= 


000007 




BITO = 


000001 


CLKPRE= 


000001 


DT.PSW= 


000004 


IDNUM = 


000122 


MSGMAP= 


000021 




BITOO = 


000001 


CONFIG= 


000056 


DT.PTA= 


000064 


IE 


000100 


MSGNUL= 


177775 




BIT01 = 


000002 


CQOVF = 


000001 


DT.RCS= 


000102 


INDPAR= 


000040 


MSGPOP= 


000002 




BIT02 = 


000004 


CR 


000015 


DT.R£L= 


000040 


INHDRP= 


040000 


MSGPRM= 


177776 




BIT03 = 


000010 


CSRA = 


000100 


DT.SCT= 


000066 


INHEPR= 


020000 


MSGRES= 


000001 




BIT04 = 


000020 


CSRC = 


000102 


DT.SMX= 


000106 


INHREL= 


001000 


MSGSFT= 


000006 




BIT05 = 


C00040 


CTRLC = 


000003 


DT.SP = 


000006 


INHRRE= 


000400 


M5GSKE= 


000003 




BIT06 = 


000100 


CTRLO = 


000017 


DT.SSI= 


000046 


INIT = 


000030 


MSGSMB= 


000015 




BIT07 = 


000200 


CTRLU = 


000025 


DT.STO= 


000010 


INTR = 


000120 


MSGSMH= 


000014 




BIT08 = 


000400 


DATADD 


000415R 


DT.ST1= 


000012 


IOMOD = 


100000 


MSGSMS= 


00G01S 




BIT09 = 


001000 


DATAMS 


000314R 


DT.SWR= 


000056 


IOI«ODP = 


102000 


M5GSTD= 


000000 




BIT1 = 


000002 


DATA PC 


000345R 


DT.SYP= 


000072 


IOM£)DR = 


112000 


MSG5YS= 


000012 




BIT10 = 


002000 


DAT CON 


000432R 


DT.WBU= 


000050 


IOMODX= 


110000 


MSGVEC= 


000020 




BIT11 = 


004000 


DATEND 


000476R 


DT . WHL- 


CQQ\jOh 


■ r A " K - 


035C6Q 


NBKMOD= 


001000 




BIT12 = 


010000 


DATERR 


000467R 


DT.WLL= 


000052 


KIPARO= 


17 2340 


NCPUOP= 


000020 




BIT13 = 


020000 


DATNAM 


00031 5R 


DVID1 = 


000014 


KIPAR1= 


172342 


NGAPTY= 


000002 




BIT14 = 


040000 


DATNUM 


000401R 


ECCMEM= 


000100 


KIPAR2^ 


172344 


NULL = 


000000 




BIT15 = 


100000 


DATPAS 


000362R 


ECCSTA= 


000010 


KIPAR"3= 


172346 


OWEN = 


024020 




BIT2 = 


000004 


DATPC 


000327R 


ENBEOP= 


010000 


KIPAR4= 


172350 


PAERR = 


000010 




BIT3 = 


000010 


DATSTA 


000450R 


EN5NUL= 


000001 


KIPAR5= 


172352 


PARPRE= 


002000 




BIT4 = 


000020 


DATTYP 


000370R 


ENDLST= 


000000 


KIPARS= 


172354 


PARSTA= 


000100 




BIT5 = 


000040 


DCEVNT= 


000011 


EOPBIT= 


000001 


KIPAR7= 


172356 


PASCNT= 


000034 




3IT6 = 


000100 


DEFRTN= 


000400 


EOPMSG 


000016R 


KIPDRO= 


172300 


PDPLSI= 


020000 




BIT7 = 


000200 


DIAGMC= 


000000 


EOPNAM 


000017R 


KIPDR1= 


172302 


PDP60 = 


004000 




BIT8 = 


000400 


DR0PM0= 


10CC00 


EOPPAS 


C00037R 


KIPDR2= 


172304 


PDP70 = 


010000 




BIT9 = 


001000 


DRPMSG 


001044R 


ERRTYP= 


000106 


KIPDR3= 


172306 


PRIO = 


000000 




BKCEF = 


000002 


DRPNAM 


001045R 


EVNTBE= 


000200 


KIPDR4= 


172310 


PRI1 = 


000040 




BKMOD = 


000020 


DRPPC 


001073R 


EVNTHD= 


000200 


KIPDR5= 


172312 


PRI4 = 


000200 




BKMODE= 


040000 


DSEVNT= 


000014 


EVNTKT= 


000203 


KIPDR6= 


172314 


PRI5 = 


000240 




BKSL5H= 


000134 


DTABLE= 


000000 


EVNTPE= 


000202 


KIPDR7= 


172316 


PRI6 = 


000300 




BOAC = 


****** Q 


DT.ADD= 


000042 


EVNTRE= 


000201 


KTERRO= 


000040 


PR I 7 = 


000340 




B0A16 = 


****** Q 


DT.AP = 


000100 


EXTEND 


001.043R 


KTPRES= 


000400 


PRO 


000000 




CAPRES= 


000004 


DT.APK= 


000076 


EXTMSG 


000477R 


KTSTAT= 


000020 


PR4 = 


000200 




CASTAT= 


000004 


DT.BLS= 


000034 


FATERR= 


100000 


KT.XTND= 


040000 


PR5 


000240 




CDERCT= 


000146 


DT.CFO= 


000014 


FILLMS 


001356RG 


LF 


000012 


PR6 


000300 




CDWDCT= 


000144 


DT.CF1= 


000016 


FLDCNT 


OOOOOOR 


LINECN 


000002R 


PR7 


000340 




CKDADD 


001200R 


DT.ERR= 


000020 


FLDW!AX = 


000010 


LPSTAT= 


000001 


PS 


177776 




CKDMSG 


001103R 


DT.ESI= 


000044 


FLMSAD= 


000010 


MAPSTA= 


000200 


FSW 


177776 




CKDNAM 


001104R 


DT.EVN= 


000000 


FM.EA 


000014R 


MED 


0766G0 


RANNUM= 


000054 




CKDNUM 


001164R 


DT,EXS= 


000060 


FM.PA 


000012R 


MEMPAS= 


040000 


RBUFEA= 


000130 





FILLML - FILL MESSAGE (LITTLE) - TO FILL IN SKELETAL MSGS 
FILLML. MAC 16-AUG-78 14:36 SYMBOL TABLE 

UIPARG= 

UIPAR1= 

UIPAR2= 

UTPAR3= 

UIPAR4= 

U1PAR5= 

UIPAR6= 

UIPAR7= 

UIPDRQ= 

UIPDR1= 

UIPDR2= 

UIPDR3= 

UIPDR4= 

UIPDR5= 

UIPDR6= 

UIPDR7= 

VA 

WASADR= 

WBSTAT= 

WBUFEA= 

WBUFPA= 

WBUFRQ= 

WBUFSZ= 

WDFR = 

WDTO = 

WTINRE= 

WTWH'\/!I = 

XFLAG = 

XOFF = 

XCN 

$BGNLE= 

$ERFLG= 

$F$AND= 

$F$BAD= 

$F$BLA= 

$F$CAS= 



MACY11 30A(1052) 



RBUFPA= 


C00126 


SC.APC= 


00 0016 


RBUFSZ= 


000132 


SC.CKL= 


000002 


RBUFVA= 


000124 


SC.CKP= 


000004 


RDSERV= 


000101 


SC.CLO = 


000000 


RDWHMI= 


000022 


SC.HLD= 


000010 


RELERR= 


000020 


SC.SCA= 


000012 


RELMOD= 


020000 


SENDLS= 


177777 


RELTINI = 


010000 


SOFCNT= 


000042 


RESREG= 


****** Q 


SOFPAS= 


000046 


RES1 = 


000056 


SPACE = 


000040 


RES2 = 


000060 


SPOINT= 


000032 


RICHAR= 


031060 


SPVALU= 


002200 


RNBHRD 


000135R 


SRO 


177572 


RNBNISG 


000050R 


SR1 


177574 


RNBNAM 


000051R 


SR2 


177576 


RNBPAS 


000117R 


SR3 


172516 


RNBPC 


000066R 


STAT = 


000026 


RNBSFT 


000153R 


STATBI= 


064757 


RNBSTA 


000102R 


STAT1 = 


000027 


RNHMSG 


000046R 


SUSPND= 


000001 


RNSERR 


000201R 


SVRO = 


000062 


RNSMSG 


000161R 


SVR1 = 


000064 


RNSPWR 


000230R 


SVR2 = 


000066 


RPTDAT= 


0020C0 


SVR3 = 


000070 


RSLTAD= 


000004 


SVR4 = 


000072 


RSTRT = 


0001 12 


SVR5 = 


000074 


RU30UT= 


OOOi 77 


SVR6 - 


a r, A n "7 c 
v u u '■J 1 w 


RUNMOD= 


100000 


SYSCNT= 


000052 


R5VALU= 


001740 


SYSERR= 


000100 


SAM 


075464 


TMPEA 


000010R 


SAVREG= 


****** Q 


TMPIO = 


000002 


SBADR = 


000102 


TMPPA 


000006R 


SBKMOD= 


000000 


TMPVA 


000004R 


SBKSEL= 


010000 


TMP1 


000004R 


SC.ADR= 


000006 


TQOVF = 


000002 


SC.ALC= 


000014 


TYPCOD= 


000002 


. ABS. 


000000 000 
003610 001 





177640 
177642 
177644 
177646 
177650 
177652 
1 77654 
177656 
177600 
177602 
177604 
177606 
177610 
177612 
177614 
177616 
000002 
0C0104 
000040 
000136 
000134 
000140 
000142 
0001 16 
000114 
000352 
000222 
000005 
000023 
000021 
177777 
000400 
000310 
000401 
000170 
000150 



i2) 20-! 


SEP-78 17:52 


PAGE 20-1 




SEQ 0481 


$F$DEC= 


000220 


$TAGNU= 


050002 




$F$DO = 


000340 


$TE?v1P = 


000300 




$F$FAL- 


000405 


$T5K0 = 


050002 




$F$GOO= 


000400 


$TSK1 = 


050003 




$F$IF = 


000110 


$TSK10 = 


050020 




$F$INC= 


000210 


STSK2 = 


050012 




$F$LO0= 


000200 


STSK3 = 


05001 3 




$'F$NAM= 


000160 


ST5K4 = 


050014 




$F$NO = 


000403 


$TSK5 = 


050015 




$FSOR .= 


000320 


$TSK6 = 


050016 




$F$RTI= 


000350 


$TSK7 = 


050017 




$F$RTN= 


000300 


$SARGC= 


000006 




$F.$SEL= 


000140 


$SBYTE= 


000403 




$F$fHE=' 


000330 


ijJ^J L- MO C = 


000000 




$F$TRU= 


000404 


SSDST = 


000000 




SF$UNT= 


000130 


$SELOC= 


000402 




$F$WHI= 


000120 


$$ERFL= 


000000 




$F$YES= 


000402 


$SFLAG= 


000340 




$IFLEV= 


177777 


$$FROM= 


000000 




SISKO = 


000001 


SSLOC = 


003500R 




$ISK1 = 


000001 


SSLQCN= 


000000 




SISK2 = 


000001 


$3 REG = 


177777 




$LOCTA= 


177777 


$$RETU= 


000000 




$LSTIN= 


000001 


$$RTN1= 


050000 




$LSTTA= 


000001 


$$RTN2= 


050001 




$NESTL= 


177777 


$$SRC = 


000000 




SNSKO = 


000300 


$$TGSV= 


000000 




$NSK1 - 


000120 


SSTGS1= 


000000 




SNSK2 = 


000110 


S$TGS2= 


oooooo 




SNSK3 = 


000120 


S$TO = 


000000 




$NSK4 = 


000120 


SSSTAG= 


050000 




SNSK5 = 


000120 


= 


00361-OR 




SNSK6 = 


000110 








$SAVLE= 


177777 








SSSKO = 


050003 








$TAGLE= 


177777 









ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ: FILLML ,DSKZ:FILLML=SPMAC/ML, EQUATE, FILLML 
RUN-TIME: 30 20 .5 SECONDS 
RUN-TIME RATIO: 89/51=1.7 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-73 17:53 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0482 

3 COMMON EQUATE MODULE 

565 COMMON DEFINITIONS AND REFERENCES 

569 000000' .PRINT ;SPMAC: VERSION 1.1 

620 MESSAGE - END-OF-PASS 

635 MESSAGE - SUM COMMAND HEADER LINE 

542 MESSAGE - SUM COMMAND MODULE LINE 

659 MESSAGE - SUM COMMAND SUMMARY LINE 

668 MESSAGE - COMMON HEADER 

681 MESSAGE - HRDERR , SOFERR 

707 MESSAGE - HRDERR , SOFERR , EXTENSION 

714 MESSAGE - DROP MODULE 

723 MESSAGE - BAD VECTOR 

730 MESSAGE - MAP COMMAND 

741 MESSAGE ~ HUNG MODULE 

74S MESSAGE - CKDATA , DATACK , DATERR 

773 MESSAGE - CKDATA/DATACK SUMMARY LINE 

786 FILLMSG - FILL-IN THE BLANKS ROUTINE 

803 PROCESS END-OF-PASS TYPE MESSAGE 

860 PROCESS COMMON HEADER TYPE MESSAGE 

900 PROCESS HRDERR t SQFERR 

983 PROCESS HRDERR, SOFERR EXTENDED PRINTOUT MESSAGES? 

1037 PROCESS SUM COMMAND TYPE MESSAGES 

1051 PROCESS SUM COMMAND MODULE LINE MESSAGE 

1081 PROCESS SUM COMMAND SUMMARY LINE MESSAGE 

1101 PROCESS DROP MODULE TYPE MESSAGE 

1133 PROCESS HUNG MODULE MESSAGE 

1148 PROCESS BAD VECTOR TYPE MESSAGE 

1173 PROCESS MAP COMMAND TYPE MESSAGE 

1201 PROCESS CKDATA/DATACK/DATERR 

1335 PROCESS CKDATA/DATACK SUMMARY LINE 

1364 DO THE NECESSARY CLEAN-UP AND THEN RETURN 

1380 GET MODULE NAME 

1415 GET ELASPED TIME 

1466 GET MODULE'S PASS TIME 

1520 CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS ASCII 



FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES 
FILLMS.MAC 15-AUG-78 16:52 COMMON EQUATE MODULE 



MACY11 30A(1052) 20-SEP-73 17:53 PAGE 19 



SEQ 0483 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 



.TITLE FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
FILLMSG 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS RESPONSIBLE FOR FULLING IN THE BLANK FIELDS 

OF THE MONITOR GENERATED SKELETAL MESSAGES. 

THE TYPES OF SKELETAL MESSAGES SUPPORTED ARE: 

1. END OF PASS 2. HARD ERROR 

3. SUM COMMAND 4. SOFT ERROR 

5. COMMON HEADER 6. DROP MODULE 

7. DATA ERROR 8. BAD VECTOR 

9. MAP SUMMARY TO. CKDATA CALL 

INPUTS: 

1 . DATA TABLE 

2. MSG TYPE CODE 

3. MSG ADDR/SPECIAL VALUE 

4. MODULE'S HDR ADDR 

IMPLICIT INPUTS: 

STATUS INDICATOR WORD 

HI ITDI !TC • 



1. ADDRESS OF FILLED-IN MESSAGE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 



1 . 

2. 


BDACNV 
UPDTIM 


3. 


CKHUNG 


4. 


BOAC 


5. 


GPA 


6. 


SAVREG 


7 . 


RESREG 


8. 


UNIPA 


FUNCTIONAL SIDE EFFECTS 


NONE 



BINARY TO DECIMAL ASCII CONVERSION 
UPDATE MODULE'S END-OF-PASS TIME 
CHECK FOR HUNG OPTION MODULES 
BINARY TO OCTAL-ASCII CONVERSION 
GET PHYSICAL ADDRESS 



GET UNIBUS PHYSICAL ADDRESS 



CALLING SEQUENCE: 

CALL FILLMSG IN <DTABLE, TYPCODE T MSGADDR , HDRADDR> OUT <FILMSGADR> 

VERSION: 
0.0 



EDIT 



BY 



DATE 



REASON 



000000' 
000000' 



000001 
000001 



FILLMS - MODULE TO FILL IN BLANK 
FILLMS.MAC 15-AUG-78 16:52 



565 
566 
567 
568 
569 
(1) 
570 
571 
572 
573 
574 
575 
576 
577 
573 
579 
580 
581 
582 
583 
584 
585 
585 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
59S 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 



000010 



000000' 000000 

000002' 000000 
000004' 

000004' 000000 

000006' 000000 

000010' 000000 

000012' 000000 

000014' 000000 



FIELDS IN SKELETAL MESSAGES MACY1 1 30A(1052) 
COMMON DEFINITIONS AND REFERENCES 

.SBTTL COMMON DEFINITIONS AND REFERENCES 



.MCALL STRUCT 
STRUCT 
PRINT ;SPMAC: VERSION 1.1 
$LSTIN = 1 
SLSTTAG = 1 



**** ****** ****** 

REFERENCED BY OTHER MODULES 

GLOBL FILLMSG 
**************** 

GLOBAL REFERENCES 



20-SEP-78 17:53 PAGE 19-1 



SEQ 0484 



GLOBL 


BDACNV 


GLOBL 


BOA16 


GLOBL 


BOAC 


GLOBL 


CKHUNG 






GLOBL 


PRHMS 


GLOBL 


PRPSCN 


GLOBL 


UPDTIM 


GLOBL 


SAVREG 


GLOBL 


RESREG 


GLOBL 


UNIPA 



**************** 

LOCAL EQUATES: 
FLDMAX = ~D<8> 
**************** 

LOCAL STORAGE 



FLDCNT: 

LINECNT: 

TMP1 : 

TMPVA: 

TMPPA: 

TMPEA: 

FM.PA: 

fm.ea: 



,WORD 

.WORD 

• WORD 
WORD 
WORD 
.WORD 
.WORD 



-.MODULE'S ENTRY POINT 



BINARY TO DECIMAL ASCII CONVERSION ROUTINE 

BINARY TO OCTAL-ASCII CONVERSION ROUTINE 

BINARY TO OCTAL ASCII CONVERSION 

CHECK FOR HUNG MODULES ROUTINE 

GET PHYSICAL ADDRESS ROUTINE 

GET TIME ROUTINE 

GET PASS TIME .ROUTINE 

UPDATE MODULES PASS TIME ROUTINE 



GET UNIBUS PHYSICAL ADDRESS 



;MAX FIELDS PER LINE 



FIELD COUNTER 
LINE COUNTER 
STORAGE WORD 
STORAGE/VIRTUAL ADDRESS 
STORAGE/PHYSICAL ADDRESS 
STORAGE/EA BITS 
STORAGE - PHYS. ADDR. 
STORAGE - EA BITS 



**************** 



FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES 
FILLMS.MAC 15-AUG-78 16:52 MESSAGE - END-OF-PASS 



MACY11 30A(1052) 20-SEP-78 17:53 PAGE 19-2 



SEQ 04S5 



620 










.SBTTL 


MESSAGE 


E - END-OF-PA 


621 
















622 
















623 
















624 


000016' 


045 






EOPMSG: 


.ASCII 


/%/ 


625 


000017' 


000005 






EOPNAM: 


.BLKB 


~D<5> 


626 


000024' 


042440 


042116 


050040 




•ASCII 


/ END PASS 




000032' 


051501 


020123 


043 








627 


000037' 


000005 






EOPPAS: 


.BLKB 


~D<5> 


628 


000044' 


020056 


052522 


052116 




.ASCII 


/. RUNTIME: 




000052' 


04651.1 


035105 


040 








629 


000057' 


000011 






EOPTIM: 


.BLKB 


~D<9> 


630 


000070' 
000076' 


050040 
035105 


052123 
040 


046511 




.ASCII 


/ PSTIME: / 


631 


000101 ' 


000011 






EOPPST: 


.BLKB 


~D<9> 


632 


000112' 


000045 








•ASCIZ 


/%/ 


633 

















FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY11 30A(1052) 20-SEP-78 17:53 PAGE 19-3 

FILLMS.MAC 15-AUG-78 16:52 MESSAGE - SUM COMMAND HEADER LINE SEQ 0486 

635 .SBTTL MESSAGE - SUM COMMAND HEADER LINE 

636 

637 000114' 051445 046525 040515 RNHMSG: .ASCII /^SUMMARY AT RUNTIME: / 
000122' 054522 040440 020124 

000130' 052522 052116 046511 

000136' 035105 040 

638 000141 ' 000011 RNHTIM: .BLKB ~DO> 

639 000152' 000 .BYTE ;ASCII TERMINATOR 
640 



FILLMS - MODULE TO FILL IN BLANK FIELDS 
FILLMS.MAC 15-AUG-78 16:52 



IN SKELETAL MESSAGES MACY11 30A(1052) 
MESSAGE - SUM COMMAND MODULE LINE 



20-SEP-78 17:53 PAGE 19-4 



SEQ 0487 



642 










.SBTTL 


MESSAGE 


- SUM COMMA 


643 
















644 


000153' 


045 






RNBMSG: 


.ASCII 


/%/ 


645 


000154' 


000005 






RNBNAM: 


.BLKB 


~D<5> 


646 


000161 * 
000166' 


040 
035101 


052101 
040 


053040 




.ASCII 


/ AT VA: / 


647 


000171 ' 


000006 






RNBPC: 


.BLKB 


'~D<6> 


648 


000177' 
000204' 


040 
040 


052123 


052101 




.ASCII 


/ STAT / 


649 


000205' 


000006 






RNBSTAT: 


: .BLKB 


~D<6> 


650 


000213' 
000220' 


040 
021440 


040520 


051523 




.ASCII 


/ PASS #/ 


651 


000222' 


000005 






RNBPAS: 


.BLKB 


~D<5> 


552 


000227' 
000234' 


040 
051122 


051110 
020123 


042504 




.ASCII 


/ HRDERRS / 


653 


000240' 


000005 






RNBHRD: 


.BLKB 


~D<5> 


654 


000245' 
000252' 


040 
051122 


043123 
020123 


042524 




.ASCII 


/ SFTERRS / 


655 


000256' 


000005 






RNBSFT: 


.BLKB 


~D<5> 


656 


000263' 


000 








.BYTE 




657 

















FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY11 30A(1052) 20-SEP-73 17:53 PAGE 1 9-b 
FILLMS.MAC 15-AUG-78 16:52 MESSAGE - SUM COMMAND SUMMARY LINE 



SEQ 0488 



659 
660 
661 



662 
663 



664 
665 
666 



000264 1 
000272' 
000300' 
000304' 
000311 ' 
000316' 
000324' 
000332' 
000333' 
000340' 



051445 
020115 
051522 
000005 

040 
047520 
040506 

040 
000005 
000045 



051531 
051105 
020072 

020040 
042527 
046111 



042524 
047522 



020040 
020122 
035123 



.SBTTL MESSAGE - SUM COMMAND SUMMARY LINE 
RNSMSG: .ASCII /%SYSTEM ERRORS: / 



RNSERR: .BLKB 



RNSPWR: 



BLKB 
ASCIZ 



'D<5> 



~D<5> 



POWER FAILS: / 



FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY11 30A(1052) 20-SEP-78 17:53 PAGE 19-6 
FILLMS.MAC 15-AUG-7S 16:52 MESSAGE - COMMON HEADER 



SEC? 0489 



668 



.SBTTL MESSAGE - COMMON HEADER 



669 






670 


000342' 


045 


671 


000343' 


000005 


672 


000350' 


050040 


673 


000355' 


000010 


674 


000365' 


040 




000372' 


040 


675 


000373' 


000006 


676 


000401 ' 


040 




000406' 


021440 


877 


000410' 


000005 


678 


000415' 


045 


679 







035101 



050101 



040520 



000 





HDRMSG: 


.ASCII /%/ 




HDRNAM: 


.BLKB ~D<5> 


040 




.ASCII / PA: 




HDRPA: 


.BLKB ~D<8> 


035103 




.ASCII / APC: 




HDRPC: 


.BLKB 6 


051523 




.ASCII / PAS 




HDRPAS: 


•BLKB "D<5> 
.ASCIZ /%/ 



#/ 



FILLMS - MODULE TO FILL IN BLANK 
FILLMS.MAC 15-AUG-78 16:52 



FIELDS IN SKELETAL MESSAGES MACY11 
MESSAGE - HRDERR t SOFERR 



30A(1052) 20-SEP-78 17:b3 HAtit is-/ 



SEQ 0490 



681 










.SBTTL 


MtSSAGE 


: - HRDERR.SO 


682 
















683 


000417' 


045 






DATAMSG: 




.ASCII /%/ 


684 


000420' 


000005 






datnam: 


.BLKB 


~D<5> 


685 


000425' 


040 


040520 


020072 




.ASCII 


/ PA: / 


S86 


000432' 


000010 






DAT PC: 


.BLKB 


~D<8> 


687 


000442' 


040440 


041 520 


/s rt f\ f\ *rr\ 




. ASCI I 


/ APC: / 


688 


000450' 


000006 






DATAPC: 


.BLKB 


"D<6> 


689 


000456' 
000464' 


050040 
043 


051501 


020123 




.ASCII 


/ PASS #/ 


690 


000465' 


000005 






DAT PAS: 


.BLKB 


~D<5> 


691 


000472* 


040 








.ASCII 


/ / 


692 


000473' 


000004 






DATTYP: 


• BLKB 


~D<4> 


693 


000477' 


040 


051105 


021522 




.ASCII 


/ ERR#/ 


694 


000504' 


00C005 






DATNUM: 


.BLKB 


~D<5> 


695 


000511 ' 
000516' 


045 
020072 


051503 


040522 




.ASCII 


/%CSRA: / 


696 


000520' 


000006 






DATADD: 


.BLKB 


~D<6> 


697 


000526' 
000534' 


041440 
040 


051123 


035103 




•ASCII 


/ CSRC: / 


698 


000535' 


000006 






DATCON: 


.BLKB 


~D<6> 


699 


000543' 
000550' 


040 
035124 


051501 
040 


040524 




.ASCII 


/ ASTAT: / 


700 


000553' 


000006 






DATSTAT: 


: .BLK3 


~D<6> 


701 


000561 ' 
000566' 


040 
050131 


051105 
020072 


052122 




.ASCII 


/ ERRTYP: / 


702 


000572* 


000006 






DATERR: 


.BLKB 


~D<6> 


703 


000600' 


"045 








.ASCII 


/%/ 


704 


000601 ' 


000 






DATEND: 


.BYTE 





705 

















;DATA T HARD t SOFT 



;END OF MESSAGE INDICATOR 



FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY1 1 30A(1052) 20-SEP-78 17:53 FAUt is~a 

FILLMS.MAC 15-AUG-7S 16:52 MESSAGE - HRDERR, SOFERR , EXTENSION SEQ 0491 

707 .SBTTL MESSAGE - HRDERR, SOFERk f EXTENSION 

708 

709 000602' EXTMSG: 

710 000602' 000344 .BLKB ~D<228> 

711 001146' 000 EXTEND: .BYTE 
712 



FILLMS - MODULE TO FILL IN BLANK FIELDS 
FILLMS.MAC 15-AUG-78 16:52 



IN SKELETAL MESSAGES 
MESSAGE - DROP MODULE 



MACY11 30A(1052) 20-SEP~78 17:53 PAGE 19-9 



SEO 0492 



714 










.SBTTL 


MESSAGE - DROP MODULE 


715 














716 


00-1147' 


045 






DRPMSG: 


.ASCII /%/ 


717 


001150' 


000005 






DRPNAM: 


.BLKB ~D<5> 


718 


001155' 


040 


051104 


050117 




.ASCII / DROPPED AT A 




001162' 


042520 


020104 


052101 








001170' 


040440 


041520 


020072 






719 


001176' 


000006 






DRPPC: 


.BLKB ~D<6> 


720 


001204' 


000045 








.ASCIZ /%/ 


721 















APC: / 



FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY1 1 3CA(1052) 20-SEP-78 17:53 PAGE 19-10 

FILLMS.MAC 15-AUG-78 16:52 MESSAGE - BAD VECTOR SEQ 0493 

723 .SBTTL MESSAGE - BAD VECTOR 

724 

725 001206' 041045 042101 053040 BADVMSG: .ASCII /%BAD VECTOR: / 
001214' 041505 047524 035122 

001222' 040 

726 001223' 000006 BADVCT: .BLKB ~D<6> 

727 001231' 045 000 
728 



FILLMS - MODULE TO FILL IN BLANK 
FILLMS. MAC 15-AUG-78 16:52 



FIELDS IN SKELETAL MESSAGES 
MESSAGE - MAP COMMAND 



MACY11 30A(1052) 20-SEP-78 17:53 PA(it ;y-M 



SEQ 0494 



731 








732 


001233' 


045 




733 


001234' 


000005 




734 


001241 ' 


040 


052101 




001246' 


035101 


040 


735 


001251 ' 


000006 




736 


001257' 


040 


052123 




001264' 


020072 




737 


001266' 


000006 




738 


001274' 


000 




739 









.SBiTL MESSAGE - MAP COMMAND 



053040 



052101 



MAPMSG: .ASCII /%/ 



MAPNAM: .BLKB 



'D<5> 





.ASCII 


/ AT VA: / 


HADDr; 


.BLKB 


~D<5> 




.ASCII 


/ STAT: / 


MAPSTT: 


.BLKB 
•BYTE 


~D<6> 



FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES 
FILLMS. MAC 15-AUG-78 16:52 MESSAGE - HUNG MODULE 



MACY11 30A(1052) 20-SEP-78 17:53 PAGE 13-12 



SEQ 0495 



741 
742 
743 
744 
745 



746 



001275' 045 

001276' 000005 

001303' 040 051511 044040 

001310' 047125 027507 051104 

001316' 050117 042520 022504 



001324' 



000 



.SSTTL MESSAGE - HUNG MODULE 

HNGMSG: .ASCII /%/ 
HNGNAM: .BLKB "D<5> 

.ASCIZ ' IS HUNG/DROPPEDV 



FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY1 1 30A(1052) 20-SEP-78 17:53 PAGt iy~13 
FILLMS.MAC 15-A.UG-78 16:52 MESSAGE - CKDATA, DATACK, DATERR 



SEQ 0496 



748 










.SBTTL 


MtSSAGfc 


: - t,KDAiA,' 


749 
















750 


001325' 


045 






CKDMSG: 


.ASCII 


/%/ 


751 


001326' 


000005 






CKDNAM: 


.BLKB 


~D<5> 


752 


001333' 


040 


040520 


020072 




.ASCII 


/ PA: / 


753 


001340' 


000010 






CKDPA: 


.BLKB 


~D<8> 


754 


001350'' 


040440 


041 520 


020072 




ACMT 
« r* o w x x 


/ APC: / 


755 


001356' 


000006 






CKDVA: 


.BLKB 


~D<6> 


756 


001364' 
001372' 


050040 
043 


051501 


020123 




.ASCII 


/ PASS #/ 


757 


001373' 


000005 






CKDPAS: 


.BLKB 


~D<5> 


758 


001400' 


042440 


051122 


021440 




.ASCII 


/ ERR #/ 


759 


001406' 


000005 






CKDNUM: 


.BLKB 


~D<5> 


760 


001413' 
001420' 


045 
020072 


051503 


040522 




.ASCII 


/%CSRA: / 


761 


001422' 


000006 






CKDADD: 


.BLKB 


~D<6> 


762 


001430' 


051440 


041057 


020072 




.ASCII 


" S/B: " 


763 


001436' 


000006 






CKDSB: 


• BLKB 


~D<6> 


764 


001444' 


053440 


051501 


020072 




.ASCII 


/WAS: / 


765 


001452' 


000C06 






CKDWAS: 


.BLKB 


~D<6> 


766 


001460' 
001466' 


053440 
040 


040522 


051104 




.ASCII 


/ WRADR / 


767 


001467' 


000010 






CKDWRA: 


.BLKB 


~D<8> 


768 


001477' 
001504' 


040 
020122 


042122 


042101 




.ASCII 


/ RDADR / 


769 


001506' 


000010 






CKDRDA: 


.BLKB 


~D<8> 


770 


00151 6' 


000045 








.ASCIZ 


/%/ 


771 

















FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY11 30A(1052) 20-SEP-78 T7:b3 PAUt ia-i*+ 
FILLMS. MAC 15-AUG-78 16:52 MESSAGE - CKDATA/DATACK SUMMARY LINE 



SEQ 0497 



773 










.SBTTL 


MESSAGE - CKDATA/DATACK SUMMARY LINE 


774 














775 


001520' 








CKDSMSG: 




775 


001520' 


000005 






CKDSNAM: 


.BLKB ~D<5> 


777 


001525' 


040 


040510 


020104 




•ASCII / HAD / 


778 


001532' 


000005 






CKDSCNT: 


: .BLKB ~D<5> 


779 


001537' 


040 


051105 


047522 




.ASCII / ERRORS OUT OF / 




001544' 


051522 


047440 


052125 








001552' 


047440 


020106 








780 


001556' 


000005 






CKDSRD: 


.BLKB ~D<5> 


781 


001563' 


040 


047527 


042122 




•ASCIZ / WORDS READ%/ 




001570' 


020123 


042522 


042101 








001576' 


000045 










782 














783 












.EVEN 


784 















FILLMS 
FILLMS. 

786 
787 
788 
789 
790 
791 
(2) 
792 
793 
794 
795 
795 
797 
798 
799 
800 
(3) 
801 
(4) 
802 
(4) 
803 
(4) 
804 
(4) 
805 

ftfVR 



- MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY1 1 30A(1052) 20-SEP-78 17:53 PAGE 19-15 
.MAC 15-AUG-78 16:52 FILLMSG - FILL-IN THE BLANKS ROUTINE 

.SBTTL FILLMSG - FILL-IN THE BLANKS ROUTINE 



001600' 
001600' 



001600' 
001600' 004767 



OOOOOOG 



001604' 

001504' 016500 000000 

001610' 

001510' 016501 000006 

001514' 

001514' 016502 000004 

001620' 

001620' 016504 000002 



ROUTINE FILLMSG <DTABLE r TYPCODE , MSGADR , HDRADR , FLMSADR> 



CTI I HHCl"" 



i unci"" ' 
u«iou • 



SAVE REGISTERS AND SAVE DTABLE , ADR, MSGADR AND TYPCODE 

CALL SAVREG 
LET RO := DTABLE(R5) 
LET R1 := HDRADR(R5) 
LET R2 := MSGADR (R5) 
LET R4 := TYPC0DE(R5) 



JSR 
MOV 
MOV 
MOV 
MOV 



SEQ 0498 



PC, SAVREG 
DTABLE(R5),R0 
HDRADR(R5) ,R1 
MSGADR(R5) , R2 
TYPC0DE(R5) ,R4 



FILLMS - MODULE TO FILL IN BLANK 
FILLMS.MAC 1S-AUG-78 16;52 



BUB 

809 










810 










811 










812 










813 










814 










815 










816 










817 










818 


001624' 






I 


(6) 


001624' 


020427 


000013 




(9) 


001630' 


001057 






819 










820 










821 










322 










823 










824 


001632' 








(3) 


001632' 


010546 






(5) 


001634' 


012745 


000017' 




(4) 


001640' 


010145 






(3) 


001642' 


004767 


002406 




(3) 


001646' 


012605 






825 










826 










827 










828 










829 


001650' 








(3) 


0C1650' 


01 0546 






(5) 


001652' 


012745 


000037' 




(4) 


001656' 


016145 


000034 




(3) 


001682' 


004767 


OOOOOOG 




(3) 


001666' 


012605 






830 










831 










832 










833 










334 










835 


001670' 








(3) 


001670' 


010546 






(5) 


001672' 


012745 


000057' 




(4) 


001676' 


010045 






(3) 


00t700' 


004767 


002410 




(3) 


001704' 


012605 






836 










837 










838 










839 










840 


001706' 








(3) 


001706' 


010546 






(6) 


001710' 


012745 


000101 ' 




(5) 


001714' 


010145 






(4) 


001716' 


010045 






(3) 


001720' 


004767 


002460 




(3) 


001724' 


012605 







FIELDS IN SKELETAL MESSAGES MACY1 1 30A(1052) 
PROCESS END.-OF-PASS TYPE MESSAGE 

.SBTTL PROCESS END-OF-PASS TYPE MESSAGE 



20-SEP-78 17:53 PAGE 19-16 



SEQ 0499 



IS IT AN END-OF-PASS TYPE? IF SO, FILL IN THE BLANK FIELDS, 

unriATc -rue iinnm cic p»cc ttiic ami-* funrif cHD 1MV "UiiMr;ii lyiQDUl P*! 



IF R4 EQ #MSGE0P THEN 



GET MODULE NAME 



CMP 
BNE 



CALL GETNAM IN <R1 , #E0PNAM> 



CONVERT PASS COUNT TO DECIMAL ASCII 

CALL BDACNV IN <PASCNT(R1), #ECPPAS> 



MOV 
MOV 
MOV 
JSR 
MOV 



MOV 
MOV 
MOV 
JSR 
MOV 



GET ELAPSED TIME CONVERTED TO ASCII 



CALL GETETIM IN <R0, #E0PTIM> 



MOV 
MOV 
MOV 
JSR 
MOV 



CONVERT PASS TIME TO ASCII 

CALL GETPTIM IN <R0, R1 , #E0PPST> 



R4,#MSGE0P 
50002$ 



R5,-(SP) 
#E0PNAM,-(R5) 
R1 ,-(R5) 
PC, GETNAM 
(SP)+,R5 



R5,-(SP) 
#EQPPAS,-(R5) 
PASCNT(R1 ),-(R5) 
PC, BDACNV 
(SP)+,R5 



R5,-(SP) 
#E0PTIM,-(R5) 
R0,-(R5) 
PC, GETETIM 
(SP)+,R5 



MOV 


R5,-(SP) 


MOV 


#E0PPST,-(R5) 


fvlOV 


R1,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, GETPTIM 


MOV 


(SP)+,R5 



FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY1 1 30A(1052) 20-SEP-78 
FILLMS.MAC 15-AUG-78 16:52 PROCESS END-OF-PASS TYPE MESSAGE 



17:53 PAGE 19-17 



SEQ 0500 



341 
842 








843 








844 








345 








846 








847 


001 726 ' 






(6) 


001726' 


032760 


000001 


(9) 


001734' 


001410 




848 


001736' 






(3) 


001736' 


010546 




(5) 


001740' 


010145 




(4) 


001742' 


010045 




(3) 


001744' 


004767 


OOOOOOG 


(3) 


001750' 


012605 




849 








850 








351 








852 








853 








354 


001752' 






(3) 


001752' 


004767 


OOOOOOG 


855 


001756' 






(4) 


001756' 






856 


001756' 






(4) 


001756' 


012765 


000016' 


857 


001764' 






(2) 


001764' 


000167 


002256 


858 


001770' 






(4) 


001770' 







IF A CLOCK. 



UPDATE TIME 



000014 



IF #CLKPRES SETIN DT.CFO(RQ) THEN 



CALL UPDTIM IN <RO t R1> 



BIT 


#CLKPRES,DT.CFO 


BEO 


50003$ 


MOV 


R5,-(SP) 


MOV 


R1 ,-(R5) 


MOV 


R0 f -(R5) 


JSR 


PC, UPDTIM 


MOV 


(SP)+,R5 



SEE IF ANY MODULE IS HUNG 



CALL CKHUNG 



ENDIF 



000010 



LET FLMSADR(R5) 
INLINE <JMP 1$> 
ENDIF 



:= #EOPMSG 



50003S: 



50002$: 



JSR 

MOV 
JMP 1: 



PC.CKHUNG 



#EOPMSG, FLMSADR( 



FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY11 30A(1052) 20-SEP-78 
FILLMS. MAC 15-AUG-7S 16:52 PROCESS COMMON HEADER TYPE MESSAGE 

.SBTTL PROCESS COMMON HEADER TYPE MESSAGE 

+ 
IS IT A COMMON HEADER TYPE MESSAGE? 

- 

GET MODULE NAME 

CALL GETNAM IN <R1,#HDRNAM> 



17:53 PAGE 19-13 



SEQ 0501 



861 








862 








863 








364 








865 








366 


001 770 ' 






(6) 


001770' 


020427 


000004 


(9) 


001774' 


001045 




867 








868 








369 








870 








871 


001776' 






(3) 


001776' 


010546 




(5) 


002000' 


012745 


000343' 


(4) 


002004' 


010145 




(3) 


002006' 


004767 


002242 


(3) 


002012' 


012605 




872 








873 








874 








875 








876 


002014' 






(3) 


002014' 


010546 




(6) 


002016' 


012745 


000355* 


(5) 


002022' 


010245 




(4) 


002024' 


010045 




(3) 


002026' 


004767 


002450 


(3) 


002032' 


012605 




877 








878 








879 








880 








881 








882 


002034' 






(4) 


002034" 


010203 




(6) 


002036' 


160103 




883 








884 








885 








886 








887 








888 


002040' 






(3) 


002040' 


010546 




(5) 


Q02042' 


012745 


000373' 


(4) 


002046' 


010345 




(3) 


002050' 


004767 


OOOOOOG 


(3) 


002054' 


012605 




889 








890 








891 








892 








893 








894 


002056' 






(3) 


002056' 


010546 





CMP 
BNE 



GET PHYSICAL ADDRESS 

CALL GETAPA IN <R0 , R2,#HDRPA> 



FORM APC 



LET R3 := R2 - R1 



AND CONVERT IT TO ASCII 



MOV 
SUB 



CALL B0A16 IN <R3, #HDRPC> 



CONVERT PASCNT TO ASCII 



CALL BDACNV IN <PASCNT(R1), #HDRPAS> 



R4, #MSGHDR 
50004$ 



MOV 


R5,-(SP) 


MOV 


#HDRNAM,-(R5) 


MOV 


R1 ,-(R5) 


JSR 


PC, GETNAM 


MOV 


(SP)+,R5 



MOV 


R5,-(SP) 


MOV 


#HDRPA,-(R5) 


MOV 


R2,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC,GETAPA 


MOV 


(SP)+,R5 



R2 f R3 
R1 ,R3 



MOV 


R5,-(SP) 


MOV 


#HDRPC,-(R5) 


MOV 


R3 T -(R5) 


JSR 


PCB0A16 


MOV 


(SP)+,R5 



MOV 



R5,-(SP) 



FILLMS - MODULE TO FILL IN BLANK FIELDS IN. SKELETAL MESSAGES MACY11 30AUUt)2j ^u-scr-zo 

FILLMS. MAC 15-AUG-7B 16:52 PROCESS COMMON HEADER TYPE MESSAGE 



/ • SO rhuu 



(5) 


002050' 


012745 


000410' 


(4) 


002064' 


016145 


000034 


(3) 


002070' 


004767 


OOOOOOG 


(3) 


002074' 


012605 




895 


002076' 






(4) 


002076' 


012765 


000342' 


895 


002i 04 ! 






(2) 


002104' 


000167 


002136 


897 


002110' 






(4) 


002110' 






898 









000010 



LET FLMSADR(R5) := #HDRMSG 
INLINE <JMP 1S> 



ENDIF 



MOV 
MOV 
JSR 

MOV 

MOV 
JMP 1$ 



50004S: 



SEQ 0502 



#HDRPAS,-(R5) 
PASCNT(R1 ),-(R5) 
PC, BDACNV 
(SP)+,R5 

#HDRMSG»FLMSADR( 



FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES 
FILLMS.MAC 15-AUG-7S 16:52 PROCESS HRDERR, SOFERR 



MACY 1 1 3UA^ TUOiiJ 



4. u — o ci — / o 



I / • ^xJ 



SEQ 0503 



900 
901 
902 
903 
904 
905 
906 
907 
908 
(6) 
(9) 
(6) 
(9) 
909 
(2) 
910 
(4) 
911 
912 
913 
914 
915 
(4) 
916 
917 
918 
919 
920 
921 
(3) 
(5) 
(4) 
(3) 
(3) 
922 
923 
924 
925 
926 
927 
(3) 
(6) 
(5) 
(4) 
(3) 
(3) 
928 
929 
930 
931 
932 
933 
(4) 
(6) 
934 
935 



002110' 
002110' 
002114' 
0021 16' 
002122' 
002124' 
002124' 
002130' 
002130' 



002130' 
002130' 



002134' 
002134' 
002136' 
002142' 
002144' 
002150' 



002152' 
002152' 
002154' 
002160' 
002162' 
002164' 
002170' 



020427 
001405 
020427 
001402 



010546 
012745 
010145 
004767 
012605 



010546 
012745 
010245 
010045 
004767 
012605 



002172' 

002172' 010203 
002174' 160103 



000006 



000007 



000167 000474 



105067 176445 



000420 



002104 



000432 



002312 



,SBTTL PROCESS HRDERR ,S0FERR 



IF NOT A HARD OR SOFT ERROR, CONTINUE CHECKING 



IF R4 NE #MSGSFT AND R4 NE #MSGHRD THEN 



CMP R4,#MSGSFT 

BEQ 50005$ 

CMP R4,#MSGHRD 

BEQ 50005$ 



INLINE <JMP 100$> 



JMP 100$ 
50005$: 
INSERT THE END OF MESSAGE CHARACTER AND ASSUME THAT THERE IS NO EXTENDED PRINTOUT 



ENDIF 

+ 



LET DATEND : B= #0 



GET MODULE NAME 



CALL GETNAM IN <R1 t #DATNAM> 



CLRB DATEND 



MOV R5 r -(SP) 

MOV #DATNAM,-(R5) 

MOV R1,-(R5) 

JSR PC, GETNAM 

MOV (SP)+,R5 



GET P. A, 



CALL GETAPA IN <R0 ,R2, #DATPC> 



MOV 


R5,-(SP) 


MOV 


#DATPC,-(R5) 


MOV 


R2,-(R5) 


MOV 


R0,~(R5) 


JSR 


PC, GETAPA 


MOV 


(SP)+,R5 



FORM APC 



LET R3 := R2 - R1 



MOV R2,R3 
SUB R1.R3 



FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES 
FILLMS.MAC 15-AUG-78 16:52 PROCESS HRDERR, SOFERR 



MACY11 30A(1052) 20-S£P~78 17:53 PAGE 19-21 



SEQ 0504 



936 
937 
938 
939 
(3) 
(5) 
(4) 
(3) 
(3) 
940 
941 
942 
943 
944 
945 
(3) 
(5) 
(4) 
(3) 
(3) 
946 
947 
(4) 
94S 
949 
950 
951 
952 
(6) 
(9) 
953 
(4) 
954 
(4) 
955 
(4) 
956 
(4) 
957 
(4) 
958 
(4) 
(3) 
959 
(4) 
960 
(4) 
961 
(4) 
962 
(4) 
963 
(4) 
964 
(4) 
965 



002176' 

002176' 010546 
002200' 012745 



000450 



uu/zw* 



V i UOtJ 



002206' 004767 000000G 
002212' 012605 



002214' 
002214' 
002216' 
002222' 
002226' 
002232' 

002234' 
002234' 



002240' 
002240' 
002244' 
002246" 
002246* 
002252' 
002252' 
002256' 
002256' 
002262' 
002262' 
002266' 
002266' 
002272' 
002272' 
002274' 
002274' 
002274' 
002300' 
002300' 
002304' 
002304' 
002310' 
002310' 
002314' 
002314' 
002320' 
002320' 



010546 
012745 
016145 
004767 
012605 



020427 
001013 

112723 

112723 

112723 

112723 

016100 

000412 

112723 
112723 
112723 
112723 
016100 



000465' 

000034 

000000G 



012703 000473 



000006 

000123 
000117 
000106 
000124 
000042 

000110 
000101 
000122 
000104 
000044 



; CONVERT IT TO ASCII 



CALL B0A16 IN <R3, #DATAPC> 



CONVERT PASS COUNT TO ASCII 



CALL BDACNV IN <PASCNT(R1) f #DATPAS> 



LET R3 := #DATTYP 

IF SOFT, FILL IN WORD 'SOFT 
IF R4 EQ #MSGSFT THEN 

LET (R3)+ :B= #'S 
LET (R3)+ :B= #'0 
LET (R3)+ :B= #'F 
LET (R3)+ :B= #'T 
LET RO := S0FCNT(R1 ) 
ELSE 

LET (R3)+ :B= #'H 
LET (R3)+ :B= #'A 
LET (R3)+ :B= #'R 
LET (R3)+ :B= #'D 
LET RO := HRDCNT(R1 ) 
ENDIF 



IF HARD, FILL IN WORD 'HARD 



MOV 


R5,-(SP) 


MQV 


#DATAPC,-(R5) 


MOV 


R3,-(R5) 


JSR 


PC.B0A16 


MOV 


(SP)+,R5 



MOV 


R5,-(SP) 


MOV 


#DATPAS,-(R5) 


MOV 


PASCNT(R1 ) ,-(R5) 


o'SR 


PC, BDACNV 


MOV 


(SP)+,R5 


MOV 


#DATTYP,R3 



CMP 


R4,#MSGSFT 




BNE 


50006$ 




MOVB 


#'S, <R3)+ 




M0V3 


#'0, (R3)+ 




MOVB 


#'F, (R3)+ 




MOVB 


#'T,(R3)+ 




MOV 


S0FCNT(R1 ) 


RO 


BR 


50007$ 




50006$: 






MOVB 


#'H, (R3)+ 




MOVB 


#'A,(R3)+ 




MOVB 


#'R, (R3)+ 




MOVB 


#'D, (R3)+ 




MOV 


HRDCNT(R1 ) 


RO 



50007$: 



FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY1 1 30A(1052) 20-SEP-78 
FILLMS.MAC 15-AUG-78 16:52 PROCESS HRDERR ,SCFERR 



17:53 PAGE. 19-22 



SEQ 0505 



966 
967 
968 
969 
970 
971 
(3) 
(5) 
(4) 
(3) 
(3) 
972 
973 
974 
975 
976 
977 
(3) 
(5) 
(4) 
(3) 
(3) 
978 
(3) 
(5) 
(4) 
f3) 
(3) 
979 
(3) 
(5) 
(4) 
(3) 
(3) 
98C 
(3) 
(5) 
(4) 
(3) 
(3) 
981 



002320' 

uO/jzu v 1 ubto 

002322' 012745 000504' 

002326' 010045 

002330' 004767 000000G 

002334' 012505 



002336' 
002336' 
002340' 
002344' 
002350' 
002354' 
002356' 
002356' 
002360' 
002364' 
002370' 
002374' 
002376' 
002376' 
002400' 
002404' 
002410' 
002414' 
002416' 
002416' 
002420' 
002424' 
002430' 
002434' 



010546 
012745 
016145 
004767 
012605 

010546 
012745 
016145 
004767 
012605 

010546 
012745 
016145 
004767 
012605 

010546 
012745 
016145 
0047S7 
012605 



000520' 

000100 

OOOOOOG 



000535' 

000102 

OOOOOOG 



000553' 

000104 

OOOOOOG 



000572' 

000106 

OOOOOOG 



CONVERT HARD OR SOFT TO ASCII 



CALL BDACNV IN <RO,#DATNUM> 



MOV R5,-(S?) 

MOV #DATNUM,-(R5) 

MOV R0,-(R5) 

JSR PC, BDACNV 

MOV (SP)+,R5 



CONVERT CSRA,CSRC T ASTAT,ERRTYP TO ASCII 



CALL B0A16 IN <CSRA(R1), #DATADD> 



CALL B0A16 IN <CSRC(R1), #DATCON> 



CALL B0A16 IN <ASTAT( R1 ) ,#DATSTAT> 



CALL B0A16 IN <ERRTYP ( R1 ) ,#DATERR> 



MOV 


R5,-(SP) 




MOV 


#DATADD r - 


(R5) 


MOV 


CSRA(R1 ) , 


-(R5) 


JSR 


PC.B0A16 




MOV 


(SP)+,R5 




MOV 


R5,-(SP) 




MOV 


#DATCON,- 


(R5) 


MOV 


CSRC(R1 ) , 


"(R5) 


JSR 


PC.B0A15 




MOV 


(SP)+, R5 




MOV 


R5,-(SP) 




MOV 


#DATSTAT, 


~(R5) 


MOV 


ASTAT(R1 ) 


,-(R5) 


JSR 


PC.B0A16 




MOV 


(SP)+,R5 




MOV 


R5,-(SP) 




MOV 


#DATERR,- 


(R5) 


MOV 


ERRTYP(R1 ),"(R5) 


JSR 


PC,B0A16 




MOV 


(SP)+,R5 





FILLMS - MODULE TO FILL 
FILLMS. MAC 15-AUG-7S 



IN BLANK FIELDS IN SKELETAL MESSAGES 
16:52 PROCESS HRDERR, SOFERR 



IViAUYl 1 C5UAJ, 1 UDiJ 

EXTENDED PRINTOUT 



MESSAGES?. 



SEO 0506 



983 








984 








985 








986 








987 








988 








989 








990 








991 


002436' 






(6) 


002436' 


020427 


000006 


(8) 


002442' 


001403 




(6) 


002444" 


020427 


000007 


(9) 


002450" 


001065 




(6) 


C02452' 






992 


002452' 






(6) 


002452' 


062702 


000004 


993 


002456" 






(4) 


002456' 


01 1202 




994 


002460' 






(6) 


002460' 


005702 




(9) 


002462' 


001453 




995 


002464' 






(4) 


002464" 


112767 


000015 


996 








997 








998 








999 








1000 








1001 








1002 








1003 








1004 








1005 








1006 








1007 








1008 








1009 


002472' 






(4) 


002472' 


012703 


000602 


1010 


002475' 






(4) 


002476' 


005067 


175276 


1011 


002502' 






(4) 


002502' 






(6) 


002502' 


021227 


177777 


(9) 


002506" 


001436 




1012 


002510' 






(4) 


002510' 






(6) 


002510' 


020327 


001146 


(9) 


002514' 


103032 




1013 


002516' 






(4) 


002516' 






(6) 


002516' 


026727 


175256 


(9) 


002524' 


002021 




1014 


002526' 






(3) 


002526' 


010546 




(5) 


002530' 


010345 




(4) 


002532' 


013245 





PROCESS HRDERR, SOFERR EXTENDED PRINTOUT MESSAGES? 



IS THERE A HRDERR/SOFERR EXTENDED PRINTOUT ASSOCIATED WITH THIS MESSAGE? 



176107 



IF R4 EQ #MSGSFT OR R4 EQ #MSGHRD THEN 



LET R2 := R2 + #4 
LET R2 := (R2) 
IF R2 NE #0 THEN 

LET DATEND : B= #<CR> 



CMP 
BEQ 
CMP 
BNE 
50010S: 


R4,#MSGSFT 
50010$ 
R4,#MSGHRD 
50011$ 


ADD 


#4,R2 


MOV 


(R2) ,R2 


TST 
BEQ 


R2 
50012$ 



mov a 



#<CR>, DATEND 



GO THROUGH THE MESSAGE TABLE AND, FOR EACH ADDRESS IN THE TABLE, FIND 
THE CONTENTS OF THAT ADDRESS, CONVERT IT TO ASCII, STORE THE ASCII IN THE 
EXTENDED PRINTOUT TABLE (EXTM3G) FOLLOWED 3Y A SPACE AND, IF THE MAXIMUM 
NUMBER OF ENTRIES PER LINE HAS BEEN REACHED, LOAD A CR, LF (%) INTO THE 
TABLE. CONTINUE THIS UNTIL EITHER THE LAST ENTRY IN THE MESSAGE 
TABLE OR THE END OF THE PRINTOUT STORAGE AREA (EXTEND) 
IS REACHED. 



LET R3 := #EXTMSG 



000010 







MOV 


#EXTMSG,R3 


NT : = 


#0 










CLR 


FLDCNT 


2) NE 


#-1 DO 

50013$: 










CMP 


(R2),#-1 






BEQ 


50014$ 


WHILE 


R3 LO #EXTEND DO 

50015$: 










CMP 


R3,#EXTEND 






BHIS 


50016$ 




WHILE FLDCNT LT #FLDMAX DO 








50017$: 










CMP 


FLDCNT, tfFLDMAX 






BGE 


50020$ 




CALL BOA16 IN <@(R2)+,R3> 








MOV 


R5,-(SP) 






MOV 


R3,-(R5) 






MOV 


@(R2)+,-(R5) 



FILLMS 


- MODULE 


TO FILL 


IN BLAN 


FILLMS. 


MAC 15-AUG-73 


16:52 


(3) 


002534' 


004767 


000000G 


(3) 


002540" 


012605 




1015 


002542' 






(6) 


002542' 


062703 


000006 


1016 


002546' 






(4) 


002546' 


112723 


000040 


4 f\ 4 rj 


002552' 






(6) 


002552' 


021227 


177777 


(9) 


002556' 


001001 




1018 


002560' 






(2) 


002560' 


000411 




1019 


002562' 






(4) 


002562' 






1020 


002562' 






(6) 


002562' 


005267 


175212 


1021 


002566' 






(4) 


002566' 


000753 




(3) 


002570' 






1022 


002570' 






(4) 


002570' 


112723 


000045 


1023 


002574' 






(4) 


002574' 


005067 


175200 


1024 


002600' 






(4) 


002600' 


000743 




(3) 


002602' 






1025 


002602' 






(4) 


002602' 


000737 




(3) 


002604' 






1026 


002604' 






(2) 


002604' 






1027 


002604' 




, 


(4) 


002604' 


112723 


000045 


1028 


002610' 






(4) 


002610' 


105023 




1029 








1030 








1031 


002612' 






(4) 


002612' 






1032 


002612' 






(4) 


002512' 


012765 


000417' 


1033 


002620' 






(2) 


002620' 


000167 


001422 


1034 


002624' 






(4) 


002624' 






1035 


002624' 






(2) 


002624' 







MAC? 1 1 30A(1052) 20-SEP-78 17:53 PAGE 19-24 



PROCESS HRDERR, SOFERR EXTENDED PRINTOUT MESSAGES? 



ENDDO 

LET (R3)+ :B= #' 
LET FLDCNT := #0 
ENDDO 



INLINE <1000$:> 



ENDDO 

LET (R3)+ :B= #'% 
LET (R3)+ :B= #0 



ENDIF 

LET FLMSADR(R5) 

INLINE <UMP 



= #DATAMS 



1$> 



MESSAGES? 




SEQ 




JSR 


PC, B0A16 




MOV 


(SP)+ f R5 


LET R3 := R3 + #6 








ADD 


#6,R3 


LET (R3)+ :B= #<SPACE> 








MOVB 


#<SPACE>, (R3)+ 


IF (R2) EO #-1 THEN 








CMP 


(R2) ,#-1 




B^E 


50021$ 


INLINE <5R 


1000$> 






BR 


1000$ 


ENDIF 






50021$: 






LET FLDCNT := FLDCNT + 


#1 






INC 


FLDCNT 




BR 


50017$ 


50020S: 

0/ 






A 


MOVB 


#'%, (R3)+ 




CLR 


FLDCNT 




BR 


50015$ 


50016$: 








BR 


50013$ 


50014$: 


1000$: 






MOVB 


#'%,(R3)+ 




CLRB 


(R3) + 


50012$: 








MOV 


#DATAMS, FLMSADR( 




JMP 


1$ 



ENDIF 

INLINE <1C0$:> 



50011$: 



100$: 



FILLMS 
FILLMS, 

1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
(6) 

(9) 

1046 
(3) 
(5) 
(4) 
(3) 
(3) 

1047 
(4) 

1048 
(2) 

1049 
(4) 



- MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY11 30A(1052) 
.MAC 15-AUG-78 16:52 PROCESS SUM COMMAND TYPE MESSAGES 

.SBTTL PROCESS SUM COMMAND TYPE MESSAGES 



IS IT A SUM COMMAND HEADER LINE TYPE MESSAGE? 

002624' IF R4 EQ #MSGSMH THEN 

002624' 020427 000Q14 

002630' 001014 

002632' CALL GETETIM IN <R0 , #RNHTIM> 

002632' 010546 

002634' 012745 000141 ' 

002640' 010045 

002642' 004767 001446 

002646' 012605 

002650' 

002650' 012765 000114' 000010 

002656' 

002656' 000167 001364 

002662' ENDIF 

002662' 



20-SEP-78 17:53 PAGE 19-25 



SEQ 0508 



LET FLMSADR(R5) := #RNHMSG 
INLINE <JMP 1$> 



CMP 


R4,#MSGSMH 


BNE 


50022$ 


MOV 


R5,-(SP) 


MOV 


#RNHTIM,-(R5) 


MOV 


R0,-(R5) 


J5R 


PC, GETETIM 


MOV 


(SP)+,R5 



MOV #RNHMSG,FLMSADR( 
JMP 1$ 



50022$: 



FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY1 1 30A(1052) 

FILLMS.MAC 15-AUG-78 16:52 PROCESS SUM COMMAND MODULE LINE MESSAGE 



20-SEP-78 17:53 PAGE 19-26 



SEQ 0509 



1051 








. 


1052 










1053 










1054 










1055 










1056 










1057 










1058 










1059 


002662' 






I 


(6) 


002662* 


020427 


000015 




(9) 


002666' 


001063 






1060 










1061 










1062 










1063 










1064 










1065 


002670' 








(3) 


002670' 


010546 






(5) 


002672' 


012745 


000154' 




(4) 


002676' 


010145 






(3) 


002700' 


004767 


001350 




(3) 


002704' 


012605 






1066 










1067 










1068 










1069 










1070 










1071 


002706' 








(3) 


002706' 


010546 






(5) 


002710' 


012745 


000171 ' 




(4) 


002714' 


010145 






(3) 


002716' 


004767 


OOOOOOG 




(3) 


002722' 


012605 






1072 


002724' 








(3) 


002724' 


010546 






(5) 


002726' 


012745 


000205' 




(4) 


002732' 


016145 


000026 




(3) 


002736' 


004767 


OOOOOOG 




(3) 


002742' 


012605 






1073 


002744' 








(3) 


002744' 


010546 






(5) 


002746' 


012745 


000222' 




(4) 


002752' 


016145 


000034 




(3) 


002756' 


004767 


OOOOOOG 




(3) 


002762' 


012605 






1074 


002764' 








(3) 


002764' 


010546 






(5) 


002766' 


012745 


000240' 




(4) 


002772' 


016145 


000044 




(3) 


002776' 


004767 


OOOOOOG 




(3) 


003002' 


012605 






1075 


003004' 








(3) 


003004' 


010546 






(5) 


003006' 


012745 


000256' 




(4) 


003012' 


016145 


000042 




(3) 


003016' 


004767 


OOOOOOG 





.SBTTL PROCESS SUM COMMAND MODULE LINE MESSAGE 



IS IT A "SUM COMMAND-MODULE- LINE" MESSAGE' 



IF R4 EQ #MSGSMB THEN 



GET MODULE NAME 



CMP 
BNE 



CALL GETNAM IN <R1 T #RNBNAM> 



CONVERT PC,STAT,PASS COUNT, HARD ERORRS AND SOFT ERRORS 

Tfl A CP T T 

CALL B0A16 IN <R1 ,#RNBPC> 



CALL B0A16 IN <STAT(R1), #RNBSTAT> 



CALL BDACNV IN <PASCNT(R1), #RNBPAS> 



CALL BDACNV IN <HRDCNT(R1) f #RNBHRD> 



CALL BDACNV IN <S0FCNT(R1) f #RNBSFT> 



R4,#MSGSMB 
50023$ 



MOV 


R5,-(SP) 


MOV 


#RN3NAM,-(R5) 


MOV 


R1 ,-(R5) 


JSR 


PC, GETNAM 


MOV 


(SP)+,R5 



MOV 


R5,-(SP) 


MOV 


#RNBPC,-(R5) 


MOV 


R1 ,~(R5> 


JSR 


PCB0A16 


MOV 


(SP)+,R5 


MOV 


R5,-(SP) 


MOV 


#RNBSTAT,-(R5) 


MOV 


STAT(R1),-(R5) 


JSR 


PC,B0A16 


MOV 


(SP)+,R5 


MOV 


R5,~(SP) 


MOV 


#RNBPAS,-(R5) 


MOV 


PASCNT(R1 ),-(R5) 


JSR 


PC, BDACNV 


MOV 


(SP)+,R5 


MOV 


R5,-(SP) 


MOV 


#RNBHRD,-(R5) 


MOV 


HRDCNT(R1 ) ,-(R5) 


uSR 


PC, BDACNV 


MOV 


(SP)+,R5 


MOV 


R5,-(SP) 


MOV 


#RNBSFT,-(R5) 


MOV 


S0FCNT(R1 ),-(R5) 


JSR 


PC, BDACNV 



FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY11 30A(1052) 20-SEP-78 17:53 PAGE 19-27 

FILLMS.MAC 1S-AUG-78 16:52 PROCESS SUM COMMAND MODULE LINE MESSAGE SEQ 0510 

(3) 003022' 012605 MOV (SP)+,R5 

1076 003024' LET FLMSADR(RS) := #RNBMSG 

(4) 003024' 012765 000153' 000010 MOV #RNBMSG, FLMS.ADR( 

1077 003032' INLINE <JMP 1$> 

(2) 003032' 000167 001210 UMP 1$ 

1078 003036' ENDIF 

(4) 003036' 50023$: 
1079 



FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKtLfclAL ivitsiAuci wa^t i i o^m^ i u^ > 
FILLMS. MAC 15-AUG-78 16:52 PROCESS SUM COMMAND SUMMARY LINE MESSAGE 



«jur i u 



1 081 

1082 

1083 

1084 

1085 

1086 

1 087 

1088 

1089 

(6) 

(9) 

1090 

1091 

1092 

1093 

1094 

(3) 

(5) 

(4) 

(3) 

(3) 

1095 

(3) 

(5) 

(4) 

(3) 

(3) 

1096 

(4) 

1097 

(2) 

1098 

(4) 

1099 



003036' 

003036' 020427 
003042' 001025 



003044' 
003044' 
003046' 
003052' 
003056' 
003062' 
003064' 
003064' 
003066' 
003072' 
003076' 
003102' 
003104' 
003104' 
0031 12' 
003112' 
003116' 
003116' 



010546 
012745 
016045 
004767 
012605 



000016 



010546 

012745 000304' 

016045 000060 

004767 000000G 

012605 



000333' 

000062 

000000G 



.SBTTL PROCESS SUM COMMAND SUMMARY LINE MESSAGE 



IS IT A SUM COMMAND SUMMARY LINE MESSAGE? 



IF R4 EG #MSGSMS THEN 



; + 



CMP 
BNE 



; CONVERT SYSTEM ERRORS AND POWER FAILS TO ASCII 
CALL BDACNV IN <DT.EXS(R0), #RNSERR> 



CALL BDACNV IN <DT.PFL(R0), #RNSPWR> 



012765 000264' 000010 
000167 001130 



INLINE <JMP 1$> 



MOV 



JMP 1$ 



ENDIF 



50024$: 



SEO 0511 



R4,#MSGSMS 
50024$ 



MOV 


R5,-(SP) 


MOV 


#RNSERR,-(R5) 


MOV 


DT.EXS(R0),-(R5) 


JSR 


PC, BDACNV 


MOV 


(SP)+,R5 


MOV 


R5,-(SP) 


MOV 


#RNSPWR,-(R5) 


MOV 


DT.PFL(R0),-(R5) 


JSR 


PC, BDACNV 


MOV 


(SP)+,R5 



#RNSMSG,FLMSADR( 



FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY11 30A(1052) 20-SEP-78 17:53 PAGE 19-29 
FILLMS.MAC 15-AUG-78 16:52 ' PROCESS DROP MODULE TYPE MESSAGE 



SEQ 0512 



1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

(6) 

(9) 

1111 

1112 

1113 

1114 

1115 

(3) 

(5) 

(4) 

(3) 

(3) 

1116 

1117 

1118 

1 1 1 S 

1120 

1121 

(4) 

(6) 

1122 

1123 

1124 

1125 

1126 

1127 

(3) 

(5) 

(4) 

(3) 

(3) 

1128 

(4) 

1129 

(2) 

1130 

(4) 

1131 



003116' 

003116' 020427 
003122' 001025 



003124' 
003124' 
003126' 
003132' 
003134' 
003140' 



010546 
012745 
010145 
004767 
012605 



003142' 

003142' 010203 
003144' 160103 



003146' 
003146' 
003150' 
003154' 
003156" 
003162' 
003164' 
003164' 
003172' 
003172' 
003176' 
003176' 



010546 
012745 
010345 
004767 
012605 



000017 



.SBTTL PROCESS DROP MODULE TYPE MESSAGE 

IS IT A DROP MODULE MESSAGE? 
IF R4 EQ #MSGDRP THEN 

GET MODULE NAME 

CALL GETNAM IN <R1,#DRPNAM> 



CMP 
BNE 



001150' 



001114 



FORM APC 



LET R3 := R2 - R1 



CONVERT DROP PC TO ASCII 



MOV 
SUB 



001176' 



OOOOOOG 



012765 001147' 000010 



000167 001050 



CALL B0A16 IN <R3, #DRPPC> 



LET FLMSADR(R5) := #DRPMSG 
INLINE <JMP 1$> 



R4,#MSGDRP 
50025$ 



MOV 


R5,-(5P) 


MOV 


#DRPNAM T -(R5) 


MOV 


Rl ,~(R5) 


JSR 


PC, GETNAM 


MOV 


(SP)'+ f R5 



R2,R3 
R1 ,R3 



ENDIF 





MQV 




R5,-(SP) 




MOV 




#DRPPC,-(R5) 




MOV 




R3,-(R5) 




JSR 




PC,B0A16 




MOV 




(SP)+ r R5 




MOV 




#DRPMSG,FLMS 




JMP 


1$ 




50025$: 









FILLMS - MODULE TO FILL IN BLANK 
FILLMS,MAC 15-AUG-78 16:52 



1133 
1134 
1135 
1136 
1137 
1138 
1139 

1140 003176' 
(6) 003176' 
(9) 003202' 

1141 003204* 

(3) 003204' 
(5) 003206' 

(4) 003212' 
(3) 003214' 

(3) G03220' 

1142 003222' 

(4) 003222' 

1143 003230' 
(2) 003230' 

1144 003234 ' 
(4) 003234' 

1145 
1146 



FIELDS IN SKELETAL MESSAGES MACY11 
PROCESS HUNG MODULE MESSAGE 



30A(1052) 20-SEP-78 17:53 PAGE 19-30 



020427 
001014 

010546 
012745 
010145 
004767 
012605 



000022 



001276' 



001034 



.SBTTL PROCESS HUNG MODULE MESSAGE 



IS IT A HUNG MODULE TYPE MESSAGE? 



IF R4 EG #MSGHNG THEN 



012765 001275' 000010 



000167 001012 



CALL GETNAM IN <R1 . #HNGNAM> 



LET FLMSADR(R5) : = #HNGMSG 
INLINE. <JMP 1$> 



CMP 

BNE 

MOV 
MOV 
MOV 
uSR 
MOV 

MOV 

JMP 1: 



ENDIF 



50026S: 



SEQ 0513 



R4,#MSGHNG 
50026$ 

R5,-(SP) 
#HNGNAM,-(R5) 
R1 ,~(R5) 
PC, GETNAM 
(SP)+,R5 

#HNGMSG,FLMSADR( 



FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY1 1 30A(1052) 20-SEP-78 17:53 PAGE 19-31 

FILLMS.MAC 15-AUG-78 16:52 PROCESS BAD VECTOR TYPE MESSAGE 

.SBTTL PROCESS BAD VECTOR TYPE MESSAGE 



IS IT A BAD VECTOR MESSAGE? 



SEQ 0514 



1148 








1149 








1150 








1151 








1152 








1153 








1154 








1155 








1156 








1157 


003234 1 






(6) 


003234* 


020427 


000020 


(9) 


003240' 


001016 




1158 








1159 








1160 








1161 








1162 








1163 


003242' 






(4) 


003242' 


016502 


000004 


1164 








1 165 








1 166 








1167 








1 168 


003246' 






(3) 


003246' 


010546 




/ tr \ 


r\ r\ o ^c: r\ 1 


m T7/! c 


a r\ i n o <3 » 


K~J ) 


U VOilJU 






(4) 


003254' 


010245 




(3) 


003256' 


004767 


000000G 


(3) 


003262' 


012605 




1169 


003264' 






(4) 


003264' 


012765 


001206' 000010 


1170 


003272' 






(2) 


003272' 


000167 


000750 


1171 


003276' 






(4) 


003276' 







IF R4 EQ #MSGVEC THEN 



SAVE BAD VECTOR ADDRESS IN R2 



LET R2 := MSGADR(R5) 



CONVERT BAD VECTOR TO ASCII 



CALL B0A16 IN <R2, #BADVCT> 



LET FLMSADR(R5) := #BADVMSG 
INLINE <JMP 1$> 
ENDIF 



CMP 
BNE 



MOV 



R4,#MSGVEC 
50027$ 



MSGADR(R5),R2 



MOV 


R5,-(SP) 




MOV 


#BADVCT,- 


"(R5) 


MOV 


R2,-(R5) 




JSR 


PC,B0A16 




MOV 


(SP)+,R5 




MOV 


#BADVMSG, 


FLMSADR 


JiVlP 1$ 







50027$: 



003276' 

003276' 020427 000021 

003302' 001033 



001234' 
000734 



FILLMS - MODULE TO FILL IN BLANK FIELDS 
FILLMS.MAC 15-AUG-78 16:.52 



1173 

1174 

1175 

1176 

1177 

1 1 78 

1179 

1180 

1181 

1182 

(6) 

(9) 

1183 

1184 

1185 

1186 

1187 

1188 

(3) 

(5) 

(4) 

(3) 

(3) 

1189 

1190 

1191 

1192 

1193 

1194 

(3) 

(5) 

(4) 

(3) 

(3) 

1195 

(3) 

(5) 

(4) 

(3) 

(3) 

1196 

(4) 

1197 

(2) 

1198 

(4) 

1199 



IN SKELETAL MESSAGES MACY1 1 30A(1052) 
PROCESS MAP COMMAND TYPE MESSAGE 

.SBTTL PROCESS MAP COMMAND TYPE MESSAGE 



IS IT A MAP MESSAGE? 



20-SEP-78 17:53 PAGE 19-32 



SEQ 0515 



IF R4 EQ #MSGMAP THEN 



GET MODULE NAME 



CMP 
BNE 



003304' 
003304' 
003306' 
003312' 
003314' 
003320' 



003322' 
003322' 
003324' 
003330' 
003332' 
003336' 
003340' 
003340' 
003342' 
003346' 
003352' 
003356' 
003360' 
003360' 
003366' 
003366' 
003372' 
003372' 



CALL GETNAM IN <R1 , #MAPNAM> 



010546 
012745 
010145 
004767 
012605 



MOV 
MOV 
MOV 
JSR 
MOV 



010546 
012745 
010145 
004767 
012605 

010546 
012745 
016145 
004767 
012605 



001251 ' 
OOOOOOG 



001266' 

00C026 
OOOOOOG 



CONVERT PC AND STATUS TO ASCII 



CALL B0A16 IN <R1 , ffMAPPO 



CALL B0A16 IN <STAT(R1), #MAPSTT> 



012765 001233' 000010 
000167 000654 



LET FLMSADR(RS) 
INLINE <JMP 1$> 



#MAPMSG 



MOV 



JMP 1$ 



ENDIF 



R4,#MSGMAP 
50030$ 



R5,-(SP) 
#MAPNAM,-(R5) 
R1 ,-(R5) 
PC, GETNAM 
(SP)+,R5 



MOV 


R5,-(SP) 


MOV 


#MAPPC,-(R5) 


MOV 


R1 ,-(R5) 


JSR 


PC f 30A16 


MOV 


(SP)+,R5 


MOV 


R5,-(SP) 


MOV 


#MAPSTT,-(R5) 


MOV 


STAT(R1 ) ,-(R5) 


JSR 


PC,B0A16 


MOV 


(SP)+,R5 



#MAPMSG,FLMSADR( 



50030$: 



FILLMS 


- MODULE 


TO FILL 


IN BLANK 


FILLMS. 


MAC 15-AUG-78 


16:52 


1201 








1202 








1203 








1204 








1205 








1206 








1207 


003372' 






(6) 


003372' 


020427 


000010 


(9) 


003376' 


001405 




(6) 


003400' 


020427 


000005 


(9) 


003404' 


001402 




1208 


003406' 






(2) 


003406' 


000167 


000534 


1209 


003412' 






(4) 


003412' 






1210 








1211 








1212 








1213 








1214 








1215 


003412' 






(3) 


003412' 


010546 




(5) 


003414' 


012745 


001326' 


(4) 


003420' 


010145 




(3) 


003422' 


004767 


000626 


(3) 


003426' 


01 2605 




1216 








1217 








1218 








1219 








1220 








1221 


003430' 






(3) 


003430' 


010546 




(6) 


003432' 


012745 


001340' 


(5) 


003436' 


010245 




(4) 


003440' 


010045 




(3) 


003442' 


004767 


001034 


(3) 


003446' 


012605 




1222 








1223 








1224 








1225 








1226 








1227 


003450* 






(4) 


003450' 


010203 




(6) 


003452' 


160103 




1228 








1229 








1230 








1231 








1232 








1233 


003454' 






(3) 


0C3454' 


010546 




(5) 


003456' 


012745 


001356' 


(4) 


003462' 


010345 




(3) 


003464' 


004767 


OOOOOOG 



FIELDS IN SKELETAL MESSAGES MACY11 
PROCESS CKDATA/DATACK/DATERR 



30A(1052) 20-SEP-78 17:53 PAGE 19-33 



SEQ 0516 



.SBTTL PROCESS CKDATA/DATACK/DATERR 

IS IT A CKDATA/DATACK/DATERR TYPE MESSAGE? 
IF R4 NE #MSGCKD AND R4 NE #MSGDER THEN 



INLINE <dMP 339S> 



CMP 
BEQ 
CMP 

BEQ 

JMP 



ENDIF 



50031$: 



GET MODULE NAME 



CALL GETNAM IN <R1 f #CKDNAM> 



GET A PA 



CALL GETAPA IN <R0 T R2 , #CKDPA> 



FORM APC 



LET R3 := R2 - R1 



CONVERT VA TO ASCII 



CALL B0A16 IN <R3, #CKDVA> 



MOV 
SUB 



MOV 
MOV 
MOV 
JSR 



R4,#MSGCKD 
50031$ 
R4,#MSGDER 
50031$ 

339$ 



MOV 


R5,-(SP) 


MOV 


#CKDNAM,-(R5) 


MOV 


R1 ,-(R5) 


dSR 


PC,GETNAM 


MOV 


(SP)+,R5 



MCV 


R5 t -(SP) 


MOV 


#CKDPA,-(R5) 


MOV 


R2,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC T GETAPA 


MOV 


(SP)+,R5 



R2,R3 
R1 ,R3 



R5,-(SP) 
#CKDVA t -(R5) 
R3,-(R5) 
PC.B0A16 



FILLMS - MODULE TO FILL 
FILLMS.MAC 15-AUG-78 



IN BLANK 
16:52 



(3) 

1234 

1235 

1236 

1237 

1238 

1239 

(3) 

(5) 

(4) 

(3) 

(3) 

1240 

1241 

1242 

1243 

1244 

1245 

(3) 

(5) 

(4) 

(3) 

(3) 

1245 

1247 

•* r% n n 
1 ^.^o 

1249 

1250 

1251 

(3) 

(5) 

(4) 

(3) 

(3) 

1252 

(3) 

(5) 

(4) 

(3) 

(3) 

1253 

(3) 

(5) 

(4) 

(3) 

(3) 

1254 

1255 

1256 

1257 

1258 

1259 

(6) 

(9) 

1260 

1261 



003470' 012605 



003472 1 
003472' 
003474' 
003500' 
003504' 
003510' 



003512' 
003512' 
003514' 
003520' 
003524' 
003530' 



003532' 
003532' 
003534' 
003540' 
003544' 
003550' 
003552' 
003552' 
003554' 
003560 ' 
003564' 
003570' 
003572' 
003572' 
003574' 
003600' 
003604' 
003610' 



010546 
012745 
016145 
004767 
012605 



010546 
012745 
016145 
004767 
012605 



01 0546 
012745 
016145 
004767 
012605 

010546 
012745 
016145 
004767 
012605 

010546 
012745 
016145 
004767 
012605 



003612' 

003612' 020427 
003616' 001524 



001373' 

000034 

000000G 



001.406' 

000042 

000000G 



001422' 

000100 

OOOOOOG 



001436' 

000106 

OOOOOOG 



001452' 

000110 

OOOOOOG 



000005 



FIELDS IN SKELETAL MESSAGES MACY11 

PROCESS CKDATA/DATAGK/DATERR 



CONVERT PASS COUNT TO ASCII 



CALL BDACNV IN <PASCNT(R1), #CKDPAS> 



30A(1052) 20-SEP-78 17:53 PAGE 19-34 



MOV 



SEC? 0517 



MOV 
MOV 
MOV 
JSR 
MOV 



CONVERT SOFCNT TO ASCII 



CALL BDACNV IN <S0FCNT(R1), #CKDNUM> 



MOV 
MOV 
MOV 
JSR 
MOV 



CONVERT CSRA,ASB,AWAS TO ASCII 



CALL B0A16 IN <CSRA(R1), #CKDADD> 



CALL B0A16 IN <ASB(R1), #CKDSB> 



CALL B0A16 IN <AWAS(R1), #CKDWAS> 



IF NOT A DATERR, 

GO BUILD THE PHYSICAL ADDRESSES 

IF R4 NE #MSGDER THEN 



CMP 
5EQ 



(SP)+,R5 



R5,-(SP) 
#CKDPAS,-(R5) 
PASCNT(R1 ) ,-(R5) 
PC, BDACNV 
(SP)+,R5 



R5,-(SP) 
#CKDNUM,-(R5) 
S0FCNT(R1 ) ,-(R5) 
PC, BDACNV 
(SP)+,R5 



MOV 


R5,-(SP) 




MOV 


#CKDADD,- 


-(R5) 


MOV 


CSRA(R1 ) , 


-(R5) 


JSR 


PC.B0A16 




MOV 


(SP)+,R5 




MOV 


R5,-(SP) 




MOV 


#CKDSB,-(R5) 


MOV 


ASB(R1 ) ,- 


"(R5) 


JSR 


PC.BGA16 




MOV 


(SP)+,R5 




MOV 


R5,-(SP) 




MOV 


0CKDWAS,- 


•(R5) 


MOV 


AWAS(R1 ), 


~(R5) 


JSR 


PC, B0A16 




MOV 


(SP)+,R5 





R4,#MSGDER 
50032$ 



FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY11 30A(1052) 20-SEP-78 
FILLMS, MAC 15-AUG-78 16:52 PROCESS CKDATA/DATACK/DATERR 



CLEAR MSB OF WORD COUNT 



17:53 PAGE 19-35 



SEQ 0518 



1262 








1263 








1264 








1265 








1266 


003620' 






(4) 


003620 s 


0161 03 


Ouul **4 


(6) 


003624' 


042703 


100000 


1267 








1268 








1269 








1270 








1271 








1272 


003630' 






(6) 


003630' 


005303 




1273 


003632' 






(7) 


003632' 


006303 




1274 


003534' 






(4) 


003634' 


010304 




(6) 


003636' 


066104 


000134 


1275 








1276 


003642' 






(4) 


003542' 


010467 


174140 


1277 


003646' 






(4) 


003646' 


016167 


000136 174134 


1278 








1279 








1280 








1281 








1282 


003654' 






(6) 


003654' 


032760 


000200 000010 


(9) 


003662' 


001407 




1283 


003664' 






(3) 


003664' 


010546 




(4) 


003666' 


012745 


000006' 


(3) 


003672' 


004767 


OOOOOOG 


(3) 


003676 s 


012605 




1284 


003700' 






(4) 


003700' 


000406 




(3) 


003702' 






1285 


003702 s 






(4) 


003702' 


016767 


174100 174102 


1286 


003710' 






(4) 


003710' 


016767 


174074 174076 


1287 


003716' 






(4) 


003716' 






1288 








12S9 








1290 








1291 








1292 








1293 








1294 








1295 


003716' 






(3) 


003716' 


010546 




(7) 


003720' 


012745 


001467' 


(6) 


003724' 


016745 


174064 



LET R3 := CDWDCT(R1) CLR.BY #BIT15 



FORM WRITE BUFFER FAILING ADDRESS 

LET R3 := R3 - #1 

LET R3 := R3 SHIFT 1 

LET R4 := R3 + WBUFPA(R1 ) 

LET TMPPA := R4 

LET TMPEA := WBUFEA(R1 ) 

IF MAPPING ON, CALL UNIPA 

IF #MAPSTAT SETIN DT.STO(RO) THEN 

CALL UNIPA IN <#TMPPA> 



ELSE 

LET FM.PA := TMPPA 
LET FM.EA : = TMPEA 
ENDIF 



CONVERT WRITE ADDRESS TO ASCII 



CALL BOAC IN <R0 , FM. PA , FM . EA, #CKDWRA> 



50033$: 



50034$: 



MOV 

BIC 



DEC 

ASL 

MOV 
ADD 

MOV 

MOV 



BR 

MOV 
MOV 



CDWDCT(R1 ),R3 
#BIT15,R3 



R3 

R3 

R3,R4 
WBUFPA(R1 ) ,R4 

R4, TMPPA 
WBUFEA(R1), TMPEA 



BIT 


#MAPSTAT,DT.ST0 


SEQ 


50033$ 


MOV 


R5,-(SP) 


MOV 


#7MPPA,-(R5) 


JSR 


PC, UNIPA 


MOV 


(SP)+,R5 



50034$ 

TMPPA, FM.PA 
TMPEA, FM.EA 



MOV R5,-(SP) 

MOV #CKDWRA,-(R5) 

MOV FM.EA,-(R5) 



FILLMS - MODULE TO FILL 
F I L LMS . MAC 1 5-A UQ-78 



(5) 

(4) 

(3) 

(3) 

1296 

(4) 

(6) 

1297 

(6) 

1298 

(4) 

(6) 

1299 

(4) 

1300 

1301 

(4) 

1302 

(4) 

1303 

1304 

1305 

1306 

1307 

1303 

(6) 

(9) 

1309 

(3) 

(4) 

(3) 

(3) 

1310 

(4) 

(3) 

1311 

(4) 

1312 

(4) 

1313 

(4) 

1314 

1315 

1316 

1317 

1318 

1319 

(3) 

(7) 

(6) 

(5) 

(4) 

(3) 

(3) 

1320 

(4) 



003730' 
003734' 
003736' 
003742' 
003744' 
003744' 
003746' 
003752' 
003752' 
003756' 
003756' 
003760' 
003764' 
003764' 



016745 
010045 
004767 
012505 

010204 
062704 

067403 

01 1404 
062704 

01 1404 



003766' 

003766' 010367 
003772' 
003772' 010467 



003776' 
003776' 
004004' 
004005' 
0C4006' 
004010' 
004014' 
004020' 
004022' 
004022' 
004024' 
004024' 
004024' 
004032' 
004032' 
004040' 
004040' 



004040' 
004040' 
004042' 
004046' 
004052' 
004056' 
004060' 
004064' 
004066" 
004066' 



UJ-i/DU 

001407 

010546 
012745 
004767 
012605 

000406 



016767 
016767 



010546 
012745 
016745 
016745 
010045 
004767 
012605 

000422 



IN BLANK 
16:52 

174056 

000000G 



000004 
000000 

000002 

174014 
174012 



FIELDS IN SKELETAL MESSAGES MACY11 
PROCESS CKDATA/DATACK/DATERR 



LET R4 := R2 + #4 

LET R3 := R3 + @(R4) 

LET R4 := (R4) + #2 

LET R4 := (R4) 

LET TMPPA := R3 

LET TMPEA := R4 

IF MAPPING ON CALL UNIPA 



30A(1052) 20-SEP-78 17:53 PaGE 19-36 



MOV 
MOV 
JSR 
MOV 

MOV 
ADD 

ADD 

MOV 
ADD 

MOV 



MOV 
MOV 



SEO 0519 



.i n a o a ^ a a n a -» n 

UUU^UU www iw 



000006' 
000000G 



173756 173760 
173752 173754 



IF #MAPSTAT SETIN DT.STO(RO) THEN 



CALL UNIPA IN <#TMPPA> 



ELSE 



LET FM.PA := TMPPA 
LET FM.EA := TMPEA 



ENDIF 



CONVERT READ ADDRESS TO ASCII 



CALL BOAC IN <R0 , FM. PA , FM. EA , #CKDRDA> 



001506' 

173742 

173734 

OOOOOOG 



FM.PA,-(R5) 
R0 t -(R5) 
PC, BOAC 
(SP)+,R5 

R2 f R4 
#4,R4 

@(R4) ,R3 

(R4) ,R4 
#2,R4 

(R4),R4 

R3, TMPPA 
R4 t TMPEA 





BIT 


#MAPSTAT,DT.STO( 




SEQ 


50035$ 




MOV 


R5,~(SP) 




MOV 


#TMPPA,-(R5) 




JSR 


PC, UNIPA 




MOV 


(SP)+,R5 




BR 


50036S 


50035$: 








MOV 


TMPPA, FM.PA 




MOV 


TMPEA, FM.EA 


500365*. 







MOV 


R5,-(SP) 


MOV 


#CKDRDA,-(R5) 


MOV 


FM.EA, -(R5) 


MOV 


FM.PA,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, BOAC 


MOV 


(SP)+,R5 



ELSE 



BR 



50037$ 



FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY11 30A(1052) 

FILLMS.MAC 15-AUG-78 16:52 PROCESS CKDATA/DATACK/DATERR 



GET A P. A. 



(3) 


004070' 






1321 








1322 








1323 








1324 








1325 








1326 








1327 


004070' 






(3) 


004070' 


010546 




(6) 


004072' 


012745 


001467 


(5) 


004076' 


016145 


000102 


(4) 


004102' 


010045 




(3) 


004104' 


004767 


000372 


(3) 


004110' 


012605 




1323 


0041 12' 






(3) 


004112' 


010546 




(6) 


0041 14' 


012745 


001506 


(5) 


004120' 


016145 


000104 


(4) 


004124' 


010045 




(3) 


004128' 


004767 


000350 


(3) 


004132' 


012605 




1329 


004134' 






(4) 


004134' 






1330 


004134' 






(4) 


004134' 


012765 


001325 


1 331 


0041 40 ' 






"ui 


004142' 


000167 


000100 


1332 


004146' 






(2) 


004146' 






1333 









20-SEP-78 17:53 PAGE 19-37 



50032S: 



SEQ 0520 



CALL GETAPA IN <R0 , SBADR( R1 ) ,#CKDWRA> 



CALL GETAPA IN <R0, WASADR (R1 ) , #CKDRDA> 



000010 



ENDIF 

LET FLMSADR(R5) := #CKDMSG 

INLINE <JMP 1$> 

INLINE <339$:> 



50037$: 



MOV 
MOV 
MOV 
MOV 
JSR 
MOV 

MOV 
MOV 
MOV 
MOV 
USR 
MOV 



MOV 



Uiiir i v 



339S: 



R5,-(SP) 

#CKDWRA,-(R5) 

SBADR(R1) ,-(R5) 

R0,-(R5) 

PC, GETAPA 

(SP)+,R5 

R5,-(SP) 

#CKDRDA,-(R5) 

WASADR(R1 ) ,-(R5) 

R0,~(R5) 

PC, GETAPA 

(SP)+,R5 



#CKDMSG,FLMSADR( 



FILLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY11 30A(1052) 20-SEP-78 
FILLMS.MAC 15-AUG-78 16:52 PROCESS CKDATA/DATACK SUMMARY LINE 

.SBTTL PROCESS CKDATA/DATACK SUMMARY LINE 



IS IT THE CKDATA/DATACK SUMMARY LINE? 



17:53 PAGE 19-33 



SEQ 0521 



1335 








1336 








1337 








1338 








1339 








1 340 








1341 








1342 


004146' 






(6) 


004146' 


020427 


000011 


(9) 


004152' 


001035 




1343 


004154' 






(4) 


004154' 


016103 


000146 


(6) 


004160' 


042703 


100000 


1344 








1345 








1346 








1347 








1348 








1349 


004164' 






(3) 


004164' 


010546 




(5) 


004166' 


01 2745 


001520' 


(4) 


004172' 


010145 




(3) 


004174' 


004767 


000054 


(3) 


004200' 


012605 




1350 








1351 








1352 








1353 








1354 








1355 


004202' 






(3) 


004202' 


010546 




(5) 


004204' 


012745 


001532' 


(4) 


004210' 


010345 




(3) 


004212' 


004767 


000000G 


(3) 


004216' 


012605 




1356 








1357 








1358 








1359 








1360 


004220' 






(3) 


004220 ' 


010546 




(5) 


004222' 


012745 


001556' 


(4) 


004226' 


016145 


000132 


(3) 


004232' 


004767 


OOOOOOG 


(3) 


004236' 


012605 




1361 


004240' 






(4) 


004240' 


012765 


001520' 000010 


1362 


004246' 






(4) 


004246' 







IF R4 EQ #MSGCKS THEN 



LET R3 := CDERCT(R1) CLR.BY #BIT15 



GET THE MODULE NAME 



CALL GETNAM IN <R1 ,#CKDSNAM> 



CMP 

BNE 

MOV 
BIC 



MOV 
MOV 
MOV 
JSR 
MOV 



CONVERT SUMMARY COUNT TO ASCII 



CALL BDACNV IN <R3, #CKDSCNT> 



CONVERT NUMBER OF 
CALL BDACNV 



LOCATIONS READ TO ASCII 
IN <RBUFSZ(R1 ) ,#CKDSRD> 



LET FLMSADR(R5) := #CKDSMSG 



R4,#MSGCKS 
50040$ 

CDERCT(R1-),R3 

#BIT15,R3 



R5,-(SP) 

#CKDSNAM,-(R5) 
R1 ,-(R5) 
PC, GETNAM 
(SP)+,R5 



MOV 


R5,-(SP) 


MCV 


#CKDSCNT,-(R5) 


MOV 


R3,-(R5) 


JSR 


PC, BDACNV 


MOV 


(SP)+,R5 



ENDIF 





MOV 


R5,-(SP) 




MOV 


#CKDSRD,-(R5) 




MOV 


RBUFS2(R1 ) ,-(R5) 




JSR 


PC, BDACNV 




MOV 


(SP)+,R5 




MOV 


#CKDSMSG,FLMSADR 


50040$: 







FI-LLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY11 30A(1052) 20-SEP-78 17:53 PAGE 19-39 
FILLM3.MAC 15-AUG-78 16:52 DO THE NECESSARY CLEAN-UP AND THEN RETURN 



1364 

1365 

1365 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

(2) 

1376 

(3) 

1377 

(3) 

(3) 

(2) 

1378 



004246' 

004246' 

004246' 

004246' 004767 OOOOOOG 

004252' 

004252' 

004252' 

004252' 000207 



SEQ 0522 



.SBTTL DO THE NECESSARY CLEAN-UP AND THEN RETURN 



NOW THAT WE'VE FILLED-IN THE BLANK FIELDS, DO THE CLEAN UP AND RETURN 



INLINE <1$:> 
CALL RESREG 
ENDRTN 



50000S: 
500015: 



1$: 



JSR PC.RESREG 



RTS PC 



- MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY11 3CA(1052) 20-SEP-78 17:53 PAGE 19-40 

GET MODULE NAME 

.SBTTL GET MODULE NAME 

+ 
THIS ROUTINE RETRIEVES THE MODULE NAME FROM THE MODULE'S HEADER AND 
STORES IT IN THE CALLER SUPPLIED STORAGE AREA 



FILLMS 


- MODULE 


TO FILL 


IN BLAN 


FILLMS. 


MAC 15-AUG-78 


16:52 


1380 








1381 








1382 








1383 








1384 








1385 








1386 








1387 


004254' 






(2) 


004254' 






1388 








1389 








1390 








1391 








1392 








1393 


004254' 






(3) 


004254' 


004767 


OOOOOOG 


1394 








1395 








1396 








1397 








1398 








1399 


004260' 






(4) 


004260' 


016500 


000000 


1400 


004264' 






(4) 


004264' 


016501 


000002 


1401 


004270' 






(4) 


004270' 


012702 


000005 


1402 


004274' 






(4) 


004274' 






(6) 


004274' 


005702 




(9) 


004276' 


003403 




1403 


004300' 






(4) 


004300' 


112021 




1404 


004302' 






(6) 


004302' 


005302 




1405 


004304' 






(4) 


004304' 


000773 




(3) 


004306' 






1406 








1407 








1408 








1409 








1410 


004306' 






(3) 


004306' 


004767 


OOOOOOG 


1411 


004312' 






(3) 


004312' 






(3) 


004312' 






(2) 


004312' 


000207 




1412 








1413 









SEQ 0523 



ROUTINE GETNAM <HDRADR, RSLTADR> 

SAVE REGISTERS 
CALL SAVREG 

h 

GET HEADER ADDR., MOVE 5 CHARS TO RESULT ADDR 

LET RO := HDRADR(R5) 
LET R1 := RSLTADR(R5) 
LET R2 := #~D<5> 
WHILE R2 GT #0 DO 

LET (R1)+ :B= (R0)+ 
LET R2 := R2 - #1 
ENDDO 

RESTORE REGISTERS 

CALL RESREG 
ENDRTN 



GETNAM: 



JSR 



50000$: 
50001$: 



JSR 



RTS 



PC, SAVREG 





MOV 


HDRADR(R5) ,R0 




MOV 


RSLTADR(R5) ,R1 




MOV 


#~D<5>,R2 


500025= 


TST 
BLE 


R2 
50003$ 




MQVB ' 


(R0)+,(R1)+ 




DEC 


R2 


50003$: 


BR 


50002$ 



PC, RESREG 



PC 



FILLMS 


- MODULE 


TO FILL 


IN BLAN 


FILLMS. 


MAC 15-AUG-78 


16:52 


1415 








1416 








1417 








1418 








1419 
















1421 








1422 








1423 


004314' 






(2) 


004314' 






1424 








1425 








1426 








1427 








1428 








1429 


004314' 






(3) 


004314' 


004767 


OOOOOOG 


1430 








1431 








1432 








1433 








1434 








1435 


004320' 






(4) 


004320' 


016500 


000000 


1436 


004324' 






(4) 


004324' 


016501 


000002 


1437 








1438 








1439 








1440 








1441 








1442 








1443 








1444 


004330' 






(6) 


004330' 


032760 


000001 


(9) 


004336' 


001407 




1445 


004340' 






(3) 


004340' 


01 054S 




(5) 


004342' 


010145 




(4) 


004344' 


010045 




(3) 


004346' 


004767 


OOOOOOG 


(3) 


004352' 


012605 




1446 


004354' 






(4) 


004354' 


000410 




(3) 


004356' 






1447 








1448 








1449 








1450 








1451 








1452 


004356' 






(4) 


004355' 


012702 


000011 


1453 


004362' 






(4) 


004362' 






(6) 


004362' 


005702 




(9) 


004364' 


003404 
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GET ELASPED TIME 



SEQ 0524 



000014 



.SBTTL GET ELASPED TIME 



THIS ROUTINE RETRIEVES THE EXERCISER'S ELASPED TIME AND RETURNS IT IN 
THE 9-BYTE FORMAT: "HHH:MM: SS" 



ROUTINE GETETIM <DTABLE, RSLTADR> 

SAVE REGISTERS 
CALL SAVREG 

SAVE DTABLE ADDR., RESULT ADDR. 

LET RO := DTABLE(R5) 
LET R1 := RSLTADR(R5) 



IF A CLOCK ON SYSTEM, CONVERT ELAPSED TIME INTO HRS, 
MIN. , SECS. 



IF #CLK?RES SETIN DT.CFO(RO) THEN 



GETETIM: 



JSR 



MOV 
MOV 



CALL PRHMS IN <R0, R1> 



ELSE 



IF NOT, FILL IN BLANKS WITH SPACES 

LET R2 := #~D<9> 
WHILE R2 GT #0 DO 



500045 : 



MOV 



TST 
BLE 



PC, SAVREG 



DTABLE(R5) ,R0 
RSLTADR(R5) ,R1 





BIT 


#CLKPRES,DT.CF0( 




BEQ 


50002$ 




MOV 


R5,-(SP) 




MOV 


R1,-(R5) 




MOV 


R0,-(R5) 




JSR 


PC, PRHMS 




MOV 


(SP)+,R5 




BR 


50003$ 


50002$: 







#~D<9>,R2 



R2 
50005$ 



FILLMS - MODULE TO FILL 
FILLMS. MAC 15-AUG-78 



IN 
16: 



BLANK 
52 



FIELDS 



1454 


004366 ' 




(4) 


004366' 


112721 000040 


1455 


004372' 




(6) 


004372' 


005302 


1456 


004374' 






004374' 


000772 


(3) 


004376' 




1457 


004376' 




(4) 


004376' 




1453 






1459 






1460 






1461 






1462 


004376' 




(3) 


004376' 


004767 OOOOOOG 


1463 


004402' 




(3) 


004402' 




(3) 


004402' 




(2) 


004402' 


000207 


1464 







IN SKELETAL 
GET ELASPED 



MESSAGES 
TIME 
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LET (R1 )+ :B= #<SPACE> 
LET R2 :* R2 - #1 



ENDDO 



ENDIF 

+ 
RESTORE REGISTERS 



CALL RESREG 
ENDRTN 









SEQ 0525 




MOV 3 


#<SPACE>, 


(RD + 




DEC 


R2 






BR 


50004$ 




bOOOts^: 








50003S: 









50000$: 
50001$: 



dSR 



RTS 



PC, RESREG 



PC 



FILLMS - MODULE 70 FILL IN BLANK FIELDS IN SKELETAL MESSAGES 
FILLMS.MAC 15-AUG-78 16:52 GET MODULE'S PASS TIME 
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SEQ 0526 



1466 
1467 
1468 
1469 
1470 

1472 

1473 

1474 

(2) 

1475 

1478 

1477 

1478 

1479 

1480 

(3) 

1481 

1482 

1483 

1484 

1485 

1486 

(4) 

1487 

(4) 

1488 

(4) 

1489 

1490 

1491 

1492 

1493 

1494 

(6) 

(9) 

1495 

(3) 

(6) 

(5) 

(4) 

(3) 

(3) 

1496 

(4) 

(3) 

1497 

1498 

1499 

15C0 

1501 

1502 

(4) 

1503 

(4) 

(6) 



004404' 
004404' 



004404' 
004404' 004767 



004410' 

004410' 016500 
004414' 

004414' 016501 
004420' 
004420' 016502 



004424' 
004424' 
004432' 
004434' 
004434' 
004436' 
004440 s 
004442' 
004444' 
004450' 
004452' 
004452' 
004454' 



004454' 
004454' 
004460' 
004460' 
004460' 



032760 
001410 

01054S 
010245 
010145 
010045 
004767 
012605 

000410 



OOOOOOG 



000000 
000002 
000004 



000001 000014 



OOOOOOG 



012703 000011 



005703 



.SBTTL GET MODULE'S PASS TIME 



THIS ROUTINE GETS THE OPTION MODULE'S PASS TIME AND RETURNS IT IN THE 
9-BYTE FORMAT: "HHH:MM:SS" 



ROUTINE GETPTIM <DTABLE,HDRADR ,RSLTADR> 

SAVE REGISTERS 
CALL SAVREG 

SAVE DTABLE ADDR f HEADER ADDR, RESULT ADDR. 

LET RO := DTABLE(R5) 
LET R1 := HDRADR(R5) 
LET R2 := RSLTADR(R5) 

IF A CLOCK ON SYSTEM, UPDATE MODULE'S PASS TIME 
IF #CLKPRES SETIN DT.CFO(RO) THEN 
CALL PRPSCNT IN <R0,R1,R2> 



GETPTIM: 



JSR 



MOV 
MOV 
MOV 



ELSE 



INSERT SPACES 



LET R3 := #~D<9> 
WHILE R3 GT #0 DO 



50004$: 



MOV 



TST 



PC, SAVREG- 



DTABL£(R5) ,R0 
HDRADR(R5),R1 
RSLTADR(R5) ,R2 





BIT 


#CLKPRES,DT.CF0( 




BEO 


50002$ 




MOV 


R5,-(SP) 




MOV 


R2,-(R5) 




MGV 


R1 ,-(R5) 




MOV 


R0,-(R5) 




JSR 


PC, PRPSCNT 




MOV 


(SP)+,R5 




BR 


50003$ 


50002$: 







#~D<9>,R3 



R3 



FI.LLMS - MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES 
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FILLMS.MAC 



15-AUG-78 16:52 



(9) 004462' 003404 

1504 004464' 

(4) 004464' 112722 000040 

1505 004470' 

(6) 004470' 005303 

1506 004472' 

(4) 004472' 000772 

(3) 004474' 

1507 004474' 

(4) 004474* 



GET MODULE'S PASS TIME 



LET (R2)+ :B= #<SPACE> 
LET R3 := R3 - #1 



ENDDO 



ENDIF 



BLE 

MOVB 

DEC 



50005$: 
50003$: 



SEQ 0527 
50005$ 

#<SPACE>, (R2)+ 
R3 
50004$ 



FILLMS - MODULE TO FILL 
FILLMS.MAC 15-AUG-78 



IN BLANK 
16:52 



FIELDS IN SKELETAL MESSAGES 

GET MODULE'S PASS TIME 
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SEQ 0528 



1509 










1510 








; + 


1511 








; RESTORE R 


1512 








;- 


1513 










1514 


004474' 






CALL RESREG 


(3) 


004474' 


004767 


OOOOOOG 




1515 


004500' 






ENDRTN 


(3) 


004500' 








(3) 


004500' 








(2) 


004500' 


000207 






1516 










1517 










1518 











500005: 
50001S: 



dbK 



RTS 



KU , KtiKtU 



PC 



004502' 

004502' 004767 000000G 



FILLMS - MODULE TO FILL IN BLANK 
FILLMS.MAC 15-AUG-78 16:52 



1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 004502' 

(2) 004502' 
1529 

1530 
1531 
1532 
1533 
1534 
1535 
(3) 
1536 
1537 
1538 
1539 

1540 004506' 
(4) 004506' 

1541 004512' 
(4) 004512' 

1542 004516' 

(4) 004516' 
1543 

1544 
1545 

1546 004524' 

(3) 004524' 

(5) 004526' 

(4) 004532' 
(3) 004534' 
(3) 004540V 

1547 004542' 

(3) 004542' 
(7) 004544' 

(6) 004546' 

(5) 004552' 

(4) 004556' 
(3) 004560' 
(3) 004564' 

1548 
1549 
1550 
1551 

1552 004566' 
(3) 004566' 

1553 004572' 
(3) 004572' 
(3) 004572' 
(2) 004572' 

1554 



FIELDS IN SKELETAL MESSAGES MACY1 1 30A(1052) 20-SEP-78 
CONVERT VIRTUAL ADDRESS TO. PHYSICAL ADDRESS ASCII 



17:53 PAGE 20-1 



SEQ 0529 



016500 
016501 
016567 



010546 
012745 
010045 
004767 
012605 

010546 
010145 
016745 
016745 
010045 
004767 
012605 



000000 
000004 
000002 173260 



000004 



OOOOOOG 



173236 
173230 

OOOOOOG 



004767 OOOOOOG 



000207 



.SBTTL CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS ASCII 



THIS ROUTINE ACCEPTS A 16-BIT VIRTUAL ADDRESS AND RETURNS AN 8-BYTE 
(22 BIT) PHYSICAL ADDRESS IN THE CALLER SUPPLIER STORAGE AREA 



ROUTINE GETAPA <DTABLE, VA, RSLTADR> 



SAVE REGISTERS 

CALL SAVREG 

+ 
SAVE DTABLE ADDR, RESULT ADDR 

LET RO := DTA3LE(R5) 

LET R1 := RSLTADR(R5) 

T TMPVA :- VA(R5/ 

CONVERT TO PA AND THEN TO ASCII 
CALL GPA IN <RO t #TMPVA> 



CALL BOAC IN <RO f TMPPA, TMPEA, R1> 



GETAPA: 



JSR 



MOV 
MOV 
MOV 



RESTORE REGISTERS 
CALL RESREG 
ENDRTN 



50000$: 
50001$: 



JSR 



RTS 



PC, SAVREG 



DTABLE(R5),R0 
RSLTADR(R5) ,R1 
VA(R5) ,TMPVA 



MOV 


R5,-(SP) 


MOV 


#TMPVA,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, GPA 


MOV 


(SP)+,R5 


MOV 


R5,~(SP) 


MOV 


R1 ,-(R5) 


MOV 


TMPEA,-(R5) 


MOV 


TMPPA, ~(R5) 


MOV 


R0,-(R5) 


JSR 


PC, BOAC 


MOV 


(SP)+,R5 



PC, RESREG 



PC 



FILLMS- MODULE TO FILL IN BLANK FIELDS IN SKELETAL MESSAGES MACY1 1 30A(1052) 20-SEP-78 17:53 PAGE 2C-2 

FILLMS.MAC 15-AUG-78 16:52 CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS ASCII SEQ 0530 

1555 000001 .END 



FILLMS ■ 


- MODULE TO FILL 


IN BLANK 


FIELDS IN SKE! 


-ETAL MESSAGES MACY11 


30A(1052) 20-: 


SEP-78 17:53 


PAGE 21 






FILLMS.MAC 15-AUG-78 


16:52 


SYMBOL 


TABLE 












SEO 0531 


ACSR = 


000102 


CKDNAM 


001326R 


DT.EVN= 


000000 


FL'DMAX= 


000010 


KTSTAT= 


000020 




ACT3IT= 


004000 


CKDNUM 


001406R 


DT.EXS= 


000060 


FLMSAD= 


000010 


KTXTND= 


040000 




ADDR22= 


001000 


CKDPA 


001340R 


DT . FCH= 


000037 


FM-.EA 


000014R 


LF 


000012 




ADR 


000006 


CKDPAS 


001373R 


DT.FCN= 


000036 . 


FM.PA 


000012R 


LINECN 


000002R 




APTFER= 


000004 


CKDRDA 


001506R 


DT.HMX= 


000104 


GETAPA 


004502R 


LPSTAT= 


000001 




APTPRE= 


000200 


CKDSB 


001436R 


DT.KBE= 


000024. 


GETETI 


00431 4R 


MAFMSG 


001233R 




ASB = 


000106 


CKDSCN 


001532R 


DT.KBP= 


000026 


GETNAM 


004254R 


MAP NAM 


00 1 234R '•„■■. 




ASSEMB= 


000010 


CKDSMS 


001520R 


DT.KBR= 


000022 • 


GETPTI 


004404R 


MAPPC 


001 251 R 




ASTAT = 


000104 


CKDSNA 


0C1-520R 


DT.KBU= 


000030 


GPA 


• ■******' G 


MaPSTA= 


000200 




AUTO = 


000010 


CKDSRD 


001556R 


DT.MLS= 


000032 


HDRADR= 


000002 


MAPSTT 


001266R 




AUTOST= 


020000 


CKDVA 


00T356R 


DT.NITI- 


000110 


HDRMSG 


000342R 


MED 


076600 




AWAS a 


000110 


CKDWAS 


001452R 


DT.OFF= 


000070 


HDRNAM 


000343R 


. MEMPAS= 


040000 




BADVCT 


001223R 


CKDWRA 


001467R 


DT.PAS= 


000074 


HCRPA 


000355R 


MQDEXH= 


004000 




BADVMS 


O01206R 


CKHUNG= 


****** Q 


DT.PC = 


000002 


■" ! ' % -HDRPAS 


000410R 


MODHOL= 


002000 




BDACNV= 


****** Q 


CKTIM = 


100000 


DT.PFL= 


000062 


HDRPC 


000373R 


MODSEL= 


001000 




BITO = 


000001 


CLKPRE= 


000001 


DT.PSW= 


000004 


HNGMSG 


001275R 


MSGADR= 


000004 




BITOO = 


000001 


CONFIG= 


000056 


DT.PTA= 


000064 


HNGNAM 


001276R 


MSGCKD= 


000010 




BIT01 = 


000002 


CQOVF = 


000001 


DT.RCS= 


000102 


HRDCNT= 


000044 


MSGCKS= 


000011 




BIT02 = 


000004 


CR 


000015 


DT.REL= 


000040 


HRDPAS= 


000050 


... MSGDER = 


000005 




BIT03 = 


000010 


CSRA = 


000100 


DT.SCT= 


000066 


ICONT = 


000036 


■MSGDRP= 


000017 




BIT04 = 


000020 


CSRC = 


000102 


DT-.SMX= 


000106 


ICOUNT- 


000040 


MSGECH= 


177777 




BIT05 = 


000040 


CTRLC = 


000003 


DT.SP = 


000006 


IDNUM = 


000122 


MSGEOP= 


000013 




BIT06 = 


000100 


CTRLO = 


000017 


DT.SSI= 


000046 


IE 


oooioo 


MSGHDR= 


000004 




BIT07 = 


000200 


CTRLU = 


000025 


DT.STO= 


000010 


INDPAR= 


000040 


MSGHNG= 


000022 




BIT08 = 


000400 


DATADD , 


000520R 


DT.ST1= 


000012 


INHDRP= 


040000 


MSGHRD= 


000007 




BIT09 = 


001000 


DATAMS 


00041 7R 


DT.SWR= 


000056 


INHEPR= 


020000 


MSGMAP= 


000021 




BIT1 = 


000002 


DATAPC 


000450R 


U 1 .Oil — 


r\ A A AT*"* 
V U V W / X- 


INHREL r 


001 000 


MSGNUL= 


177775 




BIT10 = 


002000 


DATCON 


000535R 


DT.WBU=- 


000050 


... INHRRE= 


000400 


MSGP0P= 


000002 




BIT11 = 


004000 


DATEND 


000601 R 


DT.WHL= 


000054 


INIT = 


000030 


. MSGPRM= 


177776 




3IT12 = 


010000 


DATERR 


000572R. 


DT.WLL= 


000052 


INTR = 


000120 


MSGRES= 


000001 




BIT13 = 


020000 


DATNAM 


000420R 


DVID1 = 


000014 


I OWIOD = 


100000 


MSGSFT= 


000006 




BIT14 = 


040000 


DATNUM 


000504R 


ECCMEM= 


000100 


IDWODPa 


102000 


MSGSKE= 


000003 




BIT15 = 


100000 


DATPAS 


000465R 


ECCSTA= 


0000T0 


IOMODR= 


112000 


MSGSMB= 


000015 




BIT2 = 


000004 


DATPC 


000432R 


EN3EOP= 


010000 


IOMODX= 


110000 


MSGSMH= 


000014 




BIT3 = 


000010 


DATSTA 


000553R 


ENBNUL= 


000001 


JACK = 


0350S0 


MSGSMS= 


000016 




BIT4 a 


000020 


DATTYP 


000473R 


ENDLST= 


000000 


KIPAR0= 


172340 


MSGSTD= 


000000 




3IT5 = 


000040 


DCEVNT= 


000011 


EQPBIT= 


000001 


KIPAR1= 


172342 


MS.GSYS= 


000012 




BITS = 


000100 


DEFRTN= 


000400 


EOPMSG 


00001 6R 


KIPAR2= 


172344 


MSGVEC= 


000020 




BIT7 = 


000200 


DIAGMC= 


000000 


EOPNAM 


00001 7R 


KIPAR3= 


172346 


NBKMOD= 


001000 




BIT8 = 


000400 


DROPMO= 


100000 


EOPPAS 


000037R 


KIPAR4= 


172350 


NCPUOP= 


000020 




BIT9 = 


001000 


DRPMSG 


001147R 


EOPPST 


000101R 


KIPAR5= 


172352 


NOAPTY= 


000002 




BKDEF = 


000002 


DRPNAM 


001150R 


EOPTIM 


000057R 


KIPAR6= 


172354 


NULL = 


000000 




BKMOD = 


000020 


DRPPC 


001176R 


ERRTYP= 


000106 


KIPAR7= 


172356 


OWEN = 


024020 




BKMODE= 


040000 


DSEVNT= 


000014 


EVNTBE= 


000200 


KIPDR0= 


172300 


PAERR = 


000010 




BKSLSH= 


000134 


DTABLE= 


000000 


EVNTHD- 


000200 


KIPDR1= 


172302 


PARPRE= 


002000 




BOAC = 


****** Q 


DT.ADD= 


000042 


EVNTKT= 


000203 


KIPDR2= 


172304 


PARSTA= 


000100 




BOA16 = 


****** Q 


DT.AP = 


000100 


EVNTPE= 


000202 


KIPDR3= 


172306 


PASCNT= 


000034 




CAPRES= 


000004 


DT.APK= 


000076 


EVNTRE= 


000201 


KIPDR4= 


172310 


PDPLSI= 


020000 




CASTAT= 


000004 


DT.BLS= 


000034 


EXTEND 


001146R 


KIPDR5= 


172312 


PDP60 = 


004000 




CDERCT= 


000146 


DT.CFO= 


000014 


EXTMSG 


000602R 


KIPDR6= 


172314 


PDP70 = 


010000 




CDWDCT= 


000144 


DT.CF1= 


000016 


FATERR= 


100000 


KIPDR7= 


172316 


PRHMS = 


5p ^C 5p 5^ 3jC JjC ^-j 




CKDADD 


001422R 


DT.ERR= 


000020 


FILLMS 


001600RG 


KTERRO= 


000040 


PRIO = 


000000 




CKDMSG 


001325R 


DT.ESI= 


000044 


FLDCNT 


000000R 


KTPRES= 


000400 


PRI1 = 


000040 





FILLMS ■ 


- MODULE TO FILL 


■IN BLANK ! 


FIELDS 


FILLMS.I 


yiAC 15-AUG-78 


16:52 




PRI4 = 


000200 


R5LTAD= 


000004 


PRI5 = 


000240 


RSTRT = 


000112 


PRI6 = 


000300 


RUBOUT= 


000177 


PRI7 = 


000340 


RUNMOD= 


100000 


PRPSCN= 


****** Q 


R5VALU= 


001740 


PRO 


000000 


SAM 


075464 


PR4 


000200 


SAVREG= 


****** 


PR5 


000240 


SBADR = 


000102 


PR6 


000300 


SBKMOD= 


000000 


PR7 


000340 


SBKSEL= 


010000 


PS 


177776 


SC.ADR= 


000006 


PSW 


177776 


SC.ALC= 


000014 


RANNUM= 


000054 


SC.APC= 


000016 


RBUFEA= 


000130 


SC.CKL= 


000002 


RBUFPA= 


000126 


SC.CKP= 


000004 


RBUFSZ= 


000132 


SC.CLO= 


000000 


RBUFVA= 


000124 


SC.HLD= 


000010 


RDSERV= 


000101 


SC.SCA= 


000012 


RDWHMI= 


000022 


SENDLS= 


177777 


RELERR= 


000020 


SOFCNT= 


000042 


RELMOD= 


020000 


SOFPAS= 


000046 


RELTIM= 


010000 


SPACE = 


000040 


RESREG= 


****** Q 


SPOINT= 


000032 


RES1 = 


000056 


SPVALU= 


002200 


RES2 = 


000060 


SRO 


177572 


RICHAR= 


031060 


SR1 


177574 


HNBriRD 


000240R 


SR2 = 


1 77576 


RNBMSG 


000153R 


SR3 


172516 


RNBNAM 


000154R 


STAT = 


000026 


RNBPAS 


000222R 


STATBI= 


064757 


RNBPC 


000171R 


STAT1 = 


000027 


RNBSFT 


000256R 


SUSPND= 


000001 


RNBSTA 


000205R 


SVRO = 


000062 


RNHMSG 


0001 14R 


SVR1 = 


000064 


RNHTIM 


000141R 


SVR2 = 


000066 


RNSERR 


000304R 


SVR3 = 


000070 


RNSMSG 


000264R 


SVR4 = 


000072 


RNSPWR 


000333R 


SVR5 = 


000074 


RPTDAT= 


002000 


SVR6 = 


000076 


. ABS. 


000000 000 
004574 001 







IN SKELETAL MESSAGES 
SYMBOL TABLE 

SYSCNT= 
SYSERR= 
TMPEA 
TMPIO = 
TMPPA 
TMPVA 
G TMP1 

TQOVF = 
TYPCOD= 
UIPAR0= 
UIPAR1= 
UIPAR2= 
UIPAR3= 
UIPAR4= 
UIPAR5= 
UIPAR6= 
UIPAR7= 
UIPDS0= 
UIPDR1= 
UIPDR2= 
UIPDR3= 
UIPDR4= 
UIPDR5= 
UIPDR6= 
UIPDR7= 
UNIPA = 

i i nr\T Tn«_ 
u r u i iiti- 

VA 

WASADR= 

WBSTAT= 

WBUFEA= 

WBUFPA= 

W3UFRQ= 

WBUFS2= 

WDFR = 

WDTO = 

WTINRE= 

WTWHMI= 

XFLAG = 



MACY11 30A(1052) 



000052 

000100 

000010R 

000002 

000006R 

000004R 

000004R 

000002 

000002 

177640 

177642 

177644 

177646 

177650 

177652 

177654 

177656 

177600 

177602 

177604 

177606 

177610 

177512 

177614 

177615 

****** ( 

% %. j. a. ± j. t 

000002 
000104 
000040 
000136 
000134 
000140 
000142 
000116 
000114 
000352 
000222 
000005 



\2) 20-: 


SEP-78 17:53 


PAGE :21-1 




SEQ 0532 


XOFF = 


000023 


$NSK5 = 


000120 




XON 


000021 


$NSK6 = 


000110 




$BGMLE= 


177777 


$SAVLE= 


177777 




SERFLG= 


000400 


$SSK0 = 


050005 




SF$AND= 


000310 


$TAGLE= 


177777 




$FSBAD= 


000401 


$TAGNU= 


050002 




$FS3LA= 


000170 


STEMP = 


000300 




$F$CAS= 


000150 


STSKO = 


050003 




$F$DEC= 


000220 


STSK1 = 


050004 




SF$DO = 


000340 


$TSK10 = 


050021 




$F$FAL= 


000405 


STSK2 = 


050005 




$F$GOO= 


000400 


$TSK3 = 


050014 




SF$IF = 


000110 


$TSK4 = 


050015 




$F$INC= 


000210 


STSK5 = 


050016 




'$F$'Loa= 


000200 


$TSK6 = 


050017 




$F$NAM= 


000160 


STSK7 = 


050020 




$F$NO = 


000403 


$$ARGC= 


000006 




$F$OR = 


000320 


$$BYTE= 


000403 




$FSRTI= 


000350 


$SCASE= 


000000 




$FSRTN= 


000300 


SSDST = 


000000 




$F$SEL= 


000140 


$$ELOC= 


000402 




$FSTHE= 


000330 


SSERFL= 


000000 




$F$TRU= 


000404 


SSFLAG= 


000001 




$F$UNT= 


000130 


S$FROWI= 


000000 




$FSWHI= 


000120 


$$LOC = 


004462R 




$F$YES= 


000402 


S$LQCN= 


000000 




C T CI t\/- 


1 77777 


SSREG = 


177777 




SISKO = 


000001 


S$RETU= 


000000 




$ISK1 = 


000001 


SSRTN1= 


050000 




SISK2 = 


000001 


S$RTN2= 


050001 




$LOCTA= 


177777 


SSSRC = 


000000 




$LSTIN= 


000001 


$$TGSV= 


000000 




$LSTTA= 


000001 


S$TGS1= 


000000 




$NESTL= 


177777 


S$TGS2= 


000000 




SNSKO = 


000300 


SSTO = 


000000 




SNSK1 = 


000110 


$$STAG= 


050000 




SNSK2 = 


000120 


= 


004574R 




SNSK3 = 


000120 








$NSK4 = 


000120 









ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ: FILLMS, DSKZ: FILLMS=SPMAC/ML f EQUATE, FILLMS 
RUN-TIME: 37 27 .4 SECONDS 
RUN-TIME RATIO: 105/65=1.6 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:55 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0533 

3 CCMMON EQUATE MODULE 

552 GETPSW (COMMON DEFINITIONS & REFERENCES) 

555 000000' .PRINT ;SPMAC: VERSION 1.1 

565 GETPSW (CODE) 



GETPSW (GET CALLER'S PS WORD) 
GETPSW. MAC 28-JUL-78 09:15 

508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 



MACY11 30A(1052) 20-SEP-78 17:55 PAGE 19 
COMMON EQUATE MODULE 

•TITLE GETPSW (GET CALLER'S PS WORD) 
.IDENT /VO.O/ 



MODULE NAME: 
GETPSW 

FUNCTIONAL DESCRIPTION: 

THIS MODULE RETURNS THE CALLER'S PROCESSOR STATUS WORD. 

INPUTS: 

NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

PROCESSOR STATUS WORD 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE MODULES CALLED: 
NONE 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL GETPSW OUT <AA> 

WHERE AA = PS WORD 

VERSION: 
0.0 



SEQ 0534 



EDIT DATE 



BY 



REASON 



GETPSW (GET CALLER'S PS WORD) 
GETPSW.MAC 28-JUL-78 09:15 
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GETPSW (COMMON DEFINITIONS & REFERENCES) 



SEQ 0535 



552 
553 
554 
555 
(D 
556 
557 
558 
559 
560 
561 
562 
563 



000000" 
000000' 



000001 
000001 



.SBTTL GETPSW (COMMON DEFINITIONS & REFERENCES) 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 

REFERENCED BY OTHER MODULES 



.GLOBL GETPSW 



^MODULE'S ENTRY POINT 



GETPSW (GET CALLER'S PS WORD) 
GETPSW. MAC 28-JUL-78 09:15 



565 
566 
567 
(2) 
563 
569 
570 
571 
572 
573 
574 
575 
576 
577 
(2) 
578 
(4) 
579 
(2) 
580 
(2) 
581 
(3) 
(3) 
(2) 
582 
583 
(2) 
584 
(4) 
585 
(2) 
586 
587 
588 



000000' 
000000' 



000000' 
000000' 
000004' 
000004' 
000012' 
000012' 
000014' 
000014' 
000020' 
000020' 
000020' 
000020' 



000022' 
000022' 
000022' 
000030' 
000030' 



MACY11 30A(1052) 20-SEP-78 17:55 PAGE 19-2 
GETPSW (CODE) 

.SBTTL GETPSW (CODE) 

ROUTINE GETPSW <AA> 



SEQ 0536 



013746 000010 



012737 000022' 000010 



000077 



012637 000010 



000207 



016665 000002 000000 



000002 



000001 



GETPSW: 



SAVE VECTOR 10; LOAD ADDRESS TO HANDLE ILLEGAL INSTRUCTION 
TRAP. EXECUTE AN ILLEGAL INSTRUCTION. THE TRAP WILL PUSH PSW 
AND PC+ ON THE STACK. IN THE TRAP HANDLER, GET THE PSW AND 
RETURN TO PC+ BY DOING AN RTI. NOW RESTORE THE ORIGINAL 
TRAP HANDLER AND RETURN. 



PUSH @#10 

LET @#10 := #1$ 

INLINE <#77> 

POP @#10 

ENDRTN 



50000$: 
50001$: 



TmlTMC /(C'S 



LET AA(R5) := 2(SP) 



INLINE <RTI> 



END 



; RETURN 



MOV 
MOV 
#77 
MOV 

RTS 

1$: 
MOV 
RTI 



©#10, -(SP) 

#1$,@#10 

(SP)+,@#10 
PC 

2(SP),AA(R5) 



GETPSW i 


(GET CALLER'S PS 


WORD) IVL 


\CY11 3i 


GETPSW. MAC 28-JUL-78 


09:15 




AA 


000000 


CSRC = 


000102 


ACSR = 


000102 


CTRLC = 


000003 


ACTBIT= 


004000 


CTRLO = 


000017 


ADDS22= 


001000 


CTR LU = 


000025 


ADR 


000006 


DCEVNT= 


000011 


APTFER= 


000004 


DEFRTM= 


000400 


APTPRE= 


000200 


DIAGMC= 


000000 


ASB 


000106 


DROPMO= 


100000 


ASSEMB= 


000010 


DSEVNT= 


000014 


ASTAT = 


000104 


DT.ADD= 


000042 


AUTO = 


000010 


DT.AP = 


000100 


AUTOST= 


020000 


DT.APK= 


000076 


AWAS = 


0001 10 


DT.BLS= 


000034 


BITO = 


000001 


DT.CFO= 


000014 


BITOO = 


000001 


DT.CF1= 


000016 


BIT01 = 


000002 


DT.ERR= 


000020 


BIT02 = 


000004 


DT.ESI= 


000044 


BIT03 = 


000010 


DT.EVN= 


000000 


BIT04 = 


000020 


DT.EXS= 


000060 


BIT05 = 


000040 


DT,FCH= 


000037 


BIT06 = 


000100 


DT. FCN= 


000036 


BIT07 = 


000200 


DT.HMX= 


000104 


BIT08 = 


000400 


DT.KBE= 


000024 


BIT09 = 


001000 


DT..K'B'P = 


000026 


BIT1 = 


000002 


DT.KBR= 


000022 


BIT10 = 


002000 


DT.KBU= 


00003C 








r\ rt r\ A o n 


BITi i = 


00400u 


U 1 .IVit-O- 


UU WU*£ 


BIT12 = 


010000 


DT.MTI= 


0001 10 


BIT13 = 


020000 


DT.OFF= 


000070 


BIT14 = 


040000 


DT.'PAS = 


000074 


BIT15 = 


100000 


DT.PC = 


000002 


BIT2 = 


000004 


DT.PFL= 


000062 


BIT3 = 


000010 


DT.PSW= 


000004 


BIT4 = 


000020 


DT.PTA= 


000064 


BIT5 = 


000040 


DT.RCS= 


000102 


BIT6 = 


000100 


DT.REL= 


000040 


BIT7 = 


000200 


DT.SCT= 


000066 


BIT8 = 


000400 


DT-SMX= 


000106 


BIT9 = 


001000 


DT.SP = 


000006 


BKDEF = 


000002 


DT.SSI= 


000046 


BKMOD = 


000020 


DT.ST0= 


000010 


BKMODE= 


040000 


DT.ST1= 


000012 


BKSLSH= 


000134 


DT.SWR= 


000056 


CAPRES= 


000004 


DT.SYP= 


000072 


CASTAT= 


000004 


DT.WBU= 


000050 


CDERCT= 


000146 


DT.WHL= 


000054 


CDWDCT= 


000144 


DT.WLL= 


000052 


CKTIM = 


100000 


DVID1 = 


000014 


CLKPRE= 


000001 


ECCMEM= 


000100 


CONFIG= 


000056 


ECCSTA= 


000010 


CQOVF = 


000001 


ENBEOP= 


010000 


CR 


000015 


ENBNUL= 


000001 


CSRA = 


000100 


ENDLST= 


000000 
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SYMBOL TABLE 



SEQ 0537 



EOPBIT= 

ERRTYP= 

EVNTBE* 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVMTRE= 

FATERR= 

GETPSW 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM- = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT ft 

INTR = 

IOMOD = 

IOMODP= 

IO!V10DR = 

IOMODX= 

w m \*t\ — 

KIPAR0= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDR0= 

KIPDR1= 

KIPDR2= 

KIPDS3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERR0= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPSTAT= 

MAPSTA= 

MED 

MENIPAS= 

M0'DEXH= 



000001 
000106 
000200 
000200 
000203 
000202 
000201 
100000 
000000RG 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000030 
000120 
100000 
102000 
112000 
1 10000 
= r ' 3 5 6 n 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 
000001 
000200 
076600 
040000 
004000 



MODHOL= 

MODSEL= 

MSGCKD= 

MSGCKS= 

MSGDER= 

MSGDRP= 

MSGECH= 

MSGEOP= 

MSGHDR= 

MSGHNG= 

MSGHRD= 

MSGMAP- 

MSGNUL= 

MSGP0P= 

MSGPRM= 

MSGRES= 

MSGSFT= 

MSGSKE= 

MSGSMB= 

MSGSMH= 

MSGSMS= 

MSGSTD= 

MSGSYS= 

MSGVEC= 

NBKMOD= 

NCPUOP= 

NOAPTY= 

NULL = 

OWEN = 

PAERR = 

PARPRE= 

PARSTA'= 

PASCNT= 

PDPLSI= 

PDP60 = 

PDP70 = 

PRIO = 

PRI1 = 

PRI4 = 

PRI5 = 

PRI6 = 

PRI7 = 

PRO 

PR4 

PR5 

PR6 

PR7 

PS 

PSW 

RANNUM= 

RBUFEA= 

R5UFPA= 

RBUFS2= 



002000 
001000 
000010 
00001 1 
000005 
000017 
1 77777 
.000013 
000004 
000022 
000007 
000021 
177775 
000C02 
177776 
000001 
000006 
000003 
000015 
000014 
000016 
000000 
000012 
000020 
001000 
000020 
000002 
000000 
024020 
000010 
002000 
000100 
000034 
020000 
004000 
010000 
000000 
000040 
000200 
000240 
000300 
000340 
000000 
000200 
000240 
000300 
000340 
177776 
177776 
000054 
000130 
000126 
000132 



RBUFVA= 

RDSERV= 

ROWBMI= 

RELERR= 

RELMOD= 

RELTIM= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

R'JBOUT = 

RUNMOD= 

R5VALU= 

SAM 

S8ADR = 

SSKMOD= 

S3KSEL= 

SC.ADR= 

SC.ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SEMDLS= 

SOFCNT= 

SQFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRC 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO . = 

SVR1 = 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 

SVR6 = 

SYSCNT= 

SYSERR= 

TMPIO = 

TQOVF = 

UIPAR0= 

UIPAR1= 



000124 
000101 
000022 
000020 
020000 
010000 
000056 
000060 
031060 
002000 
000112 
000177 
100000 
001740 
075464 
000102 
000000 
010000 
000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 
000027 
000001 
000062 
000064 
000066 
000070 
000072 
000074 
000076 
000052 
000100 
000002 
000002 
177640 
177642 



GETPSW (GET CALLER'S PS WORD) 
GETPSW. MAC 28-JUL-78 09:15 



MACY11 30A(1052) 20-SEP-78 17:55 
SYMBOL TABLE 



PAGE 20-1 



UIPAR2= 


177644 




WBUFPA= 


000134 


UIPAR3= 


177646 




WBUFRQ= 


000140 


UIPAR4= 


177650 




WBUFS2= 


000142 


UIPAR5= 


177652 




WDFR = 


000116 


UIPARS= 


177654 




WDTO = 


000114 


UIPAR7= 


177656 




WTINRE= 


000352 


UIPDR0= 


177600 




W.TWHMI = 


000222 


UIPDR1= 


177602 




XFLAG = 


000005 


UIPDR2= 


177604 




XOFF = 


000023 


UIPDR3= 


177606 




XON 


000021 


UIPDR4= 


177610 




$BGNLE= 


177777 


UIPDR5= 


177612 




$ERFLG= 


000400 


UIPDR6= 


177614 




$F$AND= 


000310 


UIP0R7= 


177616 




$F$BAD= 


000401 


WASADR= 


000104 




$F$BLA= 


000170 


WBSTAT= 


000040 




$FSCAS= 


000150 


WBUFEA= 


000136 




$F$DEC= 


000220 


. ABS. 


000000 
000032 


000 
001 







$F$DO = 

$F$FAL= 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO= 



000340 
000405 
000400 
0001 10 
000210 
000200 



$FSNO = 000403 
$F$OR = 000320 
$F$RTI= 000350 
$F$RTN= 000300 
$F$SEL= 000140 
$F$THE= 000330 
$F$TRU= 000404 
$F$UNT= 000130 
$F$WHI= 000120 
$F$YES= 000402 



$IFLEV= 
$LOCTA = 
$LSTIN = 
$LSTTA= 
$NESTL= 
$NSK0 = 
S S A V L E = 
STAGLE= 
$TAGNU= 
$TEMP = 
$$ARGC= 
$$BYTE= 
SSCASE- 
SSDST = 
S$ELOC= 
S$ERFL= 
$$FLAG= 



1 I i t ■: i i 
177777 
000001 
000001 
177777 
000300 
i 77777 

177777 
050002 
000402 
000002 
000000 
000000 
000000 

oooooo 

000000 

oooooo 







SEQ 053S 


4>v> r RuiVi — 


a a r\ r\ r\ a 




V W W v/ w 




SSLOC = 


oooooo 




$$LGCN= 


oooooo 




$$REG = 


177777 




SSRETLN 


oooooo 




$SRTN1= 


050000 




$$RTN2= 


050001 




SSSRC = 


OOOOOO 




$$TGSV= 


OOOOOO 




S$TGS1= 


OOOOOO 




$$TGS2= 


OOOOOO 




$3T0 = 


OOOOOO 




$$STAG= 


050000 




= 


000032R 





ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSK2 : GETPSW , DSKZ : GETPSW=SPMAC/ML , EQUATE , GET PSW 



rtuin - i ii»ic • iv 



o eernMPic; 



RUN-TIME RATIO: 26/12=2.1 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:56 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0539 

3 COMMON EQUATE MODULE 

552 COMMON DEFINITIONS AND REFERENCES 

555 000000' .PRINT ;SPMAC: VERSION 1.1 

566 HRDADRCHK ROUTINE 



HRDADR 
HRDADR. 

508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
536 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 



HRDADRCHK - HARDWARE ADDRESS CHECK MACY1 1 30A(1052) 20-SEP-78 17:56 PAGE 19 

,MAC 28-JUL-78 09:15 COMMON EQUATE MODULE 

.TITLE HRDADR HRDADRCHK - HARDWARE ADDRESS CHECK 

.IDENT /VO.O/ 



MODULE NAME: 
HRDADR 



SEQ 0540 



FUNCTIONAL DESCRIPTION: . 

MODULE WILL DETERMINE IF AN ADDRESS IS AVAILABLE BY TRYING TO READ THE 

LOCATION. 

LOCATION 4 WILL BE MODIFIED TO FIELD A NON-EXISTENT MEMORY 

TRAP. AN ERROR INDICATION WILL BE RETURNED IF THE ADDRESS 

DOES NOT RESPOND. 

INPUTS: 

ADDRESS TO BE CHECKED 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

ERROR INDICATOR 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
NONE 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL HRDADR IN <A> 

A= ADDRESS TO BE CHECKED 



EDIT 



DATE 



BY 



REASON 



HRDADR 
HRDADR 

552 
553 
554 
555 
(D 
556 
557 
558 
559 
560 
561 
562 
563 
564 



HRDADRCHK - HARDWARE ADDRESS CHECK 
,MAC 28-UUL-78 09:15 
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000000' 
000000 



000001 
000001 



COMMON DEFINITIONS AND REFERENCES 

.5BTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

SLSTIN =1 

SLSTTAG =1 

REFERENCED BY OTHER MODULES 



SEQ 0541 



.GLOBL HRDADR 



j.MODULE ENTRY POINT 



HRDADR 
HRDADR 

566 
567 
568 
569 
(2) 
570 
571 
572 
573 
574 
575 
576 
577 
(2) 
578 
(4) 
579 
580 
531 
582 
583 
584 
(2) 
585 
586 
587 

cnn 

589 
590 
591 
(4) 
592 
593 
594 
595 
596 
597 
(6) 
598 
599 
600 
601 
602 
603 
(2) 
(3) 
604 
605 
(4) 
606 
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,MAC 28-JUL-78 09:15 HRDADRCHK ROUTINE 

.SBTTL HRDADRCHK ROUTINE 



SEQ 0542 



000000 1 
000000' 



000000' 

000000' 010046 

000002' 

000002' 016500 000000 



000006' 

000006' 013746 000004 



ROUTINE HRDADRCHK <ADRCHK> 



SAVE REGISTERS AND RETRIEVE ADDRESS 
FROM R5 STACK 



PUSH RO 

LET RO := ADRCHK(R5) 

; + 

; SAVE CURRENT CONTENTS OF LOC. 4 ON STACK 

PUSH @#4 



LOAD LOC. 4 WITH THE TEMPORARY NON-EXISTENT 
MEMORY TRAP ROUTINE AT LABEL 1S 



HRDADRCHK: 



MOV 
MOV 



R0,-(SP) 
ADRCHK(R5) , RO 



MOV 



@#4,-(SP) 



000012' LET @#4 := #1$ 

000012 1 012737 000034' 000004 



MOV 



#1$,@#4 



000020' 

000020' 062710 000000 



000024' 

000024' 012637 000004 

000030' 012600 

000032' 
000032' 000410 



CHECK TO SEE IF ADDRESS IS A VALID ADDRESS 



LET (RO) := (RO) + #0 



RESTORE LOC. 4 AND RO, AND RETURN NO ERROR INDICATOR 



POP @#4,R0 



RETURN NO. ERROR 



ADD 



#0, (RO) 



MOV 
MOV 



BR 



(SP)+ r @#4 
(SP)+,R0 



50000$ 



HRDADR HRDADRCHK - HARDWARE ADDRESS CHECK MACY11 30A(1052) 20-SEP-78 
HRDADR. MAC 28-JUL-78 09:15 HRDADRCHK ROUTINE 
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SEQ 0543 



608 






609 






S10 






611 






612 






613 






614 






615 


000034' 




(2) 


000034' 




616 


000034' 




(4) 


000034' 


012716 000042 


617 


000040' 




(2) 


000040' 


000002 


618 






519 






620 






621 






622 






623 


000042' 




(2) 


000042' 




624 






625 


000042' 




(2) 


000042' 


012637 000004 


(3) 


000046' 


012600 


626 






527 


000050' 




1 1 \ 


nnnriKQ ' 


000261 


(4) 


000052' 


000401 


S28 






629 






630 






531 






632 






633 


000054' 




(3) 


000054' 




(2) 


000054' 


000241 


(3) 


000056' 




(2) 


000056' 


000207 


634 






635 




000001 



NON-EXISTENT MEMORY TRAP TOOK PLACE, 
THEREFORE ADDRESS TESTED WAS ILLEGAL, 
REPLACE RETURN ADDRESS ON STACK WITH 2$ 
AND DO A RTI WHICH WILL SEND YOU TO 2$. 



INLINE <!$:> 
LET (SP) := #2$ 
INLINE <RTI> 

RETURN HERE IF TRAP OCCURRED, CLEAN-UP STACK AND RETURN ERROR 
INLINE <2$:> 
POP @#4,R0 

RETURN ERROR 

+ 

RETURN TO CALLER 



1$: 
MOV 
RTI 



#2$,(SP) 



2$: 



MOV 
MOV 



SEC 
BR 



(SP)+,@#4 
(SP)+,RO 



50001$ 



ENDRTN 



END 



50000$: 
50001$: 



CLC 



RTS 



PC 



HRDADR HRDADRCHK - HARDWARE ADDRESS CHECK MACY1 1 30A(1052) 20-SEP-78 
HRDADR. MAC 28-JUL-78 09: 15 SYMBOL TABLE 



17:56 PAGE 20 



SEQ 0544 



ACSR = 
ACT3IT= 
ADDR22: 
ADR 

ADRCHK= 
APTFER= 
APTPRE= 
ASB 

ASS£M3= 
ASTAT = 
AUTO = 
AUTOST= 
AW AS = 
BXTO = 
BITOO = 
BIT01 = 
BIT02 = 
BIT03 = 
BIT04 = 
BIT05 = 
BIT06 = 
BIT07 = 
BIT08 = 
BIT09 = 
BIT1 = 
BITiO = 



000102 
004000 
001000 
000006 
000000 
000004 
000200 
000106 
000010 
000104 
000010 
020000 
0001 10 
000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
002000 



oT-r-ii _ n a /i n n n 



BIT12 = 
BIT13 = 
BIT14 = 
BIT15 = 
BIT2 = 
BIT3 = 
BIT4 = 
BIT5 = 
BIT6 ■- 
BIT7 = 
BIT8 = 
BIT9 = 
BKDEF = 
BKMOD = 
BKMODE= 
BKSLSH= 
CAPRES= 
CASTAT= 
CDERCT= 
CDWDCT= 
CKTIM = 
CLKPRE= 
CONFIG= 
CQOVF = 
CR 
CSRA = 



010000 
020000 
040000 
100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
000020 
040000 
000134 
000004 
000004 
000146 
000144 
100C00 
000001 
000056 
000001 
000015 
000100 



CSRC = 
CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGIViC = 
DROPMO= 
DSEVNT= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CFO= 
DT.CF1,= 
DT.ERR= 
DT.ESI= 
DT:EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HW!X = 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT .MLS = 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 
ENDLST= 



000102 
000003 
000017 
000025 
000011 
000400 
000000 
100000 
000014 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
OC0032 
000110 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 
000000 



ECP3IT= 


000001 


MODHOL= 


002000 


ERRTYP= 


000106 


MODSEL= 


001000 


EVNTBE= 


000200 


MSGCKD= 


000010 


EVNTHD= 


000200 


MSGCKS= 


000011 


EVNTKT= 


000203 


MSGDE.R = 


000005 


EVNTPE= 


000202 


MSGDR-P= 


00001.7 


EVNTRE= 


000201 


n/i S o E i^ H = 


■1 T7 TT7 
11:111 


FAT ERR = 


100000 


MSGEOP= 


000013 


HRDADR 


OOOOOORG 


MSGHDR= 


000004 


HRDCNT= 


000044 


MSGHMG= 


000022 


HRDPAS= 


000050 


T/iSGHRD= 


000007 


ICONT = 


000036 


MSGMAP= 


000021 


ICOUNT= 


000040 


MSGN'UL = 


177775 


IDNUWI = 


000122 


MSGPOP= 


000002 


IE 


000100 


MSGPRM= 


177776 


INDPAR= 


000040 


MSGRES= 


000001 


INHDRP= 


040000 


MSGSFT= 


000006 


INHEPR= 


020000 


MSGSKE= 


000003 


INHREL= 


001000 


MSGSM8= 


000015 


INHRRE= 


000400 


MSGSMH= 


000014 


INIT = 


000030 


MSGSMS= 


000016 


INTR = 


000120 


MSGSTD^ 


000000 


IOWIOD = 


100000 


MSGSYS= 


000012 


IOMODP= 


102000 


MSGVEC= 


000020 


IQMQDR= 


112000 


NBKM0D= 


001000 


IOMODX== 


1 10000 


NCPUOP= 


000020 


i.lACK = 


035060 


NOAPTY= 


000002 


KIPARO= 


1 72340 


NULL = 


000000 


KIPAR1= 


172342 


OWEN = 


024020 


KIPAR2= 


172344 


PAERR = 


000010 


KIPAR3= 


172345 


PARPRE= 


002000 


KIPAR4= 


172350 


PARSTA= 


000100 


KIPAR5= 


1 72352 


PASCNT= 


000034 


KIPAR6= 


172354 


PDPLSI= 


020000 


KIPAR7= 


172356 


PDP60 = 


004000 


KIPDRO= 


172300 


PDP70 = 


010000 


KIPDR1= 


172302 


PRIO = 


000000 


KIPDR2= 


172304 


PRI1 = 


000040 


KIPDR3= 


172306 


PRI4 = 


000200 


KIPDR4= 


172310 


PRI5 = 


000240 


KIPDR5= 


172312 


PRI6 = 


000300 


KIPDR6= 


172314 


PRI7 = 


000340 


KIPDR7= 


172316 


PRO 


000000 


KTERRO= 


000040 


PR4 


000200 


KTPRES= 


000400 


PR5 


000240 


KTSTAT= 


000020 


PR6 


000300 


KTXTND= 


040000 


PR7 


000340 


LF 


000012 


PS 


177776 


LPSTAT= 


000001 


PSW 


177776 


MAPSTA= 


000200 


RANNUM= 


000054 


MED 


076600 


RBUFEA= 


000130 


MEW!PAS= 


040000 


RBUFPA= 


000126 


MODEXH= 


004000 


RBUFSZ= 


000132 



KbU!-VA = 

RDSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RES 1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBOUT= 

RUNMOD= 

R5VALU= 

SAM 

SBADR = 

S3KIV10D= 

S3KSEL= 

SC.ADR= 

SC.ALC= 

SC..APC = 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SQFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 = 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 = 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 

SVR6 = 

SYSCNT= 

SYSERR= 

TMPIO = 

TQOVF = 

UIPARO= 

UIPAR1= 



000124 
000101 
000022 
000020 
020000 
010000 
000056 
000060 
031060 
002000 
000112 
000177 
100000 
001740 
075464 
000102 
000000 
010000 
000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 
000027 
000C01 
000062 
000064 
000066 
000070 
000072 
000074 
000076 
000052 
000100 
000002 
000002 
177640 
177642 



HRDADR HRDADRCHK - HARDWARE ADDRESS CHECK MACY1 1 30A(1052) 20-SEP-78 
HRDADR.MAC 28-JUL-78 09:15 SYfVlBOL TABLE 



17:56 PAGE 20-1 



SEQ 0545 



UIPAR2 = 


177644 




WBUFPA= 


000134 


UIPAR3= 


177646 




WBUFRQ= 


000140 


UIPAR4= 


177650 




WBUFS2= 


000142 


UiPAR5= 


177652 




WDFR = 


000116 


UIPAR6= 


177654 




WDTO = 


000114 


UIPAR7= 


177656 




WTINRE= 


000352 


UIPDR0= 


177600 




WTWHMI= 


000222 


UIPDR1= 


177602 




XFLAG - 


000005 


UIPDR2= 


177604 




XOFF = 


000023 


UIPDR3= 


177606 




XON 


000021 


UIPDR4= 


177610 




$BGNLE= 


177777 


UIPDR5= 


177612 




$ERFLG= 


OOOCOO 


UIPDR6= 


177614 




$F$AND= 


000310 


UIPDR7= 


177616 




$F$3AD= 


000401 


WASADR= 


000104 




$F$BLA= 


000170 


VJBSTAT = 


000040 




$F$CAS= 


000150 


WBUFEA= 


000136 




$FSDEC= 


000220 


. ABS. 


000000 
000060 


000 
001 







$F$DO = 
$F$FAL= 
$FSGOO= 
$F$IF = 
$FSINC= 
$F$LOO= 
■3>F$NATf1 = 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
SF$SEL= 
SF$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 



000340 
000405 
C004Q0 
000110 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 



3> J. I" LtV = 

$LOCTA= 

$LSTIN= 
SLSTTA= 
$NESTL= 
SNSKO = 
$SAVLE= 
$TAGLE= 
$TAGNU= 
$TEMP = 
$$ARGC= 
$$BYTE= 
SSCASE= 
SSDST = 
$$ELOC= 
$5ERFL= 
SSFLAG= 



1 77777 
177777 
000001 
000001 
177777 
000300 
177777 
177777 
050002 
000300 
000002 
000000 
000000 
000000 
000403 
000000 

ocoooo 



$$FROM= 

SSLGC = 
$SLCCN= 
SSREG = 
$$RETU= 
SSRTN1= 
$SRTN2= 
SSSRC = 
$STGSV= 
$$TGS1= 
$STGS2= 
$$T0 = 
$$$TAG= 



000000 
000000 
000000 
177777 
000001 
050000 
050001 
000000 

oooooo 

000000 

oooooo 
oooooo 

050000 
000060R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSK2 : HRDADR , DSK2 : HRDADR=SPMAC/ML , EQUATE , HRDADR 



KUIM - I llViCl . 



c c^nime 



RUN-TIME RATIO: 27/13=2.1 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:56 

EQUATE. MAC 13-SEP-78 16:13 TABLE GF CONTENTS SEQ 0546 

3 COMMON EQUATE MODULE 

552 COMMON DEFINITIONS AND REFERENCES 

555 000000' .PRINT ;SPMAC: VERSION 1.1 

573 HTRAP ROUTINE 



HTRAP - FIELD ERROR TRAPS 
HTRAP. MAC 28-JUL-78 09:15 

508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 



MACY11 30A(1052) 20-SEP-78 17:56 PAGE 19 
COMMON EQUATE MODULE 

.TITLE HTRAP - FIELD ERROR TRAPS 
.IDENT /VO.O/ 



■H- 
MODULE NAME: 

UTDJS.D 

FUNCTIONAL DESCRIPTION: 



SEQ 0547 



THIS MODULE IS ENTERED AS A RESULT OF A HARDWARE TRAP. 
THE CODE SIMPLY PUSHES AN EVENT CODE ON THE STACK AND EXITS. 
THERE ARE SEVERAL ENTRY POINTS. THE ENTRY POINT IS DETERMINED 
BY THE HARDWARE TRAP VECTOR. 



INPUTS: 



NONE. 



IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE. 

PATHOLOGICAL CONNECTIONS: 
NONE. 

SUBORDINATE MODULES CALLED: 
NONE. 

FUNCTIONAL SIDE EFFECTS: 
NONE. 

CALLING SEQUENCE: 

CALLED BY HARDWARE ONLY, 



VERSION: 



0.0 



EDIT 



BY 



DATE 



REASON 



000000' 
000000' 



000001 



HTRAP - FIELD ERROR TRAPS 
HTRAP.MAC 28-JUL-78 09:15 



552 
553 
554 
555 
(D 
556 
55? 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 



MACY11 30A(1052) 20-SEP-78 17:5S PAGE 19-1 
COMMON DEFINITIONS AND REFERENCES 

•SBTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 
STRUCT 
.PRINT ;SPMAC: VERSION 1.1 
$LSTIN = 1 

(E I CTT « n — 1 
•4? l-o [ inu — i 






REFERENCED 3Y OTHER MODULES 



SEQ 0548 



000000' 000000 



GLOBL HT.EXT 

GLOBL HTBUSS 

GL03L HTREIN 

GLOBL HTPAER 

GLOBL HTKT 

LOCAL STORAGE*. 
HT.EXT: .WORD 



ADDRESS TO EXIT THIS MODULE THROUGH 

ENTRY POINT FOR BUSS ERROR TRAP 

ENTRY POINT FOR RESERVED INSTRUCTION TRAP 

ENTRY POINT FOR PARITY ERROR TRAP 

ENTRY POINT FOR KT TRAP 



; ADDRESS TO EXIT THIS MODULE THRU 



HTRAP - FIELD ERROR TRAPS 
HTRAP. MAC 28-JUL-73 09:15 



578 








579 








580 








581 








582 








583 








584 


000002 s 






(2) 


000002' 






585 


000002' 






(2) 


000002' 


012746 


000200 


586 


000006' 


000177 


177766 


587 








588 








589 








590 








591 


000012' 






(2) 


000012' 






592 


000012' 






(2) 


000012' 


012746 


000201 


593 


000016' 


000177 


177756 


594 








595 








59S 








597 








598 








599 


000022' 






(2) 


000022' 






600 


000022' 






(2) 


000022' 


012746 


000202 


601 


000026' 


000177 


177746 


602 








603 








604 








605 








605 








607 








608 


000032' 






(2) 


000032' 






609 


000032' 






(2) 


000032' 


012746 


000203 


610 


000036' 


000177 


177736 


611 








612 




000001 





MACY11 30A(1052) 20-SEP-78 17:55 PAGE 19-2 
HTRAP ROUTINE 

.SBTTL HTRAP ROUTINE 



; + 

;ENT£R HERE ON BUSS ERROR TRAP 



t»m Tiki ir yuTDiirr 1 ^ 
inliwc vniouw 



SEQ 0549 



PUSH 
JMP 



#EVNTBE 
@HT.EXT 



HTSUSS: 

MOV #EVNT3E f -(SP) 



;EXIT 



ENTER HERE ON RESERVED INSTR. TRAP 
INLINE <HTREIN:> 

PUSH #EVNTRE 

JMP @HT.EXT ;EXIT 

+ 

ENTER HERE ON PARITY ERROR TRAP 

INLINE <HTPAER:> 

PUSH #EVNTPE 

JMP fHT.EXT ;EXIT 

+ 

ENTER HERE ON MEMORY MANAGEMENT ERROR 

INLINE <HTKT:> 

PUSH #EVNTKT 

JMP @HT.EXT ;EXIT 

.END 



HTREIN: 

MOV #EVNTRE,-(SP) 



HTPAER: 

MOV #EVNTPE,-(SP) 



HTKT: 

MOV #EVNTKT,-(SP) 



HTRAP - FIELD ERROR TRAPS 
HTRAP.MAC 28-JUL-78 09: 15 



MACY11 30A(1052) 20 

SYMBOL TABLE 



ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 




n An i nfi 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUT0ST= 


020000 


AWAS = 


000110 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 =■ 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


3IT15 = 


100000 


BIT2 = 


000004 


3IT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE* 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG* 


000056 


CQCVF - 


000001 


CR 


000015 


CSP.A = 


000100 


CSRC = 


000102 



i- I KL1- = 

CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMOr- 
DSEVNT= 
DT.ADD= 
DT.AP = 
DTVAPK= 
DT.BLS= 
DT.CFO= 
DT.CF1= 
DT'.ERR = 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR* 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF = 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT,WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
EN3NUL= 
ENDLST= 
EOPBIT= 



000003 
000017 
000025 
000011 
000400 
000000 
100000 
000014 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
000110 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
00 0010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 
000000 
000001 



l-SEP-78 


1'/:t>b pauc. Zi. 


i 




ERRTYP= 


0001 06 


MED = 


076600 


EVNTBE= 


000200 


MEMPAS= 


040000 


EVNTHD= 


000200 


MODEXH= 


004000 


EVNTKT= 


000203 


MODHOL= 


002000 


EVNTPE= 


000202 


MODSEL= 


001000 


EVN'TRE = 


000201 


MSGCKD= 


000010 


FATERR= 


100000 


MSGCKS= 


00001 1 


HRDCNT= 


000044 


MSGDEft= 


000005 


HRDPAS= 


000050 


MSGDRP= 


000017 


HTBUSS 


000002RG 


MSGECH= 


177777 


HTKT 


000032RG 


MSGEOP= 


000013 


HTPAER 


000022RG 


MSGHDR= 


000004 


HTREIN 


000012RG 


MSGHNG= 


000022 


HT.EXT 


OOOOOORG 


MSGHRD- 


000007 


ICONT = 


000036 


MSGMAP= 


000021 


ICOUNT= 


000040 


MS6NUL= 


177775 


IDNUM = 


000122 


MSGPQP= 


000002 


IE 


000100 


MSGPRM= 


177776 


INDPAR= 


000040 


MSGRES= 


000001 


INHDRP= 


040000 


MSGSFT= 


000006 


INHEPR= 


020000 


MSGSKE= 


000003 


INHREL= 


001000 


MSGSM3- 


000015. 


INHRRE= 


000400 


MSGSMH= 


000014 


I NIT = 


000030 


MSGSMS= 


000016 


INTR = 


000120 


MSGSTD= 


000000 


IOMOD = 


100000 


MSGSYS= 


000012 


IOMODP= 


102000 


MSGVEC= 


000020 


IGiViGDR = 


1 12000 


NBKIVIuD- 


001 coo 


IOiV!ODX= 


110000 


NCPUGP= 


000020 


JACK = 


035060 


NOAPTY= 


000002 


KIPARO= 


172340 


NULL = 


000000 


KIPAR1= 


172342 


OWEN = 


024020 


KIPAR2= 


172344 


PAERR = 


000010 


KIPAR3= 


172346 


PARPRE= 


002000 


KIPAR4= 


172350 


PARSTA= 


000100 


KIPAR5= 


1.72352 


PASCNT= 


000034 


KIPAR6= 


172354 


PDPLSI= 


020000 


KIPAR7= 


172356 


PDP60 = 


004000 


KIPDRO= 


172300 


PDP70 = 


010000 


KIPDR1= 


172302 


PRIO = 


oooooo 


KIPDR2= 


172304 


PRI1 = 


000040 


KIPDR3= 


172306 


PRI4 = 


000200 


KIPDR4= 


172310 


PRI5 = 


000240 


KIPDR5= 


172312 


PRI6 = 


000300 


KIPDR6= 


172314 


PRI7 = 


000340 


KIPDR7= 


172316 


PRO 


OOOOOO 


KTERRO= 


000040 


PR4 


000200 


KTPRES= 


000400 


PR5 


000240 


KTSTAT= 


000020 


PR6 


000300 


KTXTND= 


0400C0 


PR7 


000340 


LF 


000012 


PS 


177776 


LPSTAT= 


000001 


PSW 


177776 


MAPSTA= 


000200 


RANNUM= 


000054 



SEQ 0550 



RBUFEA= 

RSUFPA= 

R3UFSZ= 

R3UFVA= 

RDSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RJBQUT= 

RUNMOD- 

R5VALJ= 

SAM 

SBADR = 

S3KM0D= 

S3KSEL= 

SC.ADR= 

SC.ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

C C . HL n = 

SC.SCA= 

S£NDLS= 

SGFCNT= 

SQFPAS= 

SPACE = 

S?QINT= 

SPVALU= 

SRO = 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 = 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 

SVR6 = 

SYSCNT= 

SYSERR^ 

TMPIO = 



000130 
000126 
000132 
000124 
000101 
000022 
000020 
020000 
010000 
000056 
000060 
031060 
002000 
000112 
000177 
100000 
001740 
075464 
000102 
OOOOOO 
010000 
000005 
000014 
000016 
000002 
000004 
OOOOOO 
00001 
000012 
177777 
000042 
000045 
000040 
000032 
002200 
177572 
177574 
177575 
172516 
000026 
064757 
000027 
000001 
000062 
000064 
000C56 
000070 
000072 
000074 
000076 
000052 
000100 
000002 



HTRAP - FIELD ERROR TRAPS 
HTRAP.MAC 28-JUL-78 09: 15 



MACY11 30A(1052) 20-SEP-78 17:56 
SYMBOL TABLE 



PAGE 20-1 



SEO 0551 



TQOVF = 


000002 




WA5ADR= 


000104 


UIPAR0= 


177640 




WBSTAT= 


000040 


UIPAR1= 


177642 




WBUFEA= 


000136 


UIPAR2= 


177644 




W3UFPA= 


000134 


UIPAR3* 


177645 




WBUFRQ= 


000140 


UIPAR4= 


177650 




WBUFS2= 


000142 


UIPAR5= 


177652 




WDFR = 


000 116 


UIPAR6*: 


177654 




WDTQ = 


000114 


UIPAR7= 


177656 




WTINRE= 


000352 


UIPDRO= 


177600 




WTWHMI= 


000222 


UIPDR1 = 


177602 




XFLAG = 


000005 


UIPDR2= 


177604 




XOFF = 


000023 


UIPDR3= 


177606 




XON 


000021 


UIPDR4= 


177610 




$BGNLE= 


177777 


UIPDR5= 


177612 




$ERFLG= 


000000 


UIPDR6= 


177614 




$F$AND= 


000310 


UIPDR7= 


177616 




$F$BAD= 


000401 


. ABS. 


000000 
000042 


000 
001 







$F$>dLM = 

$FSCAS= 
SF5DEC= 
SFSDQ = 
$F$FAL= 
$F$GOO= 
SFSIF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$FSOR = 
$F$RTI= 
$F$RTN= 
$FSSEL= 
$FSTHE= 
$F$TRU= 



i)UUI / u 

000150 
000220 
000340 
000405 
000400 
000110 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 



$F$UNT- 
$FSWHI= 
$FSYES= 
SIFLEV= 
SLOCTA= 
$LSTIN= 
SLSTTA= 
$NESTL= 
$SAVLE= 
$TAGLE= 
$TAGNU= 
$$ARGC= 
$SBYTE= 
$$CASE= 
SSDST = 
$SELOC= 
$$ERFL= 



000130 
000120 
000402 
177777 
177777 
000001 
000001 
177777 
177777 
177777 
050000 
000000 
000000 
000000 
000000 
000000 
000000 



$$FLAG= 
$$FROM= 
$SLQC = 
$$LQCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$STGS1= 
$$TGS2= 
SSTQ = 
$S$TAG= 



000000 
000000 
000000 
000000 
177777 
000000 
000000 
000000 

oooooo 

000000 

oooooo 
oooooo 
oooooo 

050000 
000042R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ: HTRAP, DSKZ:HTRAP=SPMAC/ML, EQUATE, HTRAP 
RUN-TIME: 10 .7 .3 SECONDS 
RUN-TIME RATIO: 26/11=2.2 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:57 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONSENTS SEQ 0552 

3 COMMON EQUATE MODULE 
562 COMMON DEFINITIONS AND REFERENCES 

565 000000' .PRINT ;SPMAC: VERSION 1.1 

589 INDIRECT ECC CSR ON/OFF ROUTINE 



ICSROO INDIRECT ECC CSRS ON/OFF 
ICSROO.HAC 06-SEP-78 15:46 

508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
535 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 



COMMON EQUATE MODULE 



MACY11 iUAUU5i!J 



i!u-atK-/o 



r«ut i 3 



SEQ 0553 



.TITLE ICSROO INDIRECT ECC CSRS ON/OFF 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
ICSROO 

FUNCTIONAL DESCRIPTION: 

ROUTINE WILL TURN ON/OFF ECC MEMORY IF CSRS ARE LOCATED ON THE MAIN 

MEMORY BUSS. 

THIS IS ACCOMPLISHED AS FOLLOWS: 

- NO NPR ACTIVITY 

- TURN OFF CACHE 

- MAP KIPAR6 TO 177400 

- ENABLE KT AND 22 BIT ADDRESSING 

- SET UP MAP REG 36 TO 17760000 

- TURN MAP BOX ON 

- ACCESS CSR REGISTERS LISTED IN PARITY TABLE AND 
TAKE APPROPRIATE ACTION. (ON/OFF) 

INPUTS: 

DTABLE ADDRESS 
ON/OFF FLAG 

IMPLICIT INPUTS: 
DT.PTA 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
NONE 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL ICSROO IN <DTABLE , FLAG> 

DTABLE - ADDRESS OF DTABLE 
FLAG - ECC ON/OFF FLAG 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



ICSROO INDIRECT ECC CSRS ON/OFF 
ICSROO. MAC 06-5EP-7S 15:46 



CQ!V!MON EQUATE MODULE 
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SEQ 0554 



561 




562 




563 




564 




565 


000000 ' 


dT. 


000000' 


566 


000001 


567 


000001 


568 




569 




570 




571 




572 




573 




574 




575 




576 




577 




578 




579 




580 




581 




582 




583 




584 


152100 


585 


152136 


586 


170370 


587 


170372 



.SBTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

SLSTIN = 1 

SLSTTAG = 1 



j **************** 

; REFERENCED BY OTHER MODULES 

.'gLOBL ICSROO 

; GLOBAL REFERENCES 
Iglobl CCNTRL 

***************** 
; LOCAL EQUATES 

IN.PCSR = 152100 

In.PCLS = 1521 36 

IN.M36 = 170370 

IN.M37 = 170372 



;MODULE ENTRY POINT 



; CACHE CONTROL REGISTER 



START OF PARITY CSRS 3Y INDIRECT MODE 
LAST PARITY CSR BY INDIRECT MODE 
MAP REG 36 LOWER 16 BITS 
MAP REG 36 UPPER 6 BITS 



ICSROO INDIRECT ECC CSRS ON/OFF 
ICSROO. MAC 06-SEP-78 15:46 



MACY11 30A(1052) 20-SEP-78 17:57 PAGE 19-2 



589 
590 
591 
(2) 
592 
593 
594 
595 
596 
597 
598 
(2) 
(3) 
599 
(4) 
600 
(4) 
601 
602 
603 
604 
605 
606 
(2) 
607 
(2) 
608 
(2) 
609 
(2) 
610 
(2) 
611 
(2) 
612 
613 
614 
615 
616 
617 
618 
(6) 
619 
(4) 
620 
(6) 
621 
(6) 
622 
(4) 
623 
(4) 
624 
625 
626 
627 



000000' 
000000' 



000000' 

000000' 010046 

000002' 010146 

000004' 

000004' 016500 000000 

000010' 

000010' 016001 000064 



000014' 

000014' 01 

000020' 

000020' 

000024' 

000024' 

000030' 

000030' 

000034' 

000034' 01 

000040' 

000040' 01 



01 



01 



01 



7746 
3746 
3746 
3746 
3746 
3746 



OOOOOOG 

177572 

172516 

170370 

170372 

172354 



INDIRECT ECC CSR ON/OFF ROUTINE 
•SBTTL INDIRECT ECC CSR ON/OFF ROUTINE 
ROUTINE ICSROO <DTABLE , FLAG> 

SAVE REGISTERS AND GET ADDRESS OF PARITY TABLE 
PUSH R0.R1 

LET RO := DTABLE(R5) 
LET R1 := DT.PTA(RO) 

SAVE STATUS OF CACHE, KT AND UNIBUS MAP REGISTERS 

PUSH @>CCNTRL 
PUSH @#SR0 
PUSH (MSR3 
PUSH @#IN.M36 
PUSH @>#IN.M37 
PUSH @#KIPAR6 



SEQ 0555 



ICSROO: 



MOV 
MOV 


RO,-(SP) 
R1,-(SP) 


MOV 


DTABLE(R5),R0 


MOV 


DT.PTA(RO) ,R1 



MOV ©CCNTRL.-(SP) 

MOV @#SRO,-(SP) 

MOV @#SR3,-(SP) 

MOV @#IN.M36,"-(SP) 

MOV @#IN.M37,-(SP) 

MOV @#KIPAR6,-(SP) 



TURN CACHE OFF, TURN KT ON, SETUP KIPAR6 TO POINT TO 

MAP REG 36 AND SETUP MAP REGISTER 36 TO LOOK AT 1 28K I/O PAGE SHADOW AREA 



000044' 

000044' 052777 
000052' 

000052' 012737 
000060' 

000060' 052737 
000066' 

000066' 052737 
000074' 

000074' 012737 
000102' 
000102' 012737 



000014 
177400 
000001 
000060 
160000 
000077 



OOOOOOG 

172354 

177572 

172516 

170370 

170372 



LET ©CCNTRL := @CCNTRL SET. BY #14 

LET @#KIPAR6 := #177400 

LET @#SRO := @#SRO SET . BY #BIT00 

LET @#SR3 := @#SR3 SET. BY #60 

LET @#IN.M36 := #160000 

LET @#IN.M37 := #77 



BIS #14,@CCNTRL 

MOV #177400,@#KIPAR6 

BIS " #BIT00,@#SR0 

BIS #60,@#SR3 

MOV #160000, @#IN.M36 

MOV #77,@#IN.M37 



WHILE ENTRY IN PARITY TABLE TAKE THE APPROPRIATE ACTION OF TURNING ON/OFF ECC MEMORY. 



ICSROO INDIRECT ECC CSRS ON/OFF 
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628 








629 


000110' 






(4) 


0001 10' 






(6) 


0001 10' 


021127 


000000 


(9) 


0001 14' 


001411 




630 


000116' 






(6) 


0001 16 ' 


005765 


000002 


(9) 


000122' 


001003 




631 


000124' 






(6) 


000124' 


052731 


000003 


632 


000130' 






(4) 


000130' 


000402 




(3) 


000132' 






633 


000132' 






(6) 


000132' 


042731 


000003 


634 


000136' 






(4) 


000136' 






635 








S36 


000136' 






(4) 


000136' 


000764 




(3) 


000140' 






637 








638 








639 








640 








641 








642 


000140 ' 






(2) 


000140' 


012637 


172354 


643 


000144' 






(2) 


000144' 


012637 


170372 


644 


000150' 






(2) 


000150' 


012637 


170370 


645 


000154' 






(2) 


000154' 


012637 


172516 


646 


000160' 






(2) 


000160' 


012637 


177572 


647 


000164' 






(2) 


000164' 


012677 


OOOOOOG 


648 








649 








650 








551 








652 








653 


000170' 






(2) 


000170' 


012601 




(3) 


000172' 


012600 




654 








655 


000174' 






(3) 


000174' 






(3) 


000174' 






(2) 


000174' 


000207 




656 




000001 





INDIRECT ECC CSR ON/OFF ROUTINE 



WHILE (R1) NE #ENDLST DO 



iVIAUTll .3UH(, 1 U=><£ J 4LSJ ->t_r iu 



SEQ 0556 



IF FLAG(R5) EQ #0 THEN 



ELSE 



ENDIF 



LET @(R1)+ := @(R1)+ SET. BY #3 



LET @(R1)+ := @(R1)+ CLR.BY #3 



50002$: 


CMP 

BEQ 


(R1 ) ,#ENDLST 
50003$ 




TST 
6NE 


FLAG(R5) 
50004$ 




BIS 


#3,@(R1 )+ 


50004$: 


BR 


50005$ 




BIC 


#3,@(R1 )+• 



ENDDO 

NOW RESTORE STATUS TO CACHE, KT AND MAP REGISTERS 

POP @#KIPAR6 
POP @#IN.M37 
POP @#IN.M36 
POP @#SR3 
POP @#SRO 
POP @CCNTRL 

NOW RESTORE REGISTERS AND RETURN 
POP R1 ,R0 

ENDRTN 



-END 



50005$: 



500033: 



50000$: 
50001$: 



BR 



MOV 
MOV 
MOV 
MOV 

MOV 



MOV 
MOV 



RTS 



50002$ 



(SP)+,@*KIPAR6 

(SP)+,@#IN.M37 

(SP)+,@*IN.M36 

(SP)+,@#SR3 

(SP)+,@#SR0 

(SP)+,@CCNTRL 



(SP)+,R1 
.(SP).+ ,RO 



PC 
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ACSR = 
ACTBIT= 
ADDR22= 
ADR 

APTFER= 
APTPRE= 
A SB = 
ASSEMB= 
ASTAT = 
AUTO = 
AUTOST= 
AWAS = 
BITO = 
BITOO = 
BIT01 = 
BIT02 = 
BIT03 = 
BIT04 = 
BIT05 = 
BIT06 = 
BIT07 = 
BIT08 = 
BITQ9 = 
BIT1 = 
BIT10 = 
BIT11 - 
BIT12 = 
BIT13 = 
BIT14 = 
BIT 15 = 
BIT2 = 
BIT3 = 
BIT4 = 
BIT5 = 

BITS = 

BIT7 = 
BIT8 = 
BIT9 = 
BKDEF = 
BKMOD = 
BKMODE= 
BKSL5H= 
CAPRES: 
CASTAT= 
CCNTRL = 
CDERCT= 
CDWDCT= 
CKTIM = 
CLKPRE = 
CONFIG: 
CQOVF = 
CR 
CSRA = 



OOOI 02 
004000 
001000 
000006 
000004 
000200 
OOO" 1 06 
000010 
000104 
000010 
020000 
0001 10 
000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 
100000 
0C0004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
000020 
040000 
000134 
000004 
000004 

* >k * jj: * * 

000146 
000144 
100000 
000001 
000056 
000001 
000015 
000100 



>:46 


SYMBOL 


TABLE 












rum C T _ 


AAAAArt 


i r — 


AAAAi O 


CSRC = 


000102 


CINUUO 1 = 


uuuu \jv 


i_ i — 


V W \J 1 -c. 


CTRLC = 


000003 


EOPBIT= 


0000.01 


LPSTAT= 


000001 


CTRLO = 


000017 


ERRTYP= 


000106 


MAPSTA= 


000200 


CTRLU = 


000025 


EVNTBE= 


000200 


MED 


076600 


DCEVNT= 


000011 


EVNTHD= 


000200 


MEMPAS= 


040000 


DEFRTN= 


000400 


EVNTKT- 


000203 


MODEXH= 


004000 


DI AGMC= 


000000 


EVNTPE= 


000202 


MQDHOL= 


002000 


DROPMO= 


100000 


EVNTRE= 


000201 


M0DSEL= 


001000 


DSEVNT= 


000014 


FATERR= 


100000 


MS'GCKD= 


000010 


DTABLE= 


000000 


FLAG = 


000002 


MSGCKS= 


00001 1 


DT.ADD= 


000042 


HRDCNT= 


000044 


MSGDER= 


000005 


DT.AP = 


000100 


HRDPAS= 


000050 


MSGDRP= 


000017 


DT.APK= 


000076 


ICONT = 


000036 


MSGECH= 


177777 


DT.BLS= 


000034 


ICOUNT= 


000040 


MSGE0P= 


000013 


DT.CF0= 


000014 


ICSROO 


000000RG 


W1SGHDR= 


000004 


DT.CF1= 


000016 


IDNUM = 


000122 


MSGHNG= 


000022 


DT.ERR= 


000020 


IE 


000100 


MSGHRD= 


000007 


DT.ESI= 


000044 


INDPAR= 


000040 


MSGMAP= 


000021 


DT.EVN=' 


000000 


INHDRP= 


040000 


MSGNUL= 


177775 


DT.EXS=. 


000060 


INHEPR= 


020000 


MSGPOP= 


000002 


DT.FCH= 


000037 


INHREL= 


001000 


■■MSGPRM= 


177776 


DT.FCN= 


000036 


INHRRE= 


000400 


MSGRES= 


000001 


DT.HMX^ 


000104 


INIT = 


000030 


MSGSFT= 


000006 


DT.KBE= 


000024 


INTR = 


000120 


WISGSKE = 


000003 


DT.KBP= 


000026 


IN.M36= 


170370 


MSGS.ViB= 


000015 


DT.KBR= 


000022 


IN.M37= 


170372 


MSGSMH= 


000014 


DT.KBU= 


000030 


IN.PCL= 


152136 


MSGS!V'iS= 


000016 


DT.MLS= 


000032 


IN,PCS= 


152100 


MSGSTD= 


000000 


DT.MTI= 


000110 


IOMOD = 


100000 


MSGSYS= 


000012 


DT.OFF= 


000070 


IOMODP= 


102000 


MSGVEC= 


000020 


DT.PAS= 


000074 


IOMODR= 


112000 


NBKM0D= 


001000 


DT.PC = 


000002 


IOr/iODX= 


1 10000 


NCPUOP= 


000020 


DT.PFL= 


000062 


JACK - 


035060 


NOAPTY= 


000002 


DT.PSW= 


000004 


KIPAR0= 


172340 


NULL = 


000000 


DT.PTA= 


000064 


KIPAR1= 


172342 


OWEN = 


024020 


DT.RCS= 


000102 


KIPAR2= 


172344 


PAERR = 


000010 


DT.REL= 


000040 


KIPAR3= 


172346 


PARPRE= 


002000 


DT.SCT= 


000066 


KIPAR4= 


172350 


PARSTA= 


000100 


DT.SMX= 


000106 


KIPAR5= 


172352 


PASCNT= 


000034 


DT.SP = 


000006 


KIPAR6= 


172354 


PDPLSI= 


020000 


DT.SSI= 


000046 


KIPAR7= 


172356 


PDP60 = 


004000 


DT.STO= 


000010 


KIPDR0= 


172300 


PDP70 = 


010000 


DT.ST1= 


000012 


KIPDR1= 


172302 


PRIO = 


000000 


DT.SWR= 


000056 


KIPDR2= 


172304 


PRI1 = 


000040 


DT.SYP= 


000072 


KIPDR3- 


172306 


PRI4 = 


000200 


DT.WBU= 


000050 


KIPDR4= 


172310 


PRI5 = 


000240 


DT.WHL= 


000054 


KIPDR5= 


172312 


PRI6 = 


000300 


DT.WLL= 


000052 


KIPDR6= 


172314 


PRI7 = 


000340 


DVID1 = 


000014 


KIPDR7= 


172316 


PRO 


000000 


ECCMEM= 


000100 


KTERRO= 


000040 


PR4 


000200 


ECCSTA= 


000010 


KTPRES= 


000400 


PR5 


000240 


ENBEQP= 


010000 


KTSTAT= 


000020 


PR6 


000300 


ENBNUL= 


000001 


KTXTND= 


040000 


PR7 


000340 



SEO 0557 



DC = 

PSW 

RANNUM= 

RBUFEA= 

RBUFPA= 

RBUFSZ- 

RBUFVA= 

RDSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBOUT= 

RUNMOD= 

R5VALU= 

SAM 

S3ADR = 

S3KMOD= 

SBKSEL= 

SC.ADR= 

SC . ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SCFCNT= 

SQFPAS= 

SPACE = 

SP0INT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 = 

SVR2 = 

5VR3 = 

SVR4 = 

SVR5 = 

SVR5 = 



1 77776 
177776 
000054 
000130 
000126 
000132 
000124 
000101 
000022 
000020 
020000 
010000 
000056 
000060 
031060 
002000 
000112 
000177 
100000 
001740 
075464 
000102 
000000 
010000 
000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 
000027 
000001 
000062 
000064 
000066 
000070 
000072 
000074 
000076 
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MACY11 30A(1052) 20-SEP-73 17:57 PAGE 20-1 
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SYSCNT = 


000052 


UIPDR7= 


177616 


SYSERR= 


000100 


WASADR= 


000104 


TMPIO = 


000002 


WBSTAT= 


000040 


TQOVF = 


000002 


WBUFEA= 


000136 


UI PAR0 = 


177540 


WBUFPA= 


C00134 


UIPAR1= 


177642 


WBUFRO= 


000140 


UIPAR2= 


177644 


WBUFSZ= 


000142 


UIPAR3= 


177646 


WDFR = 


000116 


UIPAR4= 


177650 


WDTO = 


000114 


UIPAR5= 


177652 


WTINRE= 


000352 


UIPAR6= 


177654 


WTWHMI= 


000222 


UIPAR7= 


177656 


XFLAG = 


000005 


UIPDR0= 


177600 


XOFF = 


000023 


UIPDR1= 


177602 


XON 


000021 


UIPDR2= 


177604 


$BGNLE= 


177777 


UIPDR3= 


177606 


$ERFLG= 


000400 


UIPDR4= 


177610 


$FSAND= 


000310 


UIPDR5= 


177612 


$FSBAD= 


000401 


UIPDR6= 


177614 


$F$BLA= 


000170 


. ABS. 


000000 000 
000176 001 







SYMBOL TABLE 



SEQ 0558 



$F$CAS= 
$F$DEC= 
$F$DO = 
$F$FAL= 
$F$GOO= 
SFSIF = 
$F$INC= 
$F$LOO= 
$FSNAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$FSUNT= 
$F$WHI= 
$F$YES= 



000150 
000220 
000340 
000405 
000400 
000110' 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 



$IFLEV= 
$ISK0 = 
$LOCTA= 
$LSTIN= 
$LSTTA= 
$NESTL= 
SNSKO = 
$NSK1 = 
SNSK2 = 
$SAVLE= 
SSSKO = 
$TAGLE= 
$TAGNU= 
STEMP = 
STSKO = 
STSK1 = 
$TSK2 = 
$$ARGC= 
$SBYTE= 



177777 
000001 
177777 
000001 
000001 
177777 
000300 
000120 
000110 
177777 
050003 
177777 
050006 
000300 
050002 
050003 
050005 
000004 
000403 



$$CASE= 
$$DST = 
$$ELOC= 
S$ERFL= 
$$FLAG= 
$SFROM= 
5SL0C = 
$$LOCN= 
$SREG = 
S$RETU= 
$SRTN1= 
S$RTN2= 
SSSRC = 
$$TGSV= 
$$TGS1= 
SSTGS2= 
S$TO = 
$S$TAG= 



000000 

000000 

000402 

000000 

000001 

000000 

000122R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000176R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ: ICSROO, DSKZ:ICSROO=SPMAC/!VlL f EQUATE, ICSROO 
RUN-TIME: 12 2 .3 SECONDS 
RUN-TIME RATIO: 31/16=1.9 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:57 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0559 

3 COMMON EQUATE MODULE 

566 COMMON DEFINITIONS AND REFERENCES 

569 000000' .PRINT ;SPMAC: VERSION 1.1 

595 INDIRECT ECC MEMORY CSR SIZING ROUTINE 



ICSRS2 INDIRECT ECC MEMORY CSR SIZING ROUTINE MAUYll 3UAUU&2J .lo-str- /o 
ICSRSZ. MAC 06-SEP-78 15:50 COMMON EQUATE MODULE 



rwuc ! 3 



SEQ 0560 



508 
509 
510 
511 
512 
513 
c 1 4 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 



.TITLE ICSRS2 INDIRECT ECC MEMORY CSR SIZING ROUTINE 
.IDENT /V0.0/ 

++ 
MODULE NAME: 
ICSRSZ 

FUNCTIONAL DESCRIPTION: 

THIS MODULE WILL DETERMINE IF ECC MEMORY CSRS ARE HIDDEN ON 

THE MAIN MEMORY BUS OF THE 11/70 SYSTEM. 

THE MANNER IN WHICH THIS IS ACCOMPLISHED IS BY 

THE FOLLOWING: 

- NO NPR ACTIVITY 

- TURN CACHE OFF 

- MAP KIPAR6 TO 177400 

- ENABLE MEMORY MANAGEMENT IN 22 BIT MODE 

- MAP UNIBUS MAP REGISTER 36 TO 17760000 

- TURN ON UNIBUS MAP BOX 

- ACCESS VIRTUAL ADDRESSES 152100 THROUGH 152136 
AS ECC MEMORY CSRS 

IF ECC FOUND THEN THE CSR ADDRESS WILL BE ENTERED INTO THE PARITY TABLE, 

INPUTS: 

DTABLE ADDRESS 

IMPLICIT INPUTS: 
DT.PTA 
DT.CFO 
DT.STO 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
SAVREG - SAVE REGISTERS 
RESREG - RESTORE REGISTERS 
KTSET - SET UP KT REGISTERS 
HRDADRCHK - ILLEGAL ADDRESS CHECK 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL ICSRSZ IN <DTABLE> 

DTABLE - ADDRESS OF DTABLE 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



ICSRSZ INDIRECT ECC MEMORY C5R SIZING RCUTINE MACY11 30A(1052) 20-SEP-7S 17:57 PAGE 19-1 

ICSRSZ.MAC 06-SEP-7S 15;50 COMMON EQUATE MODULE SEQ 0561 

564 : — 



ICSRSZ INDIRECT ECC MEMORY CSR SIZING ROUTINE MACY11 30A(1052) 20-SEP-7S 17:57 PAGE .19-2 
ICSRSZ. MAC 06-SEP-78 15:50- COMMON DEFINITIONS AND REFERENCES 



SEQ 0562 



567 






568 






569 


000000' 




(D 


000000' 




570 




000001 


571 




000001 


572 






573 






574 






575 






576 






577 






578 






579 






580 






531 






582 






583 






584 






585 






586 






587 






588 






589 






530 




152100 


591 




152136 


592 




170370 


593 




170372 



.SBTTL COMMON DEFINITIONS AND REFERENCES 

•MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

SLSTIN = 1 

SLSTTAG =1 



' jit*************** 

; REFERENCED BY OTHER MODULES 
.'GLOBL ICSRSZ 

; GLOBAL REFERENCES 



.GLOBL 


SAVREG 


.GLOBL 


RESREG 


.GLOBL 


KTSET 


. GLOBL 


HRDADRCHK 


.GLOBL 


CCNTRL 



; LOCAL EQUATES 



T r* DrCD 



■\ Km nn 



IC.PCLS = 152136 
IC.M36 = 170370 
IC.M37 = 170372 



JMODULE ENTRY POINT 



;SARE REGISTERS 
;RESTORE REGISTERS 
;SET UP KT 

; ILLEGAL ADDRESS CHECK 
;CACHE CONTROL REGISTER 



START OF PARITY CSRS 3Y INDIRECT MODE 
LAST PARITY CSR BY INDIRECT MODE 
MAP REG 36 LOWER 16 BITS 
MAP REG 36 UPPER 6 BITS 



ICSRSZ 
ICSRSZ , 

595 
595 
597 
593 
(2) 
599 
600 
601 
602 
603 
604 
(3) 
605 
(4) 
506 
607 
608 
609 
610 
611 
(2) 
512 
(2) 
613 
(2) 
614 
(2) 
615 
(2) 
616 
(2) 
617 
618 
619 
620 
621 
622 
623 
6) 
624 
(3) 
(4) 
(3) 
(3) 
625 
(4) 
626 
(6) 
627 
(6) 
628 
(4) 
629 
(4) 
630 
(4) 



INDIRECT ECC MEMORY CSR SIZING ROUTINE MACY11 30A(1052) 20-SEP-78 17:57 PAGE 19-3 
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.SBTTL INDIRECT ECC MEMORY CSR SIZING ROUTINE 



SEQ 0563 



000000' 
000000' 



000000' 

000000' 004767 OOOOOOG 

000004' 

000004' 016500 000000 



000010' 

000010' 017746 
000014' 

000014' 013746 
000020' 
000020 



OOOOOOG 



177572 



013746 172516 



000024' 013746 170370 

000030' 

000030' 013745 170372 

000034' 

000034' 013746 172354 



ROUTINE ICSRSZ <DTABLE> 



SAVE REGISTERS AND GET ADDRESS OF DTABLE 



ICSRSZ: 



CALL SAVREG 

LET RO := DTABLE(R5) 



JSR 
MOV 



SAVE CONTENTS OF CACHE CSR, KT STATUS, KIPAR6, AND MAP REGISTER 



PUSH @CCNTRL 
PUSH ©#SRO 
PUSH @#SR3 

PUSH @#ICM37 
PUSH @#KIPAR6 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



TURN CACHE OFF, SETUP KT , SETUP KIPAR6 TO POINT TO MAP REG 36, 
AND MAP REGISTER 36 TO LOOK AT 128K I/O SHADOW AREA. 



000040' 
(6) 000040' 052777 000014 OOOOOOG 
000046 s 

000046' 010546 
000050' 010045 
000052' 004767 OOOOOOG 
000056' 012605 
000060' 

000060' 012737 177400 172354 
000066' 

000066' 052737 000001 177572 
000074' 

000074' 052737 000060 172516 
000102' 

000102' 012703 152100 
000106' 

000106' 012737 160000 170370 
000114' 
000114' 012737 000077 170372 



LET @CCNTRL : = @CCNTRL SET. BY #14 
CALL KTSET IN <R0> 

LET @#KIPAR6 := #177400 

LET @#SRO := @#SR0 SET. BY #BIT00 

LET @#SR3 := @#SR3 SET. BY #60 

LET R3 := #IC.PCSR 

LET @#IC.M36 := #160000 

LET @#IC.M37 := #77 



BIS 



PC, SAVREG 
DTABLE(R5) , RO 



@CCNTRL,-(SP) 

@#SRO,-(SP) 

@#SR3,-(SP) 

@#IC.M3S,-(SP) 

@#IC.M37,-(SP) 

@#KIPAR6,-(SP) 



#14,@CCNTRL 



MOV 


R5,-(SP) 


MOV 


R0,-(R5) 


JSR 


PC, KTSET 


MOV 


(SP)+,R5 


MOV 


#177400, @#KIPAR6 


EIS 


#31T00,@#SR0 


BIS 


#60,@#SR3 


MOV 


#IC.PCSR,R3 


MOV 


#160000, @#IC.M36 


MOV 


#77,@#IC.M37 
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SEQ 0564 



631 
632 
633 
634 
535 
636 
(4) 
637 
633 
639 
640 
641 
642 
643 
(4) 
(6) 
(9) 
644 
(3) 
(4) 
(3) 
(3) 
645 
(6) 
646 
(4) 
647 
(6) 
643 
(6) 
649 
650 
651 
652 
653 
654 
(4) 
655 
(4) 
656 
657 
658 
659 
660 
661 
(6) 
662 
(4) 
(3) 
663 
664 
665 
666 
667 
668 
(2) 



000122' 
000122' 016001 



GET ADDRESS OF PARITY TABLE 



LET R1 := DT.PTA(RO) 



000064 



MOV 



DT.PTA(R0) t R1 



NOW DETERMINE IF ANY PARITY CSRS EXIST INDIRECTLY, IF SO LOAD ADDRESS INTO 
PARITY TABLE AND SET ECC MEMORY PRESENT AND ALSO INDIRECT PARITY REG BIT. 



000126' 
000126' 
000126' 
000132' 
000134' 
000134' 
000136' 
000140' 
000144' 
000146' 
000146' 
000150' 

r\ r\ r\ m t? f\ I 
WWW I JV 

000152' 
000152' 
000160' 
000160' 



020327 
101021 

010546 
010345 
004767 
012605 

103410 



052760 



052760 



152136 



OOOOOOG 



WHILE R3 LOS #IC.PCLS DO 



CALL HRDADRCHK IN <R3> 



50002$.: 



CMP 


R3,#IC.PCLS 


BHI 


50003$ 


MOV 


R5,-(SP) 


MOV 


R3 t -(R5) 


JSR 


PC, HRDADRCHK 


MOV 


(SP)+,R5 



IF. NO. ERROR THEN 



000100 
000040 



000014 
000014 



LET (R1)+ := R3 
LET DT.CFO(RO) : 
LET DT.CFO(RO) : 



= DT.CFO(RO) SET. BY #ECCMEM 
= DT.CFO(RO) SET. BY #INDPAR 



BCS 



MOV 



BIS 



BIS 



CLEAR OUT CSR, THUS TURNING OFF ECC 



000166' 

000166* 005013 
000170' 
000170' 



000170' 

000170' 062703 000004 

000174' 

000174' 000754 

000176' 



LET (R3) := #0 



CLR 



ENDIF 



50004$: 



UPDATE CSR ADDRESS AND GO LOOK AGAIN 



LET R3 := R3 + #4 



ENDDO 



ADD 
ER 



50003$: 



000176' 
000176' 012637 



NOW RESTORE CACHE, KT AND MAP REGISTERS 



POP @#KIPAR6 



50004$ 
R3 t (R1 )+ 

#ECCMEM,DT.CF0(R 
#INDPAR,DT.CF0(R 



(R3) 



#4,R3 
50002$ 



172354 



MOV 



(SP)+,@#KIPAR6 
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SEQ 0565 



669 


000202' 






POP @#IC.M37 


(2) 


000202' 


012637 


170372 




670 


000206' 






POP @#IC.M36 


(2) 


000206' 


012637 


170370 




671 


000212' 






POP <s>#SR3 


(2) 


000212' 


012637 


172516 




672 


000216' 






POP @#SRO 


(2) 


000216' 


012637 


177572 




673 


000222' 






POP @CCNTRL 


(2) 


000222' 


012677 


OOOOOOG 




674 










675 








; + 


676 








; RESTORE RE( 


677 








;- 


678 










679 


000226' 






CALL RESREG 


(3) 


000226' 


004767 


OOOOOOG 




680 










681 


000232' 






ENDRTN 


(3) 


000232' 








(3) 


000232' 








(2) 


000232' 


000207 






682 




000001 




.END 



MOV 
MOV 
MOV 
MOV 
MOV 



50000$: 
50001S: 



dSR 



RTS 



(SP)+,@#IC.M37 
(SP)+,@#IC.M36 
(SP )+■ , @#SR3 
(SP)+ f @#SR0 
(SP)+,@CCNTRL 



PC f RESREG 



PC 
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17:57 PAGE 20 



ACSR = 
ACT3IT= 
ADDR22= 
ADR 

APTFER= 
APTPRE= 
ASB 

ASSEMB= 
ASTAT = 
AUTO = 
AUTOST= 
AWAS = 
BITO a 
BITOO = 
BIT01 = 
BIT02 = 
BIT03 = 
BIT04 = 
BIT05 = 
BIT06 = 
BIT07 = 
BIT08 = 
BIT09 = 
BIT1 = 
BIT 10 = 
BIT11 = 
BIT12 = 
BIT13 = 
BIT14 = 
BIT15 = 
3IT2 = 
BIT 3 = 
BIT4 = 
BIT5 = 
BIT6 = 
BIT7 = 
BIT8 = 
BIT9 = 
BKDEF = 
BKMOD = 
BKMODE= 
BKSLSH= 
CAPRES= 
CASTAT= 
CCNTRL= 
CDERCT= 
CDWDCTs 
CKTIM = 
CLKPRE= 
CONFIG= 
CQOVF = 
CR 
CSRA = 



000102 
004000 
001000 
000006 
000004 
000200 
000106 
000010 
000104 
000010 
020000 
000110 
000001 
000001 
000002 
000004 
000010 
000020 
00C040 
000100 
00,0200 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 
100000 
000004 
0000 TO 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
000020 
040000 
000134 
000004 
000004 

000146 
000144 
100000 
000001 
000056 
000001 
000015 
000100 



CSRC = 
CTRLC = 
CTRLO = 
GTRLU = 
DCEVNT= 
DEFRTN- 
DIAGMC= 
DROPMQ- 
DSEVNT= 
DTABLE= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CFO= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT'.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT,KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
D'T.'FC '=' 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 



000102 
000003 
000017 
000025 
000011 
000400, 
000000 
100000 
000014 
000000 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
00 0036 
000104 
000024 
000026 
0000?? 
000030 
000032 
000110 
000070 
000074 
000002 
000062 
OOC004 
C00064 
000102 
000040 
000GS6 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 



ENDLST= 

ECPBIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT- 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDADR= 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

ICSRSZ 

IC..M36= 

IC.M37= 

ICPCL= 

IC.PCS= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

TNHRRE* 

INIT = 

INTR = 

IOMOD = 

IOMODP= 

IGMODR= 

IDT^ODX"= 

JACK = 

KIPARO= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSET = 

KTSTAT= 



000000 
000001 
000,106 
000200 
000200 
2 3 
000202 
000201 
100000 

****** Q 

000044 

000050 

000035 

000040 

OOOOOORG 

170370 

170372 

152136 

152100 

000122 

000100 

000040 

040000 

020000 

001000 

000400 

000030 

000120 

1000G0 

102000 

112000 

TTaootr 

035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
****** Q 

000020 



KTXTND= 

LF 

LPSTAT= 

MAPSTA= 

MED . = 

MEMPAS- 

MODEXH= 

MODHOL= 

MCDSEL= 

MSGCKD= 

MSGCKS= 

MSGDER= 

MSQDRP= 

MSGECH= 

MSGEOP= 

MSGHDR= 

MSGHNG= 

MSGHRD= 

MSGMAP= 

MSGNUL= 

MSGPOP= 

MSGPRM= 

MSGRES= 

MSGSFT= 

MSGSKE= 

MSGSMB= 

MSGSMH= 

MSGSMS= 

MSGSTD= 

MSGSYS= 

MSGV-EC= 

!*BKMOD= 

NCPUG?= 

NOAPTY= 

NULL = 

OWEN = 

PAERR = 

PARPRE= 

PARSTA= 

PASCNT= 

PDPLSI= 

PDP60 = 

PDP70 = 

PRIO = 

PRI1 = 

PRI4 = 

PRI5 = 

PRI6 = 

PRI7 = 

PRO 

PR4 

PR5 

PR6 



040000 
000012 
000001 
000200 
076600 
04000u 
004000 
002000 
001000 
000010 
000011 
000005 
000017 
177777 
000013 
000004 
000022 
000007 
000021 
177775 
000002 
177776 
000001 
000006 
000003 
000015 
000014 
000016 
000000 
000012 
000020 

aoTooa 

000020 
000002 
000000 
024020 
000010 
002000 
000100 
000C34 
020000 
004000 
010000 
000000 
000040 
000200 
000240 
000300 
000340 
000000 
000200 
000240 
000300 







SEQ 056€ 


PR7 


00C340 




PS 


177776 




PSW 


177776 




RANNUM= 


000054 




RBUFEA= 


000130 




R3U FPA- 


/\ f\ r\ a O /> 




RBUFSZ= 


000132 




RBUFVA= 


000124 




RDSERV= 


000101 




RDWHMI= 


000022 




RELERR= 


000020 




RELMOD= 


020000 




RELTIMs 


010000 




R£SREG= 


****** Q 




RES1 = 


000055 




RES2 = 


000060 




RICHAR= 


031060 




RPTDAT= 


002000 




RSTRT = 


000112 




RU3QUT= 


000177 




RUN?fflD= 


100000 




R5VALU= 


001740 




SAM 


075464 




SAVREG= 


****** Q 




SBADR = 


000102 




SBKMOD= 


000000 




SBKSEL= 


010000 




SC.ADR= 


0000.06 




SC.ALC= 


000014 




SC.APC= 


000016 




SC.CKL= 


000002 




■l^f*— "f^tt 1 P"— " 


00"000"4 




SC.CLO= 


000000 




SC.HLD= 


000010 




SC.SCA= 


000012 




SENDLS= 


177777 




SOFCNT= 


000042 




SOFPAS= 


000C46 




SPACE = 


000040 




SPOINT= 


000032 




SPVALU= 


002200 




SRO 


177572 




SR1 


177574 




SR2 


177576 




SR3 


172516 




STAT = 


000026 




STATBI= 


064757 




STAT1 = 


000027 




SUSPND= 


000001 




SVRO = 


000062 




SVR1 = 


000064 




SVR2 = 


000066 




SVR3 = 


000070 
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SEO 0567 



SVR4 = 


000072 




l)IPDR5= 


177612 


SVR5 = 


000074 




UIPDR6= 


177614 


SVR6 = 


000076 




UIPDR7= 


177616 


SYSCNT= 


0000.52 




WASADR= 


000104 


SYSERR= 


000100 




WBSTAT= 


000040 


TMPIO = 


000002 




WBUFEA= 


000136 


TQOVF = 


000002 




WBUFPA= 


000134 


UIPARO= 


1 77640 




WBUFRQ= 


000140 


UIPAR1= 


177642 




WBUFSZ= 


000142 


UIPAR2= 


177644 




WDFR = 


0001 16 


UIPAR3= 


177646 




WDTO = 


000114 


UIPAR4= 


177650 




WTINRE= 


000352 


UIPAR5= 


177652 




WT.WHMI = 


000222 


UIPAR6= 


177654 




XFLAG = 


000005 


UIPAR7= 


177656 




XOFF = 


000023 


UIPDRO= 


177600 




XON 


000021 


UIPDR1= 


177602 




$BGNLE= 


177777 


UIPDR2= 


177604 




$ERFLG= 


000400 


UIPDR3= 


177606 




$F$AND= 


000310 


UIPDR4= 


177610 




$F$BAD= 


000401 


. ABS. 


000000 
000234 


000 
001 







$F$BLA= 
$F$CAS= 
$F$DEC= 
$F$DO s 
$F$FAL= 
$F$GGO- 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$FSTRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 



000173 
000150 
000220 
000340 
000405 
000400 
000110 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 



SIFLEV= 
SISKO = 
$LOCTA= 
$LSTIN= 
$LSTTA= 
SNESTL- 
$NSKO = 
SNSK1 = 
$NSK2 = 
$SAVLE= 
SSSKO = 
$TAGLE= 
$TAGNU= 
STEMP = 
$TSKO = 
$TSK1 = 
STSK2 = 
$SARGC= 
$$BYTE= 
$$CASE= 



177777 
000001 
177777 
000001 
000001 
1 77777 
000300 
000120 
000110 
177777 
050003 
177777 
050005 
000300 
050002 
050003 
050004 
000002 
000403 
000000 



SSDST = 
SSELOC= 
$$ERFL= 
$$FLAG= 
$SFROM= 
SSLOC = 
$$LGCN= 
SSREG = 
$$RETU= 
$$.RTN1 = 
$SRTN2= 
$$SRC = 
$STGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$STAG= 



000000 

000402 

000000 

000001 

000000 

000146R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000234R 



DEFAULT GLOBALS GENERATED: 



DSKZ: ICSRSZ, DSKZ:lCSRSZ=SPMAC/ML f EQUATE, ICSRSZ 
RUN-TIME: 13 3 .3 SECONDS 
RUN-TIME RATIO: 32/17=1.9 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:58 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0568 

3 COMMON EQUATE MODULE 

564 COMMON DEFINITIONS AND REFERENCES FOR KEXAM 

567 000000' .PRINT ;SPMAC: VERSION 1.1 

611 KEXAM ROUTINE 
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SEQ. 0569 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
523 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 



TITLE KEXAM 
IDENT /VO.-O/ 



PROCESS THE 'EXAM' KEYBOARD COMMAND 



MODULE NAME: 
KEXAM 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PROCESSES THE 'EXAM' KEY30ARD COMMAND. IT WILL 
DETERMINE IF AN ARGUMENT IS INCLUDED IN THE COMMAND STRING. 
■IF NO ARGUMENTS ARE INCLUDED, THE LAST LOCATION EXAMINED 
WILL BE OUTPUTTED. IF ARGUMENTS ARE INCLUDED, THE MODULE 
NAME AND/OR THE OCTAL ADDRESS WILL BE VERIFIED AND IF 
NO ERRORS, THE APPROPRIATE LOCATION AND 
ITS CONTENTS WILL BE OUTPUTTED. 



INPUTS: 
1 . 
2. 



ADDRESS OF DATA TABLE 
DECODE BUFFER POINTER 



IMPLICIT INPUTS: 
1. DT.STO 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
D.T.KBRSP 

PATHOLOGICAL CONNECTIONS: 

CM . BADNAME , CM . ADR , CM . ODD , CM . ARG 

SUBORDINATE ROUTINES CALLED: 

ARGCHK - CHECK FOR ARGUMENTS 

SAVREG 

RESREG 

B0A16 

NUMCHK 

NAMCHK 

FUNCTIONAL SIDE EFFECTS: 
NONE 



CALLING SEQUENCE: 

CALL KEXAM IN <DTADR , BUFPTR> 

WHERE DTADR = ADDRESS OF DATA TABLE 

BUFPTR = COMMAND DECODE BUFFER POINTER 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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SEQ 0570 



564 
565 
56S 
567 

ill 

568 

569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 



000000' 
000000' 



000001 
000001 



000000' 
000002' 
000002' 



000000 



000006 



000010' 020057 
000012' 000006 
000020' 000045 



.SBTTL COMMON DEFINITIONS AND REFERENCES FOR KEXAM 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 
$LSTTAG=1 



REFERENCED BY OTHER MODULES: 



GLOBL 
GLOBL 



KE.LOC 
KEXAM 






GLOBAL REFERENCES! 



GLOBL 


SAVREG 


GLOBL 


RESREG 


GLOBL 


BOA16 


GLOSL 


ARGCHK 


GLOBL 


CM.BADNAME 


GLOBL 


CM. ADR 


GLOBL 


NUMCHK 



GLOBL CM. ODD 
GLOBL NAMCHK 
GLOBL CM.ARG 

LOCAL STORAGE: 

KE.LOC: .WORD 

KE.MG1 : 

KE.MG2: .BLKB 6 

.ASCII '/ 

KE.MG3: .BLKB 6 

.ASCIZ /%/ 
.EVEN 



INITIALIZED TO IF RUN CMD IS GIVEN 
;MODULE ENTRY POINT 



SAVE REGISTERS 
RESTORE REGISTERS 

BINARY TO OCTAL ASCII CONV ROUTINE 
ROUTINE TO CHECK AN ARGUMENT 
"INVALID MODULE NAME" MESSAGE 
"BAD ADDRESS" MESSAGE 
VERIFY A NUMBER IS OCTAL, & 
16 BITS OR LESS IN LENGTH 
'NOT AN EVEN NUMBER' MSG ADDRESS 
VERIFY A MODULE NAME 
"INVALID ARGUMENT" MESSAGE 



;HOLD LOCATION TO BE EXAMINED 

;HOLD ASCII OF ADDRESS TO BE EXAMINED 

;SEPARATOR 

;HOLD ASCII CONTENTS OF ADDRESS 
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SEQ 0571 



611 
612 
613 
(2) 
614 
615 
616 
617 
618 
619 
(3) 
620 
621 
(4) 
622 
(4) 
623 
624 
625 
626 
627 
628 
(4) 
629 
630 
631 
632 
633 
634 
(4) 
(3) 
(4) 
(3) 
(3) 
(4) 
635 
636 
637 
638 
639 
640 
(6) 
641 
642 
643 
(3) 
644 
645 
646 
647 
648 
(4) 
(3) 
649 
650 
651 



000022' 
000022' 



000022' 

000022' 004767 OOOOOOG 

000026' 

000026' 016500 000000 

000032' 

000032' 016501 000002 



000036' 
000036' 005002 



000040' 

000040' 162705 000002 

000044' 010546 

000046 T 010145 

000050' 004767 OOOOOOG 

000054' 012605 

000056' 012501 



000060' 
000060' 103003 



000062' 

000062' 004767 000264 



000066' 

000066' 000526 
000070' 



.SBTTL KEXAM ROUTINE 
ROUTINE KEXAM <DTADR,CMDBUF> 



KEXAM: 



SAVE REGISTERS AND SAVE ADDRESS OF DTABLE & ADDRESS OF DECODE BUFFER 



CALL SAVREG 

LET RO := DTADR(R5) 
LET R1 := CMDBUF(R5) 

INIT R2 FOR LATER USE 

LET R2 := #0 

K 
GET TO FIRST ARGUMENT 

CALL ARGCHK IN <R1> OUT <R1> 



JSR PC,SAVREG 

MOV DTADR(R5),R0 
MOV CMDBUF(R5) ,R1 



CLR 



IF THERE IS A CR AS FIRST ARGUMENT - CONVERT LAST EXAMINED ADDRESS 
TO ASCII, OUTPUT IT, AND RETURN 



IF. ERROR THEN 



CALL CONV 



ELSE 



; + 



3CC 



JSR 



BR 



50002$: 



R2 



SUB 


#1*2, R5 


MOV 


R5,-(SP) 


MOV 


R1 ,-(R54 


JSR 


PC, ARGCHK 


MOV 


(SP) + ,'R5 


MOV 


(R5)+,R1 



50002$ 



PC, CONV 



50003$ 



; THERE IS AN ARGUMENT - FIND OUT WHETHER ALPHA OR NUMERIC 
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SEO 0572 



652 








t 


653 










654 


000070' 








(6) 


000070' 


121127 


000060 




(8) 


000074' 


002403 






(6) 


000076' 


121127 


000071 




(9) 


000102' 


003440 






(6) 


000104' 








655 










656 










657 










558 










659 










660 


000104' 








(4) 


000104' 


162705 


000004 




(3) 


000110' 


010546 






(5) 


000112' 


010145 






(4) 


000114' 


010045 






(3) 


000116' 


004767 


000000G 




(3) 


000122' 


012605 






(4) 


000124' 


012502 






(4) 


000126' 


012501 






661 










S62 










663 










664 










665 


000130' 








(6) 


000130' 


103006 






666 










667 










668 


000132' 








(4) 


0001 32 » 


01 2760 


OOOOOOG 000022 




669 


000140' 








(3) 


000140' 


004767 


OOOOOOG 




670 


000144' 








(4) 


000144' 


000501 






671 










672 


000146' 








(3) 


000146' 








673 










674 










675 










676 










677 










678 


000146' 








(4) 


000146' 


162705 


000002 




(3) 


000152' 


010546 






(4) 


000154' 


010145 






(3) 


000156' 


004767 


OOOOOOG 




(3) 


000162' 


012605 






(4) 


000164' 


012501 






679 










680 










681 










682 










683 











IFB (R1) LT #'0 ORB (R1) GT #'9 THEN 



CMP 3 
BLT 
CMP 3 
BLE 



(R1 ) ,#'0 
50004$ 
(R1 ) ,#'9 
50005$ 



50004$: 



IT'S ALPHABETIC - SO VERIFY MODULE NAME 



CALL NAMCHK IN <R0,R1> OUT <R2,R1> 



SUB 


#2*2, R5 


MQV 


R5,-(SP) 


MOV 


R1 ,-(R5) 


MOV 


R0,~(R5) 


JSR 


PC, NAMCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R2 


MOV 


(R5)+,R1 



IF THE MODULE NAME IS BAD - STUFF ERROR MSG AND LEAVE 
IF. ERROR THEN 



BCC 



ELSE 



OTHERWISE MODULE NAME IS O.K. - ADVANCE TO NEXT ARGUMENT 



CALL ARGCHK IN <R1> OUT <R1> 



IF THERE IS NO ADDITIONAL ARGUMENT - YOU CANNOT HAVE A MODULE 

NAME WITHOUT NUMBER TELL OPERATOR HE MADE MISTAKE (STUFF 

ERROR MSG)... 



50006$ 



LET DT.KBRSP(RO) 


:= #CM.BADNAME 


MOV 


#CM.BADNAME t DT.K 


CALL RESREG 




JSR 


PC, RESREG 


RETURN 


50006$: 


BR 


50000$ 



SUB 


#1*2, R5 


MQV 


R5,-(SP) 


MOV 


R1 ,~(R5) 


JSR 


PC, ARGCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 
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SEQ 0573 



684 
685 
(6) 
686 
687 
688 
(4) 
689 
(3) 
590 
(4) 
691 
(4) 
692 
(4) 
693 
694 
(4) 
695 
696 
697 
698 
699 
700 
701 
702 
(4) 
(3) 
(5) 
(4) 
(3) 
(3) 
(4) 
(4) 
703 
704 
705 
(6) 
706 
707 
70S 
709 
710 
711 
712 
713 
714 
715 
(7) 
716 
(6) 
717 
(4) 
718 
(4) 
(3) 



000166' 
000166' 103006 



*"\ n r>. * *~t r\ I 
UW 1 / U 

000170' 

000176' 
000176' 
000202' 
000202' 
000204' 
000204' 
000204' 
000204' 

000204' 
000204' 



000462 



000204' 
000204' 
000210' 
000212' 
000214' 
000216' 



162705 
010546 
010145 
010045 
004767 



000222' 012605 
000224' 012501 
000226' 012503 



000230' 
000230' 103445 



IF-ERROR THEN 



012760 OOOOOOG 000022 



004767 000000G 



LET DT = KBRSP(RQ) 
CALL RESREG 
RETURN 



:= #CM.ARG 



BCC 50010$ 

MOV #CM.ARG,DT.KBRSP 

JSR PC, RESREG 

BR 50000$ 



END IF 



ENDIF 



ENDIF 



CHECK OUT THE NUMBER 



50010$: 
50007$: 

50005$: 



CALL NUMCHK IN <R0,R1> OUT <R1,R3> 



000004 



OOOOOOG 



SUB 


#2*2, R5 


MOV 


R5 r -(SP) 


MOV 


R1 ,-(R5) 


MOV 


R0,-(R5) 


d3R 


PC, NUMCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 


MOV 


(R5)+,R3 



IF. NO. ERROR THEN 



BCS 



000232' 

000232' 006003 

000234' 

000234' 103004 

000236' 

000236' 012760 OOOOOOG 000022 

000244' 

000244' 000437 

000246' 



IF VALID VIRTUAL ADDRESS THEN 

SHIFT NUMBER ONE PLACE TO RIGHT. IF THE C BIT SETS IT IS AN ODD 

NUMBER... NOT ALLOWED !!!. STUFF ERROR MSG AND RETURN 

IF THE NUMBER IS OK, RESTORE IT AND CONTINUE. 



LET R3 := R3 ROTATE -1 
IFCOND CS THEN 

LET DT.KBRSP(RO) := #CM.ODD 
ELSE 



50011$ 





ROR 


R3 




BCC 


50012$ 




MOV 


#CM.ODD,DT.KBRSP 




BR 


50013$ 


0012$: 
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LET R3 := R3 ROTATE 1 



719 


000246' 






(7) 


000246' 


006103 




720 








721 








722 








*t r\ ^ 








724 








725 








726 








727 








728 








729 


000250' 






(4) 


000250' 


162705 


000002 


(3) 


000254' 


010546 




(4) 


000256' 


010145 




(3) 


000260' 


004767 


000000G 


(3) 


000264' 


012605 




(4) 


000266' 


012501 




730 








731 








732 








733 








734 


000270' 






(6) 


000270' 


103404 




735 








736 






; 


737 








738 


000272' 






(4) 


000272' 


012760 


OOOOOOG 000022 


739 








740 








741 








742 








743 








744 








745 


000300' 






(4) 


000300' 


000421 




(3) 


000302' 






746 








747 








748 








749 








750 








751 








752 








753 








754 


000302' 






(6) 


000302' 


060203 




755 


000304' 






(6) 


000304' 


103004 




756 


000306' 






(4) 


000306' 


012760 


OOOOOOG 000022 


757 


000314' 






(4) 


000314' 


000413 




(3) 


000316' 






758 






r 



ROL 



THE NUMBER IS OK... CHECK FOR ANY JUNK ARGUMENTS.. 



CALL ARGCKK IN <R1> OUT <R1> 



IF IT'S NOT A CR... STUFF ERROR MSG AND LEAVE 

IF. NO. ERROR THEN 



LET DT.KBRSP(RO) := #CM.ARG 



SUB 
MOV 
MOV 
dSR 
MOV 
MOV 



BCS 



MOV 



ELSE THERE ARE NO dUNK ARGUMENTS... NOW SEE IF THE NUMBER IS IN 
THE EXERCISER RANGE... AND NOT > THAN 32 K 



ELSE 



BR 



50014$: 



FORM THE SUM (MODULE HEADER ADDRESS + NUMBER 

LET R3 := R3 + R2 

IFCOND CS THEN 



ADD 



BCC 



LET DT.KSRSP(RO) := tfCM.ADR 

MOV 



ELSE 



BR 



500163: 



SEQ 0574 



R3 



#1*2, R5 
R5,-(SP) 
R1 ,-(R5) 
PC, ARGCHK 
(SP)+,R5 
(R5)+,R1 



50014$ 



#CM.ARG,DT.KBRSP 



50015$ 



R2.R3 

50016$ 

#CM.ADR,DT.KBRSP 

50017$ 



; + 
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000316' 

000316' 020360 000044 

000322' 101404 



000324' 

000324' 012760 000000G 000022 



759 

760 

761 

(6) 

(9) 

762 

763 

764 

(4) 

765 

766 

767 

763 

769 000332' 

(4) 000332' 000404 

(3) 000334' 
770 

771 

772 000334' 

(4) 000334' 010367 177440 

773 000340' 

(3) 000340' 004767 000006 

774 000344' 

(4) 000344' 

775 000344' 
(4) 000344' 

776 000344' 
(4) 000344' 

777 000344' 
(4) 000344' 

778 000344' 
(4) 000344' 

779 000344' 
(4) 000344' 
780 

781 

782 

783 

784 

785 000344' 

(3) 000344' 004767 OOOOOOG 

786 

787 

(3) 

(3) 

(2) 

788 

789 

790 000352' 

(2) 000352' 

791 

792 

793 

794 

795 

796 



000350' 
000350' 
000350' 
000350' 000207 



KEXAM ROUTINE 

: IF THE NUMBER IS TOO BIG. 



TELL OPERATOR AND LEAVE... 
IF R3 HI DT.ESIZ(RO) THEN 



CMP 

BIOS 



LET DT.KBRSP(RO) := #CM.ADR 

MOV 



ELSE THE NUMBER IS OK, 



GO OUTPUT IT. 
ELSE 



ENDIF 



ENDIF 
ENDIF 



ENDIF 
ENDIF 



ENDIF 



CLEAN UP AND LEAVE 
CALL RESREG 
ENDRTN 

ROUTINE CONV 



BR 



50020$: 



LET KE.LOC := R3 
CALL CONV 



50000$: 
50001$: 



CONV: 



JSf 



RTS 



THIS ROUTINE CONVERTS THE LOCATION TO BE EXAMINED AND ITS CONTENTS 
TO ASCII 



SEO 0575 



R3,DT.ESI2(R0) 
50020$ 



#CM.ADR,DT.KBRSP 



50021$ 





MOV 


R3, KE.LOC 




JSR 


PC, CONV 


50021$: 






50017$: 






50015$: 






50013$: 






5Q01.1S: 






50003$: 







PC, RESREG 



PC 
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SEQ 0576 



797 
798 
(3) 
(5) 
(4) 



(3) 
799 
(3) 
(5) 
(4) 
(3) 
(3) 
300 
(4) 
801 
(3) 
(3) 
(2) 
302 



000352' 
000352' 
000354' 
000360' 



010546 

012745 000002' 

016745 177414 



(3) 000364' 004767 000000G 



012605 



010546 
012745 
017745 
004767 
012605 



000012' 

177374 

OOOOOOG 



000370 1 
000372' 
000372' 
000374' 
000400' 
000404' 
000410' 
000412' 

000412' 012760 000002' 000022 
000420' 
000420' 
000420' 

000420' 000207 
000001 



CALL B0A16 IN <KE. LOC ,#KE.MG2> 



CALL B0A16 IN <@KE. LOC, #KE:.MG3> 



LET DT.KBRSP(RO) := #KE.MG1 
ENDRTN 



.END 



MOV 


R5,-(SP) 


MOV 


#KE.MG2,-(R5) 


MOV 


KE.L0C,-(R5) 


JSR 


PC , BQA1 6 


MOV 


(SP)+,R5 


MOV 


R5,-(SP) 


MOV 


#KE.MG3,-(R5) 


MOV 


@KE.L0C f -(R5) 


JSR 


PC t B0A16 


MOV 


(SP)+ t R5 



50000S: 
50001S: 



MOV 



RTS 



#KE.MG1 f DT.KBRSP 



PC 
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ACSR a 


000102 


ACT8IT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 




ARGCHK= 


****** Q 


ASB 


000106 


ASSEMB= 


000010 


AST AT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


C001 10 


BITO ■ = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 - 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BITS -■= 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


BOA16 = 


****** Q 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CMDBUF= 


000002 


CM.ADR= 


****** Q 


CM.ARG= 


****** Q 



KEYBOARD COMMAND 


MACY11 30AO052) 20-SEP 


11 


SYMBOL 


TABLE 




CM.BAD= 


****** Q 


DT.WHL= 


000054 


CM.ODD= 


****** Q 


DT.WLL= 


000052 


CONFIG= 


000056 


DVID1 = 


000014 


CONV 


000352R 


ECCWiEM= 


000100 


CQOVF = 


000001 


ECCSTA= 


000010 


CR = 


000015 


ENBEOP= 


010000 


CSRA = 


000100 


ENBNUL= 


000001 


CSRC = 


000102 


ENDLST= 


OOOOOO 


CTRLC = 


000003 


EOPBIT= 


000001 


CTRLO = 


000017 


ERRTYP= 


000106 


CTRLU = 


000025 


EVNTBE= 


000200 


DCEVNT= 


000011 


EVNTHD= 


000200 


DEFRTN= 


000400 


EVNTKT= 


000203 


DIAGMC= 


000000 


EVNTPE= 


000202 


DROPMO= 


100CO0 


EVNTRE= 


000201 


DSEVNT= 


000014 


FATERR = : 


100000 


DTADR = 


oooooo 


HRDCNT= 


000044 


DT.ADD= 


000042 


HRDPAS= 


000050 


DT.AP = 


000100 


ICONT = 


000036 


DT.APK= 


000076 


ICOUNT= 


000040 


DT.BLS= 


000034 


IDNUM = 


000122 


DT.CF0= 


000014 


IE 


000100 


DT.CF1= 


000016 


INDPAR= 


000040 


DT.ERR= 


000020 


INHDRP= 


040000 


DT.ESI= 


000044 


INHEPR= 


020000 


DT.EVN= 


ocoooo 


INHREL= 


001000 


DT.EXS= 


000060 


INHRRE= 


000400 


DT.FCH= 


000037 


INIT = 


000030 


DT.FCN= 


000036 


INTR' = 


000120 


DT.HMX= 


000104 


IOMOD = 


100000 


DT.KBE= 


000024 


IOMODP= 


102000 


DT.KBP- 


000026 . 


,IOMQDR = 


1 12000 


DT.KBR= 


000022 


I0i , v10DX= 


110000 


DT.KBU= 


000030 


JACK = 


035060 


DT.MLS= 


000032 


KEXAM 


000022RG 


DT.MTI= 


000110 


KE . LOC 


OOOOOORG 


DT.OFF= 


000070 


K€-MG1 


000002R 


DT.PAS= 


000074 


KE.MG2 


000002R 


DT.PC = 


000002 


KE.MG3 


000012R 


DT.PFL= 


000062 


KIPARO= 


172340 


DT.PSW= 


000004 


KIPAR1= 


172342 


DT.PTA= 


000064 


KIPAR2= 


172344 


DT.RCS= 


000102 


KIPAR3= 


172346 


DT.REL= 


000040 


KIPAR4= 


172350 


DT.SCT= 


000066 


KIPAR5= 


172352 


DT.SMX= 


000106 


KIPAR6= 


172354 


DT.SP = 


000006 


KIPAR7= 


172356 


DT.SSI= 


000046 


KIPDRO= 


172300 


DT.STO= 


000010 


KIPDR1= 


172302 


DT.ST1= 


000012 


KIPDR2= 


172304 


DT.SWR= 


000056 


KIPDR3= 


172306 


DT.SYP= 


000072 


KIPDR4= 


172310 


DT.WBU= 


000050 


KIPDR5= 


172312 
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SEQ 0577 



KIPDR6= 


172314 


KIPDR7= 


172316 


KTERRO= 


000040 


KTPRES= 


000400 


KTSTAT- 


000020 


KTXTND= 


040000 


LF 


000012 


LPSTAT= 


000001 


MAPSTA= 


000200 


MED 


076600 


MEMPAS= 


040000 


MODEXH= 


004000 


MODHOL= 


002000 


MODSEL= 


001000 


MSGCKD= 


000010 


MSGCKS= 


00001 1 


MSGDER= 


000005 


MSGDRP= 


000017 


MSGECH= 


177777 


\1SGE0P = 


000013 


MSGHDR= 


000004 


MSGHNG= 


000022 


MSGHRD= 


000007 


MSGMAP= 


000021 


MSGNUL= 


177775 


MSGPOP= 


000002 


MCQ30»Jf- 


1 77776 


MSGRES= 


000001 


MSGSFT= 


000006 


MSGSKE= 


000003 


MS GSM 3= 


000015 


MSGSMH= 


000014 


MSGSMS"= 


000016 


MSGSTD= 


OOOOOO 


MSGSYS= 


000012 


MSGVEC= 


000020 


NAMCHK= 


****** 


NBKMOD= 


001000 


NCPUOP= 


000020 


NOAPTY= 


000002 


NULL = 


OOOOOO 


NUMCHK= 


****** 


OWEN = 


024020 


PAERR = 


000010 


PARPRE= 


002000 


PARSTA= 


000100 


PASCNT= 


000034 


PDPLSI= 


020000 


PDP60 = 


004000 


PDP70 = 


010000 


PRIO = 


OOOOOO 


PRI1 = 


000040 


PRI4 = 


0C02O0 



PRI5 = 

PRI6 = 

PRI7 = 

PRO 

PR4 

PR5 

PR8 = 

PR7 

PS 

PSW 

RANNUM= 

RBUFEA= 

R3UFPA= 

R3UFS2= 

RBUFVA= 

RDSERV= 

RDWHNII=. 

RELERR= 

RELMOD= 

RELTIM= 

RESREG= 

RES1 = 

RES2 = 

RICHAR= 

R?TDAT= 

RSTRT = 

RUB01JT = 

RUNM0D= 

R5VALU= 

SAM 

SAVREG= 

S5ADR = 

SBKMOD= 

S3KSEL= 

SC.ADR= 

SC.ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SOFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 



000240 
000300 
000340 
OOOOOO 
000200 
000240 

r\ /** r\ "\ r*. rt 

UWUOUU 

000340 
177776 
177776 
000054 
000130 
000126 
000132 
000124 
000101 
000022 
000020 
020000 
010000 
****** 

000056 
000060 
031060 
002000 
000112 
000177 
100000 
001740 
075464 
****** 

000102 
OOOOOO 
010000 
000006 
000014 
000016 
000002 
000004 
OOOOOO 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
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SEO 0578 



STATBI= 


064757 


UIPDR2= 


177604 


STAT1 = 


000027 


UIPDR3= 


177606 


SUSPND= 


00C001 


UIPDR4= 


177610 


SVRO = 


000062 


UIPDR5= 


177612 


SVR1 - 


000064 


UIPDR6= 


177614 


SVR2 = 


/\ /\ r\ r\ £ C 

VUUUOU 


UIPDR7= 


177616 


SVR3 = 


000070 


WASADR= 


000104 


SVR4 = 


000072 


WBSTAT= 


000040 


SVR5 = 


000074 


WBUFEA= 


000136 


SVR6 = 


000076 


WBUFPA= 


000134 


SYSCNT= 


000052 


WBUFRQ= 


000140 


SYSERR= 


000100 


WBUFS2= 


000142 


TMPIO = 


000002 


WDF.R = 


0001 16 


TOOVF = 


000002 


WDTO = 


000114 


UIPAR0= 


177640 


WTINRE= 


000352 


UIPAR1= 


177642 


WTWHMI= 


000222 


UIPAR2= 


177644 


XFLAG = 


000005 


UIPAR3= 


177646 


XOFF - 


000023 


UIPAR4= 


177650 


XON 


000021 


UIPAR5= 


177652 


$BGNLE= 


177777 


UIPAR6= 


177654 


SERFLG= 


000400 


UIPAR7= 


177656 


$FSAND= 


000310 


UIPDRO= 


177600 


$F$BAD= 


000401 


UIPDR1= 


177602 


$F$BLA= 


000170 


, ABS. 


OOOOOO 000 
000422 001 





$F$CAS= 
SF$DEC= 
SFSDO = 
$F$FAL= 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RT'I = 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$FSUNT= 
$F$WHI= 
$F$YES= 
$IFLEV= 
$ISK0 = 
$ISK1 = 
$ISK2 = 
SISK3 = 



000150 
000220 
000340 
000405 
000400 
000110 
000210 
000200 
000160 
0C0403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 
000001 
000001 
000001 
000001 



$ISK4 = 

$ISK5 a 

$LCCTA= 
$LSTIN= 
SLSTTA= 
$NESTL= 
SNSKO - 
$NSK1 = 
$NSK2 = 
$NSK3 = 
$NSK4 = 
$NSK5 = 
$NSK6 = 
SSAVLE= 
$TAGLE= 
$TAGNU= 
$TEMP = 
$TSK0 = 
STSK1 = 
$TSK2 = 
$TSK3 = 
$TSK4 = 
$TSK5 - 
$$ARGC= 



000001 
000001 
177777 
000001 
000001 
177777 
000300 
000110 
000110 
000110 
000110 
000110 
000110 
177777 
177777 
050002 
000300 
050003 
050011 
050013 
050015 
050017 
050021 
000000 



$SBYTE= 
S$CASE= 
SSDST = 
SSELOC= 
$SERFL= 
SSFLAG= 
$$FRGfv1= 
SSLOC = 
$SLQCN= 
$$REG = 
$$RETU= 
$SRTN1= 
$$RTN2= 
SSSRC = 
$$TGSV= 
$STGS1= 
$$TGS2= 
SSTO = 
$$STAG= 



000403 

000000 

000000 

000402 

000000 

000001 

000000 

000322R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000002 

050000 

000422R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSK2: KEXAM, DSKZ:KEXAM=SPMAC/!VIL, EQUATE, KEXAM 
RUN-TIME: 15 5 .4 SECONDS 
RUN-TIME RATIO: 38/21=1.7 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:53 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0579 

3 COMMON EQUATE MODULE 

558 COMMON DEFINITIONS AND REFERENCES FOR KFILL 

561 000000' .PRINT ;SPMAC: VERSION 1.1 

594 KFILL ROUTINE 
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SEO 0580 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
513 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 



.TITLE KFILL PROCESS THE 'FILL 1 KEYBOARD COMMAND 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
KFILL 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PROCESSES THE 'FILL' KEYBOARD COMMAND. 

IF NO ARGUMENT IS FOUND IN THE DECODE BUFFER, THE CONTENTS 

OF THE FILL COUNT/FILL CHAR ARE OUTPUTTED. 

INPUTS: 

1 . ADDRESS OF DATA TABLE 

2. DECODE BUFFER POINTER 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

1. DT.KBRSP 

2. DT.FCNT 

PATHOLOGICAL CONNECTIONS: 
CM.ARG 

SUBORDINATE ROUTINES CALLED: 

1. ARGCHK - VERIFY AN ARGUMENT 

2. BGA.1.6 - BINARY TO OCTAL ASCII CONVERSION 

3. SAVREG 

4. RESREG 

5. NUMCHK 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL KFILL IN <DTADR , BUFPTR> 
WHERE: DTADR = ADDRESS OF DTABLE 

BUFPTR = CMD DECODE BUFFER POINTER 

VERSION: 
0.0 



EDIT 



DATE 



5Y 



REASON 
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SEQ 0581 



558 
559 
560 
561 
(D 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 

587 
588 
589 
590 
591 
592 



000000' 
000000' 



000001 
000001 



.SBTTL COMMON DEFINITIONS AND REFERENCES FOR KFILL 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

SLSTIN=1 
$LSTTAG=1 

REFERENCES BY OTHER MODULES: 



000000' 
000006' 
000007' 
000015' 



043045 
040 

000006 
045 

000020' 



GLOBL KFILL 

GLOBAL REFERENCES: 

GLOBL B0A16 

GLOBL SAVREG 

GLOBL RESREG 

GL03L ARGCHK 

GLOBL NUMCHK 

GLOBL CM.ARG 

LOCAL STORAGE: 

046111 027514 KF.MG1 : .ASCII '%FILL/ 



000 



KF.MG2: .BLKB 6 

• ASCIZ /'%/ 
.EVEN 



;MODULE ENTRY POINT 



BINARY T.O OCTAL ASCII CONVERSION 

SAVE REGISTERS 

RESTORE REGISTERS 

CHECK AN ARGUMENT 

CHECK AN OCTAL ASCII NUMBER 

"INVALID OR MISSING ARGUMENT" MESSAGE 



;FILL MESSAGE 

;HOLD ASCII DT.FLCNT CONTENTS 
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.SBTTL KFILL ROUTINE 



ROUTINE KFILL <DTADR, BUFPTR> 



SEQ 0532 



594 








595 








596 








597 


000020' 






(2) 


000020' 






598 








599 








600 








S01 








302 








603 


000020' 






(3) 


000020' 


004767 


OOOOOOG 


504 


000024' 






(4) 


000024' 


016500 


000000 


605 


000030' 






(4) 


000030' 


016501 


000002 


606 








607 








60S 








609 








610 








611 








612 


000034' 






(4) 


000034' 


012703 


00003S 


(6) 


000040' 


060003 




613 








614 








615 








616 








617 


000042* 






(4) 


000042' 


162705 


000002 


(3) 


000046' 


010546 




(4) 


000050' 


010145 




(3) 


000052' 


004767 


OOOOOOG 


(3) 


000056' 


012605 




(4) 


000060' 


012501 




618 








619 








620 








621 








622 


000062' 






(6) 


000062' 


103464 




623 








624 








625 


000064' 






(4) 


000064' 


162705 


000004 


(3) 


000070' 


010546 




(5) 


000072' 


010145 




(4) 


000074' 


010045 




(3) 


000076' 


004767 


OOOOOOG 


(3) 


000102' 


012605 




(4) 


000104' 


012501 




(4) 


000106' 


012502 




626 








627 








628 









KFILL: 



SAVE REGISTERS AND SAVE DATA TABLE ADDRESS, AND DECODE BUFFER POINTER 



CALL SAVREG 

LET RO := DTADR(R5) 

LET R1 := BUFPTR(R5) 

R3 GETS ADDRESS OF FILL COUNT 
LET R3 := #DT.FCNT + RO 

GET TO FIRST ARGUMENT 
CALL ARGCHK IN <R1> OUT <R1> 



JSR PC, SAVREG 
MOV DTADR(R5),R0 
MOV BUFPTR(R5),R1 



MOV 
ADD 



IF IT'S NOT A CARRIAGE RETURN, VERIFY THE NUMBER 



IF. NO. ERROR THEN 



CALL NUMCHK IN <R0,R1> OUT <R1,R2> 



BwS 



#DT.FCNT,R3 
R0,R3 



SUB 


#1*2, R5 


MOV 


R5,-(SP) 


MGV 


R1 -,"-■( R5) 


JSR 


PC, ARGCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 



50002$ 



SUB 


#2*2, R5 


MOV 


R5,-(SP) 


MOV 


R1 ,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, NUMCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 


MOV 


(R5)+,R2 



; + 

; IF THERE IS AN ERROR IN THE NUMBER, LEAVE 
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COMMAND 

KFILL 



MACY11 
ROUTINE 
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629 
630 
(6) 
631 
632 
633 
(2) 
634 
635 
(4) 
636 
637 
638 
639 
640 
641 
(4) 
(3) 
(4) 
(3) 
(3) 
(4) 
642 
643 
644 
645 
646 
547 
(6) 
648 
549 
650 
(4) 
651 
(2) 
652 
653 
(4) 
654 
655 
(4) 
(3) 
(5) 
(4) 
(3) 
(3) 
(4) 
(4) 
656 
657 
658 
659 
660 
661 
(6) 
662 



0001 10' 
000110' 103001 



000112' 
000112' 000463 



IF. ERROR THEN 



INLINE <BR 1$> 



uvw 



BR 



0001 14' 
000114' 



0001 14' 
000114' 
000120' 
000122' 
000124' 
000130' 
000132' 



ENDIF 



GET NEXT ARGUMENT 



50003$: 



CALL ARGCHK IN <R1> OUT <R1> 



162705 
010546 
010145 
004767 
012605 
012501 



000002 



000000G 



IF AN ERROR, 



HE DIDN'T GIVE ENOUGH ARGUMENTS 



000134' 
000134' 103004 



000135' 

000136' 012760 000000G 000022 

000144' 

000144' 000446 

000146' 
000146' 



IF. ERROR THEN 



LET DT.KBRSP(RO) :.= #CM.ARG 
INLINE <BR 1$> 



000146' 
000146* 
000152' 
000154' 
000156' 
000160' 
000164' 
000166' 
000170' 



000172' 
000172' 



ENDIF 



CALL NUMCHK IN <R0,R1> OUT <R1,R4> 



50004S: 



162705 
010546 
01 0145 
010045 
004767 
012605 
012501 
012504 



000004 



OOOOOOG 



WE GOT THE SECOND PART OF THE ARGUMENT, IF INVALID, LEAVE 



IF. ERROR THEN 



103001 



3CC 



SEO 05S3 



50003$ 



1$ 



SUB 


#1*2, R5 


MOV 


R5,-(SP) 


MOV 


R1 ,-(R5) 


JSR 


PC, ARGCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 



BCC 50004$ 

MOV #CM.ARG,DT.KBRSP 

BR 1$ 



SUB 


#2*2, R5 


MOV 


R5,-(SP) 


MOV 


R1 ,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, NUMCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 


MOV 


(R5)+,R4 



50005$ 
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663 


000174' 






(2) 


000174' 


000432 




664 








665 


000176' 






(4) 


000176' 






666 








667 








563 








669 








670 








671 








572 


000176' 






(4) 


000176' 


162705 


000002 


(3) 


000202' 


010546 




(4) 


000204' 


010145 




(3) 


000206' 


004767 


OOOOOOG 


(3) 


000212' 


012605 




(4) 


000214' 


012501 




673 








674 








675 








676 








677 


000216' 






(6) 


000216' 


103404 




678 








679 








680 


000220' 






(4) 


000220' 


012760 


OOOOOOG 000022 


681 


000226' 






(2) 


000226' 


000415 




682 








683 


000230* 






(4) 


000230' 






684 








685 








686 








687 








688 








689 








690 


000230' 






(4) 


000230' 


110423 




691 


000232' 






(4) 


000232' 


110213 




692 








693 








694 


000234' 






(4) 


000234' 






695 








696 








697 








698 








699 








700 


000234' 






(3) 


000234' 


010546 




(5) 


000236' 


012745 


000007' 


(4) 


000242' 


016045 


000036 



INLINE <BR 



1S> 



BR 



ENDIF 



NUMBER OK, VERIFY NO JUNK ARGUMENTS EXIST 



CALL ARGCHK IN <R1> OUT <R1> 



50005S: 



IF THERE ARE MORE JUNK ARGUMENTS - LEAVE, BUT STUFF ERROR MSG FIRS1 

IF. NO. ERROR THEN 

BCS 



D^PtRO^. '- *i~1M A On 



LLI Ul . r\cr*-J r ^ n\j j 



INLINE <BR 1S> 



MOV 

BR 



ENDIF 



NO JUNK ARGUMENTS - SO REPLACE FILL COUNT/CHAR WITH 
NEW VALUES 



50005S: 



LET (R3)+ :B= R4 
LET (R3) :B= R2 



MOV 3 
MOVB 



ENDIF 



CONVERT THE NUMBER IN DT.FCNT TO ASCII, STUFF MESSAGE 
AND RETURN 

CALL B0A16 IN <DT . FCNT (RO) ,#KF.MG2> 



50002$: 



MOV 
MOV 
MOV 



SEQ 0584 



1$ 



SUB 


#1*2, R5 


MOV 


R5,-(SP) 


MOV 


R1 ,-(R5) 


JSR 


PC, ARGCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 



50006$ 

#CM.ARG,DT.KBRSP 
1$ 



R4, (R3)+ 
R2, (R3) 



R5,-(SP) 
#KF.MG2,-(R5) 
DT.FCNT(RO) t -(R5 



KFILL 


PROCESS 


THE 'FILL 1 KEYBOARD COi 


KFILL. MAC 28- 


-JUL-78 


09M8 


(3) 


000246' 


004767 


OOOOOOG 


(3) 


000252' 


012605 




701 








702 


000254' 






(4) 


000254' 


012760 


000000' 000022 


703 


000262' 






(2) 


000262' 






704 


000262' 






(3) 


000262' 


004767 


OOOOOOG 


705 








706 


000266' 






(3) 


000266' 






(3) 


000266' 






(2) 


0C0266' 


000207 




707 




000001 





flAND MACY11 30A(1052) 2Q-SEP-78 17:58 PAGE 19-5 
KFILL ROUTINE 

LET DT.KBRSP(RO) := #KF.MG1 
INLINE <1$:> 
CALL RESREG 

ENDRTN 
.END 



SEQ 0585 



50000$: 
50001$: 



JSR 
MOV 



MOV 
1$: 
JSR 

RTS 



PC, B0A16 
(SP)+,R5 



#KF.MG1 .DT.KBRSP 



PC, RESREG 



PC 



KFILL 


PROCES! 


KFILL.MAC 21 


ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APT PRE = 


000200 


ARGCHK= 


****** 


ASB 


000106 


ASSEM3= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


0001 10 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT* - 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BITS = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 • = 


001000 


BKDEF = 


000002 


BKMOD = 


000C20 


BKMOD E= 


040000 


3KSLSH= 


000134 


BOA 16 = 


****** 


BUFPTR= 


000002 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CM.ARG= 


****** 


CONFIG= 


000056 



THE 'FILL' 
28-JUL-78 09: 



KEYBOARD COMMAND 


MACY11 30A(1052) 20-SEP-78 


I 17:58 Pi 


!xGE 20 


18 


SYMBOL 


TABLE 








CQOVF = 


000001 


ECCSTA= 


■000010 


LF 


000012 


CR 


000015 


ENBEOP= 


010000 


LPSTAT= 


000001 


CSRA = 


000100 


ENBNUL= 


000001 


MAPSTA= 


000200 


CSRC = 


000102 


ENDLST= 


000000 


MED 


076600 


CTRLC '■ = 


000003 


EOPBIT= 


000001 


MEMPAS= 


040000 


CTRLO = 


000017 


ERRTYP= 


000106 


M0D£XH= 


004000 


CTRLU = 


000025 


EVNTBE= 


000200 


MODHOL- 


002000 


DCEVNT= 


000011 


EVNTHD= 


000200 


M0DSEL= 


001000 


DEFRTN= 


000400 


EVNTKT= 


000203 


MSGCKD= 


000010 


DIAGMC= 


000000 


EVNTPE= 


000202 


MSGCKS= 


00001 1 


DROPMO= 


100000 


EVNTRE= 


000201 


MSGDER= 


000005 


DSEVNT= 


000014 


FATERR= 


100000 


MSGDRP= 


000017 


DTADR = 


000000 


HRDCNT= 


000044 


MSGECH= 


177777 


DT.ADD= 


000042 


HRDPAS= 


000050 


MSGE0P= 


000013 


DT.AP = 


000100 


ICONT = 


000036 


WSGHDR= 


000004 


DT.APK= 


000076 


IC0UNT= 


000040 


MSGHNG= 


000022 


DT.BLS= 


000034 


IDNUM = 


000122 


MSGHRD= 


000007 


DT.CF0= 


00C014 


IE 


000100' 


MSGNIAP = 


000021 


DT.CF1= 


000016 


INDPAR= 


000040 


MSGNUL= 


177775 


DT.ERR= 


000020 


INHDRP= 


040000 


MSGP0P= 


000002 


DT.ESI= 


000044 


INHEPR= 


020000 


MSGPRM= 


177776 


DT.EVN= 


000000 


INHREL= 


001000 


MSGRES= 


000001 


DT.EXS= 


000060 


INHRRE= 


000400 


MSGSFT= 


000006 


DT.FCH= 


000037 


INIT = 


000030 


MSGSKE= 


000003 


DT.F'CN = 


000036 


INTR = 


000; 20 


MSGSMB= 


000015 


DT.HMX= 


000104 


IOMOD = 


100000 


MSGSMH= 


000014 


DT.KBt= 


000024 


IGfviODP— 


1 C20u0 


RSCQCMC = 


00 1 5 


DT.KBP= 


000026 


I0M0DR= 


112000 


MSGSTD= 


000000 


DT.KBR^ 


000022 


IOMODX= 


110000 


MSGSYS= 


000012 


DT.Keu= 


000030 


JACK = 


035060 


MSGVEC= 


000020 


DT.MLS= 


000032 


KFILL 


000020RG 


NBKM0D= 


001000 


DT.MTI = 


0-00*1-0 


KF-MGt 


. 0Q.0Q.OOR 


NC.PUOP= 


000020 


DT.OFF= 


000070 


KF.MG2 


000007R 


NOAPTY= 


66o6o2 


DT.PAS= 


000074 


KIPAR0= 


172340 


NULL = 


000000 


DT. PC .= 


000002 


KIPAR1= 


172342 


NUMCHK= 


****** 


DT.PFL= 


000062 


KIPAR2= 


172344 


OWEN = 


024020 


DT.PSW= 


000004 


KIPAR3= 


172346 


PAERR = 


000010 


DT.PTA= 


000064 


KIPAR4= 


172350 


PARPRE= 


002000 


DT.RCS= 


000102 


KIPAR5= 


172352 


PARSTA= 


000100 


DT.REL= 


000040 


KIPAR6= 


172354 


PASCNT= 


000034 


DT.SCT= 


000066 


KIPAR7= 


172356 


PDPLSI= 


020000 


DT.SMX= 


000106 


KIPDRO= 


172300 


PDP60 = 


004000 


DT.SP = 


000006 


KIPDR1= 


172302 


PDP70 = 


010000 


DT.SSI= 


000046 


KIPDR2= 


172304 


PRIO = 


000000 


DT.STO= 


000010 


KIPDR3= 


172306 


PRI1 = 


000040 


DT.ST1= 


000012 


KIPDR4= 


172310 


PRI4 = 


000200 


DT.SWR= 


000055 


KIPDR5= 


172312 


PRI5 = 


000240 


DT.SYP= 


000072 


KIPDR6= 


172314 


PRI6 = 


000300 


DT.WBU= 


000050 


KIPDR7= 


172316 


PRI7 = 


000340 


DT.WHL= 


000054 


KTERR0= 


000040 


PRO 


000000 


DT.WLL= 


000052 


KTPRES= 


000400 


PR4 


000200 


DVID1 = 


000014 


KTSTAT= 


000020 


PR5 = 


000240 


ECCMEM= 


000100 


KTXTND= 


040000 


PR6 


000300 



SEQ 0586 



PR7 

PS 

PSW 

RANNUM= 

RBUFEA= 

RBUFPA= 

R8UFS2= 

RBUFVA= 

RDSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RESREG= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBGUT= 

RUNMOD= 

R5VALU= 

SAM 

SAVREG= 

S9ADR = 

SBKMOD= 

SBKSEL= 

SC.ADR= 

SC.ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

sc.cl6= 

SC.HLD= 
SC.SCA= 
SENDLS= 
SOFCNT= 
SOFPAS= 
SPACE = 
SPOINT= 
SPVALU= 
SRO 
SR1 

SR2 = 
SR3 

STAT = 
STATBI= 
STAT1 = 
SUS°ND= 
SVRO = 
SVR1 = 
SVR2 = 
SVR3 = 



000340 
177776 
177776 
000054 
000130 
000126 
000 1 32 
000124 
000101 
000022 
000020 
020000 
010000 
****** 

000056 
000060 
031060 
002000 
000112 
000177 
100000 
001740 
075464 
****** 

000102 
000000 

010000 

000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 
000027 
000001 
000062 
000064 
000066 
000070 
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SVR4 = 


000072 




UIPDR5= 


177612 


SVR5 s 


000074 




UIPDR6= 


177614 


SVR5 = 


000076 




UIPDR7= 


177516 


SYSCNT= 


000052 




WASADR= 


000104 


SYSERR= 


000100 




WBSTAT= 


000040 


TMPIO = 


000002 




WBUFEA= 


000136 


TQOVF = 


000002 




WBUFPA= 


000134 


UIPAR0= 


177640 




WBUFRQ= 


000140 


UIPAR1= 


177642 




WBUFSZ= 


000142 


UIPAR2= 


177644 




WDFR = 


0001 16 


UIPAR3= 


177646 




WDTO = 


0001 14 


UIPAR4= 


177650 




WTINRE= 


000352 


UIPAR5= 


177652 




WTWHMI= 


000222 


UIPAR6= 


177654 




XFLAG - 


000005 


UIPAR7= 


177656 




XOFF = 


000023 


UIPDRO= 


177600 




XON 


000021 


UIPDR1= 


177602 




$BGNLE= 


177777 


UIPDR2= 


1 77604 




$ERFLG= 


000400 


UIPDR3= 


177606 




$F$AND= 


000310 


UIPDR4= 


177610 




$F$BAD= 


000401 


. ABS. 


000000 
000270 


000 
001 







$F$BLA= 
$F$CAS= 
SF$DEC= 
$F$DO = 
$F$FAL= 
$F$GOO= 
SFSIF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$FSRTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$FSYES= 



000170 
000150 
000220 
000340 
000405 
000400 
0001 10 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 



$1FLEV= 
$ISKO = 
$ISK1 = 
$LOCTA= 
$LSTIN= 
$LSTTA= 
$NESTL= 
SNSKO = 
SNSK1 = 
SNSK2 = 
$SAVLE= 
$TAGLE= 
STAGNU= 
STEMP = 
STSKO = 
STSK1 = 
$$ARGC= 
$$BYTE= 
$$CASE= 
$$DST = 



1 Y / y / / ■ 

000001 
000001 
177777 
000001 
000001 
1 77777 
000300 
000110 
000110 
177777 
177777 
050007 
000300 
050002 
050006 
000004 
000000 
000000 
000000 







SEO 0537 


tr- * c ' i"*' /" — 

^J^3 C. LU\,- 


nnn/i go 








$$ERFL= 


000000 




$$FLAG= 


000001 




$$FROM= 


000000 




$SLOC = 


000216R 




$$LOCN= 


000000 




$SREu = 


177777 




$SRETU= 


000000 




$$RTN1= 


050000 




S$RTN2= 


050001 




SSSRC = 


000000 




$$TGSV= 


000000 




SSTGS1= 


000000 




$$TGS2= 


000000 




$$T0 = 


000000 




$$$TAG= 


050000 




= 


000270R 





ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ tKF I LL,DSKZ:KFILL=SPMAC/ML f EQUATE, KFILL 
RUN-TIME: 13 3 .3 SECONDS 
RUN-TIME RATIO: 31/16=1.8 
CORE USED: 14-K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 17:59 

EQUATE. MAC 13--SEP-78 16:13 TABLE OF CONTENTS SEQ 0588 

3 COMMON EQUATE MODULE 

561 COMMON DEFINITIONS AND REFERENCES FOR KMAP 

564 000000' .PRINT ;SPMAC: VERSION 1.1 

598 KMAP ROUTINE 
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SEQ 0589 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 

535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 



PROCESS THE 'MAP' KEYBOARD COMMAND 



■TITLE KMAP 
IDENT /V0.0/ 

++ 
MODULE NAME: 
KMAP 



FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PROCESSES THE 'MAP' KEYBOARD COMMAND. IT WIL1 
SEARCH THE MODULE LIST AND ENQUEUE THE MAP MESSAGE FDR 
EACH MODULE. IF A MODULE NAME IS SPECIFIED, A MAP 
MESSAGE IS QUTPUTTED FOR THAT MODULE ONLY. 



INPUTS: 
1 . 
2, 



ADDRESS OF DATA TABLE 
COMMAND DECODE BUFFER POINTER 



IMPLICIT INPUTS: 
DT.MLST 
DT.STO 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.KBRSP 

PATHOLOGICAL CONNECTIONS: 
CM.ARG'.CM.BADNAME 

SUBORDINATE ROUTINES CALLED: 

1. ARGCHK - CHECK FOR JUNK ARGUMENTS 
2. ""ENQTQ - ENQUEUE 1 A' MESSAGE 

3. NAIWCHK - VERIFY A MODULE NAME 

4. SAVREG - SAVE REGISTERS 

5. RESREG - RESTORE REGISTERS 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL KMAP IN <DTADR , BUFPTR> 

WHERE DTADR = ADDRESS OF DATA TABLE 

BUFPTR = COMMAND DECODE BUFFER POINTER 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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SEQ 0590 



561 
562 
563 
564 
(D 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 



000000' 
000000' 



000001 
000001 



000000' 000000 

000002' 041445 042115 

000010' 041045 054523 



.SBTTL COMMON DEFINITIONS AND REFERENCES FOR KMAP 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTTAG=1 
$LSTIN=1 






REFERENCED BY OTHER MODULES: 



GLOBL KMAP 

GLOBAL REFERENCES: 

GLOBL ARGCHK 

GLOBL SAVREG 

GLOBL RESREG 

GLOBL ENQTQ 

GLOBL CM.ARG 

GLOBL NAMCHK 

GLOBL CM.BADNAME 

jit*************** 
LOCAL STORAGE: 



KM.HLD: .WORD 

000076 KM.CMD: .ASCIZ /%CMD>/ 

000076 KM. RUN: .ASCIZ /%BSY>/ 

.EVEN 



JMODULE ENTRY POINT 



CHECK AN ARGUMENT 

SAVE REGS 0-4 

RESTORE REGS 0-4 

ENQUEUE A MESSAGE 

'ILLEGAL ARGUMENT' ERROR MSG 

CHECK A MODULE NAME 

'INVALID MODULE NAME 1 ERROR MESSAGE 



;HOLD ADDRESS OF MESSAGE 
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SEQ 0591 



598 
599 
600 
(2) 
601 
602 
603 
604 
605 
606 
(3) 
607 
(4) 
508 
(4) 
609 
310 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
(6) 
(9) 
622 
(4) 
623 
(4) 
(3) 
624 
(4) 
625 
(4) 
626 
627 
628 
629 
630 
631 
(4) 
(3) 
(4) 
(3) 
(3) 
(4) 
632 
633 
634 
635 
636 



000016' 
000016' 



000016' 
000016' 004767 



OOOOOOG 



000022' 
000022' 
000026' 
000026' 



016500 000000 

016501 000002 



000032' 

000032' 032760 
000040' 001404 
000042' 

000042' 012767 
000050' 

000050' 000403 
000052' 
000052' 

000052' 012767 
000060' 
000060' 



100000 000010 
000010' 177730 

000002' 177720 



000060' 
000060' 



162705 



000064' 010546 

000066' 010145 

000070' 004767 

000074' 012605 

000076' 012501 



000002 
OOOOOOG 



.SBTTL KMAP ROUTINE 
ROUTINE KMAP <DTADR t BUFPTR> 



KMAP: 



INITIALIZE AND SAVE DTABLE ADDRESS AND DECODE BUFFER PTR 

CALL SAVREG 

LET RO := DTADR(R5) 

LET R1 := BUFPTR(R5) 



JSR 
MOV 
MOV 



IF IN RUNMODE , STUFF FAKE COMMAND PROMPT SINCE 
THIS COMMAND USES ENQTQ, IT WILL 0/P THE NORMAL 
PROMPT BEFORE ANY OF THE MAP MESSAGES WILL BE 
PRINTED - THEN THIS DUMMY PROMPT WILL BE 
OUTPUTTED.... . . 

IF #RUNMODE SETIN DT.STO(RO) THEN 

LET KM.HLD := #KM.RUN 
ELSE 



LET KM.HLD := #KM.CMD 



END IF 



50002$: 



50003$: 



BIT 

BEQ 

MOV 

BR 

MOV 



SEE IF ANY ARGUMENTS ARE INCLUDED IN DECODE BUFFER 



CALL ARGCHK IN <R1> OUT <R1> 



IF THERE ARE NO ARGUMENTS DO A FULL MAP (ALL MODULES). GET ADDRESS 
OF MODULE LIST. THEN, WHILE 

THE ENTRY IN THE MODULE LIST IS NOT 0, ENQUEUE THE MAP MESSAGE 
FOR THE MODULES. 



PC, SAVREG 
DTADR(R5) , RO 
BUFPTR(R5),R1 



#RUNM0DE,DT.ST0( 
50002$ 

#KM.Ry_N,KM.HLP. 

50003$ 

#KM.CMD, KM.HLD 



SUB 


#1*2 t R5 


MOV 


R5,-(SP) 


MOV 


R1 ,-(R5) 


JSR 


PC, ARGCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 
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637 






» 


638 








639 








640 


000100' 




I 


(6) 


000100' 


103023 




641 








642 


000102' 






(4) 


000102" 


016002 


000032 


643 


000106' 






(4) 


000106' 






(6) 


000106' 


021227 


oooooo 


(9) 


000112' 


001415 




644 


0001 14' 






(3) 


000114' 


010546 




(8) 


0001 16' 


012745 


000000 


(7) 


000122' 


012245 




(6) 


000124' 


012745 


OOOOOO 


(5) 


000130' 


012745 


000021 


(4) 


000134' 


010045 




(3) 


000136' 


004767 


OOOOOOG 


(3) 


000142' 


012605 




645 


000144' 






(4) 


000144' 


000760 




(3) 


000146' 






646 








647 


000146' 




E 


(4) 


000i46 ! 


000450 




(3) 


000150' 






648 








649 








650 








651 








652 








653 


000150' 






(4) 


000150' 


162705 


000004 


(3) 


000154' 


010546 




(5) 


000156' 


010145 




(4) 


000160' 


010045 




(3) 


000162' 


004767 


OOOOOOG 


(3) 


000166' 


012605 




(4) 


000170' 


012502 




(4) 


000172' 


012501 




654 








655 








656 








657 


000174' 






(6) 


000174' 


103432 




658 








659 








660 


000176' 






(4) 


000176' 


162705 


000002 


(3) 


000202' 


010546 




(4) 


000204' 


010145 




(3) 


000206' 


004767 


OOOOOOG 


(3) 


000212' 


012605 




(4) 


000214' 


012501 





IF. ERROR THEN 



LET R2 := DT.MLST(RO) 
WHILE (R2) NE #ENDLST DO 

CALL ENQTQ IN <R0 , #MSGMAP , #0 , (R2)+, #0> 



50005$: 



ENDDO 



ELSE 



BR 



50004S: 



THERE IS AN ARGUMENT - GO CHECK IT OUT 



CALL NAMCHK IN <R0,R1> OUT <R2,R1> 



IF MODULE NAME IS O.K. - JUST VERIFY THERE IS NO JUNK ARGUMENT 
IF. NO. ERROR THEN 

CALL ARGCHK IN <R1> OUT <R1> 



BCS 



SEQ 05S2 



BCC 50004$ 



MOV DT.MLST(RO) ,R2 



CMP 


(R2) ,#ENDLST 


BEQ 


50006$ 


MOV 


R5,-(SP) 


MOV 


#0,-(R5) 


MGV 


(R2)+,-(R5) 


MOV 


#0,-(R5) 


MOV 


#MSGMAP,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, ENQTQ 


MOV 


(SP)+,R5 


BR 


50005$ 


50006S: 





50007$ 



SUB 


#2*2, R5 


MOV 


R5,-(SP) 


MOV 


R1 ,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, NAMCHK 


MOV 


(SP)+,R5 


MOV 


fR5)+,R2 


MOV 


(R5)+,R1 



50010$ 



SUB 


#1*2, R5 


MOV 


R5,-(SP) 


MGV 


R1 ,~(R5) 


JSR 


PC, ARGCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+ t R1 
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KMAP. MAC 

661 
662 
663 
664 
(6) 
665 
666 
667 
(3) 
(8) 
(7) 
(6) 
(5) 
(4) 
(3) 
(3) 
668 
669 
(4) 
(3) 
670 
671 
672 
673 
674 
(4) 

fiTC 
<-»!_-> 

676 
(4) 
677 
678 
(4) 
(3) 
679 
680 
681 
682 
683 
684 
(4) 
685 
686 
(4) 
687 
688 
(4) 
689 
690 
691 
692 
693 
694 
695 
696 
(6) 
(9) 



19-SEP-78 16:20 



000216 1 
000216 1 



000220' 
000220' 
000222' 



103015 



010546 
012745 



KMAP ROUTINE 

IF NO JUNK ARGUMENTS ENQUEUE THE MESSAGE FOR THIS MODULE 

IF. ERROR THEN 

CALL ENQTQ IN <R0 , #MSGMAP , #0 , R2 , #0> 



SEQ 0593 



BCC 



000226' 010245 
000230' 012745 



000000 

000000 
000021 



000234' 012745 

000240' 0100^5 

000242' 004767 000000G 

000246' 012605 



000250' 
000250' 
000252' 



000403 



000252' 

000252' 012760 OOOOOOG 000022 

000260' 
000260' 

000260' 

000260' 000403 
000262' 



000262' 

000262' 012760 OOOOOOG 000022 

000270' 
000270' 



ELSE 



THERE IS A JUNK ARGUMENT IN DECODE BUFFER... STUFF ERROR MSG. 

LET DT.KBRSP(RO) : = tfCM.ARG 



000270 ' 
000270' 



000270' 

000270' 005760 
000274' 001015 



ENDIF 
ELSE 

BAD MODULE NAME STUFF ERROR MSG 

LET DT.KSRSP(RO) := #CM.BADNAME 
ENDIF 
ENDIF 

IF NO ERRORS, ALSO ENQUEUE A PROMPT 
IF DT.KBRSP(RO) EQ #0 THEN 



500123: 



50010$: 



MOV 



BR 



MOV 



50013$: 



50007$: 



000022 



TST 
BNE 



50011$ 



MOV 


R5,-(SP) 


MOV 


#0,-(R5) 


MOV 


R2,-(R5) 


MOV 


#0 t -(R5) 


MOV 


#MSGMAP f -(R5) 


MOV 


R0,-(R5) 


JSR 


PC, ENQTQ 


MOV 


(SP)+,R5 


BR 


50012$ 


50011$: 





#CM.ARG,DT.KBRSP 



50013$ 



#CM.BADNAME,DT.K 



DT.KBRSP(RO) 
50014$ 
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CALL ENQTQ IN <R0,#MSGSTD, KM.HLD, #0 ,#0> 



SEQ 0594 



697 


000276' 






(3) 


000276' 


010546 




(8) 


000300' 


012745 


000000 


(7) 


000304' 


012745 


000000 


(6) 


000310' 


016745 


177464 


(5) 


000314' 


012745 


000000 


(4) 


000320' 


010045 




(3) 


000322' 


004767 


OOOOOOG 


(3) 


000326' 


012605 




598 


000330' 






(4) 


000330' 






699 








700 








701 








702 








703 








704 


000330' 






(3) 


000330' 


004767 


OOOOOOG 


705 








706 


000334' 






(3) 


000334' 






(3) 


000334' 






(2) 


000334' 


000207 




707 








708 




000001 





MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
dSR 
MOV 



ENDIF 

CLEAN UP AND GOODBYE 
CALL RESREG 
ENDRTN 

• END 



50014$: 



50000$: 
50001$: 



JSR 



RTS 



R5,-(SP) 
#0,-(R5) 
#0,-(R5) 
KM.HLD,-'(R5) 
#MSGSTD,-(R5) 
RO , "* ( R5 ) 
PC, ENQTQ 
(SP)+,R5 



PC, RESREG 



PC 
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ACSR = 


000102 


CQOVF = 


0C0001 


ACT3IT= 


004000 


CR 


000015 


ADDR22= 


001000 


CSRA = 


000100 


ADR 


000006 


CSRC = 


000102 


APTFER= 


000004 


CTRLC = 


000003 


APTPRE= 


000200 


CTRLO = 


000017 


ARGCHK= 


****** Q 


CTRLU = 


000025 


ASB 


000106 


DCEVNT= 


000011 


ASSEMB= 


000010 


DEFRTN= 


000400 


ASTAT = 


000104 


DIAGMC= 


000000 


AUTO = 


000010 


DROPMO= 


100000 


AUTOST = 


020000 


DSEVNT= 


000014 


AWAS = 


000110 


DTADR = 


000000 


BITO = 


000001 


DT.ADD= 


000042 


BITOO = 


000001 


DT.AP = 


000100 


BIT01 = 


000002 


DT.APK= 


000076 


BIT02 = 


000004 


DT.BLS= 


000034 


BIT03 - 


000010 


DT.CF0= 


000014 


BIT04 = 


000020 


DT.CF1= 


00C016 


BIT05 = 


000040 


DT.ERR= 


000020 


BIT06 = 


000100 


DT.ESI= 


00 0044 


BIT07 = 


000200 


DT.EVN= 


000000 


BIT08 = 


000400 


DT.EXS= 


000060 


BIT09 = 


001000 


DT.FCH= 


000037 


BIT1 = 


000002 


DT.FCN= 


00 0036 


BIT10 = 


002000 


DT.HMX= 


000104 






rv -r ■ \s r> C — 


a r\ a a n a 


Bill I = 


UU4UUU 


u \ . rx l^i_- 




BIT12 = 


010000 


DT,KBP= 


000026 


BIT13 = 


020000 


DT.KBR= 


000022 


BIT14 = 


040000 


DT.K3U= 


000030 


BIT15 = 


100000 


DT.MLS= 


000032 


BIT2 = 


000004 


DT.MTI= 


00.01 10 


BIT3 = 


000010 


DT.OFF= 


000070 


BIT4 = 


000020 


DT.PAS= 


000074 


BIT5 = 


000040 


DT.PC = 


000002 


3IT6 = 


000100 


DT.PFL= 


000062 


BIT7 = 


000200 


DT.PSW= 


000004 


BIT8 = 


000400 


DT.PTA= 


000064 


BIT9 . = 


001000 


DT.RCS= 


000102 


BKDEF = 


000002 


DT.REL= 


000040 


BKMOD = 


000020 


DT.SCT= 


000066 


BKMODE= 


040000 


DT.SMX= 


000106 


BKSLSH= 


000134 


DT.SP = 


0C0006 


BUFPTR= 


000002 


DT.SSI= 


000046 


CAPRES= 


000004 


DT.STO= 


000010 


CASTAT= 


000004 


DT.ST1= 


000012 


CDERCT= 


000146 


DT.SWR= 


000056 


CDWDCT= 


000144 


DT.SYP= 


000072 


CKTIM = 


100000 


DT.WBU= 


000050 


CLKPRE= 


000001 


DT.WHL= 


000054 


CM.ARG= 


****** Q 


DT.WLL= 


000052 


CM.BAD= 


****** (j 


DVID1 = 


000014 


CONFIG= 


000056 


ECCMEM= 


000100 



ECCSTA- 

ENBEOP= 

ENBNUL= 

ENDLST= 

ENQTQ = 

EGPBIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT- 

HRDPAS- 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT = 

INTR = 

IOMQD = 

IOMODP= 

IQMODR= 

IOMODX= 

JACK = 

K,IPAR0= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDR0= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KMAP 

KM.CMD 

KM.HLD 

KM. RUN 

KTERRO= 

KTPRES= 



000010 
010000 
000001 
000000 

****** Q 

000001 

000106 

000200 

000200 

000203 

000202 

000201 

100000 

000044 

000050 

000036 

000040 

000122 

000100 

000040 

040000 

020000 

001000 

000400 

000030 

000120 

100000 

102000 

112000 

110000 

035060 

172340 

172342 

172344 

172346 

172350 

172352 

172354 

172356 

172300 

172302 

172304 

172306 

172310 

172312 

172314 

172315 

000016RG 

000002R 

OOOOOOR 

000010R 

000040 

000400 



KTSTAT= 

KTXTND= 

LF, 

LPSTAT= 

MAPSTA= 

MED 

MEMPAS= 

MOD£XH= 

MODHOL= 

MODSEL= 

MSGCKD= 

MSGCKS= 

MSGDER= 

MSGDRP= 

MSGECH= 

MSGEOP= 

MSGHDR= 

MSGHNG= 

MSGHRD= 

MSGMAP= 

MSGNUL= 

MSGPO?.= 

MSGPRM= 

MSGRES= 

MSGSFT= 

MSGSKE= 

MSGSM3= 

MSGSMH= 

MSGSMS= 

MSGSTD= 

MSGSYS= 

MSGVEC= 

NAMCHK= 

NBKMOD= 

NCPUOP= 

NOAPTY= 

NULL = 

OWEN = 

PAERR = 

PARPRE= 

PARSTA= 

PASCNT= 

PDPLSI= 

PDP60 = 

PDP70 = 

PRIO = 

PRI1 = 

PRI4 = 

PRI5 = 

PRI6 = 

PRI7 = 

PRO 

PR4 



000C20 
040000 
000012 
000001 
000200 
076600 
040000 
004000 
002000 
001000 
000010 
00001 1 
000005 
000017 
177777 
000013 
000004 
000022 
000007 
000021 
177775 
000002 
177776 
000001 
000006 
000003 
000015 
000014 
000016 
000000 
000012 
000020 
******* 

001000 
000020 
000002 

oooooo 

024020 
OC0010 
002000 
000100 
000034 
020000 
004000 
010000 
OOOOOO 
000040 
000200 
000240 
000300 
000340 
OOOOOO 
000200 







SEQ 0595 


PR5 


000240 




PR6 


000300 




PR7 


000340 




PS 


177776 




PSW 


177776 




RANNUM= 


000054 




R3U FEA= 


n r\ r\ < o r\ 
\J\J\J 1 OW 




RBUFPA= 


000126 




RBUFSZ= 


000132 




RBUFVA= 


000124 




RDSERV= 


000101 




RDWHMI= 


000022 




RELERR= 


000020 




RELMOD= 


020000 




RELTIM= 


010000 




RESREG= 


****** Q 




RES1 = 


000056 




RES2 = 


000060 




RICHAR= 


031060 




RPTDAT= 


002000 




RSTRT = 


000112 




RUBDUT= 


000177 




RUNMOD= 


100000 




R5VALU= 


001740 




SAM 


075464 




SAVREG= 


****** Q 




SBADR = 


000102 




SBKMOD= 


OOOOOO 




S3KSEL= 


010000 




SC.ADR= 


000006 




SC.ALC= 


000014 




SC,APC= 


000016 




SC.CKL= 


000002 




SC.CKP= 


0C0004 




SC.CLO= 


OOOOOO 




SC.HLD= 


000010 




SC.SCA= 


000012 




SENDLS= 


177777 




SOFCNT= 


000042 




SOFPAS= 


000046 




SPACE = 


000040 




SPOINT= 


000032 




SPVALU= 


002200 




SRO 


177572 




SR1 


177574 




SR2 


177576 




SR3 


172516 




STAT = 


000026 




STATBI= 


064757 




STAT1 = 


000027 




SUSPND= 


000001 




SVRO = 


000062 




SVR1 = 


000064 
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SEQ 0596 



SVR2 = 


000066 




UIPDR4= 


177610 


SVR3 a 


000070 




UIPDR5= 


177612 


SVR4 = 


000072 




UIPDR6= 


177614 


SVR5 = 


000074 




UIPDR7= 


177616 


SVR6 = 


000076 




WASADR= 


000104 


SYSCNT= 


000052 




WBSTAT= 


000040 


SYSERR= 


000100 




WBUFEA= 


000136 


TMPIO = 


000002 




WBUFPA= 


000134 


TQOVF = 


000002 




WBUFRQ= 


000140 


UIPAR0= 


177640 




WBUFS2= 


000142 


UIPAR1= 


177642 




WDFR = 


000116 


UIPAR2= 


177644 




WDTO = 


0001 14 


UIPAR3= 


177646 




WTINRE= 


000352 


UIPAR4= 


177650 




WTWHMI= 


000222 


UIPAR5= 


177652 




XFLAG = 


000005 


UIPAR6= 


177654 




XOFF = 


000023 


UIPAR7= 


177656 




XON 


000021 


UIPDR0= 


177600 




$BGNLE= 


177777 


UIPDR1= 


177602 




$ERFLG= 


000400 


UIPDR2= 


177604 




$F$AND= 


000310 


UIPDR3= 


177606 




SF$BAD= 


000401 


. ABS. 


000000 
000336 


000 
001 







$F$BLA= 
$F$CAS= 
$F$DEC= 
$F$DO = 
$F$FAL= 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
SFSNO = 
SFSOR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
SF$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 
$IFLEV= 



000170 
000150 
000220 
000340 
000405 
000400 
0001 10 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 



SISKO = 
SISK1 = 

$I$K2 = 
$LOCTA= 
$LSTIN= 
$LSTTA= 
$NESTL= 
SNSKO = 
SNSK1 = 
SNSK2 = 
SNSK3 = 
$SAVLE= 
$SSKO = 
$TAGLE= 
$TAGNU= 
STEMP = 
$TSKO = 
$TSK1 = 
$TSK2 = 
$$ARGC= 
$$BYTE= 



000001 
000001 
000001 
177777 
000001 
000001 
1 77777 
000300 
000110 
000110 
000110 
177777 
05000S 
177777 
050015 
000300 
050014 
050013 
050012 
000004 
000403 



$3CASE= 
$$DST = 
$SELOC= 
$SERFL= 
$$FLAG= 
$$FROM= 
SSLOC = 
$SLOCN= 
$$REG = 
$SRETU= 
$$RTN1= 
$$RTN2= 
SSSRC = 
$STGSV= 
$STGS1= 
S$TGS2= 
SSTO = 
$$STAG= 



000000 

000000 

000402 

000000 

000001 

000000 

000274R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 
050000 
000336R 



cDonnc riCTcrTrn< 



DEFAULT GLOBALS. GENERATED: 



DSKZ: KMAP, DSKZ:KMAP=SPMAC/ML, EQUATE, KMAP 
RUN-TIME: 13 4 .4 SECONDS 
RUN-TIME RATIO: 37/18=2.0 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 2C-SEP-78 18:00 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0597 

3 COMMON EQUATE MODULE 

573 COMMON DEFINITIONS AND REFERENCES FOR KMOD 

576 000000' .PRINT ;SPMAC: VERSION 1.1 

628 KMOD ROUTINE 
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SEQ 0598 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 



TITLE KMOD PROCESS THE 'MOD' KEYBOARD COMMAND 
.IDENT /VO'.O/ 

-H- 
MODULE NAME: 
KMOD 



FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PROCESS 
CAN BE USED WITH OR 
ARGUMENT, THE LAST P 
WILL BE OPENED. THER 
NAME AND A NUMBER. I 
THE MODULE NAME WILL 
AN ERROR MESSAGE IS 
NOT OCTAL OR NOT EVE 
OPERATOR MAY ENTER N 
IT MAY BE TERMINATED 



ES THE 'MOD' KEYBOARD COMMAND. IT 

WITHOUT AN ARGUMENT. IF NO 

REVIOUSLY MODIFIED LOCATION 

E CAN BE ONE OR TWO ARGUMENTS: A MODULE 

F A MODULE NAME, A NUMBER MUST FOLLOW. 

BE VERIFIED. IF NO MODULE BY THAT NAME 
ISSUED. THE NUMBER WILL BE VERIFIED. IF 
N, AN ERROR MESSAGE IS ISSUED. THE 
EW CONTENTS FOR AN OPENED LOCATION. 

BY CTRL U, LF OR CR. 



INPUTS: 



1 . ADDRESS OF DATA TABLE 

2. COMMAND DECODE BUFFER POINTER 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

1. DT.KBRSP - KEYBOARD RESPONSE 

PATHOLOGICAL CONNECTIONS: 

CM . ARG , CM . BADNAME , CM . ODD , CM . RUN , CM . ADR , DX . K FL 

SUBORDINATE ROUTINES CALLED: 

1 . ENQTQ - ENQUEUE A MESSAGE 

2. NUMCHK - CHECK A NUMBER 

3. NAMCHK - CHECK A NAME 

4. ARGCHK - CHECK AN ARGUMENT 

5. HRDADR - CHECK AN ADDRESS FOR EXISTENCE 

6. CMDCPY - COPY KEYBOARD BUFFER TO DECODE BUFFER 

7. MSGDEQ - DEQUEUE A MESSAGE 

8. SAVREG 

9. RESREG 

10. HRDADRCHK 

11. B0A16 

12. KBINI 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL KMOD IN <DTADR , BUFPTR> 

WHERE DTADR = ADDRESS OF DATA TABLE 

AND BUFPTR = DECODE BUFFER POINTER 
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KMOD. MAC 



28-JUL-78 09:19 



COMMON EQUATE MODULE 



SEQ 0599 



564 
565 
566 
567 
568 
56S 
570 
571 



VERSION: 
0.0 

EDIT 



DATE 



BY 



REASON 
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SEQ 0600 



573 
574 
575 
575 
(1) 
577 
578 
579 
580 
581 
582 
583 
534 
585 
586 
587 
583 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
800 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
511 
S12 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 



000000 
000000 



000001 
000001 



000000' 
000002' 
000010' 
000012' 
000020' 
000022' 
000023' 
000024' 



000000 

000006 

020057 

000006 

020040 

000 

000 

000 

000026' 



.SBT.TL COMMON DEFINITIONS AND REFERENCES FOR KMOD 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC VERSION 1.1 

$LSTTAG=1 
$LSTIN=1 

jit************* 

REFERENCED BY OTHER MODULES: 
GLOBL KMOD ;MODULE ENTRY POINT 

5jt :£ * j)c * * * * * * :jc J)c >£ If * 



GLOBAL REFERENCES: 



GLOBL 


CM.ARG 


GLOBL 


MSGDEQ 


GLOBL 


CMDCPY 


GLQB.L 


CM. ADR 


GLOBL 


CM . RUN 


GLOBL 


NAMCHK 


GLOBL 


CM.BADNAME 


r |_Q£ • 


CMHTA 


GLOBL 


NUMCHK 


GLOBL 


ARGCHK 


GLOBL 


HRDADRCHK 


GLOBL 


CM. ODD 


GLOBL 


BQA16 


GLOBL 


SAVREG 


GLOBL 


KBINI 


GLOBL 


RESREG 


GLOBL 


DX.KFL 



•It*************** 



LOCAL STORAGE: 



KM.LOC: 


.WORD 


KM.MG1 : 


.BLKB 6 




.ASCII '/ 


KM.MG2: 


.BLKB 6 




.ASCII / 




.BYTE 


KM.ABT: 


.BYTE 


KM.FLG: 


.BYTE 


!even 




j**************** 



■ILLEGAL ARGUMENT 1 

MESSAGE DEQUEUER 

COPY KEYBOARD BUF TO DECODE BUF 

' ILLEGAL ADDRESS* 

'ILLEGAL COMMAND IN RUN MODE 

CHECK AN OPTION MODULE NAME 

'INVALID MODULE MODULE NAME' 

ENQUEUE A MESSAGE 

CHECK A NUMBER 

CHECK AN ARGUMENT 

CHECK AN ADDRESS ROUTINE 

'NUMBER MUST BE EVEN 

BINARY TO OCTAL ASCII CONVERSION 

SAVE REGISTERS 

KEYBOARD INIT ROUTINE 

RESTORE REGISTERS 

CARRIAGE RETURN FLAG 



HOLD LOCATION TO BE MODIFIED 

HOLD ASCII LOCATION 

SEPARATOR 

HOLD ASCII CONTENTS OF LOCATION 

SPACES 

TERMINATOR (NO CR DESIRED) 

ABORT FLAG 

KBINT FLAG 
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628 
629 
630 
(2) 
631 
532 
633 
634 
635 
636 
(3) 
637 
(4) 
638 
(4) 
639 
640 
641 
642 
643 
(3) 
(4) 
(3) 
(3) 
644 
645 
646 
647 
643 
649 
(4) 
650 
651 
652 
653 
654 
655 
656 
657 
(6) 
(9) 
658 
659 
(4) 
660 
(2) 
661 
662 
(4) 
663 
664 
665 
666 
667 
668 
(4) 



000026' 
000026' 



000026' 
000026' 
000032' 
000032' 
000036' 
000036' 



000042' 
000042' 
000044' 
000046' 
000052' 



000054' 
000054' 



004767 O00000G 

016500 000000 

016501 000002 



010546 

01 0045 

004767 OOOOOOG 

012605 



105067 177743 



000060' 
000060' 
000066' 

000070' 
000070' 
000076' 
000076' 

000102' 
000102' 



000102 1 
000102' 



032760 100000 000010 
001405 



012760 OOOOOOG 000022 
000167 001014 



KMOD ROUTINE 

.SBTTL KMOD ROUTINE 

ROUTINE KMOD <DTADR , BUFPTR> 

;+■ 

;SAVE REGISTERS AND SAVE DTABLE ADDRESS + SUFFER POINTER 

CALL SAVREG 

LET RO := DTADR(R5) 

LET R1 := BUFPTR(R5) 

; TYPE OUT THE CR AT END OF MOD COMMAND 



SEQ 0601 



KMOD: 



CALL MSGDEQ IN <R0> 



; + 



T K! T T iPHDT triftf; 



. i\ a 1 nuu 



LET KM.ABT : B= #0 



; + 



dSR 
MOV 
MOV 



MOV 
MOV 
JSR 
MOV 



CLRB 



; IF IN RUNMODE, LOAD MESSAGE AND LEAVE 
IF SRUNMCDE SETIN DT.STO(RO) THEN 

LET DT.KBRSP(RO) := #CM.RUN 
INLINE <JMP 1$> 

ENDIF 



; + 

; INIT R2 TO 0. WILL BE MODULE HEADER ADDRESS LATER IF SPECIFIED IN 

; ARGUMENT 



PC, SAVREG 
DTADR(R5) ,R0 
BUFPTR(R5) ,R1 



R5,-(SP) 
R0,-(R5) 
PC, MSGDEQ 
(SP)+,R5 



KM.ABT 





BIT 
BEQ 


#RUNMODE,DT.ST0( 
50002$ 




MOV 


#CM.RUN,DT.KBRSP 




JMP 


1$ 


50002$: 







LET R2 := #0 



005002 



CLR 



R2 
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SEQ 0602 



669 
670 
671 
672 
673 
674 
(4) 
(3) 
(4) 
(3) 
(3) 
(4) 
675 
676 
677 
678 
679 
(6) 
680 
681 
682 
(6) 
(8) 
(6) 
(9) 
(6) 
683 
684 
685 
585 
687 
688 
(4) 
(3) 
(5) 
(4) 
(3) 
(3) 
(4) 
(4) 
689 
690 
691 
692 
693 
(6) 
694 
695 
696 
(4) 
697 
698 
(2) 
699 
700 
(4) 



0001 04' 
000104' 
000110' 
0001 12' 
000114' 
000120' 
000122' 



000124' 
000124' 



000126' 
000126' 
000132' 
000134' 
000140' 
000142' 



0001 42 l 
000142' 
000146' 
000150' 
000152' 
000154' 
000160' 
000162' 
000164' 



162705 
010546 
010145 
004767 
012605 
012501 



103532 



121127 
002403 
121127 
003436 



162705 
010546 
010145 
010045 
004767 
012605 
012502 
012501 



GET THE FIRST ARGUMENT 



CALL ARGCHK IN <R1> OUT <R1> 



000002 



OOOOOOG 



SUB 


#1*2, S5 


MOV 


R5,-(SP) 


MOV 


R1 ,-(R5) 


JSR 


PC, ARGCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 



IF IT'S NOT A CR, SEE IF ALPHABETIC CHAR 
IF. NO. ERROR THEN 

IFB (R1) LT #'0 ORB (R1) GT #'9 THEN 



000060 



000071 



BCS 



CMPB 
BLT 
CMPB 
BLE 



5O0045: 



IT'S ALPHABETIC - GO VERIFY MODULE NAME. 



CALL NAMCHK IN <R0,R1> OUT <R2,R1> 



000004 



OOOOOOG 



000166' 
000166' 103005 



000170' 

000170' 012760 OOOOOOG 000022 

000176' 

000176' 000167 000714 

000202' 
000202' 



IF MODULE NAME BAD - STUFF ERROR MSG AND RETURN 
IF. ERROR THEN 

LET DT.KBRSP(RO) := #CM.BADNAM: 
INLINE <JMP 1$> 
ENDIF 



50003$ 



(R1 ),#'0 
50004$ 
(R1 ) ,#'9 
50005$ 



SUB ... 


#2*2,.R5 


MQV 


R5,-(SP) 


MOV 


R1,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, NAMCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R2 


MOV 


(R5)+,R1 



BCC 50006$ 

MOV #CM.BADNAME,DT.K 
JMP 1 $ 



50006$: 
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NAME O.K. ... CHECK NEXT ARGUMENT 



SEO 0603 



701 








702 








703 








704 








705 








706 


000202' 






(4) 


000202 ! 


162705 


000002 


(3) 


000206' 


010546 




(4) 


000210' 


010145 




(3) 


000212' 


004767 


OOOOOOG 


(3) 


000216' 


012605 




(4) 


000220' 


012501 




707 








708 








709 








710 








711 








712 


000222' 






(6) 


000222' 


103005 




713 








714 








715 


000224' 






(4) 


000224' 


012760 


OOOOOOG 000022 


716 


000232' 






(2) 


000232' 


000167 


000660 


717 








71R 


000236' 






(4) 


000236' 






719 








720 


000236' 






(4) 


000236' 






721 








722 








723 








724 








725 








726 


000236' 






(4) 


000236' 


162705 


000004 


(3) 


000242' 


010546 




(5) 


000244' 


010145 




(4) 


000246' 


010045 




(3) 


000250' 


004767 


OOOOOOG 


(3) 


000254' 


012605 




(4) 


000256' 


012501 




(4) 


000260' 


012503 




727 








728 








729 








730 








731 


000262' 






(6) 


000262' 


103002 




732 








733 








734 


000264' 






(2) 


000264' 


000167 


000626 


735 









CALL ARGCHK IN <R1> OUT <R1> 



SUB 


#1*2 R 5 


MOV 


R5 T -(SP) 


MOV 


R1 ,-(R5) 


JSR 


PC, ARGCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 



IF THE ARGUMENT IS A CR WHEN A MODULE NAME IS SPECIFIED, A NUMBER 

MUST FOLLOW. . .BUST COMMAND!!!... STUFF ERROR MSG 



IF. ERROR THEN 



BCC 



LET DT.KBRSP(RO) := #CM.ARG 
INLINE <JMP 1$> 



ENDIF 



ENDIF 



THERE WAS ANOTHER ARGUMENT... GO CHECK IT.. SHOULD BE A NUMBER. 



CALL NUMCHK IN <R0,R1> OUT <R1,R3> 



IF NUMBER WAS TOO LARGE... OR NON OCTAL... BUST COMMAND, 
IF. ERROR THEN 



INLINE <JMP 



1$> 



BCC 



JMP 



50007$ 





MOV 


#CM.ARG,DT.KBRS 




JMP 


1$ 


500073: 






50005$: 







SUB 


#2*2, R5 


MOV 


R5,-(SP) 


MOV 


R1 ,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, NUMCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 


MOV 


(R5)+,R3 



50010$ 



1$ 
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ENDIF 



NOW MAKE SURE IT'S AN EVEN NUMBER 
LET R3 := R3 ROTATE -1 
IFCOND CS THEN 



SEQ 0604 



736 


000270' 






(4) 


000270' 






737 








738 








739 








740 








74i 








742 


000270' 






(7) 


000270' 


006003 




743 








744 


000272' 






(6) 


000272' 


103005 




745 








746 








747 








748 








749 








750 


000274' 






(4) 


000274' 


012760 


OOOOOOG 000022 


751 


000302' 






(2) 


000302' 


000167 


000610 


752 








753 


000306' 






(4) 


000306' 






754 








755 








756 








757 








758 








759 


000306' 






(7) 


000306' 


006103 




760 








761 








762 








763 








764 








765 








766 


000310' 






(4) 


000310 1 


162705 


000002 


(3) 


000314' 


010546 




(4) 


000316' 


010145 




(3) 


000320' 


004767 


OOOOOOG 


(3) 


000324' 


012605 




(4) 


000326' 


012501 




767 








768 








769 








770 








771 








772 


000330' 






(6) 


000330' 


103405 




773 








774 








775 


000332' 






(4) 


000332' 


012760 


OOOOOOG 000022 


776 


000340' 







50010$: 



ROR 



BCC 



UH OH... AN ODD ADDRESS... BUST COMMAND STUFF ERROR AND LEAVE. 



LET DT.KBRSP(RO) := 0CM.ODD 
INLINE <JMP 1$> 



MOV 
JMP 



ENDIF 



RESTORE NUMBER 



50011$: 



LET R3 := R3 ROTATE 1 



NOW... JUST CHECK FOR ANY JUNK ARGUMENTS 



CALL ARGCHK IN <R1> OUT <R1> 



ROL 



IF UUNK ARGUMENTS FOUND ! SHOULD HAVE BEEN CR ! BUST COMMAND, 
STUFF ERROR MSG & RETURN 

IF. NO. ERROR THEN 



LET DT.KBRSP(RO) := #CM.ARG 
INLINE <JMP 1$> 



BCS 



MOV 



R3 



50011$ 



#CM.ODD,DT.KBRSP 
1$ 



R3 



SUB 


#1*2, R5 


MOV 


R5,-(SP) 


MOV 


R1 ,-(R5) 


JSR 


PC, ARGCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 



50012$ 



#CM.ARG,DT.KBRSP 
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ENDIF 



SEQ 0605 



(2) 


000340 ' 


000167 


000552 


777 








778 


000344' 






(4) 


000344' 






779 








780 








781 








782 








783 








784 








785 


000344' 






(S) 


000344' 


060203 




786 








787 








788 








789 








790 








791 








792 


000346' 






(6) 


000346' 


103005 




793 








794 








795 








796 








797 


000350' 






(4) 


000350' 


012760 


OOOOOOG 000022 


798 


000356' 






(2) 


000356' 


000167 


000534 


799 








80C 


000362' 






(4) 


000362' 






801 








802 








803 








804 








805 








806 








807 


000362' 






(3) 


000362' 


010546 




(4) 


000364' 


010345 




(3) 


000366' 


004767 


OOOOOOG 


(3) 


000372' 


012605 




808 








809 








810 








811 








812 


000374' 






(6) 


000374' 


103005 




813 








814 








815 


000376' 






(4) 


000376' 


012760 


OOOOOOG 000022 


816 


0004Q4' 






(2) 


000404' 


000167 


000506 


817 








810 


000410= 







50012$: 



FORM FINAL ADDRESS - ADD MODULE HEADER ADDRESS(IF ANY) TO NUMBER 
IN R3 AND STORE IN R3 



LET R3 := R3 + R2 

SEE IF ADDRESS IS > 32K NEVER ALLOWED. 

IFCOND CS THEN 

; + 

; NUMBER > 32K. . . SORRY... NOT ALLOWED 

LET DT.KBRSP(RO) := #CM.ADR 
INLINE <JMP 1$> 

ENDIF 

BUT DOES IT REALLY EXIST 

CALL HRDADR IN <R3> 



ADD 



BCC 



MOV 



50013$: 



IF NO SUCH MEMORY ADDRESS STUFF ERROR AND SO LONG, 

IF. ERROR THEN 

LET DT.KBRSP(RO) : = #CM.ADR 
INLINE <JMP 1$> 

ENDIF 



MOV 
MOV 
USR 
MOV 



BCC 

MOV 
JMP 



1$ 



R2.R3 



50013$ 



#CM.ADR,DT.KBRSP 
i$ 



R5,-(SP) 
R3,-(R5) 
PC, HRDADR 
(SP)+,R5 



50014$ 



#CM.ADR,DT.KBRSP 
1$ 
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SEQ 0606 



(4) 
819 
320 
821 
822 
(4) 
(3) 
323 
824 
825 
826 
827 
828 
(4) 
829 
830 
(4) 
831 
832 
833 
834 
835 
336 
837 
838 
839 
840 
841 
(2) 
842 
(4) 
843 
(4) 
844 
845 
846 
847 
848 
849 
(3) 
(4) 
(3) 
(3) 
850 
851 
852 
853 
854 
(6) 
855 
856 
(4) 
857 
(2) 
858 
859 



000410' 



000410' 

000410' 000402 
000412 s 



000412' 
000412' 016703 

000416' 
000416' 



177362 



000416' 
000416' 
000416' 

000416' 105067 
000422' 
000422' 005004 



000424' 

000424' 010546 

000426' 010345 

000430' 004767 

000434' 012605 



177401 



ELSE 






50003S: 



BR 



50015$ 



IT'S A CR SO MOVE KM.LOC TO R3 



LET R3 := KM.LOC 



MOV 



KM.L0C.R3 



ENDIF 

50015S: 

; ********* i_OOP WHILE NOT LONE CR ON INPUT ************* 



CLEAR KM.ABT AND R4 (BOTH FLAGS) 
INLINE <5$:> 

LET KM.ABT :B= #0 
LET R4 := #0 

SEE IF ADDRESS EXISTS 

CALL HRDADR IN <R3> 



5$: 




CLRB 


KM.ABT 


CLR 


R4 



OOOOOOG 



000436' 
000436' 



IF THIS NEW ADDRESS IS A BUMMER. 
IF. ERROR THEN 



STUFF ERROR MSG 



103006 



000440' 

000440' 012760 OOOOOOG 000022 

000446' 

000446' 

000452' 



LET DT.KBRSP(RO) := 0CM.ADR 
INLINE <UMP 1$> 



000167 000444 



MOV 
MOV 
JSR 
MOV 



ECC 
MOV 



R5,-(SP) 
R3,-(R5) 
PC, HRDADR 
(SP)+,R5 



50016$ 



#CM.ADR,DT.KBRSP 
1$ 



ELSE 
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20-SEP-78 18:00 PAGE 19-9 



(4) 


000452' 


000402 




(3) 


000454' 






860 








861 








862 








863 








864 








865 








866 


000454' 






(4) 


000454' 


010367 


177320 


867 








868 


000460' 






(4) 


000460' 






869 








870 








871 








872 








873 








874 


000460' 






(3) 


000460' 


010546 




(5) 


000462' 


012745 


000002' 


(4) 


000466' 


016745 


177306 


(3) 


000472' 


004767 


OOOOOOG 


(3) 


000476' 


012605 




875 


000500' 






(3) 


000500' 


010546 




(5^ 


000502' 


012745 


000012' 


(4) 


000506' 


017745 


177266 


(3) 


000512' 


004767 


OOOOOOG 


(3) 


000516' 


012605 




876 








877 








378 








879 








880 








881 


000520' 






(3) 


000520' 


010546 




(8) 


000522' 


012745 


000000 


(7) 


000526' 


012745 


COOOOO 


(6) 


000532' 


012745 


000002' 


(5) 


000536' 


012745 


000000 


(4) 


000542' 


010045 




(3) 


000544' 


004767 


OOOOOOG 


(3) 


000550' 


012605 




382 








883 








884 








885 








886 


000552' 






(3) 


000552' 


010546 




(4) 


000554' 


010045 




(3) 


000556' 


004767 


OOOOOOG 


(3) 


000562' 


012605 




887 








888 






; 


889 






; 



50016$: 



SAVE R3 IN KM.LOC 



LET KM.LOC := R3 



MOV 



ENDIF 



CONVERT LOCAL STORAGE TO ASCII AND OUTPUT 



CALL B0A16 IN <KM. LOC T #KM. MG1> 



CALL B0A16 IN <@KM. L0C,#KM.MG2> 



50017$: 



ENQUEUE IT 

CALL ENQTQ IN <R0, #MSGSTD, #KM.MG1 , #0 , #0> 



AND PRINT IT 



CALL MSGDEO IN <R0> 



MOV 
MOV 
J3R 
MOV 



SEQ 0607 



R3, KM.LOC 



MOV 


R5,-(SP) 


MOV 


#KM.MG1 ,-(R5) 


MOV 


KM. L0C,-(R5) 


JSR 


PCB0A16 


MOV 


(SP)+,R5 


MOV 


R5,-(SP) 


MOV 


#KM.MG2,-(R5) 


MOV 


@>KM. L0C,-(R5) 


JSR 


PC, BOA 16 


MOV 


(SP)+,R5 



MOV 


R5,-(SP) 


MOV 


#0,-(R5) 


MOV 


#0,-(R5) 


MOV 


#KM.MG1 ,-(R5) 


MOV 


#MSGSTD,-(R5) 


moy 


R0,-(R5) 


JSR 


PC, ENQTQ 


MOV 


(SP)+,R5 



R5,-(SP) 
R0,"(R5) 
PC.MSGDEQ 
(SP)+,R5 



NOW GET SOME NEW INPUT FROM KEYBOARD, WHEN A CR 
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; . IS STRUCK, INTERRUPT THE REPEAT*-LGOP 



LET DX.KFL := #0 



890 








891 








892 








893 


000564' 






(4) 


000564' 


005067 


OOOOOOG 


894 








395 








896 


000570' 






(3) 


000570' 


010546 




(4) 


000572' 


010045 




(3) 


000574' 


004767 


OOOOOOG 


(3) 


000600' 


012605 




897 








898 


000602' 






(3) 


000602' 






899 


000602' 






(3) 


000602' 


010546 




(4) 


000604' 


010045 




(3) 


000606' 


004767 


OOOOOOG 


(3) 


000612' 


012605 




900 








901 


C00614' 






(3) 


000614' 


105767 


OOOOOOG 


(6) 


000620' 


001770 




902 








903 








904 








905 








906 


000622' 






(2) 


000622' 






907 








908 








909 








910 








911 








912 








913 


000622' 






(4) 


000622' 


105067 


177176 


914 








915 








916 








917 








918 








919 


000626' 






(4) 


000626' 


016001 


000030 


920 


000632' 






(6) 


000632' 


121127 


000015 


(9) 


000636' 


001002 




921 


000640' 






(2) 


000640' 


000167 


000252 


922 


000644' 






(4) 


000644' 






923 








924 








925 








926 









CALL KBINI IN <R0> 



REPEAT 



50020S: 



CALL MSGDEO IN <R0> 



UNTILB DX.KFL NE #0 



INLINE <2$:> 



CLR 



MOV 
MOV 
dSR 
MQV 



MOV 

MOV 
USR 
MOV 



TSTB 
BEQ 



2$ 



INIT KM.FLG 



LET KM.FLG :B= #0 



IF FIRST CHAR WAS A CR... JUST LEAVE. 



CLRB 



LET R1 := DT.KBUF(RO) 
IFB (R1 ) EQ #CR THEN 



INLINE <JMP 



1$> 



MOV 

CM?S 
SNE 

JMP 



ENDIF 



500213: 



GET ORIGINAL DECODE BUFFER POINTER, 
DECODE BUFFER 



COPY KEYBOARD BUFFER INTO 



SEQ 0608 



DX.KFL 



R5 r -(SP) 
R0,-(R5) 
PC, KBINI 
(SP)+,R5 



R5,-(SP) 
R0,-(R5) 
PC.MSGDEQ 
(SP)+,R5 



DX.KFL 
50020$ 



KM . F LG 



DT.KBUF(RO) ,R1 

(R1 ),#CR 
50021$ 
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SEQ 0609 



927 
928 
(4) 
929 
930 
931 
(4) 
(3) 
(5) 
(4) 
(3) 
(3) 
(4) 
932 
933 
934 
935 
936 
937 
938 
(4) 
(3) 
(4) 
(3) 
(3) 
(4) 
939 
94C 
941 
942 
943 
(6) 
(9) 
(6) 

(9) 

(6) 

(9) 

944 

945 

946- 

(4) 

(3) 

(5) 

(4) 

(3) 

(3) 

(4) 

(4) 

947 

948 

949 

(6) 

950 

951 

952 

953 



000644' 
000644' 



000650' 
000650 ! 
000654* 
000656' 
000660' 
C00662' 
000666' 
000670' 



016501 000002 



000672' 
000672' 
000676' 
000700' 
000702' 
000706' 
000710' 



000712' 
000712' 
000714' 
000716' 
000722' 
000724' 
000730' 



000732' 
000732' 
000736' 
000740' 
000742' 
000744' 
000750' 
000752' 
000754' 



010546 
010145 
010045 
004767 
012605 
012504 



162705 
01 0546 
010145 
004767 
012605 
012501 



005704 
001054 
121127 
001451 
121127 
001446 



162705 
010546 
01 0145 
010045 
004767 
012605 
012501 
012502 



000756' 
000756' 103430 



LET R1 := BUFPTR(R5) 



CALL CMDCPY IN <R0,R1> OUT <R4> 



MOV 



BUFPTR(R5) ,R1 



U\JV\ 



OOOOOOG 



SUB 


#1+2,R5 


MOV 


R5 r -(SP) 


MOV 


R1 t -(R5) 


MOV 


R0 r -(R5) 


JSR 


PC, CMDCPY 


MOV 


(SP)+,R5 


MOV 


(R5)+,R4 



GET FIRST ARGUMENT 



CALL ARGCHK IN <R1> OUT <R1> 



000002 



OOOOOOG 



SUB 


#1*2, R5 


MOV 


R5,-(SP) 


MOV 


R1 ,-(R5) 


JSR 


PC, ARGCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 



IF THE FIRST CHAR IS NOT A TERMINATOR (CR , LF , ~U) . . . GO CHECK NUMBER 
IF R4 EQ #0 ANDB (R1) NE #LF ANDB (R1) NE #CR THEN 



000012 



000015 



000004 



OOOOOOG 



TST 


R4 


BNE 


50022$ 


CMP 3 


(R1 ) ,#LF 


BEQ 


50022$ 


CMPB 


(R1 ) ,#CR 


BEQ 


50022$ 



CALL NUMCHK IN <R0,R1> OUT <R1,R2> 



SUB 


#2*2, R5 


MOV 


R5,-(SP) 


MOV 


R1 ,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, NUMCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 


MOV 


(R5)+,R2 



IF. NO. ERROR THEN 



NUMBER O.K. - GET NEXT ARGUMENT 



BCS 



50023$ 
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CALL ARGCHK IN <R1> OUT <R1> 



954 








955 


000760' 






(4) 


000760' 


162705 


000002 


(3) 


000764.' 


010546 




(4) 


000766' 


010145 




(3) 


000770' 


004767 


OOOOOOG 


(3) 


000774 ! 


01 2605 




(4) 


000776* 


012501 




956 








957 








958 








959 








960 


001000' 






(6) 


001000' 


121127 


000012 


(9) 


001004' 


001412 




(6) 


001006' 


121127 


000015 


(9) 


001012' 


001407 




961 








962 








963 


001014' 






(4) 


001014' 


012760 


OOOOOOG 000022 


964 


001022' 






(4) 


001022' 


112767 


000001 176773 


965 








966 


001030' 






(4) 


001030' 


000402 




(3) 


001032' 






967 








968 








969 








970 








971 








972 


001032' 






(4) 


001032' 


010277 


176742 


973 








974 


001036' 






(4) 


001036' 






975 








976 


001035' 






(4) 


001036' 


000403 




(3) 


001040' 






977 








978 








979 








980 








981 








982 


001040' 






(4) 


001040' 


112767 


000001 176755 


983 








984 


001046' 






(4) 


001046' 






985 








986 


001046' 






(4) 


001046' 






987 








988 









IF NOT A TERMINATOR (CR OR LF) STUFF ERROR MSG 

IFB (R1) NE #LF ANDB (R1) NE #CR THEN 



LET DT.KBRSP(RO) := #CM.ARG 
LET KM.ABT : B= #1 



CMP 3 

BEO 

CMPB 

BEQ 



MOV 

MOV B 



ELSE 



BR 



50024S: 
IT WAS A TERMINATOR... CHANGE CONTENTS OF LOCATION(IN LOCAL STORAGE) 



LET @KM.LOC 



R2 



ENDIF 



ELSE 



BAD NUMBER SET ABORT FLAG 



50025$: 



50023$: 



MOV 



BR 



LET KM.ABT : B= #1 



MOV 3 



ENDIF 



ENDIF 



50026$: 
50022$: 



SEQ 0610 



SUB 


#1*2, R5 


MOV 


R5,-(SP) 


MOV 


R1 ,-(R5) 


JSR 


PC, ARGCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 



(R1 ) ,#LF 
50024$ 
(R1 ) ,#CR 
50024$ 



#CM.ASG,DT.KBRSP 
#1 .KM.ABT 

50025$ 



R2,@KM.L0C 



50026$ 



#1 .KM.ABT 
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SEQ 0611 



989 








990 








991 








992 








993 


r. r\ << ft/ic 1 






UU 1 Uiu 






(6) 


001046 1 


121127 


000012 


(9) 


001052' 


001007 




(6) 


001054' 


105767 


176743 


(9) 


001060' 


001004 




(6) 


00T0S2' 


005704 




(9) 


001064' 


001002 




994 








995 


001066' 






(6) 


001066' 


062703 


000002 


995 








997 


001072' 






(4) 


001072' 






998 








999 








1000 








1001 








1002 








1003 








1004 


001072' 






(2) 


001072' 


121127 


000015 


1005 


001076' 






(2) 


001076' 


001402 




1006 


001100' 






(2) 


001100' 


000167 


177312 


1007 


001104' 






(2) 


001104' 






1008 


001104' 






(2) 


001104' 


105767 


176713 


1009 


001110' 






(2) 


0011 10' 


001402 




1010 


001112' 






(2) 


001112' 


000167 


177300 


1011 


001116' 






(2) 


001116' 






1012 








1013 








1014 








1015 








1016 


001116' 






(2) 


0011 16' 






1017 


001.116' 






(3) 


001116' 


004767 


000000G 


1018 








1019 


001122' 






(3) 


001122' 






(3) 


001122' 






(2) 


001122' 


000207 




1020 








1021 




000001 





SEE IF TERMINATOR IS LF AND ABORT FLAG = (NO ABORT) 

IFB (R1) EQ #LF AND3 KM.ABT EQ #0 AND R4 EQ #0 THEN 



CMP 3 


( R1 ) , #LF 


BNE 


50027$ 


TST3 


KM.ABT 


BNE 


50027$ 


TST 


R4 


BNE 


50027$ 



LET R3 := R3 + #2 

ENDIF 
UNTIL TERMINATOR = CR AND ABORT FLAG NOT SET (= 1) 

INLINE <CMPB (R1),#CR> 
INLINE <5EQ 6$> 
INLINE <JMP 5$> 
INLINE <6$:> 
INLINE <TSTB KM.ABT> 
INLINE <BEQ 7$> 
INLINE <JMP 5$> 
INLINE <7$:> 

INLINE <1$:> 
CALL RESREG 

ENDRTN 
.END 



ADD 



#2,R3 



50027S: 



CMPB (R1),#CR 
SEQ 6$ 

jmp 5$ 

6$: 

TSTB KM.ABT 

BEQ 7$ 

JMP 5$ 

7$: 



50000$: 
50001$: 



1$: 
JSR 

STS 



PC, RESREG 



PC 
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ACSR = 


000102 


CM.ARG= 


****** Q 


DT.W3U= 


000050 


ACTBIT= 


004000 


CM. BAD* 


****** G 


DT.WHL= 


000054 


ADDR22= 


001000 


CM. ODD* 


****** g 


DT.WLL= 


000052 


ADR 


000006 


CM.RUN= 


****** g 


DVID1 = 


000014 


APTFER= 


000004 


CONFIG= 


C00056 


DX.KFL= 


****** 


APTPRE= 


000200 


CQOVF = 


000001 


ECCMEM= 


000100 


ARGCHK= 


****** Q 


CR 


000015 


ECCSTA= 


000010 


ASB 


000106 


CSRA = 


000100 


ENBEOP= 


010000 


ASSEMB= 


000010 


CSRC = 


000102 


ENBNUL= 


000001 


ASTAT = 


000104 


CTRLC = 


000003 


ENDLST= 


000000 


AUTO = 


000010 


CTRLO = 


000017 


ENQTQ = 


i|e s|c %: ^c ^c ijc , 


AUTOST= 


020000 


CTRLU = 


000025 


EOPB'IT = 


000001 


AW AS = 


000110 


DCEV'NT = 


000011 


ERRTYP= 


000106 


BITO = 


000001 


DEFRTN= 


000400 


EVNTBE= 


000200 


BITOO = 


000001 


DIAGMC= 


000000 


EVNTHD= 


000200 


BIT01 = 


000002 


DROPMO= 


iooooo 


EVNTKT= 


000203 


BIT02 = 


000004 


DSEVNT= 


000014 


EVNTPE= 


000202 


BXT03 = 


000010 


DTADR - 


000000 


EVNTRE= 


000201 


BIT04 = 


000020 


DT.ADD= 


00C042 


FATER.R = 


100000 


BIT05 = 


000040 


DT.AP = 


000100 


HRDADR= 


****** 


BITO'6 = 


000100 


DT.APK= 


000076 


HRDCNT= 


000044 


BIT07 = 


000200 


DT.BLS= 


000034 


HRDPAS= 


000050 


BIT08 = 


000400 


DT.CFO= 


000014 


I CO N'T = 


000036 


BIT09 = 


001000 


DT.CF1= 


000016 


ICOUNT= 


000040 


BIT1 = 


000002 


DT.ERR= 


000020 


IDNUM = 


000122 


BIT 10 = 


002000 


DT..E5I = 


Cu ij>J~tH 


TC - . 


0001 CO 


BIT11 = 


004000 


DT.EVN= 


000000 


INDPAR= 


000040 


BIT12 = 


010000 


DT.EXS= 


000060 


INHDRP= 


040000 


BIT13 = 


020000 


DT.FCH= 


000037 


INHEPR= 


020000 


BIT14 = 


040000 


DT.FCN= 


000035 


INHREL= 


001000 


BIT15 = 


100000 


DT.BMX= 


OS 0:10.4 


INHR.R£= 


00.0400 


BIT2 = 


000004 


DT.KBE= 


000024 


INIT = 


.000030 


BIT3 = 


000010 


DT.KBP= 


000026 


INTR = 


000120 


BIT4 = 


000020 


DT.KBR= 


000022 


IOMOD = 


100000 


BIT5 = 


000040 


DT.KBU= 


000030 


IOMODP= 


102000 


BITS = 


000100 


DT.MLS= 


000032 


IOMODR= 


1 12000 


BIT7 = 


000200 


DT.MTI= 


000110 


IDMODX- 


1 1000O 


BIT8 = 


000400 


DT.OFF= 


000070 


JACK = 


035060 


BIT9 = 


001000 


DT.PAS= 


000074 


KBINI = 


****** 


BKDEF = 


000002 


DT.PC = 


000002 


KIPAR0= 


172340 


BKMOD = 


000020 


DT.PFL= 


000062 


KIPAR1= 


172342 


BKMODE= 


040000 


DT.PSW= 


000004 


KIPAR2= 


172344 


BKSLSH= 


000134 


DT.PTA= 


000064 


KIPAR3= 


172346 


B0A16 = 


****** Q 


DT.RCS= 


000102 


KIPAR4= 


172350 


BUFPTR= 


000002 


DT.REL= 


000040 


KIPAR5= 


172352 


CAPRES= 


000004 


DT.SCT= 


000066 


KIPAR6= 


172354 


CASTAT= 


000004 


DT.SMX= 


000106 


KIPAR7= 


172356 


CDERCT= 


000146 


DT.SP = 


000006 


KIPDRO= 


172300 


CDWDCT= 


000144 


DT.SSI= 


000046 


KIPDR1= 


172302 


CKTIM = 


100000 


DT.STO= 


000010 


KIPDR2= 


172304 


CLKPRE= 


000001 


DT.ST1= 


000012 


KIPDR3= 


172306 


CMDCPY= 


****** Q 


DT«SWR= 


000056 


KIPDR4= 


172310 


CM.ADR= 


****** Q 


DT.SYP= 


000072 


KIPDR5= 


172312 











SEQ 0612 


KIPDR6= 


172314 


PASCNT= 


000034 • 




KIPDR7= 


172316 


PDPLSI= 


020000 




KMOD 


000026RG 


PDP60 = 


004000 




KM.ABT 


000023R 


PDP70 = 


010000 




KM.FLG 


000024R 


PR 10 = 


000000 




KM. LOC 


000 GO OR 


PR 11 = 


nr\r\ A A r\ 

UUUUTU 




KM.MG1 


000002R 


PRI4 = 


000200 




KM.MG2 


00001 2R 


PRI5 ' = 


000240 




KTERRO= 


000040 


PRI6 = 


000300 




■KTPRES= 


000400 


PRI7 = 


000340 




KTSTAT= 


000020 


PRO 


000000 




KTXTND= 


040000 


PR4 = 


000200 




LF 


000012 


PR5 


000240 




LP'STAT = 


000001 


PR6 = 


000300 




MAPSTA= 


000200 


PR7 


000340 




MED 


076600 


PS 


177776 




MEMPAS= 


040000 


PSW 


177776 




MDDEXH= 


004000 : 


RANNUM= 


000054 




MGDHOL= 


002000 


RBUFEA= 


000130 




MODSEL= 


001000 


RB'JFPA = 


00012S 




MSGCKD= 


000010 


R3UFSZ= 


000132 




MSGCKS= 


00001 1 


RBUFVA= 


000124 




MSGDEQ= 


A 3jc -<c sjc 3je sfe Q 


RDSERV= 


000101 




MSGDER= 


000005 


RDWHMI= 


000022 




WISGDRP = 


000017 


RELERR= 


000020 




MSGECH= 


177777 


R£LMOD= 


020000 




MSGEOP= 


000013 


RELTIM= 


010000 




MSGHDR= 


000004 


RESREG= 


****** g 




MSGHNG= 


000022 


RES1 = 


000056 




MSGHRD= 


000007 


RES2 = 


000060 




MSGfAAP= 


000021 


RICHAR= 


031060 




ms"gnul= 


1 77775 


'R"3TD'AT = 


002000 




MSGPOP= 


000002 


RSTRT = 


000112 




MSGPRM= 


177776 


RU30UT= 


000177 




MSGRES= 


000001 


RUNWi0D= 


100000 




MSGSFT= 


000006 


R5VALU= 


001740 




MSGSKE= 


000003 


SAM .= 


075464 




MSGSM3= 


000015 


SAVREG= 


****** g 




MSGSMH= 


000014 


S5ADR = 


000102 




MSGSMS= 


000016 


S3K,7!0D= 


000000 




MSGSTD= 


000000 


SBKSEL= 


010000 




MSGSYS= 


000012 


SC.ADR= 


000006 




MSGVEC= 


000020 


SC.ALC= 


000014 




NAMCHK= 


****** g 


SC.APC= 


000016 




NBKMOD= 


001000 


SC.CKL= 


000002 




NCPUDP= 


000020 


SC.CKP= 


000004 




NOAPTY= 


000002 


SC.CLO= 


000000 




NULL = 


000000 


SC.HLD= 


000010 




NUMCHK= 


****** G 


SC.SCA= 


000012 




OWEN = 


024020 


SENDLS= 


177777 




PAERR = 


000010 


SOFCNT= 


000042 




PARPRE= 


002000 


SOFPAS= 


000046 




PARSTA= 


000100 


SPACE = 


000040 
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SEQ 0613 



SPOINT= 


000032 




UIPAR2= 


177644 


SPVALU= 


002200 




UIPAR3= 


1 77646 


SRO 


177572 




UIPAR4= 


177.650 


SR1 


177574 




UIPAR5= 


177652 


SR2 = 


177576 




UIPAR6= 


177654 


SR3 


172516 




UIPAR7= 


177656 


STAT = 


000026 




UIPDR0= 


177600 


STATBI= 


064757 




UIPDR1= 


177602 


STAT1 = 


000027 




UIPDR2= 


177604 


SUSPND= 


000001 




UIPDR3= 


177606 


SVRO = 


000062 




UIPDR4= 


177610 


SVR1 = 


000064 




UIPDR5= 


177612 


SVR2 = 


000066 




UIPDR6= 


177614 


SVR3 = 


000070 




UIPDR7= 


177616 


SVR4 - 


000072 




WASADR= 


000104 


SVR5 = 


000074 




WBSTAT= 


000040 


SVR6 = 


000076 




WBUFEA= 


000136 


SYSCNT= 


000052 




WBUFPA= 


000134 


SYSERR= 


000100 




WBUFRQ= 


000140 


TMPIO = 


000002 




WBUFSZ= 


000142 


TQOVF = 


000002 




WDFR = 


000116 


UIPARO= 


177640 




WDTO = 


000114 


UIPAR1= 


177642 




WTINRE= 


000352 


. ABS. 


000000 
001124 


000 
001 







WTWHMI= 

XFLAG = 

XOFF = 

XON 

$BGNLE= 

$ERFLG= 

$F$AND= 

$F$BAD= 

$F$3LA= 

$F$CAS= 

$F$DEC= 

$F$DO = 

$F$FAL= 

$F$GOO= 

$F$IF = 

$F$INC= 

$F$LOO= 

$F$NAM= 

$F$NO = 

$FSOR = 

$F$RTI= 

$F$RTN= 

$F$SEL= 



000222 
000005 
000023 
000021 
177777 
000400 
000310 
000401 
000170 
000150 
000220 
000340 
000405 
000400 
000110 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 



$F$THE= 
$F$TRU= 
$FSUNT= 
$FSWHI= 
$F$YES= 
$IFLEV= 
SISKO = 
SISK1 = 
$ISK2 = 
$LOCTA= 
$LSTIN= 
$LSTTA= 
SNESTL= 
SNSKO = 
SNSK1' = 
SNSK2 = 
SNSK3 = 
SSAVLE= 
$TAGLE= 
$TAGNU= 
$TEMP = 
$TSKO = 
$TSK1 = 



000330 

000404 

000130 

000120 

000402 

177777 

000001 

000001 

000001 

177777 

000001 

000001 

177777- 

000300 

000110 

000110 

000110 

177777 

177777 

050030 

000300 

050027 

050026 



STSK2 = 
$$ARGC= 
S$3YTE= 
$$CASE= 
$$DST = 
$$ELOC= 
$$ERFL= 
$SFLAG= 
$$FROM= 
$SLOC = 
$$LOCN= 
SSREG = 

ss'retu= 

$SRTN1= 
SSRTN2= 
SSSRC = 
$$TGSV= 
$$TGS1= 
$STGS2= 
$STO = 
$$$TAG= 



050025 

000004 

000403 

000000 

000000 

000402 

000000 

000001 

000000 

001064R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

001 124R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSK2 : KMOD f DSKZ:KMOD=SPMAC/ML, EQUATE, KMOD 
RUN-TIME: 20 10 .4 SECONDS 
RUN-TIME RATIO: 58/32=1.8 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:01 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0614 

3 COMMON EQUATE MODULE 

526 KMON PROCESS MON KEYBOARD COMMAND 

578 KMOFF PROCESS MOFF KEYBOARD COMMAND 

631 COMMON DEFINTITIONS AND REFERENCES FOR KMON 

634 000000' .PRINT ;SPMAC: VERSION 1.1 

564 KMON ROUTINE 



KMONOF PROCESS MON , MOFF KEYBOARD COMMANDS MACY1 1 30A(1052) 20-SEP-78 18:01 PAGE 19 
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SEQ 0615 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 



■TITLE KMONOF PROCESS MON, MOFF KEYBOARD COMMANDS 
,IDENT /VO.O/ 

++ 
MODULE PACKAGE NAME*. 
KMONOF 

FUNCTIONAL DESCRIPTION: 

THIS MODULE PACKAGE CONTAINS TWO ROUTINES: 

1. KMGN - TURN THE UNIBUS MAP HARDWARE ON 

2. KMOFF - TURN THE UNIBUS MAP HARDWARE OFF 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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SEQ 0616 



526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
54S 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 



,SBTTL KMON PROCESS MON KEYBOARD COMMAND 
,IDENT /V0.0/ 

++ 
MODULE NAME: 
KMON 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PROCESSES THE "MON" KEYBOARD COMMAND. 

IT WILL TEST TO SEE IF 22 BIT ADDRESSING IS AVAILABLE, AND THAT THE 

EXERCISER IS NOT IN RUN MODE. IT WILL 

ENABLE THE UNI3US MAP HARDWARE. 

IF IN RUN MODE OR NO 22 BIT ADDRESSING AVAILABLE, THE APPROPRIATE 

ERROR MESSAGE IS OUTPUTTED. 

INPUTS: 

1 . ADDRESS OF DATA TABLE 

2. COMMAND DECODE BUFFER POINTER 

IMPLICIT INPUTS: 
DT.STO 
DT.CFO 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.STO 
DT.KBRSP 

PATHOLOGICAL CONNECTIONS: 
CM.ARG ( CM.RUN 

SUBORDINATE ROUTINES CALLED: 
ARGCHK 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL KMON IN <DTADR , BUFPTR> 

WHERE DTADR = ADDRESS OF DATA TABLE 

BUFPTR = COMMAND DECODE BUFFER POINTER 

VERSION: 
0.0 



EDIT 



DATS 



BY 



REASON 
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SEQ 0617 



578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
505 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 



SBTTL KMOFF PROCESS MOFF KEYBOARD COMMAND 
IDENT /VO.O/ 

•H- 

MODULE NAME: 
KMOFF 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE WILL PROCESS THE "MOFF" KEYBOARD COMMAND. IT 

WILL TEST FOR THE PRESENCE OF 22 BIT ADDRESSING. IF NO 22 BIT ADDRESSING, 

IT WILL STUFF A NO UNIBUS MAP MESSAGE. IF UNI3US MAP IS AVAILABLE, A CHECK 

IS MADE TO SEE IF THE EXERCISER IS IN RUN MODE. IF IN RUN 

MODE, THE ERROR MESSAGE IS STUFFED. IF NOT IN RUN MODE, 

THE STATUS WORD WILL BE UPDAT.ED(THE UNIBUS MAP BIT CLEARED) 

AND THE UNIBUS MAP TURNED OFF. 

LOCATION. 



INPUTS: 

ADDRESS OF DATA TABLE 
COMMAND DECODE BUFFER POINTER 

IMPLICIT INPUTS: 
DT.CFO 
DT.STO 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

DT.STO 

DT.KBRSP 

PATHOLOGICAL CONNECTIONS: 
CM.ARG,CM.RUN 

SUBORDINATE ROUTINES CALLED: 
ARGCHK 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL KMOFF IN <DTADR , CMDBUF> 

WHERE DTADR = ADDRESS OF DATA TABLE 

CMDBUF = COMMAND DECODE BUFFER POINTER 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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SEQ 0618 



631 
632 
633 
534 
(D 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 



658 



659 



660 
661 
662 



000000' 
000000' 



000000' 
000006' 
000014' 
000017' 
000024' 
000032' 
000036' 
000044' 
000052' 
000056' 



000001 
000001 



047516 
052502 
022520 

125 
020123 
047117 
047125 
046440 
043106 

000 
000060' 



052440 
020123 
000 
044516 
040515 
000045 
041111 
050101 
000045 



044516 
040515 

052502 
020120 

051525 
047440 



.SBTTL COMMON DEFINTITIONS AND REFERENCES FOR KMON 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



**************** 



REFERENCED BY OTHER MODULES: 



GLOBL KMOFF 
GLOEL KMON 

**************** 

GLOBAL REFERENCES: 

GLOBL ARGCHK 
GLOBL CM.ARG 
GLOBL CM. RUN 

**************** 



;MODULE ENTRY POINT 
;MODULE ENTRY POINT 



CHECK FOR EXISTENCE OF AN ARGUMENT 

'ILLEGAL OR INVALID ARG' MESSAGE 

"NOT A VALID COMMAND IN RUN MODE" MESSAGE 



LOCAL STORAGE: 
MB.NOMB: .ASCIZ /NO UNIBUS MAP%/ 

MR. O.N: .ASCIZ /UNIBUS MAP 0N%/ 

MB. OFF: .ASCIZ /UNIBUS MAP OFF%/ 



MB. FLG: 
.EVEN 



BYTE 



;UNIBUS MAP ON/OFF FLAG 
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20-SEP-78 18:01 PAGE 19-4 



SEQ 0619 



664 
665 
666 
(2) 
667 
663 
669 
670 
671 
672 
(4) 
673 
(2) 
674 
(3) 
(3) 
(2) 
675 
676 
(2) 
677 
678 
679 
680 
681 
882 
(4) 
683 
684 
685 
686 
687 
688 
(2) 
689 
(2) 
(3) 
690 
(4) 
691 
(4) 
692 
693 
694 
695 
696 
697 
(6) 
(9) 
698 
699 
700 
701 
702 
703 
704 



000060' 
000060' 



000060' 
000060' 
000064' 
000064' 
000066' 
000066' 
000066' 
000066' 

000070' 
000070' 



105067 177772 



000404 



000207 



000070' 112767 000001 177760 



000076' 
000076' 
000076' 
000076' 
000100' 
000102' 
000102' 
000106' 
000106' 



010046 
010146 

016500 000000 

016501 000002 



000112' 

000112' 032760 100000 

000120' 001054 



000010 



000122* 



.SBTTL KMON ROUTINE 
ROUTINE KMON <DTADR t BUFPTR> 

SET ON FLAG 

LET MB.FLG : B= #0 
INLINE <BR MBROU> 
ENDRTN 

ROUTINE KMOFF <DTADR , BUFPTR> 

SET THE OFF FLAG 
^T ?</!3.FLG "B= #1 

SAVE REGISTERS AND DATA TABLE ADDRESS 

INLINE <MBROU:> 
PUSH R0.R1 

LET RO := DTADR(R5) 
LET R1 := BUFPTR(R5) 

IF NOT IN RUN MODE CONTINUE 
IF #RUNMODE NQTSETIN DT.STO(RO) THEN 



SEE IF ANY ARGUMENTS EXIST & IF 
THEY DO , THIS IS A BAD COMMAND 



CALL ARGCHK IN <R1> OUT <R1> 



KMON: 



CLRB MB.FLG 
BR MBROU 



50000$: 
50001S: 



KMOFF: 



RTS 



MOVE 



PC 



#1 .MB.FLG 



MEROU: 

MOV RO,~(SP) 

MGV R1,-(SP) 

MOV DTADR(R5),R0 

MOV BUFPTR(R5) f R1 



BIT #RUNMODE f DT.STO( 
BNE 50002$ 
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SEQ 0620 



(4) 


000122 


162705 


000002 




(3) 


000126 


010546 






(4) 


000130 


010145 






(3) 


000132 


004767 


000000G 




(3) 


000136 


012605 






(4) 


000140 


012501 






705 










706 










707 










703 










709 










710 










711 


000142 








(6) 


000142 


103037 






712 










713 










714 










715 


000144 








(6) 


000144 


032760 


001000 


000014 


O) 


000152 


001427 






716 










717 










718 










719 










720 


000154 












* « r* *■? r> *-r 


t ^lene 




IDJ 


UUU i C3H 


iuy/o/ 


l J i W i <J 




(9) 


000160 


001012 






721 


000162 








(6) 


000162 


052760 


000200 


000010 


722 


000170 








(6) 


000170 


052737 


000040 


172516 


723 










724 










725 










726 










727 


000176 








(4) 


000176 


012760 


000017' 


000022 


728 


000204 








(4) 


000204 


000411 






(3) 


000206 








729 










730 










731 










732 










733 










734 


000206 








(6) 


000205 


042760 


000200 


000010 


735 


000214 








(6) 


000214 


042737 


000040 


172516 


736 










737 










738 










739 










740 


000222 








(4) 


000222 


012760 


000036' 


000022 


741 


000230 









SUB 
MOV 
MOV 
JSR 
MOV 
MOV 



THE ARGUMENT IS A CR SO ALL IS O.K. 

SEE IF 22 BIT ADDRESSING IS PRESENT AND IF IT IS, 

IF MB FLAG IS THEN SET THE KTSTAT BIT IN DT.STO OTHERWISE CLEAR IT. 



#1*2, R5 
R5 t -(SP) 
R1 ,-(R5) 
PC, ARGGHK 
(SP)+,R5 
(R5)+,R1 



IF. ERROR THEN 



IF #ADDR22 SETIN DT.CFO(RO) THEN 



BCC 



BIT 
BEQ 



50003$ 



#ADDR22,DT.CF0(R 
50004$ 



IF MB.FLG EQUALS THEN TURN MAP ON 



IFB MB.FLG EQ #0 THEN 

T3TB MB.FLG 

BNE 50005$ 
LET DT.STO(RO) : = DT.STO(RO) SET. BY #MAPSTAT 

BIS #MAPSTAT y OT.ST0( 
LET @#SR3 := @#SR3 SET. BY #BIT05 

BIS #BIT05,(M'SR3 



LOAD UNI BUS MAP ON MESSAGE 



ELSE 



LET DT.KBRSP(RO) := #M3.0N 



MOV #MB.ON,DT.KBRSP( 
BR 50006$ 



50005$: 



TURN IT OFF 



LET DT.STO(RO) := DT.STO(RO) CLR.BY #MAPSTAT 

BIC #MAPSTAT,DT.STO( 

LET @#SR3 := @#SR3 CLR.BY #BIT05 

3IC #BIT05,@#SR3 



LOAD THE UNIBUS MAP OFF MESSAGE 



LET DT.KBRSP(RO) := #MB.OFF 



MOV 



#MB.CFF,DT.KBRSP 



ENDIF 
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(4) 

742 
(4) 
(3) 
743 
744 
745 
746 
747 
(4) 
748 
(4) 
749 
750 
(4) 
(3) 
751 
752 
753 
754 
755 
(4) 
756 
(4) 
757 

I A \ 

(3) 
758 
759 
76C 
761 
762 
763 
(4) 
764 
(4) 
765 
766 
767 
768 
769 
770 
(2) 
(3) 
771 
772 
(3) 
(3) 
(2) 
773 
774 



000230' 
000230' 

000230' 000403 
000232' 



000232' 

000232' 012760 000000' 000022 

000240' 

000240' 

000240' 

000240' 000403 
000242' 



MACY11 30A(1052) 
ROUTINE 
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SEQ 0621 



50006$: 



50004$: 



BR 



50007$ 



LOAD THE NO UN I BUS MAP MESSAGE 



LET DT.KBRSP(RO) := 0MB.NOMB 



ENDIF 



ELSE 



LOAD THE ILLEGAL ARGUMENT MESSAGE 



50007$: 



50003$: 



MOV 



BR 



#MB.NOMB,DT.KBRS 



50010$ 



000242' 

000242' 012760 000000G 000022 

000250' 

000250' 

000250' ELSE 

nnnnergi ^0^403 

000252' 



LET DT.KBRSP(RO) 
ENDIF 



:= #CM.ARG 



50010$: 



50002S: 



MOV 



BR 



#CM.ARG,DT.KBRSP 



50011$ 



LOAD THE RUN MODE MESSAGE 



000252' 

000252' 012760 OOOOOOG 000022 

000260' ENDIF 

000260' 



LET DT.KBRSP(RO) := #CM.RUN 



MOV 



#CM.RUN,DT.KBRSP 



500113: 



000260' 

000260' 012601 
000262' 012600 

000264' 
000264' 
000264' 
000264' 000207 

000001 



CLEAN UP 



POP R1 ,R0 



ENDRTN 



END 



50000$: 
50001$: 



MOV 
MOV 



RTS 



(SP)+,R1 
(SP)+,R0 



PC 
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5EQ 0622 



ACSR = 


000102 


ACT3IT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ARGCHK= 


****** G 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


0001 10 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


3IT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT03 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


SI T 1 = 


0020 w 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


1 00000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BITS = 


000100 


BIT7 = 


000200 


BITS = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BK5LSH= 


000134 


BUFPTR= 


000002 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CM.ARG= 


****** Q 


CM. RUN = 


****** Q 


CONFIG= 


000056 



CGOVF - 

CR 

CSRA = 

CSRC = 

CTRLC = 

CTRLO = 

CTRLU = 

DCEVNT= 

DEFRTN= 

DIAGMC= 

DROPMO= 

DSEVNT= 

DTADR = 

DT.ADD= 

DT.-AP = 

DT,APK = 

DT.BLS = 

DT.CFO= 

DT.CF1= 

DT.ERR= 

DT.ESI= 

DT.EVN= 

DT.EXS= 

DT.FGH? 

DT.FCN= 

r\-r ujyj'x - 

DT.KB£= 

DT.KBP = 

DT.K3R = 

DT.KBU= 

DT.MLS^ 

DT.MTI= 

DT.OFF = 

DT.PAS= 

DT.PC = 

DT.PFL = 

DT.PSW= 

DT.PTA= 

DT.RCS= 

DT.REL= 

DT.SCT= 

DT.SMX= 

DT.SP = 

DT.SSI= 

DT.STO= 

DT.ST1= 

DT.SWR= 

DT.SYP= 

DT.WBU= 

DT.WHL = 

DT.WLL= 

DVID1 = 

ECCMEM= 



000001 

000015 

000100 

000102 

000003 

000017 

000025 

000011 

000400 

000000 

100000 

000014 

000000 

000042. 

000100 

000076 

000034 

000014 

000016 

000020 

000044 

000000 

000060 

000037 

000036 

QQQ1 Q4 

000024 
000026 
000022 
000030 
000032 
000110 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 



ECCSTA= 
ENBEOP= 
ENBNUL= 
ENDLST= 
EOPBTT = 
ERRTYP= 
EVNTBE= 
EVNTHD= 
EVNTKT= 
EVNTPE= 
EVNTRE= 
FATERR= 
HRDCNT= 
HRDPAS= 
ICONT = 
ICOUNT= 
IDNUM ■'.= 
IE 

INDPAR= 
INHDRP=- 
INHEPR= 
INHREL= 
INHRRE= 
INIT = 
■INTR = 
I0MOD = 
IOMODP= 
IOMODR= 
IOMODX= 
JACK = 
KI-PARO= 
KIPAR1= 
KIPAR2= 
KIPAR3= 
KIPAR4= 
KIPAR5= 
KIPAR6= 
KIPAR7= 
KIPDRO= 
KIPDR1= 
KIPDR2= 
KIPDR3= 
KIPDR4= 
KIPDR5= 
KIPDR6= 
KIPDR7= 
KMOFF 
KMON 
KTERRO= 
KTPRES= 
KTSTAT= 
KTXTND= 
LF 



000010 

010000 

000001 

000000 

000001 

0001 05 

000200 

000200 

000203 

000202 

000201 

100000 

000044 

000050 

000036 

000040 

000122 

000100 

000040 

040000 

020000 

001000 

000400 

000030 

000120 

100000 

102000 

1 12000 

110000 

035060 

1 72340 

1 72342 

172344 

172346 

172350 

172352 

172354 

1 72355 

172300 

172302 

172304 

172306 

172310 

172312 

172314 

172316 

000070RG 

000060RG 

000040 

000400 

000020 

040000 

000012 



LPSTAT= 

MAPSTA= 

M3R0U 

MB.FLG 

MB. MOM 

MB. OFF 

MB. ON 

MED 

MEMPAS= 

MODEXH= 

MODHOL= 

MODSELs 

MSGCKD= 

MSGCKS= 

MSGDER= 

MSGDRP= 

MSGECH= 

MSGEOP= 

M'SGHDR = 

MSGHNG= 

MSGHRD= 

MSGMAP= 

MSGNUL= 

MSGPCP= 

MSGPRM= 

MSGRES= 

MSGSFT= 

MSGSKE= 

MSGSMB= 

MSGSMH=- 

MSGSMSs 

MSGSTD= 

MSGSYS= 

MSGVEC= 

NBKMOD= 

NCPUOP= 

NOAPTY= 

NULL = 

OWEN = 

PAERR = 

PARPRE= 

PARSTA= 

PASCNT= 

PDPLSI= 

PDP60 = 

PDP70 = 

PRIO = 

PRI1 = 

PRI4 = 

PRI5 = 

PRI6 = 

PRI7 = 

PRO 



000001 

000200 

000076R 

000056R 

OOOOOOR 

a nnnoco 

00001 7R 

076600 

040000 

004000 

002000 

001000 

000010 

00001 1 

000005 

000017 

177777 

000013 

000004 

000022 

000007 

000021 

177775 

000002 

177776 

000001 

000006 

000003 

003015 

000014 

.000-016 

000000 

000012 

000020 

001000 

000020 

000002 

OCOOOO 

024020 

000010 

002000 

000100 

000034 

020000 

004000 

010000 

000000 

000040 

000200 

000240 

000300 

000340 

000000 



PR4 

PR5 

PR6 

PR7 

PS 

PSW - 

RANNUM= 

R3UFEA= 

RBUFPA= 

RSUFS2= 

RBUFVA= 

RDSERV= 

RDWh'MI = 

RELERR= 

RELMOD= 

RELTIM= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBOUT= 

RUNMOD= 

R5VALU= 

SAM 

SBADR = 

SBKMOD= 

SBKSEL= 

SC.ADR= 

SC.ALC= 

.SC,..APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SOFCNT= 

SQFPAS= 

SPACE = 

SP0IN1= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSFND= 

SVRO = 

SVR1 = 

SVR2 = 



000200 

000240 

000300 

000340 

177776 

1 77776 

000054 

000130 

000126 

000132 

000124 

000101 

000022 

000020 

020000 

010000 

000056 

000060 

031060 

002000 

000112 

000177 

100000 

001740 

075464 

000102 

000000 

010000 

000006 

000014 

0000.16. 

000002 

000004 

000000 

000010 

000012 

177777 

000042 

000046 

000040 

000032 

002200 

177572 

177574 

177576 

172516 

000026 

064757 

000027 

000001 

000062 

000064 

000066 
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$F$CAS= 000150 

$F$DEC= 000220 

SFSDO = 000340 

$F$FAL= 000405 

$F$GOO= 000400 

$F$IF = 000110 
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SEQ 0623 



SVR3 = 


000070 


UIPDR5= 


177612 


SVR4 = 


000072 


UIPDR6= 


177614 


SVR5 = 


000074 


UIPDR7= 


177616 


SVR6 a 


000076 


WASADR= 


000104 


SYSCNT= 


000052 


WBSTAT= 


000040 


SYSERR= 


000100 


wBUFEA= 


0001 36 


TMPIO = 


000002 


WBUFPA= 


000134 


TQOVF = 


000002 


WBUFRQ= 


000140 


UIPAR0= 


177640 


WBUFSZ= 


000142 


UIPAR1= 


177642 


WDFR = 


000116 


UIPAR2= 


177644 


WDTO = 


000114 


UIPAR3= 


177646 


WTINRE= 


000352 


UIPAR4= 


177650 


WTWHMI= 


0C0222 


UIPAR5= 


177652 


XFLAG = 


000005 


UIPAR6= 


177654 


XOFF = 


000023 


UIPAR7= 


177656 


XON 


000021 


UIPDRO= 


177600 


$BGNLE= 


177777 


UIPDR1= 


177602 


$ERFLG= 


000400 


UIPDR2= 


177604 


$F$AND= 


000310 


UIPDR3= 


177606 


$F$BAD= 


000401 


UIPDR4= 


177610 


$F$BLA= 


000170 


. ABS. 


000000 000 
000266 001 





$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO s 
SF$OR = 
$FSRTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$FSYES= 
$IFLEV= 
$ISKO = 



000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 
000001 



SISK1 - 
$ISK2 = 
SISK3 = 
SLOCTA= 
$LSTIN= 
$LSTTA= 
$NESTL= 
$NSK0 = 
SNSK1 = 
$NSK2 = 
$NSK3 = 
SNSK4 = 
$SAVLE= 
STAGLE= 
$TAGNU= 
$TEMP = 
STSKO = 
STSK1 = 
STSK2 = 
$TSK3 = 
$$ARGC= 



000001 
000001 
000001 
177777 
000001 
000001 
177777 
000300 
000110 
000110 
000110 
000110 
177777 
177777 
050012 
000300 
05001 1 
050010 
050007 
050006 
000004 



SSBYTE= 
$SCASE= 
$$DST = 
$SELOC= 
SSERFL= 
$SFLAG= 
$$FROM= 
SSLOC = 
$$LOCN= 
SSREG = 
$$RETU= 
$SRTN1= 
SSRTN2= 
$$SRC = 
$$7GSV= 
$$7oS 1 = 
S$TGS2= 
S$TO = 
$$STAG= 



000402 

000000 

000000 

000402 

000000 

000001 

000001 

000160R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000001 

050000 

000266R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ : KMONOF , DSK2 : KMONQF=SPMAC/ML t EQUATE , KMONOF 
RUN-TIME: 13 4 .4 SECONDS 
RUN-TIME RATIO: 34/18=1.8 
CORE USED: 1 4K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:01 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0624 

3 COMMON EQUATE MODULE 

586 COMMON DEFINITIONS AND REFERENCES FOR KRUN 

589 000000' .PRINT ;SPMAC: VERSION 1.1 

644 KRUN ROUTINE 



KRUN PROCESS THE 'RUN' COMMAND <S 
KRUN. MAC 20-SEP-78 09:15 

508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
513 
519 
520 
521 
522 
523 
524 
525 
526 
527 
523 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 



RUNL' COMMAND MACY1 1 30A(1052) 
COMMON EQUATE MODULE 



20-SEP-78 18:01 PAGE 19 



SEQ 0625 



PROCESS THE 'RUN' COMMAND & 'RUNL' COMMAND 



.TITLE KRUN 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
KRUN 



FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PROCESSES THE 'RUN' AND THE 'RUNL' KEYBOARD 
COMMANDS. IF AN ADDRESS IS INCLUDED, IT WILL BE VERIFIED. 
ALL OPTION MODULES HEADERS WILL BE INITIALIZED. THE SYS- 
TEM ERROR COUNT, POWER FAIL COUNT, AND RELOCATION FLAG 
WILL BE INITIALIZED. THE KT WILL BE MAPPED TO THE NEW 
LOCATION (IF ANY SPECIFIED). THE WRITE BUFFER LIMITS 
WILL BE SET UP. 



INPUTS: 



DTABLE ADDRESS 
DECODE BUFFER POINTER 



IMPLICIT INPUTS: 
1. DT.MLST 





2. 


DT 


STO 




3. 


DT 


SSIZ 




4. 


DT 


CFO 




5. 


DT 


ADDR 


OUTPUTS: 








NONE 




IMPLICIT 


OUTPUTS: 




1 . 


DT 


STO 




2. 


DT 


KBRSP 




3. 


DT 


ESIZ 




4. 


DT 


SYP 




5. 


DT 


EXS 




6. 


DT 


PFL 



PATHOLOGICAL CONNECTIONS: 

1. BE.MCNT - NUMBER OF MONITOR SYS ERRORS 
PR.RL1 - RELOCATION FLAG 



2. 
3. 

4. 
5. 
6. 
7. 
8. 
9. 



CM. ADDR 
MD.COD 
CM. RUN 
CM NBAD 
CM . NUM 
CM.ARG 
PA.CNT 



SUBORDINATE ROUTINES CALLED: 



1 . 
2. 
3. 
4. 
5. 
6. 



ARGCHK 
CLRTIM 
SAVREG 
RESREG 
W8FLIM 
WSTBUS 



KRUN PROCESS THE 'RUN 1 COMMAND & 'RUNL' COMMAND MACY11 3QA(1052) 20-SEP-78 18:01 PAGE 19-1 
KRUN. MAC 20-SEP-78 09: 15 COMMON EQUATE MODULE 



SEQ 0626 



564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 



7. CLKCHK 

8. APTSEL 
PRRLOC 

MSGDEQ 
SETVEC 

I1MTMAD 



9. 

10 
11 



FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL KRUN(L) IN <DTADR , BUFPTR> 
WHERE DTADR = DTABLE ADDRESS 

VERSION: 
0.0 



EDIT 



DATE 



BY 



BUFPTR = COMMAND DECODE BUFFER P 



REASON 



KRUN 
KRUN 



PROCESS THE 'RUN 1 
,MAC 20-SEP-78 09: 



COMMAND 
15 



RUNL 1 COMMAND MACY11 
COMMON DEFINITIONS AND 



30ACI052) 

REFERENCES 



20-SEP-78 
FOR KRUN 



18:0" 



PAGE 19-2 



SEQ 0627 



586 
587 
588 
589 
(D 
530 
591 
592 
593 
594 
595 
596 
597 
598 
599 
500 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
61 3 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 



000000' 
000000' 



000000' 
000002' 
000004' 
000012' 
000020' 
000026' 
000034' 
000042' 
000050' 
000056' 



000001 
000001 



000000 
000000 
052515 
020105 
042524 
047101 
050505 
047524 
031050 
022451 



052123 
051107 
020122 
047440 
040525 
032040 
030060 
000 



041040 
040505 
044124 
020122 
020114 
0201 13 
030060 



.SBTTL COMMON DEFINITIONS AND REFERENCES FOR KRUN 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTTAG=1 
$LSTIN=1 

REFERENCED BY OTHER MODULES: 



GLOBL 
GLOBL 



KRUN 
KRUNL 



$ % $.* * * jit********* 



GLOBAL REFERENCES: 



GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 



CLKCHK 

APTSEL 

MD.COD 

CM. ADR 

PRRLQC 

MS G DEQ 

SETVEC 

UNIMAP 

CM. RUN 

CM. N 5 AD 

CM.NUM 

CM.ARG 

CLRTIM 

ARGCHK 

SAVREG 

RESREG 

PR.RL1 

PA.CNT 

BE.MCNT 

WBFLIM 

WSTBUS 



;MODULE ENTRY POINT 
; MODULE ENTRY POINT 



SEE IF A CLOCK IS HERE 

APT SELECT ROUTINE 

CODE 

' ILLEGAL ADDRESS' 

RELOCATE THE CODE 

MESSAGE DEQUE 

SET UP UNUSED VECTORS 

UNIBUS MAPPING 

'ILLEGAL COMMAND IN RUN MODE' 

'NOT AN OCTAL ft ' 

•NUMBER TOO LARGE' 

'ILLEGAL OR MISSING ARGUMENT' 

CLEAR TIME TABLE 

CHECK AN ARGUMENT 

SAVE REGISTERS 

RESTORE REGISTERS 

RELOCATION FLAG 

NUMBER OF PARITY ERRORS 

MONITOR SYSTEM ERROR COUNT 

ESTABLISH WRITE BUFFER LIMITS 

WRITE WORST CASE UNIBUS PATTERN 






LOCAL STORAGE: 



KR.FLG: .WORD ; ' 1 ' IF CMD IS RUNL - '0' IF CMD IS RUN 
KR.MOV. .WORD ; ' 1 ' IF MOVING CODE - ' 0' IF NOT 
KR.SML: .ASCIZ /MUST BE GREATER THAN OR EQUAL TO 4K (20000)%/ 



KRUN PROCESS THE 'RUN' COMMAND- & 'RUNL 1 COMMAND MACY1 1 30A(1C52) 20-SEP-7S 
KRUN.MAC 20-SEP-7S 09:15 COMMON DEFINITIONS AND REFERENCES FOR KRUN 



18:01 PAGE 19-3 



SEQ 0628 



634 


000061 ' 


101 


042104 


042522 




000066' 


051523 


047440 


045456 




000074' 


020056 


052502 


020124 




000102' 


054105 


051105 


044503 




0001 10' 


042523 


020122 


047527 




0001 i6 ! 


023516 


020 1 24 


044506 




000124' 


022524 


000 




635 


000127' 


1 15 


051525 


020124 




000134' 


040510 


042525 


045440 




000142' 


020124 


047117 


000045 


636 


000150' 


047516 


046440 


0421 17 




000156' 


046125 


051505 


051440 




000164' 


046105 


041505 


042524 




000172' 


022504 


000 




537 


000175' 


1 15 


050101 


041040 




000202' 


054117 


046440 


051525 




000210' 


020124 


042502 


047440 




000216' 


022516 


000 




638 




000222' 






639 










640 










541 










642 











KR.BIG: .ASCIZ /ADDRESS O.K. BUT EXERCISER WON'T FIT%/ 



KR.KT: .ASCIZ /MUST HAVE KT 0N%/ 



KR.MOD: .ASCIZ /NO MODULES SELECTED%/ 



KR.MAP: .ASCIZ /MAP BOX MUST BE 0N%/ 



EVEN 



j**************** 
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KRUN. MAC 20-SEP-78 09:15 



RUNL' COMMAND 
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SEQ 0629 



644 

645 

646 

(2) 

647 

64S 

649 

650 

651 

652 

(4) 

653 

(2) 

554 

(3) 

(3) 

(2) 

655 

656 

(2) 

657 

558 

559 

660 

661 

662 000232' 

(4) 000232' 012767 

663 

664 



000222' 
000222' 



000222" 

000222' 005067 
000226' 

000226' 000404 
000230' 
000230' 
000230' 
000230' 000207 

000232' 
000232' 



177552 



000001 177540 



.SBTTL KRUN ROUTINE 
ROUTINE KRUN <DTADR, BUFPTR> 

INDICATE 'RUN' COMMAND 

LET KR.FLG := #0 
INLINE <BR RUNSUB> 
ENDRTN 

ROUTINE KRUNL <DTADR , BUFPTR> 

INDICATE 'RUNL COMMAND 
LET KR.FLG := #1 



KRUN: 





CLR 


KR.FLG 




BR 


RUNSUB 


50000S: 






50001$: 






KRUNL: 


RTS 


PC 



ff l , r\n . r t_w 



KRUN 


PROCESS 


KRUM.MAC 20- 


666 


000240 ' 


(2) 


000240' 


667 




668 




669 




570. 




671 




672 




573 


000240' 


(4) 


000240' 


S74 


000244' 


(3) 


000244' 


675 


000250' 


(4) 


000250' 


676 


000254' 


(4) 


000254' 


677 




673 




679 




680 




681 


000260' 


(6) 


000260' 


(8) 


000266' 


(6) 


000270' 


(9) 


000276' 


(6) 


000300' 


582 


000300' 


(2) 


000300' 


683 


000304' 


(4) 


000304' 


584 




685 




686 




687 




688 




689 




890 


000304' 


(6) 


000304' 


(9) 


000312' 


691 


000314' 


(4) 


000314' 


692 


000322' 


(2) 


000322' 


693 




694 


000326' 


(A) 


000326' 


695 




696 




697 




698 




699 




700 




701 




702 




703 




704 





THE 'RUN' COMMAND & 'RUNL' COMMAND 
SEP-78 09M5 KRUN ROUTINE 

INLINE <RUNSUB:> 
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SEO 0630 



RUNSUB: 



005067 177536 

004767 OOOOOOG 

016500 000000 

016501 000002 



032760 000010 000014 

001004 

032760 000200 000014 

001402 



000167 000504 



032760 100000 000010 
001405 

012760 OOOOOOG 000022 

000167 001166 



INIT FLAG, SAVE REGISTERS, DTABLE AND BUF PTR 

LET KR.MOV := #0 

CALL SAVREG 

LET RO := DTADR(R5) 

LET R1 := BUFPTR(R5) 

+ 
IF IN AUTO OR APTPRES MODE, DON'T CHECK ANY ARGUMENTS - JUST GO TO WORK 



CLR 


KR.MOV 


JSR 


PC, SAVREG 


MOV 


DTADR(RS) ,R0 


MOV 


BUFPTR(R5),R1 



IF #AUTO SETIN DT.CFO(RO) OR #APTPRES SETIN DT.CFO(RO) THEN 



INLINE <JMP 



339$> 



ENDIF 



50002$: 



50003$: 



BIT 
BNE 
BIT 
BEQ 



JMP 



#AUTO,DT.CF0(R0) 
50002$ 

#APTPRES,DT.CFO( 
50003$ 



339$ 



SEE IF IN RUNMODE - I F SO STUFF ERROR AND SCRAM 

IF #RUNMODE SETIN DT.STO(RO) THEN 

LET DT.KBRSP(RO) := #CM.RUN 
INLINE <JMP 1$> 

ENDIF 



WE ARE NOT IN RUNMODE ALL IS OK, SAVE DT.ADDR GET AN ARGUMENT IF ANY 





BIT 


#RUNMODE,DT.STO( 




BEQ 


50004$ 




MOV 


#CM.RUN,DT.KBRSP 




JMP 


1$ 


50004$: 







SAVE DT.ADDR 



KRUM PROCESS THE 'RUN' 
KRUN.MAC 20-SEP-78 09 



COMMAND 
15 



& 'RUN 



.' COMMAND 
KRUN ROUTINE 
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SEQ 0631 



705 








706 


000326' 






(4) 


000326' 


016003 


000042 


707 








708 


000332' 






(4) 


000332 1 


162705 




(3) 


000336' 


010546 




(4) 


000340' 


010145 




(3) 


000342' 


004767 


O0OO0OG 


(3) 


000346' 


012605 




(4) 


000350' 


012501 




709 








710 








711 








712 








713 








714 


000352' 






(6) 


000352' 


103002 




715 








716 


000354' 






(2) 


000354' 


000167 


000430 


717 








718 


000360' 






(4) 


000360' 






719 








720 








721 




i 




722 








723 








724 








725 


000360' 






(4) 


000360' 


012767 


000001 


726 








727 


000366' 






(4) 


000366' 






(6) 


000366' 


121127 


000060 


(9) 


000372' 


001002 




728 


000374' 






(6) 


000374' 


005201 




729 


000376' 






(4) 


000376' 


000773 




(3) 


000400' 






730 








731 








732 








733 








734 








735 








736 


000400' 






(4) 


000400' 


000241 




737 


000402' 






(4) 


000402' 


005004 




738 


000404' 






(4) 


000404' 


005003 




739 


000406' 






(4) 


000406' 


005002 





LET R3 := DT.ADDR(RO) 



MOV 



DT.ADDR(RO) ,R3 



CALL ARGCHK IN <R1> OUT <R1> 



SUB 


#1*2, R5 


MOV. 


R5 f -(SP) 


MOV 


R1 ,-(R5) 


■JSR 


PC, ARGCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 



IF NO ARGS, JUMP AHEAD 

IF. ERROR THEN 

INLINE <JMP 
ENDIF 



339$> 



BCC 



uMP 



50005$ 
339$ 



50005$: 



NOT A CARRIAGE RETURN.. SET FLAG.. GET BY ANY LEADING O'S AND VERIFY NUMBER, 



LET KR.MOV := #1 



177414 



WHILES (R1 ) EQ #'0 DO 



LET R1 := R1 + #1 



ENDDO 





MOV 


#1 t KR.MOV 


50006S: 


CMPB 

BNE 


(R1 ) ,#'0 
50007$ 




INC 


R1 


50007$: 


BR 


50006$ 



INIT C-BIT AND REGISTERS 

LET CARRY := 

LET R4 := #0 

LET R3 := #0 

LET R2 := #0 



CLC 




CLR 


R4 


CLR 


R3 


CLR 


R2 
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SEQ 0632 



740 






741 






742 






743 






744 






745 






746 






747 






748 






749 






750 


000410' 




(4) 


000410' 




(6) 


000410' 


121127 000060 


(9) 


000414' 


002420 


(6) 


000416' 


121127 000067 


(9) 


000422' 


003015 


751 






752 






753 






754 






755 






756 


000424' 




(4) 


000424' 


111100 


757 






758 






759 






760 






761 


000426' 




(6) 


000426' 


162700 000060 


762 






763 






764 






765 






766 






767 


000432' 




(7) 


0.00432' 


006303 


768 






759 






770 






771 


000434' 




(7) 


000434' 


006104 


772 


000436' 




(7) 


000436' 


006303 


773 


000440' 




(7) 


000440' 


006104 


774 


000442' 




(7) 


000442' 


006303 


775 


000444' 




(7) 


000444' 


006104 


776 






777 






778 






779 






780 


000446' 




(6) 
731 


000446' 


060003 



NUMBER VERIFICATION CONSISTS OF CHECKING UNTIL SOMETHING OTHER 

THAN A '0' THRU '7' IS DETECTED IN THE DECODE BUFFER THE OCTAL 

ASCII CHARACTERS WILL BE DE-ASCIIED, SHIFTED INTO R3 AND ANY 
OVERFLOW SHIFTED INTO R4....A COUNT OF THE NUMBER OF CHARACTERS IS 
MAINTAINED. 



WHILEB (R1) GE #'0 ANDB (R1) LE #'7 DO 



GET A BYTE 



DE-ASCII IT 



LET RO :B= (R1 ) 



LET RO := RO - #'0 



SHIFT OLD STUFF(LO ORDER) TO RIGHT 

LET R3 := R3 SHIFT 1 

+ 

ROTATE HIGH ORDER 

LET R4 

LET R3 

LET R4 

LET R3 

LET R4 



R4 ROTATE 1 
R3 SHIFT 1 
R4 ROTATE 1 
R3 SHIFT 1 
R4 ROTATE 1 



ADD THE NEW CHAR 

LET R3 := R3 + RO 



10$: 








CMP 3 


(R1 ) ,#'0 




BLT 


5001 1$ 




CMPB 


( R 1 ) , U ' 7 




BGT 


50011$ 



MOVB 



SUB 



ASL 



(R1 ) ,R0 



#'0,R0 



R3 



ROL 


R4 


ASL 


R3 


ROL 


R4 


ASL 


R3 


ROL 


R4 



ADD 



R0,R3 
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SEQ 0633 



782 








783 








784 








785 








786 


000450' 






( c ^ 


QQQA KQ 1 


005202 




^ *■> > 




787 








783 








789 








790 








791 








792 


000452' 






(6) 


000452' 


005201 




793 








794 


000454' 






(4) 


000454' 


000755 




(3) 


000456' 






795 








796 








797 








798 








799 








800 








801 


000456' 






(4) 


000456' 


016500 


000000 


802 








803 








804 








805 








806 








807 








808 


000462' 






(6) 


000462' 


121127 


000015 


(9) 


000466' 


001410 




(6) 


000470' 


121127 


000040 


(9) 


000474' 


001405 




809 








810 


000476' 






(4) 


000476' 


012760 


000000G 000022 


811 


000504' 






(2) 


000504' 


000167 


001004 


812 


000510' 






(4) 


000510' 






813 








814 








815 








816 








817 








818 








819 


000510' 






(6) 


000510' 


020227 


000010 


(9) 


000514' 


003405 




820 


000516' 






(4) 


000516' 


012760 


OOOOOOG 000022 


821 


000524' 






(2) 


000524' 


000167 


000764 



INCREMENT CHAR COUNTER 

LET R2 := R2 + #1 

GET NEXT BYTE 

LET R1 := R1 + #1 

ENDDO 



RESTORE DTABLE TO RO 



LET RO := DTADR(R5) 



R1 IS NOW POINTING TO FIRST NON-OCTAL-ASCII-CHAR. 
CR OR SPACE... IF NOT - STUFF ERROR MSG AND SCRAM. 



IFB (Rlj'NE #CR ANDB (R1 ) NE #SPACE THEN 



LET DT.KBRSP(RO) : = #CM.NBAD 
INLINE <JMP 1$> 
ENDIF 



INC R2 



INC R1 



BR 50010$ 



5001 1$: 



MOV 



DTADR(R5) , RO 



IT MUST BE 



CMPB 
BEQ 
CMPB 
BEQ 



MOV 
JMP 



(R1 ) f #CR 

50012$ 

(R1 ) ,#SPACE 

50012$ 



#CM.NBAD,DT.KBRS 
1$ 



50012$: 



IF THE ADDRESS GIVEN WAS MORE THAN 8 CHARS... (NOT COUNTING LEADING O'S).. STUFF 
ERROR MSG AND RETURN... 



IF R2 GT #10 THEN 



LET DT.KBRSP(RO) := #CM.ADR 
INLINE <JMP 1$> 



CMP R2,#10 

BLE 50013$ 

MOV #CM.ADR,DT.KBRSP 

JMP 1 $ 
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822 


000530" 




(4) 


000530' 




823 






324 






825 






826 






827 






828 






829 






330 






331 






832 






833 






834 


000530' 




(4) 


000530' 


005002 


835 






836 


000532' 




(4) 


000532' 




(6) 


000532' 


020227 000006 


(9) 


000536' 


001404 


337 






838 


000540' 




(7) 


000540' 


006204 


839 


000542' 




(7) 


000542' 


006003 


840 


000544' 




(6) 


000544' 


005202 


841 






342 


000546' 




(4) 


000546' 


000771 


(3) 


000550' 




343 






844 






845 






S46 






847 






848 






849 






850 


000550' 




(6) 


000550' 


005704 


(9) 


000552' 


001405 


851 


000554' 




(4) 


000554' 


012760 OOOOOOG 000022 


852 


000562' 




(2) 


000562' 


000167 000726 


853 






854 


000566' 




(4) 


000566' 




855 






856 






857 






858 






859 






860 


000566' 




(6) 


000566' 


020327 000177 


(9) 


000572' 


101005 



ENDIF 



50013$: 



CONVERT THE NUMBER TO PAR FORMAT ... TO DO, SHIFT THE HIGH AND LOW 
ADDRESS BITS TO THE RIGHT 6 TIMES 



INIT COUNTER 

LET R2 := #0 



WHILE R2 NE #6 DO 



50014$: 



LET R4 := R4 SHIFT -1 
LET R3 := R3 ROTATE -1 
LET R2 := R2 + #1 



ENDDO 



CLR 



CMP 

BEO 



ASR 
ROR 

T \lf 

BR 



50015S: 



R3 IS NOW PAR FORMAT. IF R4, THE HIGH ORDER BITS, IS NOT ZERO, 
THE ADDRESS WAS TOO BIG STUFF ERROR AND SCRAM... 



IF R4 NE #0 THEN 



LET DT.KBRSP(RO) := #CM.ADR 
INLINE <JMP 1$> 



TST 
BEO 

MOV 

JMP 



ENDIF 



50016$: 



ALSO BUST COMMAND IF THE LOW ORDER WORD IS LESS THAN 4K 



IF R3 LOS #177 THEN 



CMP 
BHI 



SEQ 0634 



R2 



R2,#6 
50015$ 



R4 
R3 

50014$ 



R4 
50016$ 

#CM.ADR,DT.KBRSP 
1$ 



R3,#177 
50017$ 
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861 








862 


000574' 






(4) 


000574' 


012760 


000004' 000022 


863 


000602' 






(2) 


000602' 


000167 


000706 


854 








865 


000606' 






(4) 


000606' 






866 








867 








868 








869 








870 








871 








872 








873 








874 








875 








876 


000606' 






(6) 


000606' 


020360 


000046 


(9) 


000612' 


101405 




877 


000614' 






(4) 


000614' 


012760 


000000G 000022 


878 


000622' 






(2) 


000622' 


000167 


000666 


879 


000626' 






(4) 


000626' 






880 








881 








882 


000626' 






(4) 


000626' 


016002 


000044 


883 


000632' 






(4) 


000632' 


005004 




884 


000634' 






(4) 


000634' 






(6) 


000634' 


020427 


000006 


(9) 


000640' 


001404 




885 


000642' 






(4) 


000642' 


000241 




886 


000644' 






(7) 


000644' 


006002 




887 


000646' 






(6) 


000646' 


005204 




888 


000650' 






(4) 


000650' 


000771 




(3) 


000652' 






889 








890 








891 








892 








893 








894 








895 








896 


000652' 






(6) 


000652' 


162702 


000177 


897 


000656' 







ENDIF 
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LET DT.KBRSP(RO) := #KR.SML 
INLINE <JMP 1$> 

50017$: 





SEQ 0635 


MOV 


#KR.SML,DT.K.BRSP 


JMP 


1$ 



NEXT, SEE IF THE EXERCISER CAN POSSIBLY FIT INTO THE NEW ADDRESS SPACE 

AND SEE IF ADDRESS EXISTS AT ALL GET THE EXERCISER SIZE, CONVERT 

TO PAR FORMAT, IF THE NEW ADDRESS DESIRED IS GREATER THAN THE SYSTEM 

SIZE STUFF ERROR MSG AND RETURN... IF NOT, SUBTRACT THE NEW ADDRESS 

FROM THE SYSTEM SIZE SEE IF THE EXERCISER WILL FIT IF NOT 

STUFF ERROR MSG AND RETURN 



3UU^U4 ' 



IF R3 HI DT.SSIZ(RO) THEN 

LET DT.KBRSP(RO) := #CM.ADR 
INLINE <JMP 1$> 
ENDIF 

LET R2 :- DT.ESIZ(RO) 
LET R4 := #0 
WHILE R4 NE #6 DO 

LET CARRY := 
LET R2 := R2 ROTATE -1 
LET R4 := R4 + #1 
ENDDO 



R2 NOW HAS EXERCISER SIZE IN PAR FORMAT SEE IF ROOM EXISTS FOR IT, 

FIRST SUBTRACT 4K FROM IT (THE UN MOVABLE PORTION) AND SUBTRACT NEW 
ADDR FROM SYS SIZE 



CMP R3,DT.SSIZ(R0) 

BLCS 50020$ 

MOV #CM.ADR,DT.KBRSP 

JMP 1$ 





MOV 


DT.ESIZ(R0),R2 




CLR 


R4 


50021$: 


CMP 
BEQ 

CLC 


R4,#6 
50022$ 




ROR 


R2 




INC 


R4 


50022$: 


ER 


50021$ 



LET R2 := R2 - #177 

LET R4 := DT.SSIZ(RO) - R3 



SUB 



#177,R2 
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SEQ 0636 



(4) 
(6) 
898 
899 
900 
901 
902 
903 
904 
905 
(6) 
(9) 
906 
(4) 
907 
(2) 
908 
(4) 
909 
910 
911 
912 
913 
914 
915 
(4) 
(3) 
(4) 
(3) 
(3) 
(4) 
916 
917 
(6) 
918 
(4) 
919 
(2) 
920 
921 
(4) 
922 
923 
924 
925 
926 
927 
(6) 
(9) 
928 
(4) 
929 
(2) 
930 
(4) 
931 



000656' 016004 000046 
000662' 160304 



MOV DT.SSIZ(RO) »R4 
SUB R3,R4 



IF R4 (THE DIFFERENCE BETWEEN THE TOP OF MEMORY AND RELOCATION 
ADDRESS) IS LESS THAN THE EXERCISER SIZE, WE OBVIOUSLY DON'T HAVE ROOM. 
STUFF ERROR MSG AND RETURN. 



000664' 

000664' 020402 
000666' 003005 
000670' 

000670' 012760 
000676' 

000676' 000167 
000702' 
000702* 



IF R4 LE R2 THEN 



000061 ' 000022 



000612 



LET DT.KBRSP(RO) := #KR.BIG 
INLINE <JMP 1$> 



CMP 
BGT 

MOV 

JMP 



ENDIF 



50023$: 



000702' 
000702' 
000706' 
000710' 
000712' 
000716' 
000720' 



AT THIS POINT, THE NUMBER HAS BEEN VERIFIED, 
JUNK ARGUMENTS 



CALL ARGCHK IN <R1> OUT <R1> 



FINALLY CHECK FOR 



162705 
010546 
010145 
004767 
012605 
012501 



000002 



OOOOOOG 



000722' 

000722' 103405 

000724' 

000724' 012760 OOOOOOG 000022 

000732' 

000732' 000167 000556 

000736' 
000736' 



000736' 
000736' 
000744' 
000746' 
000746' 
000754' 
000754' 
000760' 
000760' 



032760 
001005 



000020 000010 



012760 000127' 000022 
000167 000534 



IF. NO. ERROR THEN 

LET DT.KBRSP(RO) := #CM.ARG 
INLINE <JMP 1$> 

ENDIF 

JUST CHECK TO MAKE SURE KT IS ENABLED 

IF #KTSTAT NOTSETIN DT.STO(RO) THEN 

LET DT.KBRSP(RO) := #KR.KT 
INLINE <JMP 1$> 
ENDIF 



R4,R2 
50023$ 

#KR.BIG,DT.KBRSP 

1$ 





SUB 


#1*2, R5 




MOV 


R5,-{SP) 




MOV 


R1 !-<R5) 




JSR 


PC, ARGCHK 




MOV 


(SP)+,R5 




MOV 


(R5)+,R1 




BCS 


50024$ 




MOV 


#CM.ARG,DT.KBRSP 




JMP 


1$ 


50024$: 









BIT 
BNE 


#KTSTAT,DT.STO(R 
50025$ 




MOV 


#KR.KT,DT.KBRSP( 




uMP 


1$ 


50025$: 







000760' 

000760' 020327 
000764' 103411 
000766' 032760 
C00774' 001005 
000776' 

000776' 012760 
001004' 

001004' 000167 
001010' 
001010' 



001010' 



006000 



000200 000010 



000175' 000022 



000504 



KRUN PROCESS THE 'RUN' COMMAND & 
KRUN.MAC 20-SEP-78 09:15 



932 
933 
934 
935 
936 
937 
938 
939 
(6) 
(9) 
(6) 
(9) 
940 
(4) 
941 
(2) 
942 
(4) 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
(6) 
(9) 
953 
(3) 
(4) 
(3) 
(3) 
954 
(4) 
955 
956 
(4) 
957 
958 
(4) 
959 
960 
961 
962 
963 
(4) 
(6) 
(9) 
964 
965 
966 
967 
968 
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SEQ 0637 



001010' 
001010' 
001016' 
001020' 
001020' 
001022' 
001024' 
001030' 
001032' 
001032' 



032760 
001405 

010546 
010045 
004767 
012605 



000200 000014 



OOOOOOG 



001032' 
001032' 016001 

001036' 
001036' 005004 



001040' 
001040' 

001040' 021127 
001044' 001410 



000032 



000000 



IF R3 IS BIGGER THAN OR EQUAL TO 6000 AND MAPPING IS NOT ON, BUST 

COMMAND THAT IS , YOU CANNOT RUN ABOVE 96K (ASSUMES AN EXERCISER SIZE 

OF 28K) BECAUSE YOU MAY OVERLAP SOME OF THE EXERCISER ABOVE 
124K AND WITH MAP BOX OFF, YOU WILL DIE 



IF R3 HIS #6000 AND #MAPSTAT NOTSETIN DT.STO(RO) THEN 



LET DT.KBRSP(RO) := #KR.MAP 
INLINE <JMP 1S> 



END IF 



CMP 
BLO 
BIT 
BNE 


R3,#6000 
50026$ 

#MAPSTAT,DT.ST0{ 
50026$ 


MOV 


#KR.MAP,DT.KBRSP 


JMP 


1$ 



339$: 



IF UNDER APT, USE APT'S TABLE TO SELECT THE MODULES 
AND SET UP DEVICE COUNT 



IF 0APTPRES SETIN DT.CFO(RO) THEN 
"CALL APTSEL IN <R0> 

ENDIF 

LET R1 := DT.MLST(RO) ;GET ADDRESS OF MODULE LIST 

LET R4 := #0 

+ 



50027$: 



BIT 
SEQ 

MOV 

MOV 
JSR 
MOV 



MOV 



CLR 



BEFORE HONORING COMMAND, MAKE SURE AT LEAST ONE MODULE IS SELECTED 



001046 1 



WHILE (R1 ) NE #ENDLST DO 



GET A MODULE ADDRESS 
LET R2 := (R1 )+ 



50030$: 



CMP 
BEQ 



#APTPRES ( DT.CF0( 
50027$ 

R5 f -(SP) 
R0,-(R5) 
PCAPTSEL 
(SP)+,R5 



DT.MLST(R0),R1 



R4 



(R1 ),#ENDLST 
50031$ 
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(4) 


001046' 


012102 




969 


0O1050 1 






(6) 


001050' 


032762 


040000 000026 


(9) 


001056' 


001402 




970 


001060' 






(4) 


001060' 


012704 


000001 


971 


001064 1 






(4) 


001064' 






972 


001064' 






(4) 


001064' 


000765 




(3) 


001066' 






973 








974 








975 








976 








977 








978 








979 








980 


001066' 






(6) 


001066' 


005704 




(9) 


001070' 


001005 




981 


001072' 






(4) 


001072' 


012760 


000150' 000022 


982 


001100' 






(2) 


001100' 


000167 


000410 


983 


001104' 






(4) 


001104' 






984 








985 








986 








987 








938 








989 








990 








991 








992 








993 








994 








995 








996 








997 








998 








999 








1000 


001104' 






(3) 


001104' 






1001 


001104' 






(3) 


001104' 


010546 




(4) 


001106' 


01 0045 




(3) 


001110' 


004767 


OOOOOOG 


(3) 


001114' 


012605 




1002 


001116' 






(3) 


001116' 


026727 


OOOOOOG 177775 


(6) 


001124' 


001367 




1003 








1004 








1005 
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IF #BIT14 SETIN STAT(R2) THEN 



LET R4 := #1 



ENDIF 



ENDDO 







SEQ 0638 




MOV 


(R1 )+,R2 




BIT 
BEQ 


#BIT14,STAT(R2) 
50032$ 




MOV 


#1 ,R4 


50032$: 






50031$: 


BR 


50030$ 



IF R4 IS ZERO... NO MODULES SELECTED STUFF ERROR AND GOODBYE.. 



IF R4 EQ #0 THEN 



LET DT.KBRSP(RO) : = #KR.MOD 
INLINE <JMP 1$> 



TST 
BNE 

MOV 

J MP 



ENDIF 



; + 



KflfiTW : 



; i i m ♦ GO TO WORK 1! ! ! ! ! 



GET THE MODULE HEADERS CLEANED UP ! 



BUT FIRST PRINT THE CR - IT TAKES SO LONG TO WRITE WSTBUS 
PATTERN THAT THE CR WOULD NOT BE ECHOED FOR A LONG TIME 
AND IT MAY CAUSE WORRY - HENCE THE CALL TO MSGDEQ WILL PRINT 
IT RIGHT AWAY 



REPEAT 



50034$: 



CALL MSGDEO IN <R0> 



UNTIL MD.COD EQ #MSGNUL 



MOV 
MOV 
USR 
MOV 

CMP 

BNE 



R4 
50033$ 

#KR.MOD,DT.KBRSP 

1$ 



R5,-(SP) 

R0,-(R5) 
PC, MSGDEO 
(SP)+,R5 

MD.COD,#MSGNUL 
50034$ 



; + 
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SEO 0639 



1006 








1007 








1008 








1009 


001126' 






(3) 


001126' 


010546 




(A) 


001130' 


010045 




(3) 


001132' 


004767 


OOOOOOG 


(3) 


001136' 


012605 




1010 








1011 


001140' 






(6) 


001140' 


032760 


000001 


(9) 


001146' 


001405 




1012 








1013 


001150' 






(3) 


001150' 


010546 




(4) 


001152' 


010045 




(3) 


001154' 


004767 


OOOOOOG 


(3) 


001160' 


012605 




1014 








1015 


001162' 






(4) 


001162' 






1016 








1017 








1018 








1019 








1020 








1021 


0011 62 : 






(4) 


001162' 


016001 


000032 


1022 








1023 


001166' 






(4) 


001 166' 






(6) 


001166' 


021127 


000000 


(9) 


001172' 


001450 




1024 








1025 








1026 








1027 








1028 








1029 








1030 


001174' 






(4) 


001174' 


012102 




1031 








1032 








1033 


001176' 






(4) 


001176' 


005062 


000034 


1034 


001202' 






(4) 


001202 1 


005062 


000040 


1035 


001206' 






(4) 


001206' 


005062 


000042 


1036 


001212' 






(4) 


001212' 


005062 


000044 


1037 


001216' 






(4) 


001216' 


005062 


000046 


1038 


001222' 






(4) 


001222' 


005062 


000050 


1039 


001226' 







000014 



;IF THE CLOCK IS PRESENT, CLEAR CLOCK TABLE. 



CALL CLKCHK IN <R0> 



IF #CLKPRES SETIN DT.CFO(RO) THEN 



CALL CLRTIM IN <R0> 



ENDIF 



SEE IF IT IS. 



MOV 
MOV 

MOV 



BIT 
BEQ 



MOV 
MOV 
JSR 
MOV 



50035$: 



GET MODULE LIST 



WHILE (R1) NE #ENDLST DO 



50036$: 



MOV 



CMP 
BEQ 



CLEAR OUT HEADER STUFF AND COPY CONFIG WORD TO RES1 IN HEADER 
LET R2 := (R1 )+ 



LET PASCNT(R2) 

LET IC0UNT(R2) 

LET S0FCNT(R2) 

LET HRDCNT(R2) 

LET S0FPAS(R2) 

LET HRDPAS(R2) 

LET SYSCNT(R2) 



= #0 
= #0 
= #0 
= MO 
= #0 
= #0 
= #0 



R5,-(SP) 
R0,-(R5) 

(SP)+,R5 



#CLKPRES,DT.CF0( 
50035$ 



R5,-(SP) 
R0,-(R5) 
PC, CLRTIM 
(SP)+,R5 



DT.MLST(RO) ,R1 



(R1 ) ,#ENDLST 
50037$ 



MOV 


(R1)+,R2 


CLR 


PASCNT(R2) 


CLR 


IC0UNT(R2) 


CLR 


S0FCNT(R2) 


CLR 


HRDCNT(R2) 


CLR 


S0FPAS(R2) 


CLR 


HRDPAS(R2) 
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(4) 

1040 

(4) 

1041 

(4) 

1042 

1043 

1044 

1045 

1046 

1047 

(6) 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

(6) 

(8) 

(6) 

(8) 

(6) 

(9) 

(6) 

1060 

1061 

1062 

1063 

1064 

1065 

(4) 

1066 

(4) 

1067 

(4) 

1068 

1069 

(4) 

(3) 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 



001226' 005062 000052 

001232' 

001232' 105062 000005 

001236' 

001236' 016062 000014 000056 



001244' 

001244' 042762 024000 000026 



001252 
001252 



032762 112000 000026 



001260' 001010 

001262' 032762 

001270' 001004 

001272' 032762 

001300' 001404 
001302' 



1U2U0U UUUU^O 



110000 000026 



001302' 
001302' 
001306' 
001306' 
001312' 
001312' 



005062 000145 



005062 000144 



001312' 

001312' 000725 
001314' 



LET XFLAG(R2) : B= #0 

LET RES1(R2) : = DT.CFO(RO) 

CLEAR ACTIVE AND DROPPED BIT IN STAT WORD OF MODULE 
LET STAT(R2) := STAT(R2) CLR.BY #BIT1 3 ! ACTBIT 



20-SEP-78 


18:01 


PAGE 19-15 


CLR 

CLRB 

MOV 


SEO 0640 
SYSCNT(R2) 
XFLAG(R2) 
DT.CF0(R0),RES1 ( 



BIC 



#BIT13!ACTBIT,ST 



IF AN IOMODR(P)(X) CLEAR CDATA ERROR AND WORD COUNTS 



IF #IOMODR SETIN STAT(R2) OR #IOMODP SETIN STAT(R2) OR #IOMODX 

BIT 
BNE 
BIT 
BNE 
BIT 
BEQ 
50040S: 



THIS MODULE NEEDS X - TRA WORK - CLEAR ERROR COUNTS 



SETIN STAT(R2) TH 
#I0M0DR,STAT(R2) 
50040$ 

#I0M0DP ; STAT(R2) 
50040$ 

#I0M0DX,STAT(R2) 
50041$ 



LET CDERCT(R2) := #0 
LET CDWDCT(R2) := #0 



ENDIF 



ENDDO 





CLR 


CDERCT(R2) 




CLR 


CDWDCT(R2) 


50041$: 








BR 


50036$ 


50037$: 







CLEAR SOME OTHER GOODIES 



; + 



CLEAR OUT SYS PASS COUNT 



KRUM PROCESS THE 'RUN' COMMAND & 
KRUN.MAC 20-SEP-78 09: 15 



RUNL' COMMAND 

KRUN ROUTINE 



MACY11 30A(1.052) 20-SEP-78 18:01 PAGE 19-16 



SEQ 0641 



1080 
1081 

(4) 
1082 
1083 
1084 
1085 
1086 
1087 

(4) 
1088 
1089 
1090 
1091 
1092 

(4) 
1093 
1094 
1095 
1096 
1097 

(4) 
1098 
1099 
1100 
1101 
1102 

(4) 
1103 
1104 
1105 
1106 
1107 

(4) 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 

(3) 
1116 
1117 
1118 
1119 
1120 
1121 

(3) 

(4) 

(3) 

(3) 
1122 
1123 
1124 



001314' 

001314' 005070 000072 



001320' 

001320' 005060 000062 



001324' 

001324' 005067 OOOOOOG 



001330' 

001330' 005067 OOOOOOG 



001334 s 

001334' 005060 000060 



001340' 

001340' 012767 000001 OOOOOOG 



001346' 

001346' 004767 OOOOOOG 



001352' 

001352' 010546 

001354' 010045 

001356' 004767 OOOOOOG 

001362' 012605 



LET @DT.SYP(RO) := #0 

Y 

CLEAR # OF POWER FAILS 

LET DT.PFL(RO) : = #0 

h 
CLEAR # OF MONITOR SYS ERRORS 

LET BE.MCNT : = #0 

CLR # OF PARITY ERRORS 
LET PA.CNT := #0 

<r 

CLEAR EXERCISER TOTAL SYS ERRORS 



INIT RELOCATION FLAG 

LET PR.RL1 := #1 



STUFF UNUSED VECTORS 



CLR 



CLR 



CLR 



CLR 



CLR 



MOV 



CALL SETVEC 



WRITE WORST CASE UNIBUS PATTERN 



CALL WSTBUS IN <R0> 



JSR 



MOV 
MOV 
JSR 
MOV 



@DT.SYP(RO) 



DT.PFL(RO) 



BE.MCNT 



PA.CNT 



DT.EXS(RO) 



#1 ,PR.RL1 



PC, SETVEC 



R5,-(SP) 
R0,-(R5) 
PC, WSTBUS 
(SP)+,R5 



KRUN PROCESS THE 'RUN' COMMAND & 
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KRUN ROUTINE 
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1125 








* 


1126 








T 


1127 










1 128 


001364' 








(6) 


001364' 


026727 


176412 


000001 




001372' 


001010 






1129 










1130 


001374' 








(3) 


001374' 


010546 






(5) 


001376' 


010345 






(4) 


001400' 


010045 






(3) 


001402' 


004767 


OOOOOOG 




(3) 


001406' 


012605 






1131 










1132 










1133 










1134 


001410' 








(4) 


001410' 


010360 


000042 




1135 


001414' 








(4) 


001414' 








1136 










1137 










1138 










1139 










1140 










1141 


001414' 








(6) 


001414' 


026727 


176360 


OOOOOi 


(8) 


001422' 


001404 






(6) 


001424' 


032760 


000020 


000010 


(9) 


001432' 


001004 






(6) 


001434' 








1142 










1143 


001434' 








(6) 


001434' 


042760 


020000 


000010 


1144 










1145 


001442' 








(4) 


001442' 


000403 






(3) 


001444' 








1146 










1147 










1148 










1149 










1150 










1151 


001444' 








(6) 


001444' 


052760 


020000 


000010 


1152 










1153 


001452' 








(4) 


001452' 








1154 










1155 










1156 










1157 










1158 










1159 










1160 


001452' 








(3) 


001452' 


010546 







I MOVE THE CODE IF NECESSARY 
IF KR.MOV EQ #1 THEN 



CALL PRRLOC IN <R0,R3> 



LET DT.ADDR(RO) := R3 



MOV 



ENDIF 



500425: 



IF THIS IS LOCK MODE OR KT OFF, CLEAR THE RELMQDE BIT 



IF KR.FLG EQ #1 OR #KTSTAT NOTSETIN DT.STO(RO) THEN 



LET DT.STO(RO) 



ELSE 



NOT LOCK MODE 



50043$: 
DT.STO(RO) CLR.BY #RELMODE 

50044S: 



LET DT.STO(RO) := DT.STO(RO) SET. BY #RELMODE 



BIC 



BR 



BIS 



ENDIF 



SETUP THE WRITE BUFFER LIMITS 



CALL WBFLIM IN <R0> 



50045$: 



SEQ 0642 



CMP 


KR.M0V,#1 


BNE 


50042$ 


MOV 


R5 f -(SP) 


MOV 


R3,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, PRRLOC 


MOV 


(SP)+,R5 



R3,DT.ADDR(R0) 



CM? 


KR. FLG.#1 


BEO 


50043$ 


BIT 


#KTSTAT,DT.STO(R 


BNE 


50044$ 



#RELM0DE,DT.ST0( 



50045$ 



#RELM0DE,DT.ST0( 



MOV 



R5,-(SP) 
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(4) 


001454' 


010045 




(3) 


001456' 


004767 


OOOOOOG 


(3) 


001462' 


012605 




1161 








1162 








1163 








1164 








1165 








1166 


001464' 






(6) 


001464' 


032760 


001000 


(91 


001472' 


001405 




1167 








1168 


001474' 






(3) 


001474' 


010546 




(4) 


001476' 


010045 




(3) 


001500' 


004767 


OOOOOOG 


(3) 


001504' 


012605 




1169 








1170 


001506' 






(4) 


001506' 






1171 








1172 








1173 








1174 








1175 








1176 








1 177 


001506 1 






(6) 


001506' 


052760 


100000 


1178 








1179 








1180 


001514' 






(2) 


001514' 






1181 


001514' 






(3) 


001514' 


004767 


OOOOOOG 


1182 








1183 


001520' 






(3) 


001520' 






(3) 


001520' 






(2) 


001520' 


000207 




1184 








1185 




000001 





iVIUV 

JSR 
MOV 



IF 22 BIT ADDRESSING. 



MAP THE UNIBUS MAP REGS, 



000014 



IF #ADDR22 SETIN DT.CFO(RO) THEN 



CALL UNIMAP IN <R0> 



ENDIF 



BIT 
BEQ 



MOV 
MOV 
JSR 
MOV 



50046$: 



SET RUNMODE BIT. 



AND DONE 



LET DT.STO(RO) := DT\STO(RO) SET. BY #RUNMODE 



000010 



INLINE <1$:> 
CALL RESREG 

ENDRTN 
.END 



50000$: 
50001$: 



BIS 

1$: 
JSR 

RTS 



SEO 0643 



PC.WBFLIM 
(SP)+,R5 



#ADDR22,DT.CF0(R 
50046$ 



R5,'-(SP) 
R0,-(R5) 
PC, UNIMAP 
(SP)+,R5 



#RUNMODE,DT.STO( 



PC,RESREG 



PC 



KRUN PROCESS THE 'RUN' COMMAND & 
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RUNL' COMMAND 

SYMBOL TABLE 



MACY11 30A(1052) 20-SEP-78 18:01 ' : PAGE 20 



SEQ 0644 



ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


APTSEL= 


****** G 


ARGCHK= 


****** g 


A'S-B 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


000110 


BE.MCN= 


****** Q 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT i - 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT1.5 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BITS = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


BUFPTR= 


000002 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKCHK= 


****** g 


CLKPRE= 


000001 



CLRTIM= 

CM.ADR= 

CM.'ARG= 

CM.NBA= 

CM.NUM= 

CM.RUN= 

C0NFIG= 

CQOVF = 

CR 

CSRA = 

CSRC = 

CTRLC = 

CTRLO = 

CTRLU = 

DCEVNT= 

DEFRTN= 

DIAGMC= 

DROPMO= 

DSEVNT= 

DTADR = 

DT.ADD: 

DT.AP = 

DT.APK= 

DT.BLS= 

DT.CFO= 

DT.CF1= 

r\T r- n n"_ 

u i . c r* .-% - 

DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT-FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS = 
DT.MTI= 
DT.OFF = 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 



* * **** 
****** 
****** 

****** 
****** 
000056 
000001 
000015 
000100 
000102 
000003 
000017 
000025 
000011 
000400 
000000 
100000 
000014 
000000 
000042 
000100 
000076 
000034 
000014 
000016 

a a a a o a 

\J u U </ -t V 

000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 



DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEQP= 
ENBNUL= 
ENDLST= 
EOPBIT= 
ERRTYP= 
EVNTBE= 
EVNTHD= 
EVNTKT= 
EVNTPE= 
EVNTRE= 
FATERR= 
HRDCNT= 
HRDPAS= 
ICONT = 
ICCl)NT = 
IDNUM = 
IE ■ = 
INDPAR= 
INHDRP= 
INHEPR= 
INHREL= 
INHRRE= 
INIT = 
INTR = 
IQMOD = 
IOMODP= 
IOMODR= 
IOMODX= 
JACK = 
KIPARO= 
KIPAR1= 
KIPAR2= 
KIPAR3= 
KIPAR4= 
KIPAR5= 
KIPAR6= 
KIPAR7= 
KIPDRO= 
KIPDR1= 
KIPDR2= 
KIPDR3= 
KIPDR4= 
KIPDR5= 
KIPDR6= 
KIPDR7= 



000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 
000000 
00C0O1 
000106 
000200 
000200 
000203 
000202 
000201 
1C0000 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
040Q0Q 
020000 
001000 
000400 
000030 
000120 
100000 
102000 
112000 
110000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 



KRUN 

KRUNL 

KR.BIG 

KR. FLG 

KR.KT 

KR.MAP 

KR.MOD 

KR.MOV 

KR.SML 

KTERRO= 

KTPRES= 

KTSTAT- 

KTXTND= 

LF 

LPSTAT= 

MAPSTA= 

MD.COD= 

MED 

MEMPAS= 

MODEXH= 

MODHOL= 

MODSEL= 

MSGCKD= 

MSGCKS= 

MSGDEQ= 

MSGDER= 

MSGDRP= 

MSGE'CH= 

MSGEOP= 

MSGHDR= 

MSGHNG= 

MSGHRD= 

MSGMAP= 

MSGNUL= 

MSGPOP= 

MSGPRM= 

MSGRES= 

MSGSFT= 

MSGSKE= 

MSGSNIB= 

MSGSMH= 

MSGSMS= 

MSGSTD= 

MSGSYS= 

MSGVEC= 

NBKMOD= 

NCPUOP= 

NOAPTY= 

NULL = 

OWEN = 

PAERR = 

PARPRE= 

PARSTA= 



000222RG 

000232RG 

000C61R 

OOOOOOR 

000127R 

000175R 

0001 50R 

000002R 

000004R 

000040 

000400 

000020 

040000 

000012 

000001 

000200 

****** Q 

076600 
040000 
004000 
002000 
001000 
000010 
00001 1 
******' Q 

000005 

000017 

177777 

000013 . 

000004 

000022 

000007 

000021 

177775 

000002 

177776 

000001 

000006 

000003 

000015 

000014 

000016 

000000 

000012 

000020 

001000 

000020 

000002 

000000 

024020 

000010 

002000 

000100 



PASCNTs 

PA.CNT= 

PDPLSI = 

PDP60 = 

PDP70 = 

PRIO = 

r rt j. 

PRI4 

PRI5 

PRI6 

PRI7 

PRRLOC 

PR.RL1 

PRO 

PR4 

PR5 

PR6 

PR7 

PS 

P.SW 

R ANNUM 

R3UFEA 

RBUFPA 

RBUFSZ 

R3UFVA 

RDSERV 

RQWHMI 

RELERR 

RELMOD 

RELTIM 

RESREG 

RES1 

RES2 

RICHAR 

RPTDAT 

RSTRT 

RU30UT 

RUNMOD 

RUNSUB 

R5VALU 

SAM 

SAVREG 

SBADR 

S3KM0D 

SBKSEL 

SC.ADR 

SC.ALC 

SC.APC 

SC.CKL 

SC.CKP 

SC.CLO 

SC.HLD 

SC.SCA 



000 034 

****** 

020000 
= 004000 
= 010000 
= 000000 

— A ft r\ A /I A 

— \JKJ\J U*T W 

= 000200 

= 000240 

= 000300 

= 000340 

5je *fc jfc % ajc ajc 

000000 
000200 
000240 
000300 
000340 
177776 
177776 
000054 
000130 
000126 
000132 
000124 
000101 
000022 
000020 
020000 
010000 
****** 

000056 

000060 

031060 

002000 

000112 

000177 

100000 

000240R 

001740 

075464 

****** 

000102 
000000 
010000 
000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
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SEQ 0645 



SENDLS= 


177777 


TMPIO = 


000002 


SETVEC= 


****** Q 


TQOVF = 


000002 


SOFCNT= 


000042 


UIPARO= 


177640 


SOFPAS= 


000046 


UIPAR1= 


177642 


SPACE = 


000040 


UIPAR2= 


177644 


SPOINT= 


000032 


UIPAR3= 


177646 


SPVALU= 


002200 


UIPAR4= 


177650 


SRO 


177572 


UIPAR5= 


177652 


SR1 


177574 


UIPAR6= 


177654 


SR2 


177576 


UIPAR7= 


177656 


SR3 


172516 


UIPDRO= 


177600 


STAT = 


000026 


UIPDR1= 


177602 


STATBI= 


064757 


UIPDR2= 


177604 


STAT1 = 


000027 


UIPDR3= 


177606 


SUSPND= 


000001 


UIPDR4= 


177610 


SVRO = 


000062 


UIPDR5= 


177612 


SVR1 = 


000064 


UIPDR6= 


177614 


SVR2 = 


000066 


UIPDR7= 


177616 


SVR3 = 


000070 


UNIMAP= 


****** 


SVR4 = 


000072 


WASADR= 


000104 


SVR5 = 


000074 


WBFLIM= 


****** 


SVR6 = 


000076 


WBSTAT= 


000040 


SYSCNT= 


000052 


WBUFEA= 


000136 


SYSERR= 


000100 


WBUFPA= 


000134 


. ABS. 


000000 000 
001522 001 





WBUFRQ= 

WBUFS2= 

WDFR = 

WDTO = 

WSTBUS= 

WTINRE= 

WTWHMI= 

XFLAG = 

XOFF = 

XON 

$BGNLE= 

$ERFLG= 

$F$AND= 

$F$BAD= 

$F$BLA= 

$F$CAS= 

$F$DEC= 

$F$DO = 

$FSFAL= 

$F$GOO= 

$F$IF = 

$F$INC= 

$F$LOO= 

$F$NAM= 



000140 
000142 
000116 
000114 

3*C * * SJC % # 

0C0352 
000222 
000005 
000023 
000021 
177777 
000400 
000310 
000401 
000170 
000150 
000220 
000340 
000405 
000400 
000110 
000210 
000200 
000160 



$FSNO = 
$F$OR = 
$F$RTI= 
$FSRTN= 
$F$SEL= 
$F$THE= 
$f$TRU= 
$F$UNT= 
$F$WHI= 
$FSYES= 
$IFLEV= 
SISKO = 
$LOCTA= 
$LSTIN= 
$LSTTA= 
$NESTL= 
SNSKO = 
SNSK1 = 
SNSK2 = 
$SAVLE= 
SSSKO = 
$TAGLE= 
$TAGNU= 
$TEMP = 



000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 
000001 
177777 
000001 
000001 
177777 
000300 
000110 
000110 
177777 
050037 
177777 
050047 
000300 



STSKO = 
$TSK1 = 
$TSK2 = 
$$ARGC= 
$$BYTE= 
$SCASE= 
$SDST = 
SSELOC= 
$$ERFL= 
$$FLAG= 
$$FROM= 
SSLOC = 
$$LOCN= 
SSREG = 
$$RETU= 
$SRTN1= 
$$RTN2= 
SSSRC = 
$$TGSV= 
$STGS1= 
$$TGS2= 
$$70 = 
S$STAG= 



050046 

050037 

050041 

000004 

000403 

000000 

000000 

000402 

000000 

000001 

000000 

001472R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

001522R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSK2 : KRUN , DSKZ : KRUN = SPMAC/ML , EQUATE r KRUN 
RUN-TIME: 29 19 .4 SECONDS 
RUN-TIME RATIO: 82/49=1.6 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:03 

EQUATE. MAC 13-5EP-78 16:13 TABLE OF CONTENTS SEQ 0646 

3 COMMON EQUATE MODULE 

576 COMMON DEFINITIONS AND REFERENCES FOR KRUN 

579 000000' .PRINT ;SPMAC: VERSION 1.1 

325 KRUN ROUTINE 



KRUNS PROCESS THE 'RUN' COMMAND FOR SMALL MONITORS MACY1 1 30A(1052) 
KRUNS.MAC 14-SEP-78 11:34 COMMON EQUATE MODULE 



20-SEP-78 18:03 PAGE 19 



SEQ 0647 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 

rn /; 

535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 



.TITLE KRUNS 
IDENT /V0.0/ 



MODULE NAME: 
KRUNS 



PROCESS THE 'RUN' COMMAND FOR SMALL M0NH0R5 



FUNCTIONAL DESCRIPTION: 

THIS MODULE IS FOR NON-KT MONITORS ONLY. 
THIS ROUTINE PROCESSES THE 'RUN' KEYBOARD 

COMMAND. IF AN ARGUMENT IS INCLUDED, AN ERROR MSG. IS ISSUED. 
ALL OPTION MODULES HEADERS WILL BE INITIALIZED. THE SYS- 
TEM ERROR COUNT AND POWER FAIL COUNT 
WILL BE INITIALIZED. THE WRITE BUFFER LIMITS 
WILL BE SET UP. 



INPUTS: 



1 . DTABLE ADDRESS 

2. DECODE BUFFER POINTER 



IMPLICIT 


INPUTS: 


1 . 


DT 


MLST 


2. 


DT 


STO 


3. 


DT 


CFO 


OUTPUTS: 






NONE 




IMPLICIT 


outputs: 


1 . 


DT 


STO 


2. 


DT 


KBRSP 


3. 


DT 


ESIZ 


4. 


DT 


PFL 


5. 


DT 


EXS 


PATHOLOGICAL CONNECTIONS: 


1 . 


BE 


MCNT 


2. 


MD 


COD 


3. 


PA 


CNT 


4. 


CM 


RUN 


5. 


CM 


ARG 


SUBORDINATE 


ROUTINES CALL 


1 . 


ARGCHK 


2. 


CLRTIM 


3. 


SAVREG 


4. 


RESREG 


5. 


WBFLIM 


6. 


WSTBUS 


7. 


CLKCHK 


8. 


AP" 


'SEL 



FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 
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KRUNS.MAC 14-SEP-78 11:34 COMMON EQUATE MODULE 



SEQ 0648 



564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 



CALL KRUN IN <DTADR , BUFPTR> 
WHERE DTADR = DTA8LE ADDRESS 

BUFPTR = COMMAND DECODE BUFFER POINTER 



VERSION: 
0.0 

EDIT 



DATE 



BY 



REASON 
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SEQ 0649 



576 
577 
578 
579 
(1) 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
501 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 



619 
620 
621 
622 
623 



000000' 
000000' 



000001 
00C001 



000000' 047045 020117 

000006' 052504 042514 

000014' 042523 042514 

000022' 042105 000045 



.SBTTL COMMON DEFINITIONS AND REFERENCES FOR KRUN 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTTAG=1 
$LSTIN=1 

*************** 



REFERENCED BY OTHER MODULES: 
GLOBL KRUN ;MODULE ENTRY POINT 

**************** 



GLOBAL REFERENCES: 



GLOBL 


CLKCHK 


GLOBL 


APTSEL 


GLOBL 


MD.COD 


GLOBL 


MSGDEQ 


GLOBL 


CM. RUN 


GLOBL 


CM.ARG 


GLOBL 


CLRTIM 


GLOBL 


ARGCHK 


GLOBL 


SAVREG 


GLOBL 


RESREG 


GLOBL 


PA.CNT 


GLOBL 


BE.MCNT 


GLOBL 


WBFLIM 


GLOBL 


WSTBUS 



SEE IF A CLOCK IS HERE 
APT SELECT ROUTINE 
CODE 

MESSAGE DEQUE 

'ILLEGAL COMMAND IN RUN MODE' 
'ILLEGAL OR MISSING ARGUMENT 1 
CLEAR TIME TABLE 
CHECK AN ARGUMENT 
SAVE REGISTERS 
RESTORE REGISTERS 
NUMBER OF PARITY ERRORS 
MONITOR SYSTEM ERROR COUNT 
ESTABLISH WRITE BUFFER LIMITS 
WRITE WORST CASE UNIBUS PATTERN. 



**************** 
GLOBAL EQUATES: 

**************** 
LOCAL STORAGE: 

047515 KR.MOD: .ASCIZ /%N0 MODULES SELECTED%/ 

020123 

052103 

.EVEN 

• **************** 
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SEQ 0650 



625 
625 
627 
(2) 
628 
529 
630 
531 
632 
633 
634 
635 
636 
(3) 
637 
(4) 
638 
(4) 
639 
640 
641 
642 
643 
(6) 
(8) 
ffi) 
(9) 
(6) 
644 
(2) 
645 
(4) 
646 
647 
648 
649 
650 
651 
652 
(6V 
(9) 
653 
(4) 
654 
(2) 
655 
656 
(4) 
657 
658 
659 
650 
661 
662 
663 
664 



000026' 
000026* 



000026' 
000026' 
000032' 
000032' 
000036' 
000036' 



000042' 
000042' 
000050' 
000052' 
000060' 
000062' 
000062' 
000062' 
000064' 
000064' 



004767 OOOOOOG 

016500 000000 

016501 000002 



032760 000010 000014 

001004 

032760 000200 000014 

001401 



000431 



000064' 
000064' 
000072' 
000074' 
000074' 
000102' 
000102' 

000106' 
000106' 



032760 100000 000010 
001405 

012760 OOOOOOG 000022 

000167 000424 



.SBTTL KRUN ROUTINE 
ROUTINE KRUN <DTADR, BUFPTR> 



KRUN: 



SAVE REGISTERS AND SAVE DTABLE ADDR AND BUFFER POINTER 

CALL SAVREG 

LET RO := DTADR(R5) 

LET R1 := BUFPTR(R5) 

+ 



JSR PC,SAVREG 
MOV DTADR(R5),R0 
MOV BUFPTR(R5),R1 



IF IN AUTO OR APTPRES MODE, DON'T CHECK ANY ARGUMENTS - JUST GO TO WORK 



IF #AUTO SETIN DT.CFO(RO) OR #APTPRES SETIN DT.CFO(RO) THEN 



INLINE <BR 



339$> 



ENDIF 



50002$: 



50003$: 



BIT 
BNE 
BIT 
BcQ 



3R 



#A'JTO,DT.CF0(R0) 
50002$ 

#APTPRES,DT.CFO(. 
50003$ 



339S 



SEE IF IN RUNMODE - IF SO STUFF ERROR AND SCRAM 



IF #RUNMODE SETIN DT.STO(RO) THEN 



LET DT.K3RSP(R0) := #CM.RUN 
INLINE <JMP 1$> 



ENDIF 



WE ARE NOT IN RUNMODE ALL IS OK GET AN ARGUMENT IF ANY. 





3IT 


#RUNMODE,DT.STO( 




EEQ 


50004$ 




MOV 


#CM.RUN,DT.KBRSP 




JMP 


1$ 


50004$: 
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SEO 0651 



665 
666 
(4) 
(3) 
(4) 
(3) 
(3) 
(4) 
667 
568 
669 
670 
671 
672 
(6) 
673 
674 
(2) 
675 
676 
(4) 
(3) 
577 
678 
679 
680 
581 
582 
(4) 
683 
(2) 
684 
(4) 
685 
686 
(2) 
687 
688 
689 
690 
691 
692 
(6) 
(9) 
693 
(3) 
(4) 
(3) 
(3) 
694 
(4) 
695 
696 
697 
698 
699 



000106' 
000106' 
000112' 
0001 1 4 ' 
0001 16' 
000122" 
000124' 



CALL ARGCHK IN <R1> OUT <R1> 



162705 
010546 
01 0145 
004767 
012605 
012501 



000002 



OOOOOOG 



SUB 


#1*2, R5 


MOV 


R5,-(SP) 


MOV 


R1 ,-(R5) 


JSR 


PC, ARGChK 


MOV 


(SP)+,R5 


MOV 


(R5)+.R1 



000126' 
000126' 103002 

000130' 
000130' 000406 

000132' 

000132' 000405 
000134' 



000134' 

000134' 012760 OOOOOOG 000022 

000142' 

000142' 000167 000364 

000146' 

000146' 

000146' 
000146' 



IF NO ARGS, JUMP AHEAD 



IF. ERROR THEN 



INLINE <BR 



339$> 



ELSE 



BCC 



BR 



BR 



50005S: 



THERE ARE ARGUMENTS TOO BAD - NOT ALLOWED IN THIS MONITOR... 

STUFF ERROR MSG AND SEE YA NEXT TIME TYPE 'RUN' ONLY 



LET DT.KBRSP(RO) := #CM.ARG 
INLINE <J'MP 1$> 



ENDIF 



50006$ 



000146' 
000146' 
000154' 
000156' 
000156' 
000160' 
000162' 
000166' 
000170' 
000170' 



032760 
001405 

010546 
010045 
004767 
012605 



000200 000014 



OOOOOOG 



INLINE <339$:> 

+ 
IF UNDER APT, USE APT'S TABLE TO SELECT THE MODULES 
AND SET UP DEVICE COUNT 

IF #APTPRES SETIN DT.CFO(RO) THEN 

CALL APTSEL IN <R0> 



MOV 
MP 

339S: 



ENDIF 



GET ADDR OF MODULE LIST 



50007$: 



50005$ 

339$ 

50006$ 



#CM.ARG,DT.KBRSP 
1$ 



BIT 


#APTPRES,DT.CF0( 


BEQ 


50007$ 


MOV 


R5,-(SP) 


MOV 


R0,-(R5) 


JSR 


PC, APTSEL 


MOV 


(SP)+,R5 
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LET R1 := DT.MLST(RO) 



SEQ 0652 



700 








701 


000170' 






(4) 


000170' 


016001 


000032 


702 








703 








704 








705 








706 








707 


000174' 






(4) 


000174' 


005004 




708 








709 








710 








711 








712 








713 








714 


000176' 






(4) 


000176' 






(6) 


000176' 


005711 




(9) 


000200' 


001407 




715 


000202' 






(4) 


000202' 


012102 




716 


000204' 






(6) 


000204' 


032762 


040000 000026 


(9) 


000212' 


001401 




7i 7 


0002 1 4 ' 






(6) 


000214' 


005204 




713 


000216' 






(4) 


000216' 






719 


000215' 






(4) 


000216' 


000767 




(3) 


000220' 






720 








721 








722 








723 








724 








725 








726 








727 


000220' 






(6) 


000220' 


005704 




(9) 


000222' 


001005 




728 


000224' 






(4) 


000224' 


012760 


000000' 000022 


729 


000232' 






(2) 


000232' 


000167 


000274 


730 


000236' 






(4) 


000236' 






731 








732 








733 








734 








735 








736 








737 








738 









MOV 



DT.MLST(RO) ,R1 



FLAG 
LET R4 := #0 



CLR 



R4 



WHILE NOT AT END OF MODULE LIST... SEE IF A MODULE IS SELECTED... 
IF SO, INCREMENT A COUNT 



WHILE (R1) NE #0 DO 



50010$: 



LET R2 := (R1 )+ 

IF #BIT14 SETIN STAT(R2) THEN 



LET R4 := R4 + #1 



ENDIF 



ENDDO 



50012$: 



50011$: 



TST 

BEQ 

MOV 

BIT 

BEQ 

INC 



BR 



(R1) 
50011$ 

(R1 ) + ,R2 

#BIT14 T STAT(R2) 
50012$ 

R4 



50010$ 



IF R4 IS ZERO... NO MODULES SELECTED STUFF ERROR AND GOODBYE... 



IF R4 EQ #0 THEN 



LET DT.KBRSP(RO) := #KR.MOD 
INLINE <JMP 1$> 



TST 
BNE 

MOV 

JMP 



R4 
50013$ 

#KR.MOD,DT.KBRSP 
1$ 



ENDIF 



50013$: 



!!!!! GO TO WORK !!!!!! GET THE MODULE HEADERS CLEANED UP ! 
BUT FIRST PRINT THE CR - IT TAKES SO LONG TO WRITE WSTBUS 
PATTERN THAT THE CR WOULD NOT BE ECHOED FOR A LONG TIME 
AND IT MAY CAUSE WORRY - HENCE THE CALL TO MSGDEQ WILL PRINT 
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SEQ 0653 



739 
740 
741 
742 
743 
744 
(3) 
745 
(3) 
(4) 
(3) 
(3) 
746 
(3) 
(6) 
747 
748 
749 
750 
751 
752 
753 
754 
(6) 
(9) 
755 
756 
757 
758 
759 
(3) 
(4) 
(3) 
(3) 
760 
761 
(6) 
(9) 
762 
763 
(3) 
(4) 
(3) 
(3) 
764 
765 
(4) 
766 
(4) 
767 
768 
769 
770 
771 
772 
(4) 



; IT RIGHT AWAY. . 



000236 ' 
000236' 
000236' 
000236' 
000240' 
000242' 
000246' 
000250' 
000250' 
000256' 



REPEAT 



bUUl4;p: 



CALL MSGDEQ IN <R0> 



010546 
010045 
004767 
012605 

026727 
001367 



OOOOOOG 



OOOOOOG 177775 



UNTIL MD.COD EO #MSGNUL 



MOV 
MOV 
JSR 
MOV 

CMP 

BNE 



IF THIS IS THE SCRAWNY MONITOR... DON'T EVEN CONSIDER THE CLOCK 
STUFF 



000260' 

000260' 032760 000020 000014 

000266' 001016 



000270' 

000270' 010546 

000272* 010045 

000274' 004767 OOOOOOG 

000300' 012605 

000302' 

000302' 032760 000001 000014 

000310' 001405 

000312' 

000312' 010546 

000314' 010045 

000316' 004767 OOOOOOG 

000322' 012605 

000324' 
000324 s 
000324' 
000324' 



000324' 

000324' 016001 000032 



IF #NCPUOP NOTSETIN DT.CFO(RO) THEN 



BIT 
BNE 



;IF THE CLOCK IS PREotNi 



■j- r-irAn r* \ nnu t*di C 



ere t F TT tc; 



CALL CLKCHK IN <R0> 



IF #CLKPRES SETIN DT.CFO(RO) THEN 



CALL CLRTIM IN <R0> 



ENDIF 



ENDIF 



GET MODULE LIST 
LET R1 := DT.MLST(RO) 



R5,-(SP) 

R0,-(R5) 
PC, MSGDEQ 
(SP)+,R5 

MD.COD,#MSGNUL 
50014$ 



#NCPUOP,DT.CF0(R 
50015$ 





MOV 
MOV 
JSR 
MOV 


R5,-(SP) 
R0,-(R5) 
PCCLKCHK 
(SP)+,R5 




BIT 
BEQ 


#CLKPRES t DT.CF0( 
50016$ 




MOV 
MOV 
JSR 
MOV 


R5 f -(SP) 
R0,-(R5) 
PCCLRTIM 
(SP)+,R5 


50016$: 






50015$: 







MOV 



DT.MLST(RO) ,R1 
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SEQ 0654 



773 








774 








775 








776 








777 








773 








779 








780 


000330' 




W 


(4) 


000330' 






(6) 


000330' 


005711 




(9) 


000332' 


001450 




781 








782 


000334' 






(4) 


000334' 


012102 




783 








784 








785 








786 


000336' 






(4) 


000336' 


005062 


000034 


787 


000342' 






(4) 


000342' 


005062 


000040 


788 


000346' 






(4) 


000346' 


005062 


000042 


789 


000352' 






(4) 


000352' 


005062 


000044 


790 


000356' 






t A \ 


i-n .-v /\ *■> cr a t 


nn c aco 


000D4 C 


*.-» i 


^ vuo->*-» 


vw — "^ ^<- 




791 


000362' 






(4) 


000362' 


005062 


000050 


792 


000366' 






(4) 


000366' 


005062 


000052 


793 


000372' 






(4) 


000372' 


105062 


000005 


794 


000376' 






(4) 


000376' 


016062 


000014 000056 


795 








796 








797 








798 








799 








800 


000404' 






(6) 


000404' 


042762 


024000 000026 


801 








802 








803 








804 








805 








806 








807 








808 








809 








810 








811 








812 


000412' 






(6) 


000412' 


032762 


112000 000026 


(8) 


000420' 


001010 





WHILE NOT AT END OF MODULE LIST, CLR OUT MODULE HEADER LOCATIONS 
AND COPY CONFIG WORD INTO RES1 . 



WHILE (R1 ) NE #0 DO 



LET R2 := (R1 )+ 



50017$: 



LET PASCNT(R2) 

LET ICOUNT(R2) 

LET S0FCNT(R2) 

LET HRDCNT(R2) 

LET S0FPAS(R2) 

LET HRDPAS(R2) 

LET SYSCNT(R2) 

LET XFLAG(R2) : B= #0 

LET RES1(R2) := DT.CFO(RO) 

CLEAR ACTIVE AND DROPPED BIT IN STAT WORD OF MODULE 
LET STAT(R2) := STAT(R2) CLR. BY #BIT1 3 ! ACTBIT 



= #0 
= #0 
= #0 

= #0 

= #0 
= #0 

= #0 



TST 
BEO 



MOV 



BIC 



(RD 
50020$ 



(RD + .R2 



CLR 


PASCNT(R2) 


CLR 


ICOUNT(R2) 


CLR 


S0FCNT(R2) 


CLR 


HRDCNT(R2) 


CLR 


SOFPAS(R2) 


CLR 


HRDPAS(R2) 


CLR 


SYSCNT(R2) 


CLRB 


XFLAG(R2) 


MOV 


DT.CFO(RO) ,RES1( 



#BIT13!ACTBIT,ST 



IF AN IOMODR(P)(X) CLEAR CDATA ERROR AND WORD COUNTS 



IF #IOMODR SETIN STAT(R2) OR #IOMODP SETIN STAT(R2) OR #IOfv"GDX 

BIT 
BNE 



SETIN STAT(R2) TH 
#'I0M0DR,STAT(R2) 
50021$ 
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(6) 
(8) 
(6) 
(9) 
(6) 
813 
314 
315 
(4) 
816 
(4) 
817 
(4) 
318 
819 
(4) 
(3) 
820 
821 
822 
823 
824 
825 
826 
827 
828 
(4) 
829 
(4) 
830 
(4) 
331 
(4) 
832 
(4) 
833 
834 
835 
836 
837 
838 
839 
840 
(3) 
(4) 
(3) 
(3) 
841 
842 
843 
844 
845 
846 
847 
848 
(3) 



000422' 
000430' 
000432' 
000440' 
000442' 



000442' 
000442' 
000446' 
000446' 
000452' 
000452' 

000452' 
000452' 
000454' 



000454' 
000454' 
000460' 
000460' 
000464' 
000464' 
000470' 
000470' 
000474' 
000474' 



000500' 
000500' 
000502' 
000504' 
000510' 



032762 
001004 
032762 
001404 



000726 



005070 
005060 
005067 
005067 
005060 



010546 
010045 
004767 
012605 



102000 000026 



110000 000026 



005062 000146 



005062 000144 



000072 

000062 

OOOOOOG 

OOOOOOG 

000060 



OOOOOOG 



LET CDERCT(R2) := #0 
LET CDWDCT(R2) := #0 



ENDIF 



ENDDO 







SEQ 0655 


50021$: 


n t t 
OX i 

BNE 
BIT 
BEQ 


n lorauur , »s i n i { T\<± > 

50021$ 

#I0M0DX,STAT(R2) 

5002-2$ 




CLR 


CDERCT(R2) 




CLR 


. CDWDCT(R2) 


50022$: 






50020$: 


BR 


50017$ 



CLEAR SOME OTHER GOODIES THAT IS, SYSTEM PASS COUNT .. .MONITOR SYS ERRORS 

PARITY ERRORS, AND TOTAL SYS ERRORS 



LET @DT.SYP(R0) := #0 

LET DT.PFL(RO) := #0 

LET BE.MCNT := #0 

LET PA.CNT := #0 

LET DT.EXS(RO) := #0 



WRITE WORST CASE UNIBUS PATTERN 



CALL WSTBUS IN <R0> 



CLR 


@D1 


-.SYP(RO) 


CLR 


DT 


PFL(RO) 


CLR 


BE 


MCNT 


CLR 


PA 


CNT 


CLR 


DT. 


EXS(RO) 



MOV 
MOV 
JSR 
MOV 



R5,-(SP) 
R0,-(R5) 
PC, WSTBUS 
<SP)+,R5 



000512 
000512 



SETUP THE WRITE BUFFER LIMITS 



CALL WBFLIM IN <R0> 



010546 



MOV 



R5,-(SP) 
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SEO 0656 



(4) 
(3) 
(3) 
349 
350 
351 
852 
853 
854 
355 
(6) 
85S 
857 
353 
(2) 
859 
(3) 
860 
861 
(3) 
(3) 
(2) 
862 
363 



000514' 010045 

000516' 004767 OOOOOOG 

000522' 012605 



MOV 
JSR 
MOV 



000524' 

000524' 052760 100000 000010 



000532' 
000532' 
000532' 
000532' 004767 OOOOOOG 

00053S' 
000536' 
000536' 
000536' 000207 

000001 



; SET RUNMODE BIT AND DONE 

LET DT.STO(RO) := DT.STO(RO) SET. BY #RUNMODE 

INLINE <1$:> 
CALL RESREG 

ENDRTN 
.END 



50000$: 
50001$: 



BIS 

1S: 
JSR 

RTS 



R0 f -(R5) 

PC,WBFLIM 

(SP)+,R5 



#RUNMODE,DT.STO( 



PC, RESREG 



PC 



KRUNS 
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FOR SMALL MONITORS MACY1 1 3QA(1052) 


20-SEP-78 


18:03 


KRUNS.MAC 14-SEP-7S 11 


:34 


SYMBOL 


TABLE 








ACSR = 


000102 


CLRTIM= 


****** g 


DT. WHL= 


000054 


i/ -r r» rt c r* — 


AAA A f\f\ 


ACTBIT= 


004000 


CM.ARG= 


****** g 


DT.WLL= 


000052 


KTSTAT= 


000020 


ADDR22= 


001000 


CM.RUN= 


****** g 


DVID1 = 


000014 


KTXTND= 


040000 


ADR 


000006 


CONFIG= 


.000056 


ECCMEM= 


000100 


LF 


000012 


APTFER= 


000004 


CQOVF = 


000001 


ECCSTA= 


000010 


LP5TAT= 


000001 


APTPRE= 


000200 


CR 


000015 


ENBEOP= 


010000 


MAPSTA= 


000200 


APTSEL= 


****** G 


CSRA - 


A/\ r\ 4 A A 


ENBNU L- 


000001 


MD = COD=' 


****** 


ARGCHK= 


****** G 


CSRC = 


000102 


ENDLST= 


000000 


MED 


076600 


ASB 


000106 


CTRLC = 


000003 


EOPBIT= 


000001 


MEMPAS= 


040000 


ASSEMB= 


000010 


CTRLO = 


000017 


ERRTYP= 


000106 


MODEXH= 


004000 


ASTAT = 


000104 


CTRLU = 


000025 


EVNT3E= 


000200 


MODHOL= 


002000 


AUTO = 


000010 


DCEVNT= 


00001 1 


EVNTHD= 


000200 


MOOSEL= 


001000 


AUTOST= 


020000 


DEFRTN= 


000400 


EVNTKT= 


000203 


MSGCKD= 


000010 


AWAS = 


0001 10 


DIAGMC= 


000000 


EVNTPE= 


000202 


MSGCKS= 


00001 1 


BE.MCN= 


****** Q 


DROPMQ= 


100000 


EVNTRE= 


000201 


MSGDEQ= 


% si; * ifr: afc "Jp. 


BITO = 


000001 


DSEVNT= 


000014 


FATERR= 


100000 


MSGDER= 


000005 


BITOO = 


000001 


DTADR = 


000000 


HRDCNT= 


000044 


MSGDRP= 


000017 


BIT01 = 


000002 


DT.ADD= 


000042 


HRDPAS= 


000050 


MSGECH= 


177777 


BIT02 = 


000004 


DT.AP = 


000100 


ICONT = 


000035 


MSGEOP= 


000013 


BIT03 = 


000010 


DT.APK= 


000076 


ICOUNT= 


000040 


MSGHDR- 


000004 


BIT04 = 


000020 


DT.BLS= 


000034 


IDNUM = 


000122 ■' 


MSGHNG= 


000022 


BIT05 = 


000040 


DT.CFO= 


000014 


IE 


000100 


MSGHRD= 


000007 


BIT06 = 


000100 


DT.CF1= 


000016 


INDPAR= 


000040 


MSGMAP= 


000021 


BIT07 = 


000200 


DT.ERR= 


000020 


INHDRP= 


040000 


MSGNUL= 


177775 


BIT08 = 


000400 


DT.ESI= 


000044 


INHEPR= 


020000 


MSGP0 D = 


000002 


BIT09 = 


001000 


DT.EVN= 


000000 


INHREL= 


001000 


MSGPRM= 


177776 


5IT1 = 


000002 


DT.EXS= 


000060 


INHRRE= 


000400 


MSGRES= 


000001 


BIT10 = 


002000 


DT.FCH= 


000037 


INIT = 


000030 


MSGSFT= 


000006 


B1T11 = 


004000 


DT.FCN= 


000036 


INTR = 


000120 


MSGSKE= 


000003 


BIT12 = 


010000 


DT.HMX= 


000104 


IOMOD = 


100000 


MSGSM3= 


000015 


BIT.13 = 


02000C 


DT.KBE= 


000024 


IOMODP= 


102000 


MSGSMH= 


000014 


BIT14 = 


040000 


DT.KBP= 


000026 


IOMODR= 


112000 


MSGSMS= 


000016 


3IT15 = 


100000 


DT.KBR= 


000022 


IOMODX= 


110000 


MSGSTD= 


000000 


BIT2 = 


000004 


DT.KBU= 


000030 


JACK = 


035060 


MSGSYS= 


000012 


B.IT3 = 


000010 


DT.MLS= 


000032 


KIPAR0= 


172340 


MSGVEC= 


000020 


BIT4 = 


000020 


DT.MTI= 


0001 10 


KIPAR1= 


172342 


NBKM0D= 


001000 


BIT5 = 


000040 


DT.OFF= 


000070 


KIPAR2= 


172344 


NCPUOP= 


000020 


BIT6 = 


000100 


DT.PAS= 


000074 


KIPAR3= 


172346 


NOAPTY= 


000002 


BIT7 = 


000200 


DT.PC = 


000002 


KIPAR4= 


172350 


NULL = 


000000 


BIT8 = 


000400 


DT.PFL= 


000062 


KIPAR5- 


172352 


OWEN = 


024020 


BIT9 = 


001000 


DT.PSW= 


000004 


KIPAR6= 


172354 


PAERR = 


00G010 


BKDEF = 


000002 


DT.PTA= 


000064 


KIPAR7= 


172356 


PARPRE= 


002000 


BKMOD = 


000020 


DT.RCS= 


000102 


KIPDR0= 


172300 


PARSTA= 


000100 


BKMODE= 


040000 


DT.REL= 


000040 


KIPDR1= 


172302 


PASCNT= 


000034 


BKSLSH= 


000134 


DT.SCT= 


000066 


KIPDR2= 


172304 


PA.CNT= 


A % ^c ^c if. * 


BUFPTR= 


000002 


DT.SMX= 


000106 


KIPDR3= 


172306 


PDPLSI= 


020000 


CAPRES= 


000004 


DT.SP = 


000006 


KIPDR4= 


172310 


PDP60 = 


004000 


CASTAT= 


000004 


DT.SSI= 


000046 


KIPDR5= 


172312 


PDP70 = 


010000 


CDERCT= 


000146 


DT.STO= 


000010 


KIPDR6= 


172314 


PRIO = 


000000 


CDWDCT= 


000144 


DT.ST1= 


000012 


KIPDR7= 


172316 


PRI1 = 


000040 


CKTIM = 


100000 


DT.SWR= 


000056 


KRUN . 


000026RG 


PRI4 = 


000200 


CLKCHK= 


****** Q 


DT.SYP= 


000072 


KR.MOD 


000000R 


PRI5 = 


000240 


CLKPRE= 


000001 


DT,WBU= 


000050 


KTERRO= 


000040 


PRI6 = 


000300 



SEQ 0657 



PRI7 - 

PRO 

PR4 

PR5 

PR6 

PR7 = 

PS 

PSW 

RANNUM= 

RBUFEA= 

R3UFPA= 

RBUFSZ= 

RBUrVA= 

RDSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RESREG= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBGUT= 

RUNMOD* 

R5VALU= 

SAiVl = 

SAVREG= 

S3ADR = 

S3KMOD= 

S5KSEL= 

SC.ADR= 

SC.ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

S0FCNT= 

SOFPAS= 

SPACE = 

SPQINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 



000340 
000000 
000200 
000240 
000300 
000340 
177776 
177776 
000054 
000130 
000126 
000132 
000124 
000101 
000022 
000020 
020000 
010000 

000056 
000060 
031060 
002000 
000112 
000177 
100000 
001740 
075464 

000102 
000000 
010000 
000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 
000027 



KRUNS PROCESS THE 'RUN' COMMAND FOR SMALL MONITORS 
KRUNS. MAC 14-SEP-78 1 1 : 34 SYMBOL TABLE 



MACY11' 30AO052) 20-SEP-78 18:03 PAGE 20-1 



SEQ 0658 



SUSPND= 


000001 




UIPDR2= 


177604 


SVRO = 


000062 




UIPDR3= 


177606 


SVR1 = 


000064 




UIPDR4= 


177610 


SVR2 = 


000066 




UIPDR5= 


177612 


SVR3 = 


000070 




UIPDR5= 


177614 


SVR4 = 


C00072 




UIPDR7= 


177616 


SVR5 = 


000074 




WASADR= 


000104 


SVRS = 


000076 




WBFLIM= 


* J|C * *** 


SYSCNT= 


000052 




WBSTAT= 


000040 


SYSERR= 


000100 




WBUFEA= 


000136 


TMPIO = 


000002 




WBUFPA= 


000134 


TQOVF = 


000002 




WBUFRQ= 


000140 


UIPARO= 


177640 




WBUFSZ= 


000142 


UIPAR1= 


177642 




WDFR = 


000116 


UIPAR2= 


177644 




WDTO = 


000114 


UIPAR3= 


177646 




WSTBUS= 


5|C 3|[ 5)( * * * 


UIPAR4= 


177650 




WTINRE= 


000352 


UIPAR5= 


177652 




WTWHMI= 


000222 


UIPAR6= 


177654 




XFLAG = 


000005 


UIPAR7= 


177656 




XOFF = 


000023 


UIPDRO= 


177600 




XON 


000021 


UIPDR1= 


177602 




$BGNLE= 


177777 


. ABS. 


000000 
000540 


000 
001 







$ERFLG= 

$F$AND= 
$F$3AD= 
$F$BLA= 
$F$CAS= 
$F$-DEC= 



>T^)UU — www\j*4v 



000400 
000310 
000401 
000170 
000150 
000220 



$F$FAL= 
$FSGOO= 
SFSIF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$FSNO = 
$F$OR = 
$F$RTI= 
$FSRTN= 
$F$SEL = 
$F$THE= 
$F$TRU = 
$F$UNT= 
$F$WHI = 



000405 
000400 
000110 
000210 
000200 
000150 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 



$IFLEV= 
$ISKO = 
SISK1 = 
$LOCTA= 
$LSTIN= 
$LSTTA= 
$NESTL= 
$NSK0 = 
$NSK1 = 
SNSK2 = 
$SAVLE= 
SSSKO = 
$TAGLE= 
$TAGNU= 
$TEMP = 
STSKO = 
$TSK1 ' = 
STSK2 = 
SSARGC= 
$SBYTE= 
$$CASE= 



000402 
177777 
000001 
000001 
177777 
000001 
000001 
177777 
000300 
000120 
000110 
177777 
050020 
177777 
050023 
000300 
050017 
050020 
050022 
000004 
000403 
000000 



$$DST = 
$$ELOC= 
$$ERFL= 
$SFLAG= 
$$FROM= 
$$LOC = 
$$LGCN= 
$SREG = 
$$RETU= 
$$R7N1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
SSTGS1= 
$3TGS2= 
$$T0 = 
S$$TAG= 



000000' 
000402 
000000 
000001 

oooooo 

0G0440R 

OOOOOO 

177777 

OOOOOO 

050000 

050001 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

050000 

000540R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ: KRUNS. DSKZ:KRUNS=SPMAC/ML, EQUATE, KRUNS 
RUN-TIME: 18 9 .4 SECONDS 
RUN-TIME RATIO: 54/27=1.9 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:03 

EQUATE. MAC 13-SEP-78 16: 13 TA3LE OF CONTENTS SEQ 0659 

3 COMMON EQUATE MODULE 

563 COMMON DEFINITIONS AND REFERENCES FOR KSUM 

566 000000' .PRINT ;SPMAC: VERSION 1.1 

602 KSUM ROUTINE 



KSUM PROCESS THE 'SUM' KEYBOARD COMMAND MACY11 30A(1052) Zo-SEP-78 18:03 PAUh la 
KSUM. MAC 28-JUL-78 09:21 COMMON EQUATE MODULE 



SEO 0660 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
523 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 



TITLE KSUM 
IDENT /VO.O/ 






HE 'SUM' KEYBOARD COMMAND 



MODULE NAME: 
KSUM 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PROCESSES THE 'SUM 1 KEYBOARD COMMAND. IT WILL 

SEARCH THE MODULE LIST AND ENQUEUE THE SUM MESSAGE FOR 

EACH MODULE. IF A MODULE NAME IS SPECIFIED, A SUMMARY 

MESSAGE IS OUTPUTTED FOR THAT 

MODULE ONLY AND NO HEADER OR TRAILER MESSAGES 

ARE OUTPUTTED. 



INPUTS: 



ADDRESS OF DATA TABLE 
COMMAND DECODE BUFFER POINTER 



IMPLICIT INPUTS: 

DT.MLST, DT.STO 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.KBRSP 

PATHOLOGICAL CONNECTIONS: 
CM.ARG, CM.BADNAME 

SUBORDINATE ROUTINES CALLED: 

1 . ARGCHK - CHECK FOR JUNK ARGUMENTS 

2. ENQTQ - ENQUEUE A MESSAGE 

3. NAMCHK - VERIFY A MODULE NAME 

4. SAVREG - SAVE REGISTERS 

5. RESREG - RESTORE REGISTERS 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL KSUM IN <DTADR , BUFPTR> 

WHERE DTADR = ADDRESS OF DATA TABLE 

BUFPTR = COMMAND DECODE BUFFER POINTER 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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SEQ 0661 



563 
564 
565 
566 

(1) 

567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
583 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 



000000' 
000000' 



000001 
000001 



000000' 000000 

000002' 041445 042115 

000010' 041045 054523 



.SBTTL COMMON DEFINITIONS AND REFERENCES FOR KSUM 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 ' 

$LSTTAG=1 
$LSTIN=1 






REFERENCED BY OTHER MODULES 



GLOBL KSUM 



jjeijC5^:^5JiA5^^c5|i:3|C3icj{(^;^:3(:s|; 



; MODULE ENTRY POINT 



GLOBAL REFERENCES: 



GLOBL 


SAVREG 


GLOBL 


RESREG 


GLOBL 


ARGCHK 


GLOBL 


ENQTQ 


GLOBL 


CM. ARG 


GLOBL 


iiMiviorm 



GLOBL CM.BADNAME 



jIc*)):*****^:*^:^^:*!):^ 



LOCAL STORAGE: 



SAVE REGISTERS 

RESTORE REGISTERS 

CHECK AN ARGUMENT 

ENQUEUE A MESSAGE 

•ILLEGAL ARGUMENT' ERROR MSG 

r»ucni/ a Mnmh c mumc 

Oi ii-ui\ n i»i w is w l. u. uniiiu 

'INVALID MODULE NAME' ERROR MESSAGE 



KS.HLD: .WORD 

000076 KS.CMD: .ASCIZ /%CMD>/ 

000076 KS.RUNt .ASCIZ /%BSY>/ 

.EVEN 



;HOLD ADDRESS OF PROMPT 



KSUM PROCESS THE 'SUM' KEYBOARD COMMAND 
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ti r-i mil mji^ 
Pi3Ui»i . itihv> 

6.02 
603 
504 
(2) 
605 
606 
607 
608 
509 
610 
(3) 
611 
(4) 
612 
(4) 
613 
614 
615 
616 
617 
618 
619 
620 
621 
(6) 
(9) 
622 
(4) 
623 
(4) 
(3) 
624 
(4) 
625 
(4) 
626 
627 
628 
629 
630 
631 
632 
(4) 
(3) 
(4) 
(3) 
(3) 
(4) 
633 
634 
635 
636 
637 
638 
639 
640 



28-JUL-78 QQ:21 



000016' 
000016 1 



000016' 
000016' 
000022' 
000022' 
000026' 
000026' 



000032' 
000032' 
000040 : 
000042' 
000042' 
000050' 
000050' 
000052' 
000052 l 
000052' 
000060' 
000060' 



0.00060' 
000060' 
000064' 
000066' 
000070' 
000074' 
000076' 



004767 000000G 



016500 000000 

016501 000002 



032760 

001404 



100000 000010 



012767 000010' 177730 



000403 



012767 000002' 177720 



162705 
010546 
010145 
004767 
012605 
012501 



000002 



000000G 



KSUM ROUTINE 

.SBTTL KSUM ROUTINE 

ROUTINE KSUM <DTADR f BUFPTR> 

SAVE REGISTERS, DTABLE ADDRESS, AND DECODE BUFFER PTR 

CALL SAVREG 

LET RO := DTADR(R5) 

LET R1 := BUFPTR(R5) 



IF IN RUN MODE - STUFF A PROMPT TO BE ENQUEUED LATER 
IN THIS MODULE - IT IS USED BECAUSE THE NORMAL PROMPT 
IS OUTPUTTED BEFORE ANY SUM MESSAGES ARE OUTPUTTED - 
THIS ONE WILL FOLLOW THE SUM MESSAGES 



IF tfRUNMODE SETIN DT.STO(RO) THEN 



LET KS.HLD := #KS.RUN 



ELSE 



LET KS.HLD := #KS.CMD 



ENDIF 



SEQ 0662 



KSUM: 



JSR 
MGV 
MOV 



50002S: 



50003$: 



BIT 
BEG 

MOV 

BR 

MOV 



SEE IF ANY ARGUMENTS ARE INCLUDED IN DECODE BUFFER 



CALL ARGCHK IN <R1> OUT <R1> 



PC, SAVREG 
DTADR(R5) ,R0 
BUFPTR(R5),R1 



#RUNM0DE,DT.ST0( 
50002$ 

#KS. RUN, KS.HLD 

50003$ 

#KS.CMD, KS.HLD 



SUB 


#1*2, R5 


MOV 


R5,-(SP) 


MOV 


R1 t -(R5) 


JSR 


PC, ARGCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 



IF THERE ARE NO ARGUMENTS DO A FULL SUMMARY (ALL MODULES). GET ADDRESS 

OF MODULE LIST, ENQUEUE THE RUN SUMMARY HEADER MESSAGE, THEN, WHILE 

THE ENTRY IN THE MODULE LIST IS NOT 0, ENQUEUE THE SUMMARY MESSAGE 

FOR THE MODULES. WHEN MODULE LIST ENTRY = 0, ENQUEUE THE TRAILING MESSAGE 
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SEQ 0663 



641 
642 
(6) 
643 
544 
(4) 
645 
(4) 
646 
(4) 
647 
(3) 
648 
649 
(4) 
650 
(4) 
651 
(4) 
(6) 
(9) 
652 
(4) 
653 
(3) 
654 
(4) 
(3) 
655 
656 
(4) 
657 
(4) 
658 
(3) 
659 
660 
(4) 
(3) 
661 
662 
663 
664 
665 
666 
(4) 
(3) 
(5) 
(4) 
(3) 
(3) 
(4) 
(4) 
667 
(6) 
668 



000100 1 
000100' 

000102' 
000102' 
000106' 
000106' 
0001 10' 
000110' 
0001 12' 
000112' 

0001 16' 
000116' 
000122' 
000122' 
000126' 
000126' 
000126' 
000130' 
000132' 
000132' 
000134' 
000134' 
000140' 
000140' 
000142' 

000142' 
000142' 
000146' 
000146' 
000150' 
000150' 

000154' 
000154' 
000156' 



000156' 
000156' 
000162' 
000164' 
000166' 
000170' 
000174' 
000176' 
000200' 
000202' 
000202' 



012701 
016004 

005714 
001404 

012403 

004767 

000772 



162705 
010546 
01 0145 
01 0045 
004767 
012605 
012502 
012501 

103424 



IF. ERROR THEN 



103026 



012701 000014 



005002 



005003 



004767 000176 



BCC 



000015 
000032 



000154 



012701 000016 



005002 



004767 000140 



000442 



LET R1 := #MSGSMH 
LET R2 := #0 
LET R3 := #0 
CALL NQ 

LET R1 := #MSGSMB 
LET R4 := DT.MLST(RO) 
WHILE (R4) NE #0 DO 

LET R3 := (R4)+ 
CALL NO 



LET R1 := #MSGSMS 
LET R2 := #0 
CALL NO 



ELSE 



BR 



50004$: 



THERE IS AN ARGUMENT - GO CHECK IT OUT 



CALL NAMCHK IN <R0,R1> OUT <R2 f R1> 



000004 



OOOOOOG 



IF. NO. ERROR THEN 



50004$ 



MJtCnCMU D1 





CLR 


R2 




CLR 


R3 




<JSR 


PC.NQ 




MOV 


#MSGSMB,R1 




MOV 


DT.MLST(RO) , R4 


50005$: 


TST 
BEQ 


(R4) 
50006$ 




MOV 


(R4)+,R3 




JSR 


PC f NQ 


50006$: 


BR 


50005$ 




MOV 


#MSGSMS,R1 




CLR 


R2 




JSR 


PC, NO 



50007$ 



SUB 


#2*2, R5 


MOV 


R5,-(SP) 


MOV 


R1 ,~(R5) 


MOV 


R0,-(R5) 


JSR 


PC, NAMCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R2 


MOV 


(R5)+,R1 



3CS 



50010$ 
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669 








670 








671 








672 








673 


000204' 






(4) 


000204' 


162705 


000002 


(3) 


000210' 


010546 




(4) 


000212' 


010145 




(3) 


000214' 


004767 


000000G 


(3) 


000220' 


012605 




(4) 


000222' 


012501 




674 


000224' 






(6) 


000224' 


103007 




675 








576 








677 








678 








679 








680 


000226' 






(4) 


000226' 


012701 


000015 


681 


000232' 






(4) 


000232' 


010203 




682 


000234' 






(4) 


000234' 


005002 




683 


000236' 






/ *■* \ 


n nr\r\nt2 1 


An A "JC"? 


Annncn 


\&i 


V U>/^JU 


w-r t \j i 


V V V V W*. 


684 








685 


000242' 






(4) 


000242' 


000403 




(3) 


000244' 






686 








687 








688 








689 








690 


000244' 






(4) 


000244' 


012760 


000000G 000022 


691 








592 


000252' 






(4) 


000252' 






693 








694 


000252' 






(4) 


000252' 


000403 




(3) 


000254' 






695 








696 








697 








698 








699 








700 


000254' 






(4) 


000254' 


012760 


000000G 000022 


701 








702 


000262' 






(4) 


000262' 






703 








704 


000262' 




E 


(4) 


000262 1 







MODULE NAME IS O.K. - NOW JUST VERIFY THERE IS NO JUNK ARGUMENT 



CALL ARGCHK IN <R1> OUT <R1> 



IF. ERROR THEN 

NO JUNK ARGUMENTS ENQUEUE THE MESSAGE FOR THIS MODULE 

LET R1 := #MSGSMB 

LET R3 := R2 

LET R2 := #0 
CALL NQ 



BCC 



ELSE 



BR 



5001 IS: 



THERE IS A JUNK ARGUMENT IN DECODE BUFFER... STUFF ERROR MSG. . 

LET DT.KBRSP(RO) := #CM.ARG 



ENDIF 



ELSE 



BAD MODULE NAME STUFF ERROR MSG 



LET DT.KBRSP(RO) := #CM.BADNAME 



ENDIF 



ENDIF 



50012S: 



50010S: 



MOV 



BR 



MOV 



50013$: 
50007$: 



SEQ 0664 



MOV 


R5,-(SP) 


MOV 


R1 ,-(R5) 


JSR 


PC, ARGCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 



50011$ 



MOV 


#MSGSMB f R 


MOV 


R2.R3 


CLR 


R2 


JSR 


PC, NO 



50012$ 



#CM.ARG,DT.KBRSP 



50013$ 



#CM.BADNAME,DT.K 
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IF NO ERRORS - ENQUEUE A PROMPT 



SEQ 0665 



705 








706 








707 








708 








709 








710 


000262' 






(6) 


000262' 


005760 


000022 


(9) 


000266' 


001007 




711 


000270' 






(4) 


000270' 


012701 


000000 


712 


000274' 






(4) 


000274' 


016702 


177500 


713 


000300' 






(4) 


000300' 


005003 




714 


000302' 






(3) 


000302' 


004767 


000006 


715 


000306' 






(4) 


000306' 






716 








717 








718 








719 








720 








721 








722 


000306' 








« « /> n /-, r> I 




r\ a r\ r\ r\ r\ r* 


l«s; 


UUUJUO 


uu<+ / o i 


WW W WW W*J 


723 








724 


000312' 






(3) 


000312' 






(3) 


000312' 






(2) 


000312' 


000207 




725 








726 








727 








728 








729 








730 


000314' 






(2) 


000314' 






731 








732 


000314' 






(3) 


000314' 


010546 




(8) 


000316' 


012745 


000000 


(7) 


000322' 


010345 




(6) 


000324' 


010245 




(5) 


000326' 


010145 




(4) 


000330' 


010045 




(3) 


000332' 


004767 


000000G 


(3) 


000336' 


012605 




733 








734 


000340' 






(3) 


000340' 






(3) 


000340' 






(2) 


000340' 


000207 




735 




000001 





IF DT.KBRSP(RO) EQ #0 THEN 

LET R1 :a #MSGSTD 
LET R2 := KS.HLD 
LET R3 := #0 
CALL NQ 
ENDIF 



CLEAN UP AND GOODBYE 
CALL RESREG 
ENDRTN 



TST 
BNE 


DT.KBRSP(RO) 
50014$ 


MGV 


#MSGSTD,R1 


MOV 


KS.HLD, R2 


CLR 


R3 


JSR 


PC, NQ 



50014$: 



50000$: 
50001$: 



JSR 



RTS 



THIS IS THE ACTUAL CALL TO THE TYPE-QUEUE ENQUEUEING ROUTINE. 



ROUTINE NQ 



CALL ENQTQ IN <R0 , R1 , R2 , R3, #0> 



NQ: 



ENDRTN 



END 



PC. RESREG 



PC 





MOV 


R5,-(SP) 




MOV 


#0,-(R5) 




MOV 


R3,-(R5) 




MOV 


R2,-(R5) 




MOV 


Ri ,-(R5) 




MOV 


R0,-(R5) 




JSR 


PC, ENQTQ 




(ViOV 


(SP)+,R5 


50000$: 






50001$: 







RTS 



PC 



KSUM PROCESS THE 'SUM' KEYBOARD COMMAND 
KSUM. MAC 28-JUL-7S 09:21 SYNIi 



MACY11 30A(1052) 20-SEP-73 
JL TABLE 



18:03 PAGE 20 



SEQ 0666 



ACSR = 


000102 


CQOVF = 


000001 


ACTBIT= 


004000 


CR 


000015 


ADDR22= 


001000 


CSRA = 


000100 


ADR 


000006 


CSRC = 


000102 


APTFER= 


000004 


CTRLC = 


000003 


APTPRE= 


000200 


CTRLO = 


000017 


ARGCHK= 


****** g 


CTRLU = 


000025 


ASB 


000106 


DCEVNT= 


000011 


ASSEMB= 


000010 


DEFRTN= 


000400 


ASTAT = 


000104 


DIAGMC= 


000000 


AUTO = 


000010 


DROPMO= 


100000 


AUTOST= 


020000 


DSEVNT= 


000014 


AWAS = 


0001 10 


DTADR =. 


000000 


BITO = 


000001 


DT.ADD= 


000042 


BITOO = 


000001 


DT.AP = 


000100 


BIT01 = 


000002 


DT.APK= 


000076 


BIT02 = 


000004 


DT.BLS= 


000034 


BIT03 = 


000010 


DT.CFO* 


000014 


BIT04 = 


000020 


DT.CF1= 


000016 


BIT05 = 


000040 


DT.ERR= 


000020 


BIT06 = 


000100 


DT. ESI= 


000044 


BIT07 = 


000200 


DT.EVN= 


000000 


3IT08 = 


000400 


DT.EXS= 


000060 


BIT09 = 


001000 


DT.FCH= 


000037 


BIT1 = 


000002 


DT.FCN= 


000036 


BIT10 = 


002000 


DT . HfviX = 


00 01 C4 


BIT11 = 


004000 


DT.KBE= 


000024 


BIT12 = 


010000 


DT.KBP= 


000026 


BIT13 = 


020000 


DT.KBR= 


000022 


BIT14 = 


040000 


DT.K'BU = 


000030 


BIT15 = 


100000 


dt.m'ls- 


000032 


3IT2 = 


000004 


DT.MTI= 


000110 


BIT3 = 


000010 


DT.OFF= 


000070 


BIT4 = 


000020 


DT.PAS= 


000074 


BIT5 = 


000040 


DT.PC = 


000002 


BIT6 = 


000100 


DT.PFL= 


000062 


BIT7 = 


000200 


DT.PSW= 


000004 


BIT8 = 


000400 


DT.PTA= 


000064 


BIT9 = 


001000 


DT.RCS= 


000102 


BKDEF = 


000002 


DT.REL= 


000040 


BKMOD = 


000020 


DT.SCT= 


000066 


BKMODE= 


040000 


DT.SMX= 


000105 


BKSLSH= 


000134 


DT.SP = 


000006 


BUFPTR= 


000002 


DT.SSI= 


000046 


CAPRES= 


000004 


DT.STO= 


000010 


CASTAT= 


000004 


DT.ST1= 


000012 


CDERCT= 


000146 


DT.SWR= 


000056 


CDWDCT= 


000144 


DT.SYP= 


000072 


CKTIM = 


100000 


DT.WBU= 


000050 


CLKPRE= 


000001 


DT.WHL= 


000054 


CM.ARG= 


****** Q 


DT.WLL= 


000052 


CM.BAD= 


****** Q 


DVID1 = 


000014 


CONFIG= 


000056 


ECCMEM= 


000100 



ECCSTA= 


000010 


EN3EGP= 


010000 


ENBNUL= 


000001 


ENDLST= 


000000 


ENOTO = 


****** Q 


EOPBIT= 


000001 


ERRTYP= 


000106 


EVNTBE- 


000200 


EVNTHD= 


000200 


EVNTKT= 


000203 


EVNTPE= 


000202 


EVNTRE= 


000201 


FATERR= 


100000 


HRDCNT= 


000044 


HRDPAS= 


000050 


ICONT = 


000036 


ICOUNT= 


000040 


IDNUM = 


000122 


IE 


000100 


INDPAR= 


000040 


INHDRP= 


040000 


INHEPR= 


020000 


INHREL= 


001000 


INHRRE= 


000400 


INIT = 


000030 


TMTD _ 


WOW 1 *- w 


IOMOD = 


100000 


IOMODP= 


102000 


IOMODR= 


112000 


ior*ioDX= 


110000 


JACK = 


035060 


KIPAR0= 


172340 


KIPAR1= 


172342 


KIPAR2= 


172344 


KIPAR3= 


172346 


KIPAR4= 


172350 


KIPAR5= 


172352 


KIPAR6= 


1723^4 


KIPAR7= 


172356 


KIPDR0= 


172300 


KIPDR1= 


172302 


KIPDR2- 


172304 


KIPDR3= 


1723P6 


KIPDR4= 


172310 


KIPDR5= 


172312 


KIPDR6= 


172314 


KIPDR7= 


172316 


KSUM 


000016RG 


KS.CMD 


000002R 


KS-HLD 


OOOOOOR 


KS.RUN 


000010R 


KTERR0= 


000040 


KTPRES= 


000400 



KTSTAT= 

KTXTND= 

LF 

LPSTAT= 

MAPSTA= 

MED 

M£MPAS= 

M0DEXH= 

1Vl0DH0L= 

!V10DSEL = 

WlSGCKD = 

MSGCKS= 

MSGDER= 

MSGD'RP = 

WISGECH= 

MSGEOP= 

MSGHDR= 

MSGHNG= 

MSGHRD= 

MSGfi/IAP= 

MSGNUL= 

MSGPOP= 

MSGPRM= 

MSGRES= 

MSGSFT= 

MSGSKE= 

MSG'SMB= 

!VlSGSMH= 

MSGSWIS= 

MSGSTD= 

MSGSYS= 

W,SGVEC = 

NAMCHK= 

NBKMOD= 

NCPUOP= 

NOAPTY= 

NO 

NULL = 

OWEN = 

PAERR = 

PARPRE= 

PARSTA= 

PASCNT= 

PDPLSI= 

PDP60 = 

PDP70 = 

PRIO = 

PRI1 = 

PRI4 = 

PRI5 = 

PRI6 = 

PRI7 = 

PRO 



000020 
040000 
000012 
000001 
000200 
076600 
040000 
004000 
002000 
001000 
000010 
00001 1 
000005 
000017 
177777 
000013 
000004 
000022 
000007 
000021 
177775 
000002 
177776 
000001 
000006 
000003 
000015 
000014 
000016 
000000 
000Q12 
000020 
****** ( 

001000 

000020 

000002 

000314R 

000000 

024020 

000010 

002000 

000100 

000034 

020000 

004000 

010000 

000000 

000040 

000200 

000240 

000300 

000340 

OCOOOO 



PR4 

PR5 

PR6 

PR7 

PS 

PSW - 

RANNUM= 

R3UFEA= 

RBUFPA= 

R3UFSZ= 

R3UFVA= 

RDSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RESREG= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBOUT= 

RUNMOD= 

R5VALU= 

SAM = 

SAVREG= 

SBADR = 

SBKMOD= 

SBKSEL= 

SC.ADR= 

SC.ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SOFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRC = 



000200 
000240 
000300 
000340 
177776 
1 77776 
000054 
000130 
000126 
000132 
000124 
000101 
000022 
000020 
020000 
010000 
****** 

000056 
000060 
031060 
002000 
000112 
000177 
100000 
001740 
075464 
****** 

000102 
000000 
010000 
000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 
000027 
000001 
000062 



KSUW1 


PROCESS THE 


'SUM' 


KEYBOARD 


COMMAND 


MACY11 30A(1052) 20-SEP-78 


18:03 PAGE 20- 


KSUM.MAC 28-JUL- 


-78 09: 


:21 


SYMBOL 


TABLE 








SVR1 = 


000064 




UIPDR3= 


177606 


$F$BAD= 


000401 


$IFLEV= 


177777 


SVR2 = 


000066 




UIPDR4= 


177610 


SF$BLA= 


000170 


$ISKO = 


000001 


SVR3 = 


000070 




UIPDR5= 


177612 


$F$CAS= 


000150 


SISK1 = 


000001 


SVR4 = 


000072 




UIPDR6= 


177614 


$F$DEC= 


C00220 


$ISK2 = 


000001 


SVR5 = 


000074 




UIPDR7= 


177616 


$F$DO = 


000340 


$LOCTA= 


177777 


SVR6 = 


000076 




WASADR= 


000104 


SF$FAL= 


000405 


SLSTIN- 


000001 


SYSCNT= 


000052 




WBSTAT= 


000040 


$F$GOO= 


000400 


$LSTTA= 


000001 


SYSERR= 


000100 




WBUFEA= 


000136 


SFSIF = 


000110 


$NESTL= 


177777 


TMPIO = 


000002 




WBUFPA= 


000134 


$F$INC= 


000210 


$NSKO = 


000300 


TQOVF = 


000002 




WBUFR0= 


000140 


$F$LOO= 


000200 


$NSK1 = 


000110 


UIPAR0= 


177640 




WBUFSZ= 


000142 


$F$NAM= 


000160 


SNSK2 = 


000110 


UIPAR1= 


177642 




WDFR = 


0001 16 


SFSNO = 


000403 


SNSK3 = 


000110 


UIPAR2= 


177644 




WDTO = 


000114 


SFSOR = 


000320 


$SAVLE= 


177777 


UIPAR3= 


177646 




WTINRE= 


000352 


$F$RTI= 


000350 


$SSKO = 


050006 


UIPAR4= 


177650 




WTWHMI= 


000222 


$F$RTN= 


000300 


$TAGLE= 


177777 


UIPAR5= 


177652 




XFLAG = 


000005 


$F$SEL= 


000140 


$TAGNU= 


050002 


UIPAR6= 


177654 




XOFF = 


000023 


$FSTHE= 


000330 


STEMP = 


000300 


UIPAR7= 


177656 




XON 


000021 


$F$TRU= 


000404 


$TSKO = 


050014 


UIPDR0= 


177600 




$BGNLE= 


177777 


$FSUNT= 


000130 


STSK1 = 


050013 


UIPDR1= 


177602 




$ERFLG= 


000400 


$F$WHI= 


000120 


$TSK2 = 


050012 


UIPDR2= 


177604 




$F$AND= 


000310 


$F$YES= 


000402 


$$ARGC= 


000000 


. ABS. 


000000 
000342 


000 
001 















SEQ 0667 



SSBYTE; 
$$CASE= 
SSDST = 
SSELOC= 
$SESFL= 
$SFLAG= 
$$FROM= 
SSLOC = 
SSLOCN = 
SSREG = 
$$RETU= 
$SRTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
S$TGS1= 
$$TGS2= 
$$TQ = 
$S$TAG= 



000403 

000000 

000000 

000402 

000000 

000001 

000000 

000266R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000005 

050000 

000342R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ:KSUM,DSKZ:KSUM=SPMAC/ML, EQUATE r KSUM 
RUN-TIME: 15 5 .4 SECONDS 
RUN-TIME RATIO: 56/21=2.6 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1C52) 20-SEP-78 18:04 

EQUATE.MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0668 

3 COMMON EQUATE MODULE 

561 COMMON DEFINITIONS AND REFERENCES FOR KSWR 

564 000000' .PRINT ;SPMAC: VERSION 1.1 

598 KSWR ROUTINE 



KSWR PROCESS THE ! SWR' KEYBOARD COMMAND MACYi t 30A(1C52) 20-SEP-78 18:04 PAGE 19 
KSWR. MAC 28-UUL-78 09:21 COMMON EQUATE MODULE 



SEQ 0669 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
523 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 



TITLE KSWR 
IDENT /VO.O/ 



PROCESS THE ' SWR ' KEYBOARD COMMAND 



MODULE NAME: 
KSWR 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PROCESSES THE 'SWR' KEYBOARD COMMAND. 

IF NO ARGUMENT IS FOUND IN THE DECODE BUFFER, THE CONTENTS 

OF THE SOFTWARE SWITCH REGISTER ARE OUTPUTTED. THE NUMBER 

IS VERIFIED TO BE OCTAL AND 16 BITS OR LESS IN LENGTH. IF 

THE NUMBER IS VALID, IT WILL REPLACE THE CONTENTS. OF THE 

SOFTWARE SWITCH REGISTER AND THE NEW CONTENTS WILL BE OUTPUTTED. 

INPUTS: 

1. ADDRESS OF DATA TABLE 

2. DECODE BUFFER POINTER 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

1. DT.KBRSP 

2. DT.SWR 

PATHOLOGICAL CONNECTIONS: 
CM.ARG 

SUBORDINATE ROUTINES CALLED: 

1. ARGCHK - VERIFY AN ARGUMENT 

2. B0A16 - BINARY TO OCTAL ASCII CONVERSION 

3. SAVREG - SAVE REGISTERS 

4. RESREG - RESTORE REGISTERS 

5. NUMCHK - CHECK FOR VALID NUMBER 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL KSWR IN <DTADR , BUFPTR> 
WHERE: DTADR = ADDRESS OF DTABLE 

BUFPTR = CMD DECODE BUFFER POINTER 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



KSWR 

l/O I.I D 



PROCESS THE ' SWR • KEYBOARD COMMAND 



MACY11 30A(1052) 20-SEP-78 18:04 PAGE 19-1 



28-JUL-78 09*21 



561 
562 
563 
564 

m 

.565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 



000000' 
000000' 



000001 
000001 



000000' 053523 
000005' 000006 
000013' 045 

000016' 



027522 



000 



COMMON DEFINITIONS AND REFERENCES FOR KSWR 

.SBTTL COMMON DEFINITIONS AND REFERENCES FOR KSWR 

-MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$|_STIN = 1 
SLSTTAG=1 

**************** 
REFERENCED BY OTHER MODULES: 



SEQ 0670 



GLOBL KSWR 

GLOBAL REFERENCES: 

GLOBL SAVREG 

GLOBL RESREG 

GLOBL B0A16 

GLOBL ARGCHK 

GLOBL NUMCHK 

GLOBL CM.ARG 

**************** 
LOCAL STORAGE: 



040 KS.MG1: .ASCII 'SWR/ 
KS.MG2: .BLKB 6 

.ASCI2 /%/ 

-EVEN 
***************** 



-MODULE ENTRY POINT 



SAVE REGISTERS 

RESTORE REGISTERS 

BINARY TO OCTAL ASCII CONVERSION 

CHECK AN ARGUMENT 

CHECK AN OCTAL ASCII NUMBER 

"INVALID OR MISSING ARGUMENT" MESSAGE 



;SWR MESSAGE 

;HQLD ASCII DT.SWR CONTENTS 



KSWR PROCESS THE 'SWR 1 KEYBOARD COMMAND MACY11 30A(1052) 20-SEP-78 18:04 PAGE 19-2 
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.SBTTL KSWR ROUTINE 



ROUTINE KSWR <DTADR , BUFPTR> 



SEQ 0671 



599 








600 








601 


000016 






(2) 


000016 






602 








603 








604 








605 








605 








607 


000016 






(3) 


000016 


004767 


000000G 


608 


000022 






(4) 


000022 


016500 


000000 


609 


000026 






(4) 


000026 


016501 


000002 


610 








611 








612 








613 








614 


000032 






(4) 


000032 


162705 


000002 


(3) 


000036 


01 0546 




(4) 


000040 


010145 




(3) 


000042 


004767 


000000G 


(3) 


000046 


V 1 ^UWJ 




(4) 


000050 


012501 




615 








S16 








617 








618 








619 








620 








621 


000052 






(6) 


000052 


103435 




622 


000054 






(4) 


000054 


162705 


000004 


(3) 


000060 


010546 




(5) 


000062 


010145 




(4) 


000064 


010045 




(3) 


000066 


004767 


000000G 


(3) 


000072 


012605 




(4) 


000074 


012501 




(4) 


000076 


012502 




623 








624 








625 








626 








627 








628 








629 


000100 






(6) 


000100 


103002 




630 


000102 






(2) 


000102 


000434 




631 








632 


000104 







KSWR: 



SAVE REGISTERS, DATA TABLE ADDRESS, AND DECODE BUFFER POINTER 

CALL SAVREG 

LET RO := DTADR(R5) 

LET R1 := BUFPTR(R5) 

+ 
GET TO FIRST ARGUMENT 

CALL ARGCHK IN <R1> OUT <R1> 



JSR PC, SAVREG 
MOV DTADR(R5),R0 
MOV BUFPTR(R5) ,R1 



SUB 


#1*2, R5 


MOV 


R5,-(SP) 


MQV 


R1 ,~(R5) 


JSR 


PC, ARGCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 



IF IT'S NOT A CARRIAGE RETURN, VERIFY THAT IT IS NUMBER 

IF. NO. ERROR THEN 

CALL NUMCHK IN <R0,R1> OUT <R1,R2> 



BCS 



IF THERE IS AN ERROR IN THE NUMBER, LEAVE 

IF. ERROR THEN 

INLINE <BR 1$> 

ELSE 



BCC 

3R 



50002$ 



SUB 


#2*2, R5 


MOV 


R5,-(SP) 


MOV 


R1 r -(R5) 


MOV 


R0,-(R5) 


JSR 


PC, NUMCHK 


MOV 


(SP)+,R5 


MQV 


(R5)+,R1 


MOV 


(R5)+,R2 



50003$ 
1$ 



KSWR PROCESS THE ' SWR ' KEYBOARD COMMAND MACY11 30A(1052) 20-SEP-78 18:04 PAGE 19-3 
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NUMBER OK, VERIFY NO JUNK ARGUMENTS EXIST 



(4) 


000104' 


000420 




(3) 


000106' 






833 








634 








S35 








536 








637 








638 


000106' 






(4) 


000106' 


162705 


000002 


(3) 


000112' 


010546 




(4) 


0001 14' 


010145 




(3) 


0001 16' 


004767 


000000G 


(3) 


000122' 


012605 




(4) 


000124' 


012501 




639 








640 








641 








642 








643 








644 








645 


000126' 






(6) 


000126' 


103405 




646 


000130' 






(4) 


000130' 


012760 


000000G 000022 


647 


000136" 






1 1 > 


n n n -( Off I 


rtn n^i g 




K*- ) 








848 








64S 


000140' 






(4) 


000140' 


000402 




(3) 


000142' 






650 








651 








652 








553 








654 








655 








656 


000142' 






(4) 


000142' 


010260 


000056 


657 








658 


000146' 






(4) 


000146' 






659 


000146' 






(4) 


000146' 






660 








661 


000146' 




E 


(4) 


000146' 






662 








663 








664 








665 








666 








667 


000146' 




C 


(3) 


000146' 


010546 




(5) 


000150' 


012745 


000005' 


(4) 


000154' 


016045 


000056 


(3) 


000160' 


004767 


OOOOOOG 



3R 



50003S: 



CALL ARGCHK IN <R1> OUT <R1> 



IF THERE ARE MORE JUN'K ARGUMENTS - LEAVE, BUT STUFF ERROR MSG FIRST 



IF. NO. ERROR THEN 

LET DT.KBRSP(RO) := #CM.ARG 
INLINE <BR 1$> 



ELSE 



BCS 
MOV 
BR 

BR 



50005$: 



NO JUNK ARGUMENTS - SO REPLACE SOFTWARE SWITCH REG WITH 
NEW VALUE 



LET DT.SWR(RO) := R2 



MOV 



ENDIF 



ENDIF 



ENDIF 



CONVERT THE NUMBER IN DT.SWR TO ASCII, STUFF MESSAGE 
AND RETURN 

CALL B0A16 IN <DT . SWR ( RO) , #KS .MG2> 



50006S: 
50004$: 

50002$: 



MOV 
MOV 
MOV 
JSR 



SEQ 0672 



50004$ 



SUB 


#1*2, R5 


MOV 


R5,-(SP) 


MOV 


R1 ,-(R5) 


JSR 


PC, ARGCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 



50005$ 

#CM.ARG,DT.KBRSP 

1$ 

50006$ 



R2,DT.SWR(R0) 



R5,-(SP) 
#KS.MG2 t -(R5) 
DT.SWR(RO) ,-(R5) 
PC.BCA16 



KSWR 



PROCESS THE 'SWR' KEYBOARD COMMAND 



MACY11 30A(1G52) 20-SEP-78 18:04 PAGE 19-4 



KSWR. MAC 28- 


■JUL-78 09:21 


(3) 


000164' 


012605 


668 






669 


000166' 




(4) 


00016S' 


012760 000000' 


670 






671 






672 






673 






674 






675 


000174' 




(2) 


000174' 




676 


000174' 




(3) 


000174' 


004767 OOOOOOG 


677 






678 


000200' 




(3) 


000200* 




(3) 


000200' 




(2) 


000200' 


000207 


679 




000001 



000022 



KSWR ROUTINE 

LET DT.KBRSP(RO) := #KS.MG1 

; + 

; RESTORE REGISTERS AND RETURN. 

INLINE <1$:> 
CALL RESREG 

ENDRTN 
.END 



MOV 



MOV 



50000$: 
50001$: 



1$: 
JSR 

RTS 



SEO 0673 



(SP)+,R5 



#KS.MG1 ,DT.KBRSP 



PC, RESREG 



PC 
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ACSR = 
ACT3IT= 
ADDR22= 
ADR 

APTFER= 
APTPRE= 
ARGCHK= 
ASB 

ASSEMB= 
ASTAT = 
AUTO = 
AUTOST= 
AWAS = 
BITO = 
BITOO = 
BIT01 = 
BIT02 = 
BIT03 = 
BIT04 = 
BIT05 = 
BIT06 = 
BIT07 = 
BIT08 = 
BIT09 = 
BIT1 = 
BIT10 = 
BIT11 = 
BIT12 = 
BIT13 = 
BIT14 = 
BIT15 = 
BIT2 = 
BIT3 = 
BIT4 = 
BITS = 
BIT6 = 
BIT7 = 
BITS = 
3IT9 = 
BKDEF = 
BKMOD = 
BKMODE= 
BKSLSH= 
B0A16 = 
BUFPTR= 
CAPRES= 
CASTAT= 
CDERCT= 
CDWDCT= 
CKTIM = 
CLKPRE= 
CM.ARG= 
CQNFIG= 



000102 
004000 
001000 
000006 
000004 
000200 
****** 

000106 
000010 
000104 
000010 
020000 
000110 
000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 
100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
000020 
040000 
000134 

000002 
000004 
000004 
000146 
000144 
100000 
000001 
****** 

000056 



CQOVF 

CR 

CSRA 

CSRC 

CTRLC 



000001 
000015 
000100 
000102 
000003 



r-i _ nnn/in 



CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO= 
DSEVNT= 
DTADR = 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CF0= 
DT.-CF1.= 
DT.ERR= 
DT.ESI= 
DT,EVN= 
DT.EX3= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.K6P= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF = 
DT.PAS= 
DT.PC = 
DT.PFL = 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL = 
DT.WLL= 
DVID1 - 
ECCMEM= 



000025 
00001 1 
000400 
000000 
100000 
000014 
000000 
000042 
000100 
000076 
000034 
000014 
00 0016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
0C0030 
000032 
000110 
000070 
000074 
000002 
000062 
000004 
OCO0S4 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 



ECCSTA= 

EN3E0P= 

ENBNUL= 

ENDLST= 

EOPBIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

IKHREL= 

INHRRE= 

INIT = 

INTR = 

IOMOD = 

IOMODP=» 

IOMODR= 

iowibbx= 

JACK = 

KIPAR0= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KSWR 

KS.MG1 

KS.MG2 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 



000010 

010000 

000001 

000000 

000001 

000106 

000200 

000200 

000203 

000202 

000201 

100000 

000044 

000050 

000036 

000040 

000122 

000100 

000040 

040000 

020000 

001000 

000400 

000030 

000120 

100000 

102000 

1 12000 

110000 

035060 

172340 

172342 

172344 

172346 

172350 

172352 

172354 

172355 

172300 

172302 

172304 

172306 

172310 

172312 

172314 

172316 

000016RG 

OOOOOOR 

000005R 

000040 

000400 

000020 

040000 



LF s 

LPSTAT= 

MAPSTA= 

MED 

MEMPAS= 

MODEXH= 

MODHOL- 

MODSEL= 

lftSGCKD= 

MSGCKS= 

MSGDER= 

MSGDRP= 

MSGECH= 

msgeop= 

W1SGHDR = 
MSGHNG= 
MSGHRD= 
MSGMAP= 
MSGNUL= 
MSGPO?= 
MSGPRM= 
MSGRES= 
'MSGSFT= 
MSGSKE= 
MSGSM3= 
MSGSMH= 
iViSGSfv"tS = 
MSGSTD= 
MSGSYS- 
MSGVEC= 
NBKMOD= 
NCPUOP= 
NOAPTY= 
NULL = 
NUMCHK= 
OWEN = 
PAERR = 
PARPRE= 
PARSTA= 
PASCNT= 
PDPLSI= 
PDP60 = 
PDP70 = 
PRIO = 
PRI1 = 
PRI4 = 
PRI5 = 
PRI6 = 
PRI7 = 
PRO 
PR4 
PR5 
PR6 



000012 
000001 
000200 
076600 
040000 
004000 
002000 
001000 
000010 
00001 1 
000005 
000017 
177777 
000013 
000004 
000C22 
000007 
000021 
177775 
000002 
177776 
000001 
000006 
000003 
000015 
000014 
000015 
000000 
000012 
000020 
001000 
000020 
000002 
000000 

* * ^ ** * 

024020 
000010 
002000 
OOOTOO 
000034 
020000 
004000 
010000 
000000 
000040 
000200 
000240 
000300 
000340 
000000 
000200 
000240 
000300 







SEQ 0674 


PR7. = 


000340 




PS 


177776 




PSW 


177775 




RANNUM= 


000054 




RSUFEA= 


000130 




RBUFPA= 


000126 




R5UFSZ= 


000132 




RBUFVA= 


000124 




RDSERV= 


000101 




RDWHMI= 


000022 




RELERR= 


000020 




RELMOD= 


020000 




RELTIM= 


010000 




RESREG= 


****** Q 




RES1 = 


000056 




RES2 = 


000060 




RICHAR= 


031060 




RPTDAT= 


002000 




RSTRT = 


000112 




RUBOUT= 


000177 




RUNMOD= 


100000 




R5VALU= 


001740 




SAM 


075464 




SAVREG= 


****** Q 




SBADR = 


000102 




SBKMOD= 


000000 




SBKoL L= 


ri-i r» A A A 

\J i U W V V 




SC.ADR= 


000005 




SC.ALC= 


000014 




SCAPC= 


000015 




SC.CKL= 


000002 




SC.CKP= 


000004 




SC.CLO= 


000000 




SC.HLD= 


000010 




SC.SCA= 


000012 




SENDLS= 


177777 




SOFCNT= 


000042 




SOFPAS= 


000046 




SPACE = 


000040 




SPOINT= 


000032 




SPVALU= 


002200 




SRO 


177572 




SR1 


177574 




SR2 


177576 




SR3 


172516 




STAT = 


000026 




STATBI= 


064757 




STAT1 = 


000027 




SUSPND= 


000001 




SVRO = 


000062 




SVR1 = 


000064 




SVR2 = 


000066 




SVR3 = 


000070 
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SEQ 0675 



SVR4 = 


000072 




UIPDR5= 


177612 


SVR5 = 


000074 




UIPDR6= 


177614 


SVR6 = 


000076 




UIPDR7= 


177616 


SYSCNT= 


000052 




WASADR= 


000104 


SYSERR= 


000100 




WBSTAT= 


000040 


TMPIO = 


000002 




WBUFEA= 


OOOi 36 


TQOVF = 


000002 




WBUFPA= 


000134 


UIPAR0= 


177640 




WBUFRQ= 


000140 


UIPAR1= 


177642 




WBUFS2= 


000142 


UIPAR2= 


177644 




WDFR = 


000116 


UIPAR3= 


177646 




WDTO = 


000114 


UIPAR4= 


177650 




WTINRE= 


000352 


UIPAR5= 


177652 




WTWHMI= 


000222 


UIPAR6= 


177654 




XFLAG = 


000005 


UIPAR7= 


177656 




XOFF = 


000023 


UIPDR0= 


177600 




XON 


000021 


UIPDR1= 


177602 




$BGNLE= 


177777 


UIPDR2= 


177604 




$ERFLG= 


000400 


UIPDR3= 


177606 




$F$AND= 


000310 


UIPDR4= 


177610 




$F$BAD= 


000401 


. ABS. 


000000 
000202 


000 
001 







$F$BLA= 
$F$CAS= 
SF$DEC= 
$F$DQ = 
$FSFAL= 

^rfri^nni- a a a -i n n 



000170 
000150 
000220 
000340 
000405 



$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NQ = 
$F$0R = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 



000110 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 



$IFLEV= 
SISKO = 
$ISK1 = 
$ISK2 = 
$L0CTA= 

C i_CT T M- 

$LSTTA= 
$NESTL= 
SNSKO = 
SNSK1 = 
SNSK2 = 
$NSK3 = 
$SAVLE= 
$TAGLE= 
$TAGNU= 
$TEMP = 
$TSK0 = 
$TSK1 = 
$TSK2 ■ 
$$ARGC= 



177777 
000001 
000001 
000001 
177777 
000001 
000001 
177777 
000300 
000110 
000110 
000110 
177777 
177777 
050007 
000300 
050002 
050004 
050006 
000004 



$$BYTE= 

SS wAS E = 
SSDST = 
$SELOC= 
$SERFL= 
S$FLAG= 
$$FROM= 
$SLOC = 
$$LQCN= 
S$REG = 
$SRETU= 
$$RTN1= 
$SRTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$TO = 
$$STAG= 



000000 

000000 

000000 

000402 

000000 

000001 

000000 

000126R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000202R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ: KSWR, DSKZ:KSWR=SPMAC/ML, EQUATE, KSWR 
RUN-TIME: 12 2 .4 SECONDS 
RUN-TIME RATIO: 41/15=2.6 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:05 

EQUATE. MAC 13-SEP-78 16: 13 TABLE OF CONTENTS SEQ 0676 

3 COMMON EQUATE MODULE 

526 KKTON PROCESS KTON KEYBOARD COMMAND 

579 KKTOFF PROCESS KTOFF KEYBOARD COMMAND 

633 COMMON DEFINTITIONS AND REFERENCES FOR KKTON 

636 000000 • .PRINT ;SPMAC: VERSION 1.1 

667 KKTON ROUTINE 



KTONOF PROCESS KTON, KTOFF KEYBOARD COMMANDS MACY11 30A(1C52) 20-SEP-78 18:05 PAGE 19 
KTONOF.MAC 28-JUL-78 09:21 COMMON EQUATE MODULE 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 



SEQ 0677 



TITLE KTONOF PROCESS KTON, KTOFF KEYBOARD COMMANDS 
IDENT /VO.O/ 



MODULE PACKAGE NAME: 
KTONOF 

FUNCTIONAL DESCRIPTION: 

THIS MODULE PACKAGE CONTAINS TWO ROUTINES: 

1 . KKTON - TURN THE MEMORY MANAGEMENT HARDWARE ON 

2. KKTOFF - TURN THE MEMORY MANAGEMENT OFF 



VERSION: 
0.0 

EDIT 



DATE 



BY 



REASON 
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SEQ 0678 



525 
527 

528 
529 
530 

30 I 

532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 



SBTTL KKTON 
.IDENT /V0.0/ 



PROCESS KTON KEYBOARD COMMAND 



MODULE NAME: 
KKTON 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PROCESSES THE "KTON" KEYBOARD COMMAND. 
IT WILL TEST TO SEE IF KT IS AVAILABLE, AND THAT THE 
EXERCISER IS NOT IN RUN MODE. IT WILL SET THE KT STATUS 
BIT IN STATUS WORD AND ENABLE THE KT HARDWARE. 
IF IN RUN MODE OR NO KT AVAILABLE, THE APPROPRIATE 
ERROR MESSAGE IS STUFFED INTO THE DATA TABLE'S ADDRESS 
OF KB CMD RESPONSE. 



INPUTS: 
1 . 
2. 



ADDRESS OF DATA TABLE 
COMMAND DECODE BUFFER POINTER 



IMPLICIT INPUTS: 
DT.CFO 
DT.STO 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.STO 
DT.KBRSP 

PATHOLOGICAL CONNECTIONS: 
CM.ARG 
CM. RUN 

SUBORDINATE ROUTINES CALLED: 

ARGCHK - CHECK FOR EXISTENCE OF AN ARGUMENT 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL KKTON IN <DTADR , BUFPTR> 

WHERE DTADR = ADDRESS OF DATA TABLE 

BUFPTR = COMMAND DECODE BUFFER POINTER 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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SEQ 0679 



579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
500 
601 
602 
603 
504 
605 
60S 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 



SBTTL KKTOFF PROCESS KTOFF KEYBOARD COMMAND 
,IDENT /VO.O/ 

++ 
MODULE NAME: 
KKTOFF 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE WILL PROCESS THE KTOFF KEYBOARD COMMAND. IT 
WILL TEST FOR THE PRESENCE OF KT . IF NO KT AVAILABLE, IT 
WILL STUFF A NO KT MESSAGE. IF KT IS AVAILABLE, A CHECK 
IS MADE TO SEE IF THE EXERCISER IS IN RUN MODE. IF IN RUN 
MODE, THE ERROR MESSAGE IS STUFFED. IF NOT IN RUN MODE, 
THE STATUS WORD WILL BE UPDATED(THE KT BIT CLEARED) 
AND THE KT TURNED OFF. NOTE: THE MESSAGES ARE STUFFED 
INTO THE DATA TABLE'S ADDRESS OF KB CMD RESPONSE 
LOCATION. 



INPUTS: 

ADDRESS OF DATA TABLE 
COMMAND DECODE BUFFER POINTER 

IMPLICIT INPUTS: 
DT.STO 
DT.CFO 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.STO 
DT.KBRSP 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
ARGCHK 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL KKTOFF IN <DTADR , CMDBUF> 
WHERE DTADR = ADDRESS OF DATA TABLE 

CMDBUF = COMMAND DECODE BUFFER POINTER 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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SEQ 0680 



633 

634 
635 
536 
(D 
637 
638 
539 
640 
641 
542 
543 
644 
545 
646 
647 
648 
549 
650 
651 
652 
653 
654 
655 
655 
657 
658 
559 
660 

661 

662 

663 
664 
665 



000000' 
000000' 



000000' 
000006' 
000007' 
000014' 
000016' 
000024' 
000026' 



uuuuu i 
000001 



047516 

000 

113 

000045 

052113 

000045 

000 

000030' 



•SBTTL COMMON DEFINTITIONS AND REFERENCES FOR KKTON 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

SLSTlN-1 

$LSTTAG=1 



REFERENCED BY OTHER MODULES; 



GLOBL KKTOFF 
GLOBL KKTON 

GLOBAL REFERENCES: 

GLOBL ARGCHK 
GLOBL CM.ARG 
GLOBL CM. RUN 



;MQDULE ENTRY POINT 
; MODULE ENTRY POINT 



CHECK FOR EXISTENCE OF AN ARGUMENT 

'ILLEGAL OR INVALID ARG' MESSAGE 

"NOT A VALID COMMAND IN RUN MODE" MESSAGE 



LOCAL STORAGE: 
045440 022524 KT.NOKT: .ASCIZ /NO KT%/ 
020124 047117 KT.ON: .ASCIZ /KTON%/ 
047440 043106 KT.OFF: .ASCIZ /KT OFF%/ 

KT.FLG: .BYTE 

.EVEN 



;KT ON/OFF FLAG 



KTONOF PROCESS KTON, KTOFF KEYBOARD COMMANDS 
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SEQ 0681 



667 
668 
669 
(2) 
670 
671 
672 
673 
674 
(4) 
675 
(2) 
676 
(3) 
(3) 
(2) 
677 
678 
(2) 
679 
680 
581 
682 
583 
(4) 
684 
585 
686 
687 
588 
589 
(2) 
690 
(2) 
(3) 
691 
(4) 
692 
(4) 
693 
694 
695 
696 
697 
698 
(6) 
(9) 
699 
700 
701 
702 
703 
704 
705 
(4) 
(3) 



000207 



000030' 
000030' 



000030' 
000030' 
000034' 
000034' 
000036' 
000036' 
000036' 
000036' 

000040' 
000040' 



000040' 
000040' 112767 



000046' 
000046' 
000046' 
000046* 
000050' 
000052' 
000052' 
000056' 
000056' 



105067 177772 



000404 



000001 177760 



010046 
010146 

016500 000000 

016501 000002 



000062' 

000062' 032760 
000070' 001071 



100000 000010 



000072' 

000072' 162705 000002 

000076' 010546 



.SSTTL KKTON ROUTINE 
ROUTINE KKTON <DTADR,BUFPTR> 

SET UP THE ON FLAG 
LET KT.FLG : B= #0 
INLINE <BR KTROU> 
ENDRTN 

ROUTINE KKTOFF <DTADR t BUFPTR> 

SET UP THE OFF FLAG 
LET KT.FLG : B= #1 

SAVE REGISTERS AND DATA TABLE ADDRESS 

INLINE <KTROU:> 
PUSH R0.R1 

LET RO := DTADR(R5) 
LET Rl := BUFPTR(R5) 

IF NOT IN RUNMODE THEN CONTINUE 
IF #RUNMODE NOTSETIN DT.STO(RO) THEN 



SEE IF ANY ARGUMENTS EXIST & IF 
THEY DO , THIS IS A BAD COMMAND 



CALL ARGCHK IN <R1> OUT <R1> 



KKTON: 



CLR3 KT.FLG 
BR KTROU 



50000S: 
50001$: 



KKTOFF: 



RTS 



MQVB 



BIT 

BNE 



PC 



#1 , KT.FLG 



KTROU : 

MOV RO,-(SP) 

MOV R1,-(SP) 

MOV DTADR(R5),R0 

MOV BUFPTR(R5) ,R1 



#RUNMODE,DT.ST0( 
50002$ 



SU5 #1*2, R5 
IV.OV R5,-(SP) 



KTONOF PROCESS KTON, KTOFF KEYBOARD 
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COMMANDS 
KKTON 



MACY11 30A(1052) 
ROUTINE 
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SEQ 0682 



(4) 


000100' 


010145 






(3) 


000102' 


004767 


000000G 




(3) 


000106' 


012605 






(4) 


000110' 


012501 






706 










707 










708 










709 










710 










711 










712 










713 


000112' 








(6) 


000112' 


103054 






714 


000114' 








(6) 


0001 14' 


032760 


000400 


000014 


(9) 


000122' 


001444 






715 


000124' 








(6) 


000124' 


105767 


177676 




(9) 


000130' 


001021 






716 


000132' 








(6) 


000132' 


052760 


000020 


000010 


717 


000140' 








(4) 


000140' 


012737 


000001 


177572 


713 


000146' 








(6) 


000146' 


032760 


001000 


000014 


(9) 


000154' 


001403 






719 


000156' 








(6) 


000156' 


052737 


000020 


172516 


720 


000164' 








(4) 


000164' 








721 










722 










723 










724 










725 


000164' 








(4) 


000164' 


012760 


000007' 


000022 


726 


000172' 








(4) 


000172' 


000417 






(3) 


000174' 








727 


000174' 








(6) 


000174' 


042760 


000020 


000010 


728 


000202' 








(4) 


000202' 


005037 


177572 




729 


000206' 








(6) 


000206' 


032760 


001000 


000014 


(9) 


000214' 


001403 






730 


000216' 








(6) 


000216' 


042737 


000020 


172516 


731 


000224' 








(4) 


000224' 








732 










733 










734 










735 










736 


000224' 








(4) 


000224' 


012760 


000016' 


000022 



MOV R1,-(R5) 

JSR PC.ARGCHK 

MOV (SP)+,R5 

MOV (R5)+,R1 



THE ARGUMENT IS A CR SO ALL IS O.K. 

SEE IF KT IS PRESENT AND IF IT IS, 

IF KT FLAG IS THEN SET THE KTSTAT BIT IN DT.STO OTHERWISE CLEAR IT 



IF. ERROR THEN 

IF #KTPRES SETIN DT.CFO(RO) THEN 



3CC 



50003$ 



BIT #KTPRES,DT.CF0(R 
BEQ 50004$ 
IFB KT.FLG EQ #0 THEN 

TST3 KT.FLG 
BNE 50005$ 

LET DT.STO(RO) := DT.STO(RO) SET. BY #KTSTAT 

BIS #KTSTAT,DT.STO(R 

LET @#SR0 := #1 

MOV #1,@#SR0 

IF #ADDR22 SETIN DT.CFO(RO) THEN 

BIT #ADDR22,DT.CF0(R 
BEQ 50006$ 
LET @£SR3 := @#SR3 SET. BY ffBIT04 

BIS #BIT04,@#SR3 

ENDIF 

50006$: 



LOAD THE KTON MESSAGE IN DT.KBRSP 



ELSE 



LET DT.KBRSP(RO) := #KT.ON 

MOV #KT.ON,DT.KBRSP( 

BR 50007$ 
50005$: 
LET DT.STO(RO) := DT.STO(RO) CLR.BY #KTSTAT 

BIC #KTSTAT,DT,ST0(R 
LET @#SR0 := #0 

CLR @#SRO 
IF #ADDR22 SETIN DT.CFO(RO) THEN 

BIT #ADDR22,DT.CF0(R 
BEQ 50010$ 
LET @#SR3 := @#SR3 CLR.BY #BIT04 

BIC #BIT04,@#SR3 
ENDIF 

50010$: 



LOAD KTOFF MESSAGE INTO DT.KBRSP 



LET DT.KBRSP(RO) := tfKT.OFF 



MOV #KT. OFF, DT.KBRSP 



KTONOF PROCESS KTON, KTOFF KEYBOARD COMMANDS 
KTONOF. MAC 28-JUL-78 09:21 KKTON 



MACY11 30A(1052) 
ROUTINE 



20-SEP-78 16:05 PAGE 19-6 



SEQ 0683 



737 


000232' 




(4) 


000232' 




738 


000232' 




(4) 


000232' 


000403 


(3) 


000234' 




•70n 






1 03 






740 






741 






742 






743 






744 


000234' 




(4) 


000234' 


012760 


745 


000242' 




(4) 


000242' 




746 






747 


000242' 




(4) 


000242' 


000403 


(3) 


000244' 




748 






749 






750 






751 






752 






753 


000244* 




(4) 


000244' 


012760 


754 


000252' 




(4) 


000252' 




755 


000252' 




(4) 


000252' 


000403 


(3) 


000254' 




756 






757 






758 






759 






760 






761 


000254' 




(4) 


000254' 


012760 


762 


000262' 




(4) 


000262' 




763 






764 






765 






766 






767 






768 


000262' 




(2) 


000262' 


012601 


(3) 


000264' 


012600 


769 






770 


000266' 




(3) 


000266' 




(3) 


000266' 




(2) 


000266' 


000207 


771 






772 






773 




000001 



ENDIF 



ELSE 



50C07S: 



50004$: 



BR 



50011$ 



LOAD THE NO KT MESSAGE INTO DT.KBRSP 



LET DT.KBRSP(RO) := #KT.NOKT 



ENDIF 



ELSE 



LOAD THE ILLEGAL ARGUMENT INTO DT.KBRSP 



50011$: 



50003$: 



MOV 



BR 



#KT.NOKT f DT.KBRS 



50012$ 



OOOOOOG 000022 



LET DT.KBRSP(RO) 
ENDIF 



:= #CM.ARG 



ELSE 



bUU123>: 



50002$: 



MOV 



BR 



#CM.ARG, DT.KBRSP 



50013$ 



LOAD THE RUN MODE MESSAGE 



LET DT.KBRSP(RO) := #CM.RUN 



OOOOOOG 000022 



MQV 



#CM. RUN, DT.KBRSP 



ENDIF 



50013$: 



ILEAN UP 



POP R1 ,R0 



ENDRTN 



.END 



50000$: 
50001$: 



MOV 
MOV 



RTS 



(SP)+,R1 
(SP)+,RO 



PC 
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SEO 0684 



ACSR = 


000102 


CQOVF = 


000001 


ACTSIT= 


004000 


CR 


000015 


ADDR22= 


001000 


CSRA ■■ = 


000100 


ADR 


000006 


CSRC = 


000102 


APTFER= 


000004 


CTRLC = 


000003 


APTPRE= 






r.nnQi 7 


uuuzuv 




ARGCHK= 


****** Q 


CTRLU = 


000025 


ASB 


000106 


DCEVNT= 


000011 


ASSEMB= 


000010 


DEFRTN= 


000400 


ASTAT = 


000104 


DIAGMC= 


000000 


AUTO = 


000010 


DROPMO= 


100000 


AUTOST= 


020000 


DSEVNT= 


000014 


AWAS = 


000110 


DTADR = 


000000 


BITO = 


000001 


DT.ADD= 


000042 


BITOO = 


000001 


DT.AP = 


000100 


BIT01 = 


000002 


DT.APK= 


000076 


BIT02 = 


000004 


DT.BLS= 


000034 


BIT03 = 


C00010 


DT.CF0= 


000014 


BIT04 = 


000020 


DT.CF1= 


000016 


BIT05 = 


000040 


DT.ERR= 


000020 


BIT06 = 


000100 


DT.ESI= 


000044 


BIT07 = 


000200 


DT.EVN= 


000000 


BIT08 = 


000400 


DT.EXS= 


000060 


BIT09 = 


.001000 


DT.FCH= 


000037 


BIT1 = 


000002 


DT.FCN= 


000036 


BIT10 = 


002000 


DT . HMX = 


000104 


BIT11 = 


004000 


DT..KBE = 


000024 


BIT12 = 


010000 


DT.KBP= 


000026 


BIT13 = 


020000 


DT.KBR= 


000022 


BIT14 = 


040000 


DT.KBU= 


000030 


BIT15 = 


100000 


DT.MLS = 


000032 


BIT2 = 


000004 


DT.MTI= 


0001 10 


BIT3 = 


000010 


DT.OFF= 


000070 


BIT4 = 


000020 


DT. PAS= 


000074 


BIT5 = 


000040 


DT.PC = 


000002 


BIT6 = 


000100 


DT.PFL= 


000062 


BIT7 = 


000200 


DT.PSW= 


000004 


BIT8 = 


000400 


DT.PTA= 


000064 


BIT9 = 


001000 


DT.RCS= 


000102 


BKDEF = 


000002 


DT.REL= 


000040 


BKMOD = 


000020 


DT.SCT= 


000066 


BKMODE= 


040000 


DT.SMX= 


000106 


BKSLSH= 


.000134 


DT.SP = 


000006 


BUFPTR= 


000002 


DT.SSI= 


000046 


CAPRES= 


000004 


DT.ST0= 


000010 


CASTAT= 


000004 


DT.ST1= 


000012 


CDERCT= 


000146 


DT.SWR= 


000056 


CDWDCT= 


000144 


DT.SYP= 


000072 


CKTIM = 


100000 


DT.WBU= 


000050 


CLKPRE= 


000001. 


DT.WHL= 


000054 


CM.ARG= 


****** Q 


DT.WLL= 


000052 


CM. RUN = 


****** Q 


DVID1 = 


000014 


CONFIG= 


000056 


ECCMEM= 


000100 



ECCSTA= 


000010 


KT.FLG 


000Q26R 


ENBEOP= 


010000 


■ KT.'NOK 


000000R 


ENBNUL= 


000001 


KT.QFF 


000016R 


ENDLST= 


000000 


KT.ON 


000007R 


EOPBIT= 


000001 


LF 


000012 


ERRTYP= 


000105 


LPSTAT= 


000001 


EVNTBE= 


000200 


.' MAPSTA= 


000200 


EVNTHD= 


000200 


. MED 


076600 . 


EVNTKT= 


000203 


MEMPAS= 


040000' 


EVNTPE= 


000202 


MODEXH= 


004000 


EVNTRE= 


000201 . 


MODHOL= 


002000 


FATERR= 


100000 ' 


MODSEL= 


00 1000 


HRDCNT= 


000044 


MSGCKD=' 


000010 


HRDPAS= 


000050 


MSGCKS= 


00001 1 


ICONT = 


000036 


MSGDE.R = 


000005 


ICQUNT= 


000040 


MSGDRP= 


000017 


IDNUM = 


000122 


MSGECH= 


177777 


IE 


000100 


MSGEOP = . 


000013 


INDPAR= 


000040 


MSGHDR= 


000004 


INHDRP= 


040000 


MSGHNG= 


000022 


INHEPR= 


020000 


MSGHRD= 


000007 


INHREL= 


001000 


MSGMAP= 


000021 


INHRRE= 


000400 


MSGNUL= 


177775 


INIT = 


000030 


MSGPOP= 


000002 


INTR = 


000120 


MSGPRM= 


177775 


IOMDD = 


100000 


MSGRES= 


000001 


IOMODP= 


102000 


MSGSFT= 


000005 


IOMODR= 


1 12000 


MSGSKE= 


000003 


IOMODX= 


110000 


MS GSM 3= 


000015 


JACK = 


035060 


MSGSMH= 


000014 


KIPAR0= 


172340 


MSGSMS= 


000016 


KIPAR1= 


1 72342 


MS:GSTO.= 


oooooo- 


KIPAR2= 


172344 


MSGSYS= 


000012 


KIPAR3= 


172346 


MSGVEC= 


000020 


KTPAR4= 


172350 


NBKMOD= 


001000 


KIPAR5= 


172352 


NCPUOP= 


000020 


KIPAR6= 


172354 


NOAPTY= 


000002 


KIPAR7= 


172356 


NULL = 


OOOOOO 


KIPDR0= 


172300 


OWEN = 


024020 


KIPDR1= 


172302 


PAERR = 


000010 


KIPDR2= 


172304 


PARPRE= 


002000 


KIPDR3= 


172306 


PARSTA= 


000100 


KIPDR4= 


172310 


PASCNT= 


000034 


KIPDR5= 


172312 


PDPLSI= 


020000 


KIPDR6= 


172314 


PDP60 = 


004000 


KIPDR7= 


172316 


PDP70 = 


010000 


KKTOFF 


000040RG 


PRIO = 


OOOOOO 


KKTON 


000030RG 


PRI1 = 


000040 


KTERRO= 


000040 


PRI4 = 


000200 


KTPRES= 


000400 


PRI5 = 


000240 


KTROU 


000046R 


PRI6 = 


000300 


KTSTAT= 


000020 


PRI7 = 


000340 


KTXTND= 


040000 


PRO 


OOOOOO 



PR4 

PR5 = 

PR6 

PR7 

PS 

PSW 

RANNUM= 

R3UFEA= 

RBUFPA= 

RBUFSZ= 

R3UFVA= 

ROSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

REL7IM= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBOUT= 

RUNMOD= 

R5VALU= 

SAM 

5BADR = 

SdKMOD= 

S3KSEL= 

SC.ADR= 

SC. ALC= 

SC.APC= 

SC..CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

S£NDLS= 

SOFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 = 

SVR2 = 



000200 
000240 
000300 
000340 
177776 
177776 
000054 
000130 
000125 
000132 
000124 
000101 
000022 
000020 
020000 
010000 
000055 
000060 
031060 
002000 
000112 
000177 
100000 
001740 
075464 
000102 
OOOOOO 
010000 
000006 
000014 
000016 
000002 
000004 
OOOOOO 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 
000027 
000001 
000062 
000064 
000066 
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SEO 0685 



SVR3 = 


000070 


UIPDR6= 


177614 


SVR4 = 


000072 


UIPDR7= 


177616 


SVR5 = 


000074 


WASADR= 


000104 


SVR6 = 


000076 


WBSTAT= 


000040 


SYSCNT= 


000052 


WBUFEA= 


000136 


CVQPDD- 


0001 00 


WBUFPA= 


000134 


TMPIO = 


000002 


WBUFRQ= 


000140 


TQOVF = 


000002 


WBUFSZ= 


000142 


UIPAR0= 


177640 


WDFR = 


0001 16 


UIPAR1= 


177642 


WDTO = 


000114 


UIPAR2= 


177644 


WTINRE= 


000352 


UIPAR3= 


177646 


WTWHMI= 


000222 


UIPAR4= 


177650 


XFLAG = 


000005 


UIPAR5= 


177652 


XOFF = 


000023 


UIPARS= 


177654 


XON 


000021 


UIPAR7= 


177656 


$BGNLE= 


177777 


UIPDR0= 


177600 


$ERFLG= 


000400 


UIPDR1= 


177602 


$F$AND= 


000310 


UIPDR2= 


177604 


$FSBAD= 


000401 


UIPDR3= 


177606 


SF$BLA= 


000170 


UIPDR4= 


177610 


$F$CAS= 


000150 


UIPDR5= 


177612 


$F$DEC= 


000220 


. ABS. 


000000 000 
000270 001 





$F$DO = 
$F$FAL= 
$F$GOO= 
SFSIF = 
$FSINC= 
$FSLOO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
SF$THE= 
$F$TRU= 
$F$UNT= 
$FSWHI= 
$F$YES= 
$IFLEV= 
$ISK0 = 
$ISK1 = 
$ISK2 = 
$ISK3 = 



000340 
000405 
000400 
000110 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 
000001 
000001 
000001 
000001 



SISK4 = 
$LOCTA= 
$LSTIN= 
$LSTTA= 
$MESTL= 
SNSKO = 
$NSK1 = 
SNSK2 = 
SNSK3 = 
$NSK4 = 
$NSK5 = 
$SAVLE= 
STAGLE= 
$TAGNU= 
$TEMP = 
$TSK0 = 
$TSK1 = 
STSK2 = 
STSK3 = 
$TSK4 = 
$$ARGC= 
$SBYTE= 



000001 
177777 
000001 
000001 
177777 
000300 
000110 
000110 
000110 
000110 
000110 
177777 
177777 
050014 
000300 
050013 
050012 
05001 1 
050007 
050010 
000004 
000403 



$$CASE= 
SSDST = 
$SELQC= 
$SERFL= 
$$FLAG= 
$$FROM= 
SSLOC = 
SSLOCN= 
SSREG = 
$$RETU= 
$$RTN1= 
$SRTN2= 
$$SRC = 
$STGSV= 
$STGS1= 
$STGS2= 
$$T0 = 
$$$TAG= 



000000 

000000 

000402 

000000 

000001 

000001 

000214R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

OOOOQO 

000001 

050000 

000270R 



ERRORS DETECTED: 

DEFAULT GLGBALS GENERATED: 

DSKZ: KTONOF f DSKZ: KTONOF=SPMAC/ML, EQUATE, KTONOF 
RUN-TIME: 14 5 .4 SECONDS 
RUN-TIME RATIO: 54/20=2.6 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 2Q-SEP-78 
EQUATE. MAC 13-SEP-78 16:13 



18:06 

TABLE OF CONTENTS 



SEQ 06S6 



3 
529 
532 
562 
613 



COMMON EQUATE MODULE 

COMMON DEFINITIONS AND REFERENCES FOR LPONOF 
000000' .PRINT ;SPMAC: VERSION 1 

KLPON PROCESS THE 'LPON' KEYBOARD COMMAND 
KLPOFF PROCESS THE 'ROTOF' KEYBOARD COMMAND 
KLPON ROUTINE 



LPONOF 
LPONOF 

508 
509 
510 
511 
512 
51 ° 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 



PROCESS THE ' LPGN' AND 'LPOFF' KEYBOARD COMMANDS 
-MAC 28-JUL-78 09:22 COMMON EQUATE MODULE 



MACY11 30A(1052) 20-SEP-78 18:06 PAGE 19 



SEQ 0687 



TITLE LPONOF PROCESS THE ' LPON ' AND 'LPOFF' KEYBOARD COMMANDS 
IDENT /VO.O/ 



++ 
MODULE PACKAGE NAME: 
LPONOF 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE CONSISTS OF TWO MODULES: 

1. KLPON - PROCESS THE KEY50ARD COMMAND 'LPON' 

2. KLPOFF - PROCESS THE KEYBOARD COMMAND 'LPOFF' 

VERSION: 
0.0 



EDIT 



BY 



DATE 



REASON 



000000 ' 
000000 1 



000001 
000001 



LPONOF PROCESS THE ' LPON ' AND 
LPONOF.MAC 28-JUL-78 09:22 



529 
530 
531 
532 
(D 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 



LPOFF' KEYBOARD COMMANDS MACY1 1 30A(1052) 20-SEP-78 18:06 PAGE 19-1 
COMMON DEFINITIONS AND REFERENCES FOR LPONOF 

.SBTTL COMMON DEFINITIONS AND REFERENCES FOR LPONOF 

.MCALL STRUCT 
STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

SLSTTAG = 1 

REFERENCED BY OTHER MODULES: 



GLOBL KLPON 
GLOBL KLPOFF 

GLOBAL REFERENCES: 

GLOBL CM.ARG 
GLOBL ARGCHK 
GLOBL LPINT 



;'LPON' MODULE ENTRY POINT 
;' LPOFF' MODULE ENTRY POINT 



; ILLEGAL ARGUMENT MESSAGE 
; CHECK AN ARGUMENT 
;LP INTERRUPT ROUTINE 



556 

557 
558 
559 
560 



000000 
000006' 
000007 ' 



050114 
000 
114 



000014' 022506 



000017' 



000 



LOCAL STORAGE: 

047440 022516 LP.MGN: .ASCIZ /LP CN%/ 

043117 LP.MGF: .ASCIZ /LPOFF%/ 

LP.FLG: .BYTE 
.EVEN 



020120 
000 



;ON/OFF FLAG BYK 



SEQ 0683 



LPONOF PROCESS THE ' LPCN ' AND 'LPQFF' KEYBOARD COMMANDS MACY11 30A(1052) 20-SEP-78 

LPONQF.MAC 28-JUL-78 09:22 KLPON PROCESS THE 'LPON 1 KEYBOARD COMMAND 
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SEQ C689 



562 
563 
564 
565 
566 
56? 
563 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 



PROCESS THE 'LPON' KEYBOARD COMMAND 



SBTTL KLPON 
■IDENT /V0.0/ 

++ 
MODULE NAME: 
KLPON 



FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PROCESSES THE 'LPON' KEYBOARD ROUTINE. 

IT WILL FIRST VERIFY THAT NO ARGUMENT APPEARS 

IN THE COMMAND DECODE BUFFER. IF AN ARGUMENT IS IN THE 

BUFFER, AN ERROR MESSAGE IS ISSUED. OTHERWISE, 

THE LP ON/OFF STATUS BIT IN THE STATUS 

INDICATOR IS SET. 



INPUTS: 



1 . ADDRESS OF DTABLE 

2. COMMAND DECODE BUFFER POINTER 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

r\r i/ n rs C* ft 

U i * r\ur*or 

DT.STC 

PATHOLOGICAL CONNECTIONS: 

LPINT ROUTINE, LOC. 200 AND 202 
CM.ARG 

SUBORDINATE ROUTINES CALLED: 

ARGCHK - CHECK FOR UNWANTED ARGUMENTS 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL KLPON IN <DTADR , BUFPTR> 
WHERE: DTADR = ADDRESS OF DTA3LE 

BUFPTR = COMMAND DECODE BUFFER POINTER 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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18:06 PAGE 19-3 



SEQ 0690 



613 
614 
515 
616 
617 
618 
619 
620 
621 
622 
623 
S24 
625 
626 
627 
523 
629 
630 
631 
632 
633 
634 
635 
635 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 



,SBTTL KLPOFF PROCESS THE 'ROTOF' KEYBOARD COMMAND 
IDENT /V0.0/ 

++ 
MODULE NAME: 
KLPOFF 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PROCESSES THE 'LPOFF' KEYBOARD ROUTINE. 

IT WILL FIRST VERIFY THAT NO ARGUMENT APPEARS 

IN THE COMMAND DECODE BUFFER. IF AN ARGUMENT IS IN THE 

BUFFER, AN ERROR MESSAGE IS ISSUED. OTHERWISE, 

THE LP ON/OFF STATUS BIT IN THE STATUS 

INDICATOR IS CLEARED. 

INPUTS: 

1 . ADDRESS OF DTABLE 

2. COMMAND DECODE BUFFER POINTER 

3. ADDRESS OF COMMAND RESPONSE BUFFER 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.KBRSP 
DT.STO 

PATHOLOGICAL CONNECTIONS: 
CM.ARG 

SUBORDINATE ROUTINES CALLED: 

ARGCHK ~ CHECK FOR UNWANTED ARGUMENTS 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL KLPOFF IN <DTADR , BUFPTR> 
WHERE: DTADR = ADDRESS OF DTABLE 

3UFPTR = COMMAND DECODE BUFFER POINTER 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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663 








664 








665 








666 


000020' 






(2) 


000020' 






66? 








668 








669 








670 








671 








672 


000020' 






(4) 


000020' 


105067 


177773 


673 


000024' 






(2) 


000024' 


000404 




674 


000026' 






(3) 


000026' 






(3) 


000026' 






(2) 


000026' 


000207 




675 








676 








677 


000030' 






(2) 


000030' 






678 








679 








680 








681 








682 








583 


000030' 






(4) 


000030' 


112767 


000001 


684 








685 








686 








687 








688 








689 


000036' 






(2) 


000036' 






690 


000036' 






(2) 


000036' 


010046 




(3) 


000040' 


010146 




691 


000042' 






(4) 


000042' 


016500 


000000 


692 


000046' 






(4) 


000046' 


016501 


000002 


693 








694 








695 








696 








697 








698 








699 


000052' 






(4) 


000052' 


162705 


000002 


(3) 


000056' 


01 0546 




(4) 


000060' 


010145 




(3) 


000062' 


004767 


0OO000G 


(3) 


000066' 


012605 




(4) 


000070' 


012501 





LPOFF' KEYBOARD COMMANDS 
KLPON ROUTINE 

.SBTTL KLPON ROUTINE 
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SEQ 0691 



KLPON: 



50000$: 
50001$: 



KLPOFF: 



177761 



ROUTINE KLPON <DTADR, BUFPTR> 

SET ON FLAG 

LET LP.FLG : B= #0 
INLINE <BR LPROU> 
ENDRTN 

ROUTINE KLPOFF <DTADR, B'JFPTR> 

SET OFF FLAG 
LET LP.FLG : B= #1 



INITIALIZE AND SAVE DTABLE ADDRESS AND DECODE BUFFER POINTER 

INLINE <LPROU:> 
PUSH R0,R1 

LET RO := DTADR(R5) 
LET R1 := BUFPTR(R5) 

h 

MAKE SURE NO ADDITIONAL ARGUMENTS ARE IN DECODE BUFFER 
CALL ARGCHK IN <R1> OUT <R1> 



CLR3 LP.FLG 
BR LPROU 



RTS 



PC 



MOVB #1, LP.FLG 



LPROU : 

MOV R0,-(SP) 

MOV R1,-(SP) 

MOV DTADR(R5),R0 

MOV BUFPTR(R5),R1 



SUB 


#1*2, R5 


MOV 


R5,-(SP) 


MOV 


R1 ,~(R5) 


JSR 


PC, ARGCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+, R1 



000072' 

000072' 103404 
000074' 
000074' 012760 



O0O000G 000022 



000102' 
000102' 
000104' 



ELSE 



000426 



000104' 

000104' 105767 
000110' 001015 



177707 
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700 
701 
702 
703 
704 
705 
706 
707 
(6) 
708 
(4) 
709 
710 
(4) 
(3) 
711 
712 
713 
714 
715 
716 
(6) 

(9) 
717 
716 
719 
720 
721 
722 
(5) 
723 
(4) 
724 
(4) 
725 
(4) 
726 
727 
(4) 
(3) 
728 
729 
730 
731 
732 
733 
(6) 
734 
(4) 
735 
(4) 
736 
(4) 
737 
738 
739 
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THERE IS NO <CR> YET SO IT'S A BAD COMMAND. .. STUFF ERRGR 
MESSAGE AND BEAT IT 



IF. NO. ERROR THEN 



LET DT.KBRSP(RO) := #CM.ARG 



3CS 
MOV 

BR 



50002$: 



NOW DETERMINE IF LPON OR LPOFF COMMAND 



IFB LP.FLG EQ #0 THEN 



SET THE LPSTAT BIT 

IN DT.STO...AND LOAD UP INTERRUP ROUTINE 



TSTE 
BNE 



000112' 

000112' 052760 000001 000010 

000120' 

000120' 012737 OOOOOOG 000200 

000126' 

000126" 012737 000040 000202 

000134' 

000134' 012760 000000' 000022 

000142' 

000142' 000406 
000144' 



0C0144' 

000144' 042760 000001 000010 

000152' 

000152' 012760 000007' 000022 



LET DT.STO(RO) := DT.STO(RO) SET. BY #LPSTAT 

LET @#200 := #LPINT 

LET @#202 := #PRI1 

LET DT.KBRSP(RO) := #LP.MGN 



ELSE 



BIS 
MOV 
MQV 
MOV 

BR 



50004$: 



CLEAR THE LPSTAT BIT IN DT.STO 



LET DT.STO(RO) := DT.STO(RO) CLR.3Y #LPSTAT 
LET DT.KBRSP(RO) := #LP.MGF 



000160' 
000160' 
000160' 
000160' 



ENDIF 



ENDIF 



; + 



SEQ 0692 



50002$ 
#CM.ARG,DT.KBRSP 

50003$ 



LP.FLG 
50004$ 



#LPSTAT,DT.ST0(R 
#LPINT,@#200 
#PRI1 ,©£202 
#LP.MGN,DT.KBRSP 

50005$ 





EIC 


#LPSTAT,DT.ST0(R 




MOV 


#LP.MGF,DT.KBRSP 


50005$: 






500C3S: 







CLEAN UP AND LEAVE 
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AND 
22 



LPOFF 1 



KEYBOARD COMMANDS 
KLPON ROUTINE 
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SEQ 0693 



740 






741 






742 


000160' 




(2) 


000160' 


012601 


(3) 


000162' 


012600 


743 






744 






745 


000164' 




(3) 


000164' 




(3) 


000164' 




(2) 


000164' 


000207 


746 




000001 



POP Rl ,R0 



ENDRTN 



50000$: 
50001$: 



MOV 
MOV 



RTS 



(SP)+,R1 
<SP)+,RO 



PC 



END 



LPONOF PROCESS THE 'LPON 1 AND 
LPONOF.MAC 28-JUL-78 09:22 



LPOFF' KEY30ARD COMMANDS 
SYMBOL TABLE 



MACY11 30A(10S2) 20-SEP-7B 18:06 



ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ARGCHK= 


****** 


ASB 


000106 


ASSEMBs 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


0001 10 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BITi i = 


0040G0 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BITS = 


000100 


3IT7 = 


000200 


BIT8 = 


000400 


BIT9 . = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


BUFPTR= 


000002 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CM.ARG= 


****** 


CONFIG= 


000056 


CQOVF = 


000001 



CR 

CSRA = 

CSRC = 

CTRLC = 

CTRLO = 

CTRLU = 

DCEVNT= 

DEFRTN= 

DIAGMC= 

DROPMO= 

DSEVNT= 

DTADR = 

DT.ADD= 

DT.AP = 

DT.APK= 

DT.BLS= 

DT.CFO; 

DT.CF1= 

DT,.ERR = 

DT.ESI= 

DT.EVN= 

DT.EXS= 

DT.FCH= 

DT.FCN= 

DT.HMX= 

DT.KBE= 

DT . KBP = 

DT.KBR= 

DT.KBU= 

DT.MLS = 

DT.MTI= 

DT.OFF = 

DT.PAS= 

DT.PC = 

DT.PFL = 

DT.PSW= 

DT.PTA= 

DT.RCS= 

DT.REL = 

DT.SCT= 

DT.SMX= 

DT.SP = 

DT.SSI= 

DT.STO= 

DT.ST1= 

DT.SWR= 

DT.SYP= 

DT.W5U= 

DT.WHL = 

DT.WLL= 

DVID1 = 

ECCMEM= 

ECCSTA= 



000015 
000100 
000102 
000003 
000017 
000025 
000011 
000400 
000000 
100000 
000014 
000000 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 

n n a r\ r\ a 

O0GO22 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 



ENBEOP= 

ENBNUL= 

ENDLST= 

EOPBIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPRs 

INHREL= 

INHRRE= 

INIT = 

INTR = 

IOMOD = 

IOMODP= 

TOMnriD; 

IGMODX= 

JACK = 

KIPAR0= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDR0= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KLPOFF 

KLPON 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPINT = 



010000 

000001 

000000 

000001 

000106 

000200 

000200 

000203 

000202 

000201 

100000 

000044 

000050 

000036 

000040 

000122 

000100 

000040 

040000 

020000 

001000 

000400 

000030 

000120 

100000 

102000 

112000 

110000 

035060 

172340 

172342 

172344 

172346 

172350 

172352 

172354 

172356 

172300 

172302 

172304 

172306 

172310 

172312 

172314 

172316 

000030RG 

000020RG 

000040 

000400 

000020 

040000 

000012 

****** Q 



iPROU 

LPSTAT= 

LP.FLG 

LP.MGF 

LP.MGN 

MAPSTA= 

MED 

MEMPAS= 

MOD'EXH= 

MODHOL= 

MODSEL= 

MSGCKD= 

MSGCKS= 

MSGDER= 

WISGD-RP- 

MSGECH= 

MSGEOP= 

MSGHDR= 

MSGHNG= 

MSGHRD= 

MSGMAP= 

MSGNUL= 

MSGPOP= 

MSGPRM= 

MSGRES= 

MSGSFT=: 

MSGSKE= 

MSGSMB= 

MSGSMH= 

MSGSMS= 

MSGSTD= 

MSGSYS= 

WlSGVEC= 

N3KM0D= 

NCPUGP= 

NOAPTY= 

NULL = 

OWEN = 

PAERR = 

PARPRE= 

PARSTA= 

PASCNT= 

PDPLSI= 

PDP60 = 

PDP70 = 

PRIO = 

PRI1 = 

PRI4 = 

PRI5 = 

PRI6 = 

PRI7 = 

PRO 

PR4 = 



000036R 

000001 

00001 7S 

000007R 

OOOOOOR 

000200 

076600 

040000 

004000 

002000 

001000 

000010 

000011 

000005 

000017 

177777 

000013 

000004 

000022 

000007 

000021 

177775 

000002 

177776 

000001 

000C06 

000003 

000015 

000014 

000016 

000000 

000012 

000020 

001000 

000020 

000002 

000000 

024020 

000010 

002000 

000100 

000034 

020000 

004000 

010000 

000000 

000040 

000200 

000240 

000300 

000340 

000000 

000200 



E 20 




SEC 0694 


PR5 = 


000240 




PR6 


000300 




■PR7 


000340 




PS 


177776 




PSW 


177776 




RANNUM= 


000054 




R3UFEA= 


000130 




RBUFPA= 


000126 




R3UFS2= 


000132 




RBUFVA= 


000124 




RDSERV= 


000101 




RDWHMI= 


000022 




REL£RR= 


000020 




RELMOD= 


020000 




RELTIM= 


010000 




RES1 = 


000056 




RES2 = 


000060 




RICHAR= 


031060 




RPTDAT= 


002000 




RSTRT = 


000112 




RU30UT= 


000177 




RUNMOD= 


100000 




R5VALU= 


001740 




SAM 


075464 




S3ADR = 


000102 




SBKMOD= 


000000 




S9KSEL= 


010000 




SC.ADR= 


000005 




SC.ALC= 


000014 




SC.A'PC = 


000016 




SC.CKL= 


000002 




SC.CKP= 


000004 




SC.CL0= 


000000 




SC.HLD= 


000010 




SC.SCA= 


000012 




SENDLS= 


177777 




SOFCNT= 


000042 




S0FPAS= 


000046 




SPACE = 


000040 




SPOINT= 


000032 




SPVALU= 


002200 




SRO 


177572 




SR1 


177574 




SR2 


177576 




SR3 


172516 




STAT = 


000026 




STATBI= 


064757 




STAT1 = 


000027 




SUSPND= 


000001 




SVRO = 


000062 




SVR1 = 


000064 




SVR2 = 


000066 




SVR3 = 


000070 
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$F$BLA = 
$FSCAS= 
$F$DEC= 
SFSDO = 
$F$FAL= 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NQ = 
$F$OR = 
$FSRTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 
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SEO 0695 



SVR4 = 


000072 




UIPDR5= 


177612 


SVR5 = 


000074 




UIPDR6= 


177614 


SVRS = 


000076 




UIPDR7= 


177616 


SYSCNT= 


000052 




WASADR= 


000104 


SYSERR= 


000100 




WBSTAT= 


000040 


TMPIO a 


000002 




WBUFEA= 


000136 


TQOVF = 


000002 




W3UFPA= 


000134 


UIPAR0= 


177640 




W3UFRQ= 


000140 


UIPAR1= 


177642 




WBUFSZ= 


000142 


UIPAR2= 


177644 




WDFR = 


000116 


UIPAR3= 


177646 




WDTO = 


000114 


UIPAR4= 


177650 




WTINRE= 


000352 


UIPAR5= 


177652 




WTWHMI= 


000222 


UIPAR6= 


177654 




XFLAG = 


000005 


UIPAR7= 


177656 




XOFF = 


000023 


UIPDR0= 


177600 




XON 


000021 


UIPDR1= 


177602 




$BGNLE= 


177777 


UIPDR2= 


177604 




$ERFLG= 


000400 


UIPDR3= 


177606 




$F$AND= 


000310 


UIPDR4= 


177610 




$F$BAD= 


000401 


. ABS. 


000000 
000166 


000 
001 







000170 
000150 
000220 
000340 
000405 
000400 
0001 10 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 



$IFLEV= 
$ISKO = 
$ISK1 = 
$LOCTA= 
$LSTIN= 
$LSTTA= 
$NESTL= 
SNISKO = 
$NSK1 = 
$NSK2 = 
$SAVLE= 
$TAGLE= 
STAGNU= 
$TEMP = 
$TSKO = 
STSK1 = 
$$ARGC= 
$SBYTE= 
$$CASE= 
S$DST = 



177777 

000001 

000001 

177777 

000001 

000001 

i 77777 

000300 

000110 

000110 

177777 

177777 

050006 

000300 

050003- 

050005 

000004 

000402 

000000 

000000 



$$ELOC= 
$$ERFL= 
$$FLAG= 
$$FROM= 
$$LOC = 
$$LOCN = 
$$REG = 
$$RETU= 
$$RTN1= 
$SRTN2= 
$SSRC = 
$$TGSV= 
$$TGS1= 
$STGS2= 
$STO = 
$SSTAG= 



000402 

000000 

000001 

000001 

0001 10R 

000000 

1 77777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000001 

050000 

000166R 



ERRORS DETECTED: _0 

DEFAULT GLUBALS GENERATED: 

QSKZ:LPONOF t DSKZ: LPONOF=SPMAC/ML , EQUATE T LPONOF 
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MAC 



28-JUL-78 09:22 



COMMON EQUATE MODULE 

.TITLE LSTCHK CHECK MODULES TO DETERMINE IF ALL HAVE MADE END OF PASS 
•IDENT /VO.O/ 

++ 
MODULE PACKAGE NAME: 
LSTCHK 

FUNCTIONAL DESCRIPTION: 

THIS MODULE PACKAGE CONTAINS TWO ROUTINES: 

1 . CHKEO? - CHECK FOR END-OF-PASS 

2. CHKACT - CHECK ALL MODULES INACTIVE 

VERSION: 
0.0 



SEQ 0697 



EDIT 



DATE 



BY 



REASON 



LSTCHK 
LSTCHK 

528 
529 
530 
531 
(1) 
532 
533 
534 
535 
536 
537 
533 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
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.SBTTL COMMON DEFINITIONS AND REFERENCES FOR lSTCHK 



SEO 0698 



000000 ' 
000000 



000001 
000001 



.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

SLSTTAG=1 

$lSTIN=1 

REFERENCED BY OTHER MODULES: 



GLOBL CHKEOP 
GLOBL CHKACT 

GLOBAL REFERENCES: 

GLOBL SAVREG 
GLOBL RESREG 

>|c:jc3je>)c:f!$>|t:jc3iciic3jc$3|c:|c3|c$ 



;MODULE ENTRY POINT 
JMODULE ENTRY POINT 
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SEO 0699 



553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 



.SBTTL CHKEOP CHECK THAT ALL MODULES HAVE DONE END OF PASS 
.IDENT /VO.O/ 



MODULE NAME: 
CHKEOP 

FUNCTIONAL DESCRIPTION: 

THIS MODULE IS CALLED TO CHECK END OF PASS CONDITION 

OF ALL MODULES. IF ALL MODULES HAVE MADE END OF PASS 

AT THIS RELOCATION, A RETURN NO ERROR OCCURS. IF 

ONLY BACKGROUND MODULES ARE CONFIGURED, ONLY 

ONE MUST COMPLETE END OF PASS FOR THE RETURN NO ERROR 

CONDITION 

INPUTS: 

DTABLE 

IMPLICIT INPUTS: 
DT.MLST 
DT.BLST 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
SAVREG 
RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL CHKEOP IN <DTADR> 

WHERE DTADR IS DATA TABLE ADDRESS 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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.SBTTL CHKEOP ROUTINE 

ROUTINE CHKEOP <DTADR> 

CHKEOP: 



SAVE REGISTERS AND GET DTABLE ADDR AND MODULE LIST 
CALL SAVREG 
LET RO := DTADR(R5) 
LET R1 := DT.MLST(RO) 

INIT COUNTERS 

LET R3 := #0 

LET R4 := #0 



SEQ 0700 



603 








604 








605 


000000' 






(2) 


000000' 






606 








607 








608 








609 








610 








611 


oooooo 1 






(3) 


000000' 


004767 


OOOOOOG 


612 


000004' 






(4) 


000004' 


016500 


OOOOOO 


613 


000010' 






(4) 


000010' 


016001 


000032 


614 








615 








616 








617 








618 








519 


000014' 






(4) 


000014' 


005003 




620 


000016' 






(4) 


000016' 


005004 




321 








622 








523 








624 








625 








526 








627 




- 




628 








529 








630 


000020' 






(4) 


000020' 






(6) 


000020' 


021127 


OOOOOO 


(9) 


000024' 


001430 




(6) 


000026' 


020160 


000034 


(9) 


000032' 


001425 




631 


000034' 






(4) 


000034' 


012102 




532 


000036' 






(6) 


000036' 


032762 


040000 000026 


(9) 


000044' 


001417 




(6) 


000046 ' 


032762 


020000 000026 


(9) 


000054' 


001013 




633 


000056' 






(6) 


000056' 


005204 




634 


000060' 






(6) 


000060 s 


032762 


004000 000026 


(9) 


000066' 


001406 




635 


000070 ' 






(6) 


000070' 


005203 




636 


000072' 






(6) 


000072' 


132762 


000001 000005 


(9) 


000100' 


001001 





JSR 
MOV 
MOV 



CLR 
CLR 



WHILE NOT AT END OF LIST AND NOT AT END OF IOMOD LIST, 

GET A MODULE HEADER ADDRESS. IF THE MODULE IS SELECTED AND NOT 

DROPPED, INCREMENT COUNT IN R4. IF, IN ADDITION, IT IS 

ACTIVE, INCREMENT R3 COUNT. IF ACTIVE, CHECK EOP BIT - IF SET 

CONTINUE TO NEXT MODULE. IF NOT SET - RETURN ERROR - CAN'T RELOCATE, 



WHILE (R1) NE #ENDLST AND R1 NE DT.BLST(RO) DO 



50002$: 



LET R2 := (R1 )+ 



CMP 
BEQ 
CMP 
BEQ 

MOV 

IF #BIT14 SETIN STAT(R2) AND #BIT13 NOTSETIN STAT(R2) THEN 

BIT 
BEQ 
BIT 
BNiE 



LET R4 := R4 + #1 

IF #ACTBIT SETIN STAT(R2) THEN 

LET R3 := R3 + #1 

IFB #EOPBIT NOTSETIN XFLAG(R2) THEN 



INC 

EIT 
BEQ 

INC 

BITE 
BNE 



PC, SAVREG 
DTADR(R5) ,R0 
DT.MLST(RO) ,R1 



R3 
R4 



(R1 ),#ENDLST 

50003$ 

R1 ,DT.BLST(RO) 

50003$ 

(RU + .R2 

#BIT14,STAT(R2) 
50004$ 

#BIT13,STAT(R2) 
50004$ 

R4 

#ACTBIT,STAT(R2) 
50005$ 

R3 

#E0PBIT,XFLAG(R2 
50006$ 
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SEQ 0701 



637 


000102' 




(2) 


000102 1 


000443 


638 


000104' 




(4) 


000104' 




639 


000104' 




(4) 


000104' 




640 


000104 s 




(4) 


000104' 




641 


0001 04 : 




(4) 


000104' 


000745 


(3) 


000106' 




642 






643 






644 






645 






646 






647 






648 






649 






650 






651 






652 


000106' 




(6) 


0001 06* 


005703 


(9) 


0001 10' 


001026 


653 


000112' 




(4) 


000112' 




(6) 


nnm 1 o' 


021127 000000 


(9) 


0001 16' 


001422 


654 


000120' 




(4) 


000120' 


012102 


655 


000122' 




(6) 


000122' 


032762 040000 000026 


(9) 


000130' 


001414 


(6) 


000132' 


032762 020000 000026 


(9) 


000140' 


001010 


656 


000142' 




(6) 


000142' 


005203 


657 


000144' 




(6) 


000144' 


132762 000001 000005 


(9) 


000152' 


001403 


658 


000154' 




(3) 


000154' 


004767 OOOOOOG 


659 


000160' 




(4) 


000160' 


000420 


660 


000162' 




(4) 


000162' 




661 


000162' 




(4) 


000162' 




662 


000162' 




(4) 


000162' 


000753 


(3) 


000164' 




663 


000164' 




(4) 


000164' 


000403 


(3) 


000166' 




664 






665 







1INLJ.NC VDK 



BR 



1$ 



ENDIF 



ENDIF 



ENDDO 



50006$: 
50005$: 
50004$: 

50003$: 



BR 



50002$ 



IF R3 IS ZERO... .WE HAVE NO ACTIVE IOMODS - SEE IF WE HAVE ANY 3KM0DS 

THAT HAVE DONE EOP. IF ONE HAS, IT'S O.K. TO RELOCATE' SO 

RETURN NO ERROR. IF # IOMODS ACTIVE IS NOT ZERO AND WE GOT THIS 

FAR, WE CAN DEFINITELY RELOCATE (THE ELSE SIDE) RETURN 

NO ERROR 



IF R3 EQ #0 THEN 

WHILE (R1) NE #ENDLST DO 

LET R2 := (R1)+ 



500103: 



TST 
BNE 



CMP 
BEQ 

MOV 



R3 
50007$ 



(R1 ) ,#ENDLST 
5001 1$ 

(R1 )+,R2 



IF 0BIT14 SETIN STAT(R2) AND #BIT13 NOTSETIN STAT(R2) THEN 

BIT #BIT14,STAT(R2) 



LET R3 := R3 + #1 

IFB #EOPBIT SETIN XFLAG(R2) THEN 

CALL RESREG 
RETURN NO. ERROR 



ENDIF 



ENDIF 



ENDDO 



ELSE 



;+ 



50013$: 
50012$: 

50011$: 

50007$: 



BEQ 
BIT 
BNE 

INC 

BITS 
BEQ 

JSR 

BR 



BR 



BR 



50012$ 

#BIT13,STAT(R2) 

50012$ 

R3 

#E0PBIT,XFLAG(R2 
50013$ 

PC, RESREG 

50000$ 



50010$ 
50014$ 
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SEQ 0702 



666 
667 
668 
669 
670 
(.3) 
S71 
(4) 
572 
(4) 
573 
674 
675 
676 
577 
678 
679 
680 
681 
682 
683 
684 
685 
685 
(5) 
(9) 
i u ^ 
(9) 
687 
(3) 
588 
(4) 
689 
(4) 
690 
691 
692 
693 
694 
695 
(2) 
696 
(3) 
697 
(2) 
(4) 
698 
699 
(3) 
(2) 
(3) 
(2) 
700 
701 



000166' 
000166' 
000172' 
000172' 
000174' 
000174' 



004767 OOOOOOG 



000413 



000174' 

000174' 005703 

000176' 001005 

a a a n A A I AnC7A/I 

U v u «£. V W V \J +j i \s ~r 



000202' 
000204' 
000204' 
000210' 
000210' 
000212' 
000212' 



000212' 
000212' 
000212' 
000212' 
000216' 
000216' 
000220' 

000222' 
000222' 
000222' 
000224' 
000224' 



001403 



004767 OOOOOOG 



000404 



004767 OOOOOOG 

000261 
000401 



000241 



000207 



THERE WAS AT LEAST ONE IOMOD ACTIVE. .. .SlNCh WE GOT THIS 
FAR, THE EOP BIT MUST HAVE BEEN SET IN ALL- SO RELOCATE.. 



CALL RESREG 
RETURN NO. ERROR 



USR 
BR 



PC, RESREG 
50000$ 



END IF 



50014$: 



IF WE EVER GET HERE !!!!!! THE SITUATION COULD 

BE THIS: THE NUMBER OF ACTIVE IOMODS IS ZERO. 

SO WE TRIED TO USE BACKGROUND EOP BITS AS RELOCATION CRITERIA AND 

COULDN'T - IF THERE ARE NO BACKGROUND MODULES SELECTED AND NOT DROPPED, 

(OR MAYBE NONE AT ALL (R3 WOULD BE 2ER0))THERE ARE IOMODS THAT 

ARE NOT CURRENTLY ACTIVE BUT COULD RUN SOMEPLACE ( R4 NE #0) 

THEN WE MAY AS WELL RELOCATE OVER AND OVER AGAIN IN HOPES OF FINDING 

A PLACE WHERE THEY CAN RUN . 



IF R3 EQ #0 AND R4 NE #0 THEN 



CALL RESREG 
RETURN NO. ERROR 



END IF 





TST 


R3 




BNE 


50015S 




TST 


R4 




BEQ 


50015$. 




JSR 


PC, RESREG 




BR 


50000$ 


50015S: 







IF WE GET HERE - WE SIMPLY ARE WAITING FOR A BACKGROUND TO EOP 

INLINE <1$:> 
CALL RESREG 
RETURN ERROR 



ENDRTN 



50000$: 



50001$: 



1$: 

JSR 

SEC 
BR 

CLC 
RTS 



PC, RESREG 
50001$ 

PC 



LSTCHK CHECK 
LSTCHK.MAC 

703 
704 
705 
70S 
707 
70S 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 

730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
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CHKACT CHECK FOR ACTIVE MODULES 

.SBTTL CHKACT CHECK FOR ACTIVE MODULES 
.IDENT /V0.0/ 

++ 
MODULE NAME: 
CHKACT 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE SIMPLY CHECKS ALL OPTION MODULES TO 
SEE IF THEY ARE ACTIVE 

INPUTS: 

ADDRESS OF DTABLE 

IMPLICIT INPUTS: 
DT.MLST 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 

1 . SAVREG 

2. RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL CHKACT IN <DT> 

WHERE DT = DTABLE ADDRESS 

VERSION: 
CO 



SEQ 0703 



EDIT 



DATE 



BY 



REASON 
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747 










748 










749 


000226' 








(2) 


000226' 








750 










751 










752 










753 










754 










755 










756 


000226' 








(3) 


000226' 


004767 


000000G 




757 


000232' 








(4) 


000232' 


016500 


000000 




758 


000236' 








(4) 


000236' 


016001 


000032 




759 










760 










761 










762 










763 










764 










765 


000242' 








(4) 


000242' 








(6) 


000242' 


021127 


000000 




(9) 


000246' 


001412 






•7CC 


r*r\nnc:r< ' 








1 uu 










(4) 


000250' 


012102 






767 


000252' 








(6) 


000252' 


032762 


004000 


000025 


(9) 


000260' 


001404 






768 


000262' 








(3) 


000262' 


004767 


OOOOOOG 




769 


000266' 








(2) 


000266' 


000261 






(4) 


000270' 


000405 






770 


000272' 








(4) 


000272' 








771 


000272' 








(4) 


000272' 


000763 






(3) 


000274' 








772 










773 










774 










775 










776 










777 


000274' 








(3) 


000274' 


004767 


000000G 




778 


000300' 








(4) 


000300' 


000400 






779 










780 


000302' 








(3) 


000302' 








(2) 


000302 : 


000241 






(3) 


000304' 








(2) 


000304' 


000207 
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.SBTTL CHKACT ROUTINE 

ROUTINE CHKACT <DTADR> 

CHKACTt 



SAVE REGISTERS AND GET DTABLE ADDR. AND ADDR. OF MODULE LIST 

CALL SAVREG 

LET RO := DTADR(R5) 

LET R1 := DT.MLST(RO) 



SEQ 0704 



JSR 
MOV 
MOV 



SEARCH LIST OF MODULES UNTIL END OR UNTIL AN ACTIVE 
BIT IS SET IN STAT WORD 



WHILE (R1) NE #ENDLST DO 

LET R2 := (R1 )+ 

IF 0ACTBIT SETIN STAT(R2) THEN 

CALL RESREG 
RETURN ERROR 



ENDIF 



ENDDO 



WE WENT ALL THE WAY THRU 

CALL RESREG 
RETURN NO. ERROR 

ENDRTN 



. GUESS NONE ACTIVE 



50000$: 



50001$: 



JSR 

3R 

CLC 
RTS 



PC, SAVREG 
DTADR(R5) , RO 
DT.MLST(RO) t R1 



50002S: 








CMP 


(R1 ) ,#ENDLST 




BEQ 


50003$ 




MOV 


(R1 )+,R2 




BIT 


#ACTBIT,STAT(R2) 




BEQ 


50004$ 




JSR 


PC, RESREG 




SEC 






BR 


50001$ 


50004$: 








BR 


50002$ 


50003$: 







PC, RESREG 
50000$ 



PC 
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781 

782 000001 .END 
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PAGE 20 



ACSR = 


000102 


CSRA = 


000100 


ACTBIT= 


004000 


CSRC = 


000102 


ADDR22= 


001000 


CTRLC = 


000003 


ADR 


000006 


CTRLO = 


000017 


APTFER= 


000004 


CTRLU = 


000025 


APTPRE= 


000200 


DCEVNT= 


000011 


ASB 


000106 


DEFRTN- 


s\ /\ r\ ji n n 

uuutuy 


ASSEMB= 


000010 


DIAGMC= 


000000 


ASTAT = 


000104 


DROPMO= 


100000 


AUTO = 


000010 


DSEVNT= 


000014 


AUTOST= 


020000 


DTADR = 


000000 


AWAS = 


0001 10 


DT.ADD= 


000042 


BITO = 


000001 


DT.AP = 


000100 


BITOO = 


000001 


DT.APK= 


000076 


BIT01 = 


000002 


DT. BLS= 


000034 


BIT02 = 


000004 


DT.CFO= 


000014 


BIT03 = 


000010 


DT.CF1= 


000016 


BIT04 = 


000020 


DT.ERR= 


000020 


BIT05 = 


000040 


DT.ESI= 


000044 


BIT06 = 


oootoo 


DT.EVN= 


000000 


BIT07 = 


000200 


DT.EXS= 


000060 


BIT08 = 


000400 


DT.FCH= 


000037 


BIT09 = 


001000 


DT.FCN= 


000036 


BIT1 = 


000002 


DT.HMX= 


000104 


BIT10 = 


002000 


DT.KBE= 


000024 


BIT11 = 


004000 


DT.KBP= 


000026 


BIT1 2 = 


01 0000 


DT.KBR= 


000022 


BIT13 = 


020000 


DT,KBU= 


000030 


BIT14 = 


040000 


DT.MLS= 


000032 


BIT15 = 


100000 


DT.MTI= 


000110 


BIT2 = 


000004 


DT.OFF= 


000070 


BIT3 = 


000010 


DT.PAS= 


000074 


BIT4 = 


000020 


DT.PC = 


000002 


BIT5 = 


000040 


DT.PFL= 


000062 


BITS = 


000100 


DT.PSW= 


000004 


BIT7 = 


000200 


DT.PTA= 


000064 


BITS = 


000400 


DT.RCS= 


000102 


BIT9 = 


001000 


DT.REL= 


000040 


BKDEF = 


000002 


DT.SCT= 


000056 


BKMOD = 


000020 


DT.SMX= 


000106 


BKMODE= 


040000 


DT.SP = 


000006 


BKSLSH= 


000134 


DT.SSI= 


000046 


CAPRES= 


000004 


DT.STO= 


000010 


CASTAT= 


000004 


DT.ST1= 


000012 


CDERCT= 


000146 


DT.SWR= 


000056 


CDWDCT= 


000144 


DT.SYP= 


000072 


CHKACT 


000226RG 


DT.WBU= 


000050 


CHKEOP 


OOOOOORG 


DT.WHL= 


000054 


CKTIM = 


100000 


DT.WLL= 


000052 


CLKPRE= 


000001 


DVID1 = 


000014 


CONFIG= 


000056 


ECCMEM= 


000100 


COOVF = 


000001 


ECCSTA= 


000010 


CR 


000015 


ENBEOP= 


010000 



ENBNUL= 


000001 


ENDLST= 


000000 


EOPBIT= 


000001 


ERRTYP= 


000106 


EVNTBE= 


000200 


EVNTHD= 


000200 


C\.<MTI/T = 


000203 


EVNTPE= 


000202 


EVNTRE= 


000201 


FATERR= 


100000 


HRDCNT= 


000044 


HRDPAS= 


000050 


ICONT = 


000036 


ICOUNT= 


000040 


IDNUM = 


000122 


IE 


000100 


INDPAR= 


000040 


INHDRP= 


040000 


INHEPR= 


020000 


INHREL= 


001000 


INHRRE= 


000400 


INIT = 


000030 


INTR = 


000120 


IOMOD = 


100000 


IOMODP= 


102000 


IOMODR= 


112000 


IOMODX= 


1 10000 


JACK = 


035060 


KIPARO= 


172340 


KIPAR1= 


172342 


KIPAR2= 


1 72344 


KIPAR3= 


172346 


KIPAR4= 


172350 


KIPAR5= 


172352 


KIPAR6= 


172354 


KIPAR7= 


172356 


KIPDRO= 


172300 


KIPDR1= 


172302 


KIPDR2= 


1 72304 


KIPDR3= 


172306 


KIPDR4= 


172310 


KIPDR5= 


172312 


KIPDR6= 


172314 


KIPDR7= 


172315 


KTERRO= 


000040 


KTPRES= 


000400 


KTSTAT= 


000020 


KTXTND= 


040000 


LF 


000012 


LPSTAT= 


000001 


MAPSTA= 


000200 


MED 


076600 


MEMPAS= 


040000 



i"v]ODEXH= 


004000 


MODHOL= 


002000 


MODSEL= 


001000 


MSGCKD= 


000010 


MSGCKS= 


00001 1 


MSGDER= 


000005 


MSGDRP= 


000017 


MSGECH= 


177777 


MSGEOP= 


000013 


MSGHDR= 


000004 


MSGHNG= 


000022 


MSGHRD= 


000007 


MSGMAP.= 


000021 


MSGNUL= 


177775 


MSGPOP= 


000002 


MSGPRM= 


177776 


MSGRES= 


000001 


MSGSFT= 


000006 


MSGSKE= 


000003 


MSGSMB= 


000015 


MSGSMH= 


000014 


MSGSMS= 


000016 


MSGSTD= 


000000 


MSGSYS= 


000012 


MSGVEC= 


000020 


NBKMOD= 


001000 


NCPUCP= 


000C20 


NDAPTY= 


00002 


NULL = 


000000 


OWEN = 


024020 


PAERR = 


00001 


PARPRE= 


002000 


PARSTA= 


000100 


PASCNT= 


000034 


PDPLSI= 


020000 


PDP60 = 


004000 


PDP70 = 


010000 


PRIO = 


000000 


PRI1 = 


000040 


PRI4 = 


000200 


PRI5 - 


000240 


PRI6 = 


000300 


PRI7 = 


000340 


PRO 


000000 


PR4 


000200 


PR5 


000240 


PR6 


000300 


PR7 


000340 


PS 


: 177776 


PSW 


177776 


RANNUM= 


000054 


RBUFEA= 


000130 


RBUFPA= 


000126 







SEQ 0706 


npi 1 ETC 7 — 


000132 




RBUFVA= 


000124 




RDSERV= 


000101 




RDIA/HMI = 


000022 




RELERR= 


000020 




RELMOD= 


020000 




RELTIM= 


010000 




RESREG= 


#*#*** Q 




RES1 = 


000056 




RES2 = 


000060 




RICHAR= 


031060 




RPTDAT= 


002000 




RSTRT = 


000112 




RUBOUT= 


000177 




RUNMOD= 


100000 




R5VALU= 


001740 




SAM 


075464 




SAVREG= 


****** Q 




S3ADR = 


000102 




SBKMOD= 


000000 




SBKSEL= 


010000 




SC.ADR= 


000006 




SC.ALC= 


000014 




SC.APC= 


000016 




SC.CKL= 


000002 




SC.CKP= 


000004 




SC.CLO= 


000000 




SC.hLD= 


OOOO'i 




SC.SCA= 


000012 




SENDLS= 


177777 




SOFCNT= 


000042 




SOFPAS= 


00004S 




SPACE = 


000040 




SPOINT= 


000032 




SPVALU= 


002200 




SRO 


177572 




SR1 


177574 




SR2 


177576 




SR3 


172516 




STAT = 


000026 




STATBI= 


064757 




STAT1 = 


000027 




SUSPND= 


000001 




SVRO = 


000062 




SVR1 = 


000064 




SVR2 = 


000066 




SVR3 = 


000070 




SVR4 = 


000072 




SVR5 = 


000074 




SVR6 = 


000076 




SYSCNT= 


000052 




SYSERR= 


000100 




TMPIO = 


000002 
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TQOVF = 


000002 




WBUFPA= 


000134 


UIPARO= 


177640 




WBUFRQ= 


000140 


UIPAR1= 


177642 




WBUFSZ= 


000142 


UIPAR2= 


177644 




WDFR = 


000116 


UIPAR3= 


177646 




WDTO = 


0001 14 


UIPAR4= 


177650 




WTINRE= 


000352 


UIPAR5= 


177652 




WTWHMI= 


000222 


UIPAR6= 


177654 




XFLAG = 


000005 


UIPAR7= 


177656 




XOFF = 


000023 


UIPDRO= 


177600 




XON 


000021 


UIPDR1= 


177602 




$BGNLE= 


177777 


UIPDR2= 


177604 




$ERFLG= 


000000 


UIPDR3= 


177606 




$FSAND= 


000310 


UIPDR4= 


177610 




SFSBAD= 


000401 


UIPDR5= 


177612 




$F$BLA= 


000170 


UIPDR6= 


177614 




$F$CAS= 


000150 


UIPDR7= 


177616 




$F$DEC= 


000220 


WASADR= 


000104 




SFSDO = 


000340 


WBSTAT= 


000040 




SF$FAL= 


000405 


WBUFEA= 


000136 




$F$GOO= 


000400 


. ABS. 


000000 
000306 


000 
001 







$F$IF = 


0001 iO 


$F$INC= 


000210 


$F$LOO= 


000200 


$F$NAM= 


000160 


$F$NO = 


000403 


$F$OR = 


000320 


$F$RTI= 


AAflORA 


$F$RTN= 


000300 


$F$SEL= 


000140 


$F$THE= 


000330 


$F$TRU= 


000404 


$F$UNT= 


000130 


$F$WHI= 


000120 


$F$YES= 


000402 


$IFLEV= 


177777 


$ISKO = 


000001 


$ISK1 = 


000001 


SISK2 = 


000001 


$LOCTA= 


177777 


$LSTIN= 


000001 



.2) 20-: 


5EP-78 18:07 P 


'AGE 20-1 




SEQ 0707 








nnn nnrs 




3> Li i i A= 


UUUUU 1 


V W V V V V 




$NESTL= 


177777 


$$ELOC= 


000403 




$NSK0 = 


000300 


SSERFL= 


000000 




$NSK1 = 


000120 


$SFLAG= 


000001 




SNSK2 = 


000110 


$SFROM= 


000000 




$NSK3 = 


000110 


$$LOC = 


000260R 




$NSK4 = 


000110 


$$LOCN= 


000000 




$SAVLE= 


177777 


SSREG = 


177777 




SSSKO = 


050003 


$SRETU= 


000001 




$TAGLE= 


177777 


$SRTN1= 


050000 




STAGNU= 


050005 


$$RTN2= 


050001 




$TEMP = 


000300 


$$SRC = 


000000 




$TSK0 = 


050002 


SSTGSV= 


000000 




STSK1 = 


050003 


$STGS1= 


000000 




$TSK2 = 


050004 


S$TGS2= 


000000 




$TSK3 = 


050012 


$$TO = 


000000 




STSK4 r-. 


050013 


$$$TAG= 


050000 




$SARGC= 


000002 


= 


000306R 




$$BYTE= 


000403 








$$CASE= 


000000 









ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 



DSKZ: LSTCHK, DSKZ: LSTCHK=SPMAC/ML, EQUATE, LSTCHK 
RUN-TIME: 17 7 .4 SECONDS 
RUN-TIME RATIO: 67/25=2.6 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-7S 18:08 

EQUATE. MAC 13-SEP-73 16:13 TABLE OF CONTENTS SEQ 0703 

3 COMMON EQUATE MODULE 

563 COMMON DEFINITIONS AND REFERENCES 

569 000000' .PRINT ;SPMAC: VERSION 1.1 

618 PROCESS NEXT MESSAGE 

722 PERFORM CLEAN-UP FOR THE LAST MESSAGE 

770 RESTORE THE INTERRUPTED MODULE'S R5 BEFORE RETURNING 



MSGDEQ - DE-QUEUE NEXT MESSAGE 
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508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

523 

529 

530 

531 

532 

533 

534 

535 

536 

537 

533 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 
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COMMON EQUATE MODULE 

.TITLE MSGDEQ _ DE-QUEUE NEXT MESSAGE 
.IDENT /VO.O/ 



MODULE NAME: 
MSGDEQ 

FUNCTIONAL DESCRIPTION: 

THIS MODULE CONTAINS THE TWO ROUTINES MSGDEQ AND MSGDRET. 

THE MSGDEQ ROUTINE DE-QUEUES THE NEXT MESSAGE TO BE PROCESSED, 

WHICH CONSISTS OF PERFORMING THE FOLLOWING: 

1. DEQUEUING NEXT MESSAGE 

2. ENABLING/INHIBITTING PRINTING OF MESSAGE BASED 
ON THE SOFTWARE SWITCH REGISTER SETTING 

3. HOOKING MESSAGE TO APPROPRIATE OUTPUT DRIVER 

THE MSGDRET ROUTINE PERFORMS THE NECESSARY CLEAN-UP ASSOCIATED 
WITH THE PROCESSING OF THE LAST MESSAGE. THIS CONSISTS OF: 

1. ACTIVATING REQUESTOR MODULE, I.E., THE MODULE THAT 
dUST HAD ITS MESSAGE PROCESSED 

2. RESETTING THE CONTROL-0 FLAG 

INPUTS: 

1 . ADDRESS OF DATA TABLE 

IMPLICIT INPUTS: 
DT.SWR 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

NONE 

PATHOLOGICAL CONNECTIONS: 

1. CTRLOF 

2. DX.KFL 

SUBORDINATE MODULES CALLED: 

1 . ENQCQ 

2. KBINI 

3. MSGDGET 

4. MSGDHOOK 

CALLING SEQUENCE: 

CALL MSGDEQ IN <DTABLE> 

VERSION: 
0.0 



SEQ 0709 



;CONTROL-0 FLAG 
;CARRIAGE RETURN FLAG 



MAKE ENTRY IN CONTROL QUEUE 
INITIALIZE KEYBOARD HANDLER ROUTINE 
GET NEXT MESSAGE MODULE 
HOOK MESSAGE TO OUTPUT DRIVER 



EDIT 



EY 



DATE 



REASON 
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563 
564 
565 
566 
567 
568 

569 000000 ■' 
(1) 000000' 

570 000001 

571 000001 
572 

573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 

601 000000' 000000 

602 000002' 000000 

603 000004' 000000 

604 000006' 000000 

605 000010' 000000 

606 000012' 000000 

607 000005 
608 

609 

610 

611 

612 000146' 001 000 

613 

614 

615 

616 



000026' 

000026' 000050 
000146' 001 
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COMMON DEFINITIONS AND REFERENCES 

.SBTTL COMMON DEFINITIONS AND REFERENCES 



.MCALL STRUCT 
STRUCT 
.PRINT ;SPMAC: VERSION 1.1 
$LSTIN=1 
$LSTTAG=1 



REFERENCED BY OTHER MODULES 

GLOBL MSGDEQ 
GLOBL MD.BSY 
GLOBL MD.COD 

GLOBAL REFERENCES 



SEQ 0710 



GLOBL 


ENQCQ 


GLOBL 


BA.STAT 


GLOBL 


KBINI 


GLOBL 


DX.KFL 


GLOBL 


MSGDGET 


GLOBL 


MSGDHOCK 


GLOBL 


CTRLOF 



MODULE'S ENTRY POINT 

BUSY FLAG 

MESSAGE TYPE INDICATOR 



; CONTROL QUEUE EN-QUEING MODUlE 

;KB I/O INITIATOR MODULE 

;CARRIAGE RETURN FLAG 

;MESSAGE DE-QUEING MODULE 

; OUTPUT MESSAGE TO DRIVER MODULE 

;CONTROL-0 FLAG 



jtulcij:**********:!:* 



LOCAL STORAGE - PROGRAM IMPURE STORAGE 



MD.COD: 


.WORD 





MD.MSG: 


. WORD 





MD.KDR: 


.WORD 





MD.RET: 


.WORD 





MD.DTBL: 


• WORD 





MD.BSY : 


.WORD 







.REPT 


~D<5 




.WORD 







. ENDR 




MD.R5S: 






MD.K3ECH 


: .BLKW 


~D40 


MD.NUL: 


.BYTE 


1 ,0 


t 


.EVEN 







MESSAGE TYPE CODE 

ADDRESS OF MESSAGE 

ADDRESS OF MODULE'S HEADER 

ADDRESS AT WHICH MODULE IS TO 3E RESUMED 

ADDRESS OF DATA TABLE 

MESSAGE-QUEUE BUSY INDICATOR 

SAVE 5 WORDS FOR R5 STACK 



LOCAL R5 STACK 
KEYBOARD ECHO BUFFER 
NULL CHAR MESSAGE 
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MACY11 



30A(1052) 20-SEP-78 
PROCESS NEXT MESSAGE 



18:08 PAGE 21 



SEQ 0711 



618 
619 
620 
(2) 
621 
622 
623 
624 
625 
626 
627 
(6) 
(9) 
628 
(4) 
629 
(4) 
630 
631 
632 
633 
634 
635 
636 
(2) 
(3) 
637 
(4) 
638 
(4) 
639 
640 
641 
642 
643 
644 
(4) 
(3) 
(6) 
(5) 
(4) 
(3) 
(3) 
(4) 
(4) 
(4) 
(4) 
645 
646 
64 7 
648 
649 
650 
651 
652 
(6) 



000150 1 
000150' 



000150' 
000150' 
000156' 
000160' 
000160' 
000162' 
000162' 



000162' 
000162' 
000164 s 
000166' 
000166' 
000172' 
000172' 



000176' 
000176' 
000202' 
000204' 
000210' 
000214' 
000216' 
000222' 
000224' 
000230' 
000234' 
000240' 



026727 
001001 

000561 



010046 
01 0146 

016500 

010067 



000244' 
000244' 026727 



177636 000001 



000000 
177612 



162705 000010 

010546 

012745 

012745 

010045 

004767 

012605 

012567 

012567 

012567 

012567 



000146' 
000026' 

000000G 

177550 
177546 
177544 
177542 



.SBTTL PROCESS NEXT MESSAGE 
ROUTINE MSGDEQ <DTABLE> 



MAKE SURE THE MESSAGE QUEUE MECHANISM IS NOT BUSY. II 
IT IS, SIMPLY RETURN TO THE CALLER 



IF MD.BSY EQ #1 THEN 

RETURN 
ENDIF 



MSGDEQ: 



CMP 
BNE 

BR 



MD.BSY, #1 
50002$ 

50000$ 



50002S: 



SAVE REGISTERS, THEN GET THE DATA TABLE ADDRESS AND SAVE IT IN 
LOCAL STORAGE. 



PUSH 



R0,R1 



MOV 
MOV 

MOV 

MOV 



LET RO := DTABLE(R5) 
LET MD.DTBL := RO 

GET THE NEXT MESSAGE TO BE PRINTED 
CALL MSGDGET IN <RO,#MD. KBECH , #MD . NULL> OUT <MD . COD ,MD .MSG, MD . HDR ,MD. RET> 



RO,-(SP) 
R1 - f SP ^ 

DTABLE(R5) ,R0 

RO, MD.DTBL 



SUB 


#4*2, R5 


MOV 


R5 T -(SP) 


MOV 


#MD.NULL,-(R5) 


MOV 


#MD. KBECH, -(RS) 


MOV 


R0,-(R5) 


JSR 


PC, MSGDGET 


MOV 


(SP)+,R5 


MOV 


(R5)+,MD.C0D 


MOV 


(R5)+,MD.MSG 


MOV 


(R5)+,MD.HDR 


MOV 


(R5)+,MD.RET 



IF THIS IS THE NULL CHARACTER MESSAGE AND IF OUTPUTTING THE 

NULL IS ENABLED, THEN HOOK UP THE MESSAGE. OTHERWISE, 

JUST RETURN. IN EITHER CASE, DON'T BOTHER MAKING ANY OF THE OTHER TESTS, 



IF MD.COD EQ #MSGNUL THEN 



177530 177775 



:mp 



MD.COD,#MSGNUL 
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PROCESS NEXT MESSAGE 



(9) 
653 
(6) 
(9) 
654 
(2) 
655 
(4) 
(3) 
656 
(2) 
657 
(4) 
658 
(4) 
659 
660 
661 
662 
563 
S64 
665 
666 
667 
568 
(6) 
(8) 
(6) 
(9) 
(6) 
(6) 
(9) 
669 
(6) 
(9) 
670 
(3) 
(6) 
(5) 
(4) 
(3) 
(3) 
671 
(2) 
672 
(4) 
673 
(4) 
674 
675 
676 
677 
678 
679 
680 
681 



000252' 001007 

000254' 

000254' 032760 

000262' 001402 

000264' 

000264' 000470 

000266 ! 

000266' 

000270' 

000270' 

000270' 

000272' 

000272' 

000272' 

000272' 



000401 



000513 



000272' 
000272' 
000300' 
000302' 
000310' 
000312' 
000312' 
000320' 
000322' 
000322' 
000330' 
000332' 
000332' 
000334' 
000340' 
000344' 
000346' 
000352' 
000354' 
000354' 
000356' 
000356' 
000356' 
000356' 



026727 
001404 
026727 
002422 

026727 
002016 

032760 
001412 

010546 
016745 
016745 
010045 
004767 
012605 

000461 



000001 000056 



IF #ENBNUL SETIN DT.SWR(RO) THEN 



INLINE <BR 1$> 



INLINE <BR 2$> 



ENDIF 







SEQ 0712 




D) IE 


C A A A 0£t 




BIT 


#ENBNUL,DT.$WR(R 




BEQ 


50004$ 




BR 


1$ 




BR 


50005$ 


50004$: 







BR 



2$ 



ENDIF 



50005S: 
50003$: 



IF THIS IS AN ERROR MESSAGE OR A MESSAGE COMING DIRECTLY 

FROM A MODULE, AND IF THE PRINTING OF THESE TYPES OF MESSAGES 

IS INHIBITTED, DON'T PRINT THE MESSAGE. INSTEAD, JUST ENTER THE MODULE IN 

THE CONTROL QUEUE AND RETURN. 

IF MD.COD EQ #MSGSTD OR MD.COD GE #MSGSKEL AND MD.COD LT #MSG5YS THEN 



177502 000000 

177472 000003 

177462 000012 

020000 000056 



177446 
177440 

OOOOOOG 



50006$ 



IF #INHEPRT SETIN DT.SWR(RO) THEN 

CALL ENQCQ IN <R0,MD.HDR f MD. RET> 



CMP 


MD.COD,#MSGSTD 


BEQ 


50006$ 


CMP 


MD.COD,#MSGSKEl_ 


BLT 


50007$ 


C?VlP 


MD.COD,#MSGSYS 


3GE 


50007$ 


BIT 


#INHEPRT,DT.SWR( 


BEQ 


50010$ 


MOV 


R5,-(SP) 


MOV 


MD.RET,-(R5) 


MOV 


MD.HDR,-(R5) 


MCV 


R0,-(R5) 


JSR 


PC, ENQCQ 


MOV 


(SP)+,R5 



INLINE <BR 



2$> 



BR 



2$ 



ENDIF 



ENDIF 



50010$: 
50007$: 



IF THIS IS AND END-OF-PASS MESSAGE, AND IF THE PRINTING OF THIS TYPE OF 
MESSAGE IS NOT ENABLED, DON'T PRINT THE MESSAGE. INSTEAD, IF THIS 
MESSAGE CAME FROM A BKMOD, CLEAR THE DEFERRED-RETURN BIT IN THE 
BACKGROUND STATUS INDICATOR; ELSE ENQUEUE THE 
MODULE IN THE CONTROL QUEUE. THEN JUST RETURN. 
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SEQ 0713 



682 










683 










684 


000356' 








(6) 


000356' 


026727 


177416 


000013 


(9) 


000364' 


001030 






(6) 


000366' 


032760 


010000 


000056 


(9) 


000374' 


001024 






685 


00037.6' 








(4) 


000376' 


016701 


177402 




686 


000402' 








(6) 


000402' 


032761 


000020 


000026 


(9) 


000410' 


001404 






687 


000412' 








(6) 


000412' 


042767 


000002 


OOOOOOG 


688 


000420' 








(4) 


000420' 


000411 






(3) 


000422' 








689 


000422' 








(3) 


000422' 


010546 






(6) 


000424' 


016745 


177356 




(5) 


000430' 


016745 


177350 




(4) 


000434' 


010045 






(3) 


000436' 


004767 


000000G 




(3) 


000442' 


012605 






690 


000444' 








(4} 


000444' 








591 


000444' 








(2) 


000444' 


000425 






692 


000446' 








(4) 


000446' 








693 










694 










695 










696 










697 










698 










699 


000446' 








(2) 


000446' 








700 


000446' 








(4) 


000446' 


012767 


000001 


177336 


701 










702 










703 










704 










705 










706 










707 










708 


000454' 








(6) 


000454' 


032760 


000002 


000014 


(9) 


000462' 


001014 






709 


000464' 








(3) 


000464' 


010546 






(7) 


000466' 


012745 


000526' 




(6) 


000472' 


016745 


177304 




(5) 


000476' 


016745 


177276 




(4) 


000502' 


010045 







IF MD.COD EQ #MSGEOP AND #ENBEOP NOTSETIN DT.SWR(RO) THEN 

LET R1 := MD.HDR 

IF #BKMOD SETIN STAT(R1) THEN 



LET BA.STAT 



BA.STAT CLR.BY #BKDEF 



ELSE 



CALL ENQCO IN <R0 , MD.HDR ,MD. RET> 



ENDIF 
INLINE <BR 





CM? 

BNE 
BIT 
BNE 


MD.COD,#MSGEOP 
50011$ 

j.-rkinrnn r\ T fi.lrWn 

50011$ 




MOV 


MD.HDR, R1 




BIT 
BEO 


#BKM0D,STAT(R1) 
50012$ 




BIC 


#BKDEF, BA.STAT 


50012$: 


BR 


50013$ 




MOV 
MOV 
MOV 
MOV 
JSR 
MOV 


R5,-(SP) 

MD.RET t -(R5) 

MD.HDR, -(R5) 

R0 t -(R5) 

PC T ENQCQ 

(SP)+,R5 


500135: 







2$> 



BR 



ENDIF 



5001 t$: 



SET THE MESSAGE-QUEUE BUSY FLAG. 

INLINE <1$:> 
LET MD.BSY := #1 



1$: 
MOV 



IF NO TTY , DON'T BOTHER CALLING MSGDHOOK - JUST CALL MSGRET WHICH 
WILL RTS BACK TO HERE 



IF #NOAPTY NOTSETIN DT.CFO(RO) THEN 



CALL MSGDHOOK IN <R0 ,MD. COD ,MD.MSG, #MSGDRET> 



2$ 



#1 , MD.BSY 



BIT 


#NOAPTY,DT.CF0(R 


BNE 


50014$ 


MOV 


R5 r -(SP) 


MOV 


#MSGDRET,-(R5) 


MOV 


MD.MSG,-(R5) 


MOV 


MD.C0D,-(R5) 


MOV 


R0,-(R5) 
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(3) 


000504' 


004767 O00O00G 


(3) 


000510' 


012605 


710 


000512' 




(4) 


000512' 


000402 


(3) 


000514' 




711 


000514' 








004767 000005 


IJ> 


UUUD 1 *t 


712 


000520' 




(4) 


000520' 




713 






714 






715 






716 






717 






713 


000520' 




(2) 


000520' 




719 


000520' 




(2) 


000520' 


012601 


(3) 


000522' 


012600 


720 


000524' 




(3) 


000524' 




(3) 


000524' 




(2) 


000524' 


000207 
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ELSE 
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CALL MSGDRET 



ENDIF 







SEQ 0714 




JSR 


PC MSGDHOOK 




MOV 


(SP)+,R5 




BR 


50015$ 


50014S: 








JSR 


PC, MSGDRET 


50015$: 







RETURN TO CALLER 

INLINE <2$:> 
POP R1.R0 

ENDRTN 



50000$: 
50001$: 



2$: 

MQV 
MOV 



RTS 



(SP)+,R1 
(SP)+,RO 



PC 
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722 








723 








724 








725 








726 








727 








728 








729 








730 


000526' 






(4) 


000526' 


005067 


177260 


731 


000532' 






(4) 


000532' 


005067 


OOOOOOG 


732 








733 








734 








735 








736 








737 


000536' 






(2) 


000536' 


010546 




(3) 


000540' 


010046 




(4) 


000542' 


010146 




738 


000544' 






(4) 


000544' 


016701 


177240 


739 


000550' 






(4) 


000550' 


012705 


000026' 


740 








741 








742 








743 








744 








745 








746 








747 








748 


000554' 






(6) 


000554' 


005767 


177224 


(9) 


000560' 


001422 




749 


000562' 






(6) 


000562' 


026727 


177212 000000 


(8) 


000570' 


001404 




(6) 


000572' 


026727 


177202 000003 


(9) 


000600' 


002412 




(6) 


000602' 






750 


000602 1 






(3) 


000602' 


010546 




(6) 


000604' 


016745 


177176 


(5) 


000510' 


016745 


177170 


(4) 


000614' 


016745 


177170 


(3) 


000620' 


004767 


OOOOOOG 


(3) 


000624' 


012605 




751 


000626' 






(4) 


000626' 






752 


000626' 






(4) 


000626' 






753 








754 








755 
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PERFORM CLEAN-UP FOR THE LAST MESSAGE 

.SBTTL PERFORM CLEAN-UP FOR THE LAST MESSAGE 



SET THE MESSAGE QUEUE AS BEING NOT BUSY, AND RESET THE 
CONTROL-0 FLAG 



MSGDRET: LET MD.BSY : = #0 
LET CTRLOF : = #0 

SWITCH TO A LOCAL R5 STACK 
PUSH R5,R0,R1 

LET R1 := MD.DTBL 
LET R5 := #MD.R5S 



DETERMINE IF THE LAST MESSAGE WAS ISSUED BY AN OPTION MODULE 
OR MONITOR (I.E. MD.HDR IS NOT 0). 

AND IF IT WAS, RESUME ITS EXECUTION BY MAKING AN ENTRY FOR IT 
IN THE CONTROL QUEUE 



IF MD.HDR NE #0 THEN 



IF MD.COD EQ #MSGSTD OR MD.COD GE #MSGSKEL THEN 



CALL ENQCQ IN <MD. DTBL, MD.HDR ,MD. RET> 



SEQ 0715 



CLR 
CLR 



MOV 
MOV 
MOV 

MOV 

MOV 



ENDIF 



ENDIF 



MD.BSY 
CTRLOF 



R5,-(SP) 
R0,-(SP) 
R1,-(SP) 

MD.DTBL, R1 
#MD.R5S,R5 





TST 


MD.HDR 




BEQ 


50016$ 


EL THEN 








CMP 


MD.COD,#MSGSTD 




BEQ 


50017$ 




CMP 


MD.COD,#MSGSKEL 




3LT 


50020$ 


50017$: 






> 


MOV 


R5,-(SP) 




MOV 


MD.RET,-(R5) 




MOV 


MD.HDR,-(R5) 




MOV 


MD.DTBL, ~(R5) 




JSR 


PC, ENQCQ 




MOV 


(SP)+,R5 


50020$: 






50016$: 







; + 
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PERFORM CLEAN-UP FOR THE LAST MESSAGE 



SEQ 0716 



756 
757 
758 
759 
760 
(6) 
(9) 
761 
(3) 
(4) 
(3) 
(3) 
762 
(4) 
763 
764 
765 



000626' 
000626' 
000634' 
000636' 
000636' 
000640' 
000644' 
000650' 
000652' 
000652' 



026727 
001006 

010546 
016745 
004767 
012605 



IF THE MESSAGE WAS ONE OF THE KEYBOARD PROMPTS, THEN UNLOCK THE 
KEYBOARD AND ALLOW THE NEXT COMMAND TO BE ENTERED 



177146 177776 



177144 
OOOOOOG 



IF MD.COD EQ #MSGPRM THEN 



CALL KBINI IN <MD.DTBL> 



CMH 
BNE 

MOV 
MOV 
JSR 
MOV 



ENDIF 



50021S: 



MD . COD, ffMSGPRM 
50021$ 

R5,-(SP) 
MD.DTBL,-(R5) 
PC,KBINI 
(SP)+,R5 
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PERFORM CLEAN-UP FOR THE LAST MESSAGE 



SEQ 0717 



767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
(6) 
(9) 
783 
(2) 
(3) 
(4) 
784 
(2) 
785 
(4) 
(3) 
786 
(2) 
(3) 
(4) 
787 
(2) 
788 
(4) 
789 
790 



000652' 
000652' 
000660' 
000662' 
000662' 
000664' 
000666' 
000670' 
000670' 
000672' 
000672 ' 
000674' 
000674' 
000574' 
000676' 



032761 
001005 

012601 
012600 
012605 

000002 

000404 



012601 
012600 

000700' 012605 

000702' 

000702' 000207 

000704' 

000704' 

000001 



.SBTTL RESTORE THE INTERRUPTED MODULE'S R5 BEFORE RETURNING 



NOW RETURN TO THE INTERRUPTED ROUTINE 



DO AN RTS IF NO TTY - AN RTI IF A TTY PRESENT 



000002 000014 



IF #NOAPTY NOTSETIN DT.CF0(R1) THEN 



POP R1 ,R0,R5 



ELSE 



INLINE <RTI> 



POP R1 f R0,R5 



INLINE <RTS PC> 



BIT 

BNE 


#NOAPTY,DT.CF0(R 
50022$ 


MOV 
MOV 
MOV 


(SP)+,R1 
(SP)+,RO 
(SP)+,R5 


RTI 




BR 
50022S: 


50023$ 


MOV 
MOV 
MOV 


(SP)+ f R1 
(SP)+,RO 
(SP)+,R5 



RTS 



PC 



ENDIF 



.END 



50023$: 
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ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APT.FER = 


000004 


APTPRE= 


000200 


AS3 = 


/■» r\ f\ -i n C 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AW AS = 


000110 


BA.STA= 


****** 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


0004CO 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BITS = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMQD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQOVF. = 


000001 


CR 


000015 


CSRA = 


000100 



CTRLG = 
CTRLO = 
CTRLOF= 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC* 
DROPMO= 
DSEVNT= 
DTABLE= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CF0= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KSP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.ST0= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
DX.KFL= 
ECCMEM= 
ECCSTA= 



= UUU I U^i 



000003 
000017 

****** 

000025 
000011 
000400 
000000 
100000 
000014 
000000 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
****** 

000100 
000010 



l-SEP-78 


lb:us t-ftut <ls 


r 








SEQ 0718 


EN3EQP- 


010000 


MAPSTA= 


000200 


PRIG = 


000000 




ENBNUL= 


000001 


MD.BSY 


000012RG 


PRI1 = 


000040 




ENDLST= 


000000 


MD.COD 


O000O0RG 


PRI4 = 


000200 




ENQCQ = 


****** Q 


MD.DTB 


00001 OR 


PRI5 = 


000240 




EOPBIT= 


000001 


MD.HDR 


000004R 


PRI6 = 


000300 




ERRTYP= 


000106 


MD.KBE 


000026R 


PRI7 = 


000340 




EVNTB'E- 


000200 


MD.MSG 


000002R 


PRO 


000000 




EVNTKD= 


000200 


MD.NUL 


0C0146R 


PR4 = 


000200 




EVMTKT= 


000203 


MD.RET 


000C06R 


PR5 


000240 




EVNTPE= 


000202 


MD". R5S 


000026R 


PR6 


000300 




EVNTRE= 


000201 


MED . = 


076600 


PR7 


000340 




FATERR= 


100000 


MEMPAS= 


040000 


PS 


177776 




HRDCNT= 


000044 


MODEXH= 


004000 


PSW . = 


177776 




HRDPAS= 


000050 


MODHOL= 


0C2000 


RANNUM= 


000054 




ICONT * 


000036 


MODSEL= 


001000 


RBUFEA= 


000130 




I COUNT = 


000040 


MSGCKD= 


000010 


RBUFPA= 


000126 




IDNUM = 


000122 


MSGCKS= 


00001 1 


RBUFSZ= 


000132 




IE 


000100 


MSGDEQ 


000150RG 


RBUFVA= 


000124 




INDPAR= 


000040 


MSGDER= 


000005 


RDSERV= 


000101 




INHDRP= 


040000 


MSGDGE= 


****** Q 


RDWHMI= 


000022 




INHEPR= 


020000 


MSGDHO= 


****** Q 


RELERR= 


000020 




INHREL= 


001000 


MSGDRE 


00Q52.6R 


RELMOD= 


020000 




INHRRE= 


000400 


MSGDR-P= 


000017 


RELTIM= 


010000 




INIT = 


000030 


MSGECH= 


177777 


RE51 = 


000053 




INTR = 


000120 


MSGEOP= 


000013 


RES2 = 


000060 




IOMOD = 


100000 


MSGHDR= 


000004 


RICHARs 


031060 




IOMODP= 


102000 


lWSGHNG= 


000022 


RPTDAT= 


002000 




IGiviODR = 


i 1 2 G 


lilJUi n\_< — 


00 00 r, 7 


RSTRT = 


0001 12 




IOMODX= 


110000 


MSGMAP= 


000021 


RUBQUT= 


000177 




JACK = 


035060 


MS'GNUL= 


177775 


RUNMOD= 


100000 




KBINI = 


****** Q 


WISGP.OP = 


000002 


R5VALU= 


001740 




KIPAR0= 


172340 


MSGPRM= 


177776 


SAM = 


075464 




KIPAR1= 


172342 


MSGRES= 


000001 


SBADR = 


000102 




KIPAR2= 


172344 


MSGSFT= 


000006 


S3K;,10D = 


000000 




KIPAR3= 


172346 


MSGSKE= 


000003 


S3KSEL= 


010000 




KIPAR4= 


172350 


MSGS!VIB= 


000015 


SC.ADR= 


000006 




KIPAR5= 


172352 


MSG'SMH= 


000014 


SC. ALC= 


000014 




KIPAR6= 


172354 


MSGSMS= 


000016 


SC.APC= 


000016 




KIPAR7= 


172356 


WISGSTD= 


000000 


SC.CKL= 


000002 




KIPDR0= 


172300 


MSGSYS= 


000012 


SC.CKP= 


000004 




KIPDR1= 


172302 


M'SGVEC = 


000020 


SC.CLO= 


000000 




KIPDR2= 


172304 


NBKMOD= 


001000 


SC.HLD= 


000010 




KIPDR3= 


172306 


NCPU0P= 


000020 


SC.SCA= 


000012 




KIPDR4= 


172310 


NOAPTY= 


000002 


SENDLS= 


177777 




KIPDR5= 


172312 


NULL = 


000000 


SOFCNT= 


000042 




KIPDR6= 


172314 


OWEN = 


024020 


SOFPAS= 


000046 




KIPDR7= 


172316 


PAERR = 


000010 


SPACE = 


000040 




KTERRO= 


000040 


PARPRE= 


002000 


SPOINT= 


000032 




KTPRES= 


000400 


PARSTA= 


000100 


SPVALU= 


002200 




KTSTAT= 


000020 


PASCNT= 


000034 


SRO = 


177572 




KTXTND= 


040000 


PDPLSI= 


020000 


SRI 


177574 




LF 


000012 


PDP60 = 


004000 


SR2 


177576 




LPSTAT= 


000001 


PDP70 = 


010000 


SR3 


172516 
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STAT = 


000026 




UIPAR6= 


177654 


STATBI= 


064757 




UIPAR7= 


177656 


STAT1 = 


000027 




UIPDRO= 


177600 


SUSPND= 


000001 




UIPDR1= 


177602 


SVRO = 


000062 




UIPDR2= 


177604 


SVR1 = 


000064 




UIPDR3= 


177606 


SVR2 = 


000066 




UIPDR4= 


177610 


SVR3 = 


000070 




UIPDR5= 


177612 


SVR4 = 


000072 




UIPDR6= 


177614 


SVR5 = 


000074 




UIPDR7= 


177616 


SVR6 = 


000076 




WASADR= 


000104 


SYSCNT= 


000052 




WBSTAT= 


000040 


SYSERR= 


000100 




WBUFEA= 


000136 


TMPIO = 


000002 




WBUFPA= 


000134 


TQOVF = 


000002 




WBUFRQ= 


000140 


UIPARO= 


177640 




WBUFSZ= 


000142 


UIPAR1= 


177642 




WDFR =. 


000116 


UIPAR2= 


177644 




WDTO = 


0001 14 


UIPAR3= 


177646 




WTINRE= 


000352 


UIPAR4= 


177650 




WTWHMI= 


000222 


UIPAR5= 


177652 




XFLAG = 


000005 


. ABS. 


000000 
000704 


000 
001 







>-SEP-78 


18:08 


PAGE 24-1 




XOFF = 


000023 


$F$THE= 


000330 


XON 


000021 


$F$TRU= 


000404 


$BGNLE= 


177777 


$FSUNT= 


000130 


$E'RFLG= 


000400 


$F$WHI= 


000120 


$F$AND= 


000310 


$F$YES= 


000402 


$F$BAD= 


000401 


$IFLEV= 


1 77777 


$F$BLA= 


000170 


$ISKO = 


000001 


$F$CAS= 


000150 


SISK1 = 


000001 


$FSDEC= 


000220 


$LOCTA= 


177777 


SFSDD = 


000340 


$LSTIN= 


000001 


$F$FAL= 


000405 


$LSTTA= 


000001 


$F$GQO= 


000400 


$NESTL= 


177777 


$FSIF = 


000110 


SNSKO = 


000110 


$F$INC= 


000210 


SNSK1 = 


000110 


$F$LOO= 


000200 


$NSK2 = 


000110 


$F$NAM= 


000160 


SSAVLE= 


177777 


$F$NO = 


000403 


$TAGLE= 


177777 


$FSOR = 


000320 


$TAGNU= 


050024 


$F$RTI= 


000350 


STEM? = 


050023 


$F$RTN= 


000300 


$TSKO = 


050023 


$F$SEL= 


000140 


STSK1 = 


050020 



SEQ 0719 



$SARGC= 
$-$BYTE = 
$ijCASE = 
$$DST = 
$$ELOC= 
$$ERFL- 
$SFLAG= 
$$FROM= 
$$>L>_iC = 
$SLOCN= 
SSREG = 
$$RETU= 
$SRTN1= 
S$RTN2= 
$SSRC = 
S$TGSV= 
SSTGS1= 
$STGS2= 
SSTQ = 
$$$TAG= 



000002 

000403 

000000 

000000 

000402 

000000 

000001 

000000 

000660R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000001 

050000 

000704R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ: MSGDEQ, DSKZ:MSGDEQ=SPMAC/ML, EQUATE, MSGDEQ 
RUN-TIME: 18 8 .4 SECONDS 
RUN-TIME RATIO: 85/26=3.2 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:09 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0720 

3 COMMON EQUATE MODULE 

570 COMMON DEFINITIONS AND REFERENCES 

574 000000' .PRINT ;SPMAC: VERSION 1.1 

602 DE-QUEUE NEXT MESSAGE 



MSGDGET - DE-QUEUE THE NEXT MESSAGE TO BE PRINTED MACY1 1 30A(1052) 20-SEP-78 18:09 PAGE 19 
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SEQ 0721 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 

cr <"> <~v 

534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 



TITLE MSGDGET -DE-QUEUE THE NEXT MESSAGE TO BE PRINTED 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
MSGDGET 

FUNCTIONAL DESCRIPTION: 

THE DE-QUEUE-NEXT-MESSAGE MODULE IS CALLED WHENEVER IT IS NECESSARY 
TO FETCH THE ADDRESS OF THE NEXT MESSAGE TO BE PRINTED. 
MESSAGES ARE DE-QUEUED ACCORDING TO THE FOLLOWING PRIORITY: 

1. OPERATOR INPUT STRING 

2. KEYBOARD COMMAND RESPONSE 

3. KEYBOARD COMMAND PROMPT 

4. TYPE QUEUE ENTRY 

5. DEFAULT MESSAGE (ONE-CHAR NULL MESSAGE) 

INPUTS: 

1 . ADDRESS OF DATA TABLE 

2. ADDRESS OF KEYBOARD'S ECHO BUFFER 

3. ADDRESS OF DEFAULT MESSAGE (ONE-CHAR NULL MESSAGE) 

IMPLICIT INPUTS: 

1. DT.KBRSP 

2. DT.KBUF 

3. DT.KBECH 

4. DT.KBPRM 

OUTPUTS: 

1. FOUR-WORD MESSAGE PACKET: 
WORD 1 : TYPE CODE 

2: ADDRESS OF MESSAGE 

3: OPTION MODULE'S HEADER ADDRESS 

4: OPTION MODULE'S RETURN ADDRESS 

IMPLICIT OUTPUTS: 

1 . UPDATED DT.KBECH 

PATHOLOGICAL CONNECTIONS: 

1. KEYBOARD INPUT POINTER (KB.INP) 



SUBORDINATE MODULES CALLED: 

1 . DEQTQ 

2. FILLMSG 

3. SAVREG 

4. RESREG 



DE-QUEUE NEXT TYPE QUEUE ENTRY 
FILL-IN SKELETAL MESSAGE 
SAVE REGISTERS 
RESTORE REGISTERS 



CALLING SEQUENCE: 

CALL MSGDGET IN <DTABLE , KBECH, DFTM3G> OUT <MSGTYPE , MSGADDR , HDRADDR , RETADDR> 
WHERE DTABLE - DTABLE ADDRESS 

KBECH - ECHO BUFFER POINTER 
DFTMSG - DEFAULT MESSAGE 
MSGTYPE - MESSAGE TYPE 
MSGADDR - MESSAGE ADDRESS 
HDRADDR - HEADER ADDRESS 
RETADDR - RETURN ADDRESS 
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SEQ 0722 



564 
565 
566 
567 
568 



VERSION: 

EDIT 



0.0 



BY 



DATE 



REASON 
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SEQ 0723 



570 
571 
572 
573 
574 

(1) 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 



000000' 
000000 ■" 



000001 
000001 



.SBTTL COMMON DEFINITIONS AND REFERENCES 



.MCALL STRUCT 
STRUCT 
PRINT ;SPMAC: VERSION 1.1 
$LSTIN = 1 
SLSTTAG = 1 



**************** 

REFERENCED BY OTHER MODULES 
GLOBL MSGDGET 



GLOBAL REFERENCES 

GLOBL DEQTQ 

GLOBL FILLMSG 

GLOBL KB.INP 

GLOBL SAVREG 

GLOBL RESREG 

**************** 



iMODULE'S ENTRY POINT 



TYPE QUEUE DE-QUEUING MODULE 
FILL IN SKELETAL MESSAGE MODULE 
KEYBOARD'S INPUT BUFFER POINTER 
SAVE REGISTER ROUTINE 
RESTORE REGISTER ROUTINE 
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602 








603 








604 


000000' 






(2) 


000000' 






605 








606 








607 








608 








609 








610 


000000' 






(3) 


000000' 


004767 


OOOOOOG 


611 


000004' 






(4) 


000004' 


016500 


000000 


612 


000010' 






(4) 


000010' 


016501 


000002 


613 








514 








515 








616 








617 








613 








619 








620 


000014' 






(6) 


000014' 


026067 


000024 OOOOOOG 


(9) 


000022.' 


103031 




621 


000024' 






(4) 


000024' 


012702 


000050 


622 


000030' 






(4) 


000030' 






(6) 


000030' 


005702 




(9) 


000032' 


003403 




623 


000034' 






(4) 


000034' 


005021 




624 


000036' 






(6) 


000036' 


005302 




625 


000040' 






(4) 


000040' 


000773 




(3) 


000042' 






626 








627 








628 








629 








630 








631 


000042' 






(4) 


000042' 


016501 


000002 


632 


000046' 






(4) 


000046' 






(6) 


000046' 


026067 


000024 OOOOOOG 


(9) 


000054' 


002005 




633 


000056' 






(4) 


000056' 


117021 


000024 


634 


000062' 






(6) 


000062' 


C05260 


000024 


635 


000066' 






(4) 


000066' 


000767 




(3) 


000070' 







DE-QUEUE NEXT MESSAGE 

.SSTTL DE-QUEUE NEXT MESSAGE 

ROUTINE MSGDGET <DTABLE , KBECH,DFTMSG,MSGTYPE, MSGADDR , HDRADDR, RETADDR> 

MSGDGET: 

SAVE REGISTERS AND GET DTABLE ADDRESS AND KEYBOARD ECHO POINTER 



SEQ 0724 



CALL SAVREG 

LET RO := DTABLE(R5) 

LET R1 := KBECH(R5) 



JSR 
MOV 

MOV 



PC, SAVREG 
DTABLE(R5),R0 
KBECH(R5) ,R1 



SEE IF ANY OPERATOR INPUT IS AWAITING ECHOING, AND IF SO, ZERO THE 
ECHO BUFFER, COPY THE CHARACTERS TO BE ECHOED INTO IT AND USE THIS 
FIRST MESSAGE 



IF DT.KBECH(RO) LO KB.INP THEN 

LET R2 := #~D<40> 
WHILE R2 GT #0 DO 

LET (R1)+ := #0 

LET R2 : = R2 - #1 
ENDDO 



LOAD UP ECHO BUFFER FROM INPUT BUFFER 

LET R1 := KBECH(R5) 

WHILE DT.KBECH(RO) LT KB.INP DO 

LET (R1)+ :B= @DT . KBECH( RO) 
LET DT.KBECH(RO) : = DT.KBECH(RO) + #1 
ENDDO 



KEYBOARD 
AS THE 





cm? 

BHIS 


DT.KBECH(R0),KB 
50002$ 




MOV 


#"0<40>,R2 


50003$: 


TST 

3LE 


R2 
50004$ 




CLR 


(RD + 




DEC 


R2 




BR 


50003$ 



50004$: 



MOV 



KBECH(R5) ,R1 



50005$: 


CMP 

BGE 


DT.KBECH(R0),KB. 
50006$ 




MOVE 


@DT.KBECH(RO) ,(R 




INC 


DT.KBECH(RO) 


50006$: 


SR 


50005$ 
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SEQ 0725 



636 








637 








638 








639 








640 








641 


000070 ! 






(4) 


000070' 


012701 


177777 


642 


000074' 






(4) 


000074' 


016502 


000002 


643 


000100' 






(4) 


000100' 


005003 




644 


000102' 






(4) 


000102' 


005004 




645 


000104' 






(4) 


000104' 


000466 




(3) 


000106' 






646 








647 








648 








649 








650 








651 








652 


000106' 






(6) 


000106' 


005760 


000022 


(9) 


0001 12' 


001411 




653 


0001 14' 






(4) 


000114' 


012701 


000001 


654 


000120' 






(4) 


000120' 


016002 


000022 


655 


000124' 






(4) 


000124' 


005003 




656 


000126' 






(4) 


000126' 


005004 




657 


000130' 






(4) 


000130' 


005060 


000022 


653 


000134' 






(4) 


000134' 


000452 




(3) 


000136' 






659 








660 








661 








662 








663 








664 








665 


000136' 






(6) 


000136' 


005760 


000026 


(9) 


000142' 


001411 




666 


000144' 






(4) 


000144' 


012701 


177776 


667 


000150' 






(4) 


000150' 


016002 


000026 


668 


000154' 






(4) 


000154' 


005003 




669 


000156' 






(4) 
670 


000156' 
000160' 


005004 





SET UP OUTPUT ARGUMENTS FOR ECHO TYPE MESSAGE TYPE 

LET R1 := #MSGECH 

LET R2 := KBECH(R5) 

LET R3 := #0 

LET R4 := #0 
ELSE 



SEE IF THERE IS A KEYBOARD COMMAND RESPONSE WAITING TO BE OUTPUT, 
IF SO, TAKE IT NEXT, AND THEN CLEAR KEYBOARD RESPONSE INDICATOR 



IF DT.KBRSP(PO) NE #0 THEN 

LET R1 := #MSGRES 

LET R2 := DT.KBRSP(RO) 

LET R3 := #0 

LET R4 := #0 

LET DT.KBRSP(RO) := #0 





MOV 


#MSGECH,R1 




MOV 


KBECH(R5) ,R2 




CLR 


R3 




CLR 


R4 




BR 


50007$ 


50002$: 







ELSE 



TST 


DT.KBRSP(RO) 


BEQ 


50010$ 


IViQv 


#MSGRES,R 1 


MOV 


DT.KBRSP(RO) , R2 


CLR 


R3 


CLR 


R4 


CLR 


DT.KBRSP(RO) 


ER 


50011$ 



50010$: 



SEE IF THERE IS A KEYBOARD PROMPT AWAITING OUTPUT, IF SO, TAKE 
IT, AND CLEAR THE KEYBOARD PROMPT INDICATOR 



IF DT.KBPRM(RO) NE #0 THEN 

LET R1 := #MSGPRM 

LET R2 := DT.KBPRM(RO) 

LET R3 := #0 

LET R4 := #0 

LET DT.KBPRM(RO) := #0 



TST 
BEQ 


DT.KBPRM(RO) 
50012$ 


MOV 


#MSGPRM,R1 


MOV 


DT.KBPRM(RO) , R2 


CLR 


R3 


CLR 


R4 
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(4) 


000160 1 


005060 


000026 


671 


000164' 






(4) 


000164' 


000436 




(3) 


000166' 






672 








673 








674 








675 








676 








677 








578 








679 


000166' 






(4) 


000166' 


162705 


000010 


(3) 


000172' 


004767 


OOOOOOG 


(4) 


000176' 


012501 




(4) 


000200' 


012502 




(4) 


000202' 


012503 




(4) 


000204' 


012504 




580 


000206' 






(6) 


000206' 


103417 




681 


000210' 






(6) 


000210' 


020127 


000003 


(9) 


000214' 


002413 




582 


000216' 






(4) 


000216' 


162705 


000002 


( 3^ 


000222' 


010546 




(7) 


000224' 


010345 




(6) 


000226 ' 


010245 




(5) 


000230' 


010145 




(4) 


000232' 


010045 




(3) 


000234' 


004767 


OOOOOOG 


(3) 


000240' 


012605 




(4) 


000242' 


012502 




683 


000244' 






(4) 


000244' 






684 


000244' 






(4) 


000244' 


000406 




(3) 


000246' 






685 








686 








687 








688 








689 








690 








691 


000246' 






(4) 


000246' 


012701 


177775 


692 


000252' 






(4) 


000252' 


016502 


000004 


693 


000256' 






(4) 


000256' 


005003 




694 


000260' 






(4) 


000260' 


005004 




695 


000262' 






(4) 


000262' 






696 


000262' 






(4) 


000262' 







ELSE 



SEQ 0726 
CLR DT.KBPRM(RO) 
BR 50013$ 



;0012S: 



SEE IF THERE IS ANYTHING IN THE TYPE QUEUE WAITING TO BE PRINTED, 
IF SO, CHECK TO SEE IF ITS A SKELETAL MESSAGE THAT HAS TO BE 
FILLED-IN 



CALL DEQTQ OUT <R1 , R2 , R3, R4> 



SUB 


#4*2, R5 


JSR 


PC, DEQTQ 


MOV 


(R5)+,R1 


MOV 


(R5)+,R2 


MOV 


(R5)+,R3 


MOV 


(R5)+,R4 



IF. NO. ERROR THEN 

IF R1 GE #MSGSKEL THEN 



BCS 



ENDIF 



ELSE 



THE TYPE QUEUE MUST BE EMPTY, SO WE'LL RETURN THE DEFAULT MESSAGE 
WHICH IS THE ONE-CHAR NULL MESSAGE 



LET R1 : 

LET R2 : 

LET R3 : 

LET R4 : 
ENDIF 
ENDIF 



= #MSGNUL 

= DFTMSG(R5) 

= #0 

= #0 



50014$ 





CMP 


R1 , #MSGSKEL 




BLT 


50015$ 


> OUT - 


CR2> 






SUB 


#1*2, R5 




MOV 


R5,-(SP) 




IVIUV . 


R3 , - ( R5 ) 




MOV 


R2,-(R5) 




MOV 


R1 ,-(R5) 




MOV 


R0,-(R5) 




JSR 


PC,FILLMSG 




MOV 


(SP)+,R5 




MOV 


(R5)+,R2 


50015S 








BR 


50016$ 


50014$ 









MOV 


#MSGNUL,R1 




MOV 


DFTMSG(R5) , R2 




CLR 


R3 




CLR 


R4 


50016$: 






50013$: 
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697 


000262' 






(4) 


000262' 






698 


000262' 






(4) 


. 000262' 






699 








700 








701 








702 








703 








704 


000262' 






(4) 


000262' 


010165 


000006 


705 


000266' 






(4) 


000266' 


010265 


000010 


706 


000272' 






(4) 


000272' 


010365 


000012 


707 


000276' 






(4) 


000276' 


010455 


000014 


708 








709 








710 








711 








712 








713 


000302' 






(3) 


000302' 


004767 


OOOOOOG 


714 


000306' 






(3\ 


000306' 






(3) 


000306' 






(2) 


000306' 


000207 




715 








716 




000001 





DE-QUEUE NEXT MESSAGE 
ENDIF 
ENDIF 

LOAD UP OUTPUT ARGUMENTS 



SEQ 0727 



50011S: 
50007$: 



LET MSGTYPE(R5) 

LET MSGADDR(R5) 

LET HDRADDR(R5) 

LET RETADDR(R5) 



= R1 
= R2 
= R3 

= R4 



MOV 
MOV 
MOV 
MOV 



RESTORE REGISTERS AND RETURN TO CALLER 

CALL RESREG 
ENDRTN 

.END 



50000$: 
50001S: 



JSR 



RTS 



R1 ,MSGTYPE(R5) 
R2,MSGADDR(R5) 
R3,HDRADDR(R5) 
R4,RETADDR(R5) 



PC, RESREG 



PC 
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ACSR = 
ACTBIT= 
ADDR22= 
ADR 

APTFER= 
APTPRE= 
ASB 

ASSEMB=. 
ASTAT = 
AUTO * 
AUTOST= 
AWAS = 
BITO = 
BITOO = 
BIT01 = 
BIT02 = 
BIT03 = 
BIT04 = 
BIT05 = 
BIT06 = 
BIT07 = 
BIT08 = 
BIT09 = 
BIT1 = 
3IT10 = 
BIT1 1 - 
BIT12 = 
3ITT3 s 
BIT14 = 
BIT15 = 
BIT2 = 
3IT3 = 
BIT4 = 
BITS = 
BIT6 = 
BIT7 = 
BIT8 = 
BIT9 = 
BKDEF = 
BKMOD = 
BKMODE= 
BKSLSH= 
CAPRES= 
CASTAT= 
CDERCT= 
CDWDCT= 
CKTIM = 
CLKPRE= 
CONFIG= 
CQOVF = 
CR 

CSRA = 
CSRC = 



000102 
004000 
001000 
000006 
000004 
000200 
000106 
000010 
000104 
000010 
020000 
0001 10 
000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
OOiOOO 
000002 
002000 
0040Q0 
010000 
020000 
040000 
100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
000020 
040000 
000134 
000004 
000004 
000146 
000144 
100000 
000001 
000056 
000001 
000015 
000100 
000102 



CTRL'C = 
CTRLO = 
CTRLU = 
DCEVNT= 

DEFRTN= 

rs r- ,-N -r ' r\ 

ucw I w - 
DFTMSG= 
DIAGMC= 
DROPMO= 
DSEVNT= 
DTABLE= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CF0= 
DT.CF1= 
DT.ERR= 
DT..ESI = 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP- 
DT.K6R= 
DT.KBU- 
DT.MLS= 
DT.MTI= 
DT.OFF; 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.ST0= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU = 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 



000003 
00 0017 
000025 
000011 
000400 

000004 
000000 
100000 
000014 
000000 
000042 
OOOtOO 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
000110 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
0OOC40 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 



ENBNUL= 

ENDLST= 

E0P3IT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

FILLMS= 

HDRADD= 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT = 

INTR = 

IGMOD = 

IOM0DP=. 

IOMODR= 

IOMODX= 

JACK = 

K5ECH = 

KB.INP= 

KIPARO= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 



000001 
000000 
000001 
000106 
000200 
000200 
000203 
000202 
000201 
100000 

000012 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000030 
000120 
100000 
102000 
112000 
110000 
035060 
000002 

172340 
1 72342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 



20-SEP-78 


'.8:09 PAl 


LPSTAT= 


000001' 


MAPSTA= 


000200 


MED . = 


076600 


MEMPAS= 


040000 


'modexh= 


004000 


MODHOL= 


002000 


MODSEL= 


001000 


MSGADD= 


000010 


MSGCKD= 


000010 


MSGCKS= 


00001 1 


MSGDER= 


000005 


MS.GDGE 


OOOOOORG 


MSGDRP= 


000017 


MSGECH= 


177777 


MSGEOP= 


000013 


MSGHDR= 


000004 


MSGHNG= 


000022 


MSGHRD= 


000007 


MSGMAP= 


000021 


MSGNUL= 


177775 


MSGPOP= 


000002 


M3GPRM= 


177776 


MSGRES= 


000001 


MSGSFT= 


000006 


MSGSKE= 


000003 


MSG'SMB= 


000015 


MSGSMH= 


000014 


MS6SMS= 


000016 


M'SGS'TD= 


000000 


MSGSYS= 


000012 


W!SGTYP = 


000006 


MSGVEC= 


000020 


NBKMOD= 


001000 


NCPUOP= 


000020 


NOAPTY= 


000C02 


NULL = 


000000 


OWEN ■ = 


024020 


PAERR = 


000010 


PARPRE= 


002000 


PARSTA= 


000100 


PASCNT= 


000C34 


PDPLSI= 


020000 


PDP60 = 


004000 


PDP70 = 


010COO 


PRIO = 


ooocoo 


PRI1 = 


000040 


PRI4 = 


000200 


PRI5 = 


000240 


PRI6 = 


000300 


PRI7 = 


0C0340 


PRO 


000000 


PR4 = 


000200 


PR5 


000240 



SEQ 0728 



PR5 
PR 7 
PS 
PSW 

RANNiUM= 
RBUFEA= 
R3UFPA= 
R3UFSZ= 
R3UFVA= 
RDSERV= 
RDWHMI= 
RELERR= 
RE LP/10 D= 
RELTIM= 
RESREG= 
RES1 = 
RES2 = 
RETADD= 
RICHAR= 
RPTDAT= 
RSTRT = 
RU3QUT= 
RUNMOD= 
R5VALU= 
SAM 

SAVREG= 
53ADR = 
SBKMOD= 
S3KSEL= 
SC. ADR= 
SC.ALC= 
SC.APC= 
SC.CKL= 
SC.CKP= 
SC.CLO= 
SC.HLD= 
SC.SCA= 
SENDLS= 
SOFCNT= 
SOFPAS= 
SPACE = 
SPOINT= 
SPVALU= 
SRC- 
SRI 
SR2 
SR3 

STAT = 
STATBI= 
STAT1 = 
SUSPND= 
SVRO = 
SVR1 = 



000300 
000340 
177776 
177776 
000054 
000130 
000126 
000132 
000124 
000101 
000022 
000020 
020000 
010000 

000056 
000060 
000014 
031060 
002000 
000112 
000177 
100000 
001740 
0754S4 

000102 
000000 
010000 
000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 
000027 
000001 
000062 
000064 
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SEO 0729 



SVR2 = 


000066 


UIPDR5= 


177612 


SVR3 = 


000070 


UIPDR6= 


177614 


SVR4 = 


000072 


UIPDR7= 


177616 


SVR5 = 


000074 


WASADR= 


000104 


SVR6 = 


000076 


WBSTAT= 


000040 


SYSCNT= 


000052 


WBUFEA= 


|-\A A -j OC 


SYSERR= 


000100 


WBUFPA= 


000134 


TMPIO = 


000002 


WBUFRQ= 


000140 


TQOVF = 


000002 


W3UFSZ= 


000142 


UIPAR0= 


177640 


WDFR = 


0001 16 


UIPAR1= 


177642 


WDTO = 


000114 


UIPAR2= 


177644 


WTINRE= 


000352 


UIPAR3= 


177646 


WTWHMI= 


000222 


UIPAR4= 


177650 


XFLAG = 


000005 


UIPAR5= 


177652 


XOFF = 


00C023 


UIPAR6= 


177654 


XON 


000021 


UIPAR7= 


177656 


$BGNLE= 


177777 


UIPDR0= 


177600 


$.ERFLG= 


000400 


UIPDR1= 


177602 


$F$AND= 


000310 


UIPDR2= 


177604 


$F$3AD= 


000401 


UIPDR3= 


177606 


$F$BLA= 


000170 


UIPDR4= 


177610 


$F$CAS= 


000150 


. ABS. 


000000 000 
000310 001 





$F$DEC= 
$F$DO = 
$F$FAL= 
$F$GOO= 
SF$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$FSRTI= 
$F$RTN= 
$F$SEL= 
$F$TKE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 
$IFLEV= 
SISKO = 
SISK1 = 
$ISK2 = 



000220 
000340 
000405 
000400 
000110 
00021 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 
000001 
000001 
000001 



$ISK3 = 
$ISK4 = 
$LOCTA= 
$LSTIN= 
$LSTTA= 
SNESTL= 
SNSKO = 
SNSK1 = 
$NSK2 = 
$NSK3 = 
SNSK4 = 
SNSK5 = 
SSAVLE= 
SSSKO = 
$TAGLE= 
$TAGNU= 
STEMP = 
STSKO = 
STSK1 = 
$TSK2 = 
$TSK3 = 
$TSK4 = 



000001 
000001 
177777 
000001 
000001 
177777 
000300 
000110 
000110 
000110 
000110 
000110 
177777 
050005 
177777 
050017 
000300 
050007 
05C01 1 
050013 
050016 
050015 



S$AR'GC = 
$$BYTE= 
S$CASE= 
SSDST = 
$$ELOC= 
SSERFL= 
$SFLAG= 
SSFROM= 
SSLOC = 
$$LOCN= 
S$REG = 
$SRETU= 
$SRTN1= 
$SRTN2= 
$$SRC = 
$STGSV= 
S$TGS1= 
$STGS2= 
SSTO = 
S$STAG= 



000016 

000403 

000000 

000000 

000402 

000000 

000001 

000000 

000214R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000310R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSK2:MSGDGE,DSK2:MSGDGE=SPMAC/ML, EQUATE r MSGDGE 
RUN-TIME: 16 6 .4 SECONDS 
RUN-TIME RATIO: 102/23=4.2 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:11 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0730 

3 COMMON EQUATE MODULE 

565 COMMON DEFINTIONS AND REFERENCES 

570 000000' .PRINT ;SPMAC: VERSION 1.1 

598 MSGDHOOK ROUTINE 
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SEQ 0731 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 



.TITLE MSGDHOOK - HOOK MESSAGE TO OUTPUT DRIVER 
■IDENT /VO.O/ 



++ 
MODULE NAME: 

MSGDHOOK 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE HOOKS THE ADDRESS OF. THE NEXT MESSAGE 

TO BE PRINTED TO THE APPROPRIATE OUTPUT DRIVER 

AND THEN INITIATES THE PRINTING OF THE MESSAGE 

BY CALLING THE DRIVER AT ITS I/O INITIATOR ENTRY POIN" 



INPUTS: 
1 . 
2. 
3. 
4. 



ADDRESS OF DATA TABLE 
MESSAGE TYPE CODE 
ADDRESS OF MESSAGE 
RETURN ADDRESS 



IMPLICIT INPUTS: 

1. DT.STO 

2. DT.CFO 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
TTINI 
LPINI 
SAVREG 
RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL MSGDHOOK IN <DTABLE , MSGCOD .MSGADDR , RETADR> 
WHERE DTABLE = ADDRESS OF DATA TABLE 
MSGCOD = MESSAGE TYPE CODE 
MSGADDR = MESSAGE ADDRESS 
RETADDR = RETURN ADDRESS 

VERSION: 
0.0 



EDIT 



BY 



DATE 



REASON 



MSGDHOOK - HOOK MESSAGE TO OUTPUT DRIVER 
MSGDHO.MAC 01-AUG-78 11:29 

564 
565 
566 
567 
568 
563 

570 000000' 
(1) 000000' 

571 000001 

572 000001 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 

595 000000' 000000 
596 



MACY11 30A(1052) 20-SEP-78 18:11 PAGE 20 
COMMON EQUATE MODULE 

.SBTTL COMMON DEFINTIONS AND REFERENCES 



.MCALL STRUCT 
STRUCT 
PRINT ;SPMAC: VERSION 1.1 
SLSTIN = 1 
SLSTTAG = 1 



REFERENCED BY OTHER MODULES 
GLOBL MSGDHOOK 

GLOBAL REFERENCES 



SEQ 0732 



GLOBL TTINI 

GLOBL LPINI 

GLOBL SAVREG 

GLOBL RESREG 

LOCAL STORAGE: 
MS. EXT: .WORD 



;MODULE'S ENTRY POINT 



; TERMINAL DRIVER MODULE 
;LINE PRINTER DRIVER MODULE 



;EXIT THROUGH HERE IF NO TTY('JNDER APT) 
;AND ITS A MSGPOP 



MSGDHOOK - HOCK MESSAGE TO OUT D UT DRIVER MACY11 30A(1052) 20-SEP-78 18:11 PAGE 21 
MSGDHO.MAC 01-AUG-78 1 1 :29 MSGDHOOK ROUTINE 



SEQ G733 



598 
599 
600 
601 
(2) 
602 
603 
604 
605 
606 
607 
608 
(3) 
609 
(4) 
610 
(4) 
511 
(4) 
512 
(4) 
613 
(4) 
614 
615 
616 
617 
618 
619 
620 
621 
622 
(6) 
(9) 
623 
624 
625 
626 
627 
628 
(6) 
(9) 
629 
(3) 
(7) 
(6) 
(5) 
(4) 
(3) 
(3) 
630 
(4) 
(3) 
631 
632 
633 



000002' 
000002' 



000002' 
000002' 
000006' 
000006' 
000012' 
000012' 
000016' 
000016' 
000022* 
000022' 
000026' 
000026' 



004767 



016501 



016502 



016503 



010367 



016500 



OOOOOOG 

000002 

000004 

000006 

177752 

000000 



.SBTTL MSGDHOOK ROUTINE 



ROUTINE MSGDHOOK <DTA6LE,MSGC0DE,MSGADDR , RETADR> 



DO THE NECESSARY SET-UP STUFF 

CALL SAVREG 
LET R1 := MSGC0DE(R5) 
LET R2 := MSGADDR(R5) 
LET R3 := RETADR(R5) 
LET MS. EXT := R3 
LET RO := DTABLE(R5) 



MSGDHOOK: 



JSR 
MOV 
MOV 
MOV 
MOV 
MOV 



IF THERE IS NO TTY (UNDER APT) WE WILL BE EXITTING DIRECTLY (BELOW) 



000032* 

000032' 032760 000002 000014 

000040' 001026 



000042* 
000042' 
000050' 
000052' 
000052' 
000054' 
000056' 
000060' 
000062' 
000064' 
000070' 
000072' 
000072' 
000074' 



032760 
001411 

010546 
010345 
010245 
010145 
010045 
004767 
012605 

000410 



000001 000010 



IF #NOAPTY NOTSETIN DT.CFO(RO) THEN 



IS THE "LPON" KEYBOARD COMMAND IN EFFECT? IF IT IS, 
THIS MESSAGE IS TO GO TO THE LINE PRINTER 



IF #LPSTAT SETIN DT.STO(RO) THEN 



CALL LPINI IN <R0,R1 ,R2,R3> 



BIT 
BNE 



PC, SAVREG 
MSGC0DE(R5),R1 
MSGADDR(R5) ,R2 
RETADR(R5) , R3 
R3.MS.EXT 
DTABLE(R5),R0 



#NOAPTY,DT.CF0(R 
50002$ 



OOOOOOG 



ELSE 



BIT 


#LPSTAT,DT.ST0(R 


BEQ 


50003$ 


MOV 


R5,-(SP) 


MOV 


R3,-(R5) 


MOV 


R2,-(R5) 


MOV 


R1 ,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, LPINI 


MOV 


(SP)+,R5 


BR 


50004$ 


50003$: 





; + 



IF NO ONE ELSE WANTS IT, PASS IT TO THE TERMINAL OUTPUT DRIVER 



MSGDHOQK - HOOK MESSAGE TO OUTPUT DRIVER MACY1 1 30A(1052) 
MSGDHO.MAC 01-AUG-78 11:29 MSGDHOQK ROUTINE 



20-SEP-78 18:11 PAGE 21-1 



SEQ 0734 



634 






635 


000074' 




(3) 


000074' 


010546 


(7) 


000076' 


010345 


(6) 


000100' 


010245 


(5) 


000102' 


010145 


(4) 


000104' 


010045 


(3) 


000106' 


004767 OOOOOOG 


(3) 


0001 12' 


012605 


636 


0001 14' 




(4) 


000114' 




637 


0001 14' 




(4) 


000114' 


000406 


(3) 


000116' 




638 






639 






540 






641 






642 






643 






644 


000116' 




(3) 


000116' 


004767 OOOOOOG 


645 






646 


000122' 




(2) 


000122' 


005726 


647 


.000124' 




(2) 


000124' 


012605 


648 


000126' 




(2) 


000126' 


000177 177646 


649 


000132' 




(4) 


000132' 




650 






651 






652 






653 






654 






655 






656 


000132' 




(3) 


000132' 


004767 OOOOOOG 


657 


000136' 




(3) 


000135' 




(3) 


000136' 




(2) 


000136' 


000207 


658 






659 






660 




000001 



CALL TTINI IN <R0 f R1 , R2 , R3> 



MOV 


R5,-(SP) 


MOV 


R3,-(R5) 


MOV 


R2,~(R5) 


MOV 


R1 ,-(R5) 


MOV 


R0 t -(R5) 


JSR 


PC T TTINI 


MOV 


(SP)+,R5 



ENDIF 



50004$: 



ELSE 



BR 



50005$ 



50002$: 



IF WE ARE UNDER APT WITH NO TTY, 

CLEAN UP IN AN UNNATURAL WAY (SIMULATE THE NORMAL RETURN 
THAT IS, RESTORE REGS, DO ONE FINAL POP, WHICH KILLS 
THE RTS PC. RESTORE R5 THEN JUMP THRU MS. EXT) 



CALL RESREG 

INLINE <TST 
INLINE <MOV 



(SP)+> 
(SP)+,R5> 



JSR 



TST 



INLINE <JMP @MS.EXT> 



JMP @MS 



PC, RESREG 

(SP) + 
(SP)t, R5 
EXT 



ENDIF 



50005$: 



CHOW BABY! ! ! ! ! ! ! 

CALL RESREG 
ENDRTN 



END 



50000$: 
50001$: 



JSR 



RTS 



PC, RESREG 



PC 
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SEQ 0735 



ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 




ASB 


000106 


ASSEM3= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


000110 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


3IT14 = 


040000 


BIT15 '= 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BITS = 


000100 


BIT7 = 


000200 


BITS = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQOVF = 


000001 


CR 


000015 


CSRA = 


000100 


CSRC = 


000102 



CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO= 
DSEVNT= 
DTABLE= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CF0= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT*RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT-ST0= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.W3U= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
EN3NUL= 
ENDLST= 



000003 
000017 
000025 
000011 
00 0400 
000000 
100000 
000014 
000000 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000C50 
000054 
000052 
000014 
000100 
000010 
010000 
000001 

oooooo 



EOPBIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL=' 

IMHRRE= 

INIT = 

INTR = 

IOMOD = 

IOIViODP = 

IOMODR= 

IOMODX= 

JACK = 

KIPAR0= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDR0= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTE.RRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPINI = 

LPSTAT= 

MAPSTA= 

MED 

MEMPAS= 

MODEXH= 



000001 
000105 
000200 
000200 
000203 
000202 
000201 
100000 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000030 
000120 
100000 
102000 
1 12000 
110000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
17235S 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 
****** 

000001 
000200 
076600 
040000 
004000 



MODHOL= 


002000 


MODSEL= 


001000 


MSGADD= 


000004 


MSGCKD= 


000010 


MSGCKS= 


000011 


MSGCOD= 


000002 


MSGDER= 


000005 


MSGDHO 


000002RG 


MSGDRP= 


000017 


MSGECH= 


177777 


MSGEOP= 


000013 


MSGHDR= 


000004 


MSGHNG= 


000022 


MSGHRD= 


000007 


MSGMAP= 


000021 


MSGNU.L= 


177775 


MSGPOP= 


000002 


WSGPRM= 


177775 


MSGRES- 


,00-0001 


MSGSFT= 


000006 


MSGSKE= 


000003 


MSGSNia= 


000015 


MSGSMH= 


000014 


MSGSMS.= 


000015 


MSGSTD= 


OOOOOO 


MSGSYS= 


000012 


MSGVEC= 


000020 


MS. EXT 


OOOOOOR 


N BKMOD = 


001000 


NCPUOP= 


000020 


NOAPTY= 


000002 


NULL = 


OOOOOO 


OWEN = 


024020 


PAERR = 


000010 


PARPRE= 


002000 


PARSTA= 


000100 


PASCNT= 


000034 


PDPLSI= 


020000 


PDP60 = 


004000 


PDP70 = 


010000 


PRIO = 


OOOOOO 


PRI1 = 


000040 


PRI4 = 


000200 


PRI5 = 


000240 


PRI6 = 


000300 


PRI7 = 


000340 


PRO 


OOOOOO 


PR4 


000200 


PR5 


000240 


PR6 


000300 


PR7 


000340 


PS 


177776 


PSW 


177776 



RANNUM= 

RBUFEA= 

R3UFPA= 

RBUFSZ= 

RBUFVA= 

RDSERV= 

RDWHMI= 

RELERR= 

RELf,"OD= 

RELTIM= 

RESREG= 

RES1 = 

RES2 = 

RETADR= 

RICHAR= 

RPTDAT= 

RSTRT = 

RUEOUT= 

RUNMOD= 

R5VALU= 

SAM 

SAVREG= 

SBADR = 

S3KM0D= 

SBKSEL= 

SC.ADR= 

SC. ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SOFCNT= 

SGFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRC 

SR1 

SR'2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 = 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 



000054 
000130 
000126 
000132 
000124 
000101 
000022 
000020 
020000 
010000 
****** 

000056 
000060 
000006 
031060 
002000 
000112 
000177 
100000 
001740 
075464 
****** 

000102 
OOOOOO 
010000 
000006 
00001 4 
000016 
000002 
000004 
OOOOOO 
0C0010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 
000027 
000001 
000062 
000064 
000066 
000070 
000072 
000074 
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SEQ 0736 



SVR6 = 


000076 




UIPDR6= 


177614 


SYSCNT= 


000052 




UIPDR7= 


177616 


SYSERR= 


000100 




WASADR= 


000104 


TMPIO = 


000002 




WBSTAT= 


000040 


TQOVF = 


000002 




WBUFEA= 


000136 


TTINI = 


JJC * * * # # Q 




WBUFPA= 


000134 


UIPAR0= 


177640 




WBUFRO= 


000140 


UIPAR1= 


177642 




WBUFSZ= 


000142 


UIPAR2= 


177644 




WDFR = 


000116 


UIPAR3= 


177646 




WDTO = 


000114 


UIPAR4= 


177650 




WTINRE= 


000352 


UIPAR5= 


177652 




WTWHMI= 


000222 


UIPAR6= 


177654 




XFLAG = 


000005 


UIPAR7= 


177656 




XOFF = 


000023 


UIPDR0= 


177600 




XON 


000021 


UIPDR1= 


177602 




$BGNLE= 


177777 


UIPDR2= 


177604 




$ERFLG= 


000400 


UIPDR3= 


177606 




$F$AND= 


000310 


UIPDR4= 


177610 




$F$BAD= 


000401 


UIPDR5= 


177612 




$F$BLA= 


000170 


. ABS. 


000000 
000140 


000 
001 







$F$CAS= 
$F$DEC= 
$F$DO = 
$F$FAL= 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 
$IFLEV= 



000150 
000220 
000340 
000405 
000400 
000110 
000210 
000200 
000160 
000403 
000320 
0C0350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 



$ISKO = 
SISK1 = 
$LOCTA= 
$LSTIN= 
$LSTTA= 
$NESTL= 
SIMSKO = 
$NSK1 = 
SNSK2 = 
$SAVLE= 
$TAGLE= 
$TAGNU= 
STEMP = 
$TSKO = 
STSK1 = 
$$ARGC= 
$$BYTE= 
$SCASE= 
S$DST = 
$$ELOC= 



00G001 
000001 
177777 
000001 
000001 
177777 
000300 
000110 
000110 
177777 
177777 
050006 
000300 
050005 
050004 
000010 
000403 
000000 
000000 
000402 



$5ERFL= 
$$FLAG= 
$$FSO!V!= 
SSLOC = 
$$LOCN= 
$$REG = 
SSRETU= 
$$RTN1= 
$SRTN2= 
SSSRC = 
$$TGSV= 
$STGS1= 
$ 3 T GS 2 = 
SSTQ = 
$$$TAG= 



000000 

000001 

000000 

000050R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000140R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSX2: MSGDHO , DSKZ : MSGDHO=SP!VIAC/ML , EQUATE ,MSGDHO 
RUN-TIME: 12 2 .4 SECONDS 
RUN-TIME RATIO: 69/16=4.3 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-7S 13:12 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0737 

3 COMMON EQUATE MODULE 

565 COMMON DEFINITIONS AND REFERENCES FOR NAMCHK 

563 000000' .PRINT ;SPMAC: VERSION 1.1 

590 NAMCHK ROUTINE 



NAMCHK VERIFY A MODULE NAME 
NAMCHK. MAC 28-JUL-78 09:23 

508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
533 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 



MACY11 30A(1052) 20-SEP-78 18:12' PAGE 19 
COMMON EQUATE MODULE 

.TITLE NAMCHK VERIFY A MODULE NAME 
.IDENT /VO.O/ 



++ 
MODULE NAME: 
NAMCHK 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS CALLED TO VERIFY A MODULE NAME. IT 
RECEIVES THE ADDRESS OF THE FIRST CHARACTER OF THE MODULE 
NAME AND SEARCHES THE MODULE LIST FOR A FIVE CHARACTER MATCH. 
IF THE MODULE NAME IS FOUND, THE HEADER ADDRESS OF THE 
MODULE IS RETURNED. IF IT IS NOT FOUND, A RETURN WITH 
ERROR OCCURS. THE UPDATED COMMAND DECODE BUFFER IS 
RETURNED WHETHER OR NOT THERE WAS AN ERROR. 
A RETURN WITH ERROR OCCURS IF THE MODULE NAME IS 
MORE THAN 5 CHARACTERS IN LENGTH. 



SEQ 0738 



INPUTS: 
1 . 
2 



ADDRESS OF DATA TABLE 
COMMAND DECODE BUFFER POINTER 



IMPLICIT INPUTS: 
DT.MLST 



OUTPUTS: 



ntAutn HUunsLOS> ur iiiuuull 



2. UPDATED COMMAND DECODE BUFFER POINTER 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
SAVREG 
RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL NAMCHK IN <DTADR ,MODBUF> OUT <HEAD r NEWBUF> 

WHERE DTADR = ADDRESS OF DATA TABLE 

MODBUF = ADDRESS OF 5 BYTE BUFFER CONTAINING MODULE NAME 
HEAD = HEADER ADDRESS OF VERIFIED MODULE 
NEWBUF = UPDATED DECODE BUFFER POINTER 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



NAMCHK 
NAMCHK. 

565 
566 
567 
568 
(D 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 



VERIFY A MODULE NAME MACY11 30A(1052) 20-SEP-78 18:12 PAGE 19-1 
.MAC 28-JUL-78 09:23 COMMON DEFINITIONS AND REFERENCES FOR NAMCHK 

.SBTTL COMMON DEFINITIONS AND REFERENCES FOR NAMCHK 



SEQ 0739 



000000' 
000000' 



000001 
000001 



.MCALL STRUCT 

STRUCT 

.PRINT jSPMAC: VERSION 1.1 

$LSTIN=1 
$LSTTAG=1 

REFERENCED BY OTHER MODULES: 



GLOBL NAMCHK 

GLOBAL REFERENCES: 

GLCBL SAVREG 
GLOBL RESREG 



; ROUTINE ENTRY POINT 



NAMCHK VERIFY A MODULE NAME 
NAMCHK. MAC 28-JUL-78 09:23 



591 








592 


000000' 






(2) 


000000' 






593 








594 








595 








596 








597 








598 








599 








600 








601 


000000' 






(3) 


000000 s 


004767 


OOOOOOG 


602 


000004' 






(4) 


000004' 


016501 


000002 


603 


000010' 






(4) 


000010' 


010165 


000006 


(6) 


000014' 


062765 


000005 000006 


604 


000022' 






(6) 


000022' 


126127 


000005 000040 


(9) 


000030' 


001405 




(6) 


000032* 


126127 


000005 000015 


(9) 


000040' 


001401 




605 


000042' 






(2) 


000042' 


000433 




b06 


U0U044 - 






(4) 


000044' 






607 








60S 








609 








610 








611 








612 


000044' 






(4) 


000044' 


016500 


000000 


613 


000050' 






(4) 


000050' 


016000 


000032 


614 








615 








616 








617 








618 








619 


000054' 






(4) 


000054' 


011002 




620 








621 








622 








623 








624 








625 


000056' 






(4) 


000056' 






(6) 


000056' 


021027 


000000 


(9) 


000062' 


001423 




626 








627 








628 









■ MACY11 30A(1052) 20-S.EP-78 18:12 PAGE 19-2 
NAMCHK ROUTINE 

.SBTTL NAMCHK ROUTINE 

ROUTINE NAMCHK <DTADR, MQDBUF , HEAD , NEWBUF> 



SEQ 0740 



NAMCHK: 



SAVE REGISTERS, UPDATE CMD DECODE BUFFER POINTER, AND SEE IF IT'S 

A SPACE OR <CR> IF NOT, POP R1 AND RETURN ERROR BECAUSE 

MODULE NAME MAY NOT EXCEED 5 CHARACTERS 



CALL SAVREG 

LET R1 := M0DBUF(R5) 

LET NEWBUF(R5) := R1 



#5 



IFB 5(R1) NE #SPACE ANDB 5(R1) NE #CR THEN 



INLINE <BR 



1S> 



JSR 
MOV 

MOV 

ADD 

CMP 3 
BEQ 
CMPB 
BEQ 

BR 



50002$: 



SAVE DTABLE ADR, THEN MODULE LIST 

LET RO := DTADR(R5) 
LET RO := DT.MLST(RO) 

SAVE FIRST MODULE ADDR IN R2 
LET R2 := (RO) 

WHILE MODULE LIST IS NOT EXHAUSTED (=0) 
WHILE (RO) NE #ENDLST DO 



MGV 
MOV 



MOV 



50003$: 



CMP 
EEQ 



PC, SAVREG 

M0DBUF(R5),R1 

R1 ,NEWBUF(R5) 
#5,NEWBUF(R5) 

5(R1 ) ,#SPACE 
50002$ 
5(R1 ) ,#CR 
50002$ 

1$ 



DTADR(R5) , RO 
DT.MLST(RO) ,R0 



(R0),R2 



(RO) ,#ENDLST 
50004$ 



; + 

; INIT COUNT - WHILE CHARACTER IN MODULE HEADER = CHARACTER IN 
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SEQ 0741 



629 






630 






631 






632 


000064* 




(4) 


000064' 


012703 000005 


533 


000070 ' 




(4^ 


000070' 




(6) 


000070' 


122221 


(9) 


000072' 


001011 


634 






635 






636 






637 






638 






639 






640 






641 


000074' 




(6) 


000074' 


005303 


542 


000076' 




(6) 


000076' 


005703 


(9) 


000100' 


001005 


643 


000102' 




(4) 


000102' 


011065 000004 


644 


000106' 




(3) 


000106' 


004767 OOOOOOG 


645 


0001 12' 




(4) 


0001 12' 


000413 


646 


000114' 




(4) 


000114' 




547 


0001 14' 




(4) 


000114' 


000765 


(3) 


000116' 




648 






649 






650 






651 






652 


000116' 




(6) 


0001 16' 


062700 000002 


653 






654 






655 






656 






657 






658 






659 






660 


000122' 




(4) 


000122' 


01 1002 


661 






662 






663 






664 






665 






666 


000124' 




(4) 


000124' 


016501 000002 


667 


000130' 




(4) 


000130' 


000752 



; BUFFER 



LET R3 := #5 

WHILEB (R2)+ EQ (R1 )+ DO 



50005$: 



MOV 



CMP 3 
BNE 



ADVANCE TO NEXT CHARACTER, DECREMENT COUNT, SEE IF COUNT = 0. 
IF IT IS ZERO, SAVE CURRENT HEADER ADDRESS (RO) AND 
RETURN WITH NO ERROR. 



LET R3 := R3 - #1 
IF R3 EQ #0 THEN 

LET HEAD(R5) : = (RO) 
CALL RESREG 
RETURN NO. ERROR 
ENDIF 
ENDDO 



GET TO THE NEXT TABLE ADDRESS 
LET RO := RO + #2 



DEC 



ADD 



SAVE NEW MODULE ADDRESS IN R2 



LET R2 := (RO) 



RESTORE MODULE BUFFER POINTER 



LET R1 := M0DBUF(R5) 



MOV 



ENDDO 



MOV 

BR 



#5,R3 



(R2)+,(R1)+ 

50006$ 



R3 





TST 


R3 




BNE 


50007$ 




MOV 


(RO) ,HEAD(R5) 




JSR 


PC, RESREG 




DU 


50000$ 


50007$: 








BR 


50005$ 


50006$: 







#2,R0 



(RO) ,R2 



M0DBUF(R5) ,R1 
50003$ 
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NAMCHK ROUTINE 
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SEQ 0742 



(3) 


000132' 






663 








669 






j + 


370 






; CLEAN UP A 


671 






;- 


572 








673 


000132' 




INLINE <1$:> 


(2) 


000132' 






674 


00C132' 




CALL RESREG 


(3) 


000132' 


004767 000000G 




675 








676 


000136' 




RETURN ERROR 


(2) 


000136' 


000261 




(4) 


000140' 


000401 




577 








678 


000142' 




ENDRTN 


(3) 


000142' 






(2) 


000142* 


000241 




(3) 


000144' 






(2) 


000144' 


000207 




679 








680 




000001 


.END 



50004$: 



CLEAN UP AND RETURN WITH ERROR BECAUSE MODULE NAME NOT FOUND 



500005: 



50001S: 



JSR 



SEC 
BR 



CLC 



RTS 



PC, RESREG 



50001$ 



PC 
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SYMBOL TABLE 



ACSR = 
ACT3IT= 
ADDR22= 
ADR 

APTFER= 
APTPRE= 
ASB 

ASSEMB= 
AST'AT = 
AUTO = 
AUTOST= 
AWAS = 
BITO = 
BITOO = 
BIT01 = 
BIT02 = 
BIT03 = 
BIT04 = 
BIT05 = 
BIT06 = 
BIT07 = 
BIT08 = 
BIT09 = 
BIT1 = 
BIT10 = 
3IT11 = 
BIT12 = 
BIT13 = 
BIT14 = 
BIT15 = 
BIT2 = 
BIT3 = 
BIT4 = 
BIT5 = 
BIT6 = 
BIT7 = 
BIT8 = 
BIT9 = 
BKDEF = 
3KM0D = 
BKMODE= 
BKSLSH= 
CAPRES= 
CASTAT= 
CDERCT= 
CDWDCT= 
CKTIM = 
CLKPRE= 
CONFIG= 
CQOVF = 
CR 

CSRA = 
CSRC = 



000102 
004000 
001000 
000006 
000004 
000200 
000106 
000010 
000104 
000010 
020000 
0001 10 
000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 
100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
000020 
040000 
000134 
000004 
000004 
000146 
000144 
100000 
000001 
000056 
000001 
000015 
000100 
000102 



CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO= 
DSEVNT= 
DTADR = 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CFO= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT .mlS = 
DT.MTI= 
DT.OFF= 
DT'.PAS = 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT,ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 
ENDLST= 



0C0003 
000017 
000025 
000011 
000400 
000000 
100000 
000014 
000000 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000C26 
000022 
000030 
000032 
000110 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 
000000 



EOPBIT= 


000001 


ERRTYP= 


000106 


EVNTBE= 


000200 


EVNTHD= 


000200 


EVNTKT= 


000203 


EVNTPE= 


000202 


EVNTRE= 


000201 


FATERR= 


100000 


HEAD = 


000004 


HRDCNT= 


000044 


HRDPAS= 


000050 


ICONT = 


000035 


ICOUNT= 


000040 


IDNUM = 


000122 


IE 


oooioo 


INDPAR= 


000040 


INHDRP= 


040000 


INHEPR= 


020000 


INHREL= 


001000 


INHRRE= 


000400 


INIT = 


000030 


INTR = 


000120 


IOMOD = 


100000 


IOMODP= 


102000 


IOMODR= 


112000 


I0M0OX= 


1 10000 


i«n/ _ 




KIPARO= 


172340 


KIPAR1= 


172342 


KIPAR2= 


172344 


KIPAR3= 


172345 


KIPA'R4= 


172350 


KIPAR5= 


1 72352 


KIPAR6= 


1 72354 


KIPAR7= 


172356 


KIPDRO= 


172300 


KIPDR1= 


172302 


KTPDR2= 


172304 


KIPDR3= 


172306 


KIPDR4= 


172310 


KIPDR5= 


172312 


KIPDR6= 


172314 


KIPDR7= 


172316 


KTERRO= 


000040 


KTPRES= 


000400 


KTSTAT= 


000020 


KTXTND= 


040000 


LF 


000012 


LPSTAT= 


000001 


MAPSTA= 


000200 


MED 


076600 


MEMPAS= 


0400C0 


MODBUF= 


000002 











SEP 0743 


MODEXH= 


004000 


R3UFEA= 


000130 




MODHOL= 


002000 


R3UFPA= 


000125 




MODSEL= 


001 QOO 


RBUFS2= 


000132 




MSGCKD= 


000010. 


R3UFVA= 


000124 




MSGCKS= 


00001 1 


RDSERV= 


000101 




MSGDER= 


000005 


RDWHMI= 


000022 




MSGDRP= 


000017 


RELERR= 


000020 




MSGECH= 


177777 


RELMOD= 


020000 




MSGEOP= 


000013 


RELTIM= 


010000 




M'SGHDR= 


000004 


RESREG= 


J*** *** Q 




MSGHNG= 


000022 


RES1 = 


000056 




MSGHRD= 


000007 


RES2 = 


000060 




MSGMAP= 


000021 


RICHAR= 


031060 




MSGNUL= 


■ 177775 


RPTDAT= 


002000 




MSGPOP= 


000002 


RSTRT = 


000112 




MSGPRM= 


177776 


RUBOUT= 


000177 




MSGRES= 


000001 


RUNMOD= 


100000 




MSGSFT.= 


000006 


R5VALU= 


001740 




MSGSKE= 


000003 


SAM 


075464 




MSGSMB= 


000015 


SAVREG= 


****:** Q 




MSGSMH= 


000014 


S3ADR = 


000102 




MSGSMS= 


000016 


S3K".10D= 


000000 




MSGSTD= 


000000 


S3KSEL= 


010000 




MSGSYS= 


000012 


SC.ADR= 


000006 




MSGVEC= 


000020 


SC.ALC= 


000014 




NAMCHK 


OOOOOORG 


SC.APC= 


000016 




NBKMOD" 


1 00 


SC-. CKL= 


000002 




NCPUOP= 


000020 


SC.CKP= 


000004 




NEW3UF= 


000006 


SCCLO= 


000000 




NOAPTY= 


000002 


SC.HLD= 


000010 




NULL = 


000000 


SC.SCA= 


000012 




OWEN = 


024020 " 


SENDLS= 


177777 




PAERR = 


000010 


SGFCNT= 


000042 '• 




PARPRE= 


002000 


SOFPAS= 


000046 




PARSTA= 


000100 


SPACE = 


000040 




PASCNT= 


000034 


SPOINT= 


000032 




PDPLSI= 


020000 


SPVALU= 


002200 




PDP60 = 


004000 


SRO 


177572 




PDP70 = 


010000 


SR1 


177574 




PRIO = 


000000 


SR2 


177576 




PR 11 = 


000040 


SR3 = 


172516 




PRI4 = 


000200 


STAT = 


000026 




PRI5 = 


000240 


STATBI= 


064757 




PRI6 = 


000300 


STAT1 = 


000027 




PRI7 = 


000340 


SUSPND= 


000001 




PRO 


000000 


SVRO = 


000062 




PR4 


000200 


SVR1 - 


000064 




PR5 


000240 


SVR2 = 


000066 




PR6 


000300 


SVR3 = 


000070 




PR7 


000340 


SVR4 = 


000072 




PS 


177776 


SVR5 = 


000074 




PSW 


177776 


SVR6 = 


000076 




RANNUM= 


000054 


SYSCNT= 


000052 





NAMCHK VERIFY A MODULE NAME 
NAMCHK. MAC 28-JUL-78 09:23 



MACY11 3CA(1052) 20-SEP-78 
SYMBOL TABLE 



SYSERR= 
TMPIO = 
TQOVF = 
UIPARO= 
UIPAR1= 
UIPAR2= 
UIPAR3= 
UIPAR4= 
UIPAR5= 
UIPAR6= 
UIPAR7= 
UIPDR0= 
UIPDR1= 
UIPDR2= 
UIPDR3= 
UIPDR4= 
UIPDR5= 
UIPDR6= 
UIPDR7= 
WASADR= 



000100 
000002 
000002 
177640 
177642 
177644 
177646 
177650 
177652 
177654 
177656 
177600 
177602 
177504 
177606 
177610 
177612 
177614 
177616 
000104 



WBSTAT= 

WBUFEA= 

WBUFPA= 

WBUFRQ= 

WBUFSZ= 

WDFR = 

WDTO = 

WTINRE= 

WTWHMI= 

XFLAG = 

XOFF = 

XON 

$BGNLE= 

$ERFLG= 

$F$AND= 

$F$BAD= 

$F$BLA= 

$F$CAS= 

$F$DEC= 

$F$DO = 



000040 
000136 
000134 
000140 
000142 
000116 
000114 
000352 
000222 
000005 
000023 
000021 
177777 
000000 
000310 
000401 
000170 
000150 
000220 
000340 



$F$FAL= 
$FSGOO= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$FSUNT= 
$F$WHI= 
$F$YES= 
$IFLEV= 
$ISK0 = 
$LOCTA= 
$LSTIN= 



18:12 PAGE 20-1 



000405 $LSTTA= 000001 

000400 $NESTL= 177777 

000110 SNSKO = 000300 

000210 $NSK1 = 000120 

000200 SNSK2 = 000120 

000160 $NSK3 = 000110 

000403 $SAVLE= 177777 
000320 SSSKO = 050C04 
000350 $TAGLE= 177777 
000300 $TAGNU= 050010 
000140 $TEMP = 000300 
000330 STSKO = 050003 

000404 STSK1 = 050004 
000130 $TSK2 = 050005 
000120 STSK3 = 050006 
000402 STSK4 = 050007 
177777 $$ARGC= 000010 
000001 S$3YTE= 000403 
177777 $$CASE= 000000 
000001 $$DST = 000000 



SEQ 0744 



S$ELOC = 
$SERFL= 
$$FLAG= 
S$FROM= 
$SLOC = 
$SLGCN= 
S$REG = 
$$RETU= 
S$RTN1= 
$$RTN2= 
SSSRC = 
$STGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$S$TAG= 



000403 

000000 

000001 

000000 

000100R 

000000 

177777 

000001 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000145R 



A3S, 



000000 
000146 



000 
001 



ERRORS DETECTED: 

DEFAULT GL05ALS GENERATED: 

DSKZ : NAMCHK , DSKZ : NAMCHK = SPMAC/ML , EQUATE f NAMCHK 
RUN-TIME: 13 3 .4 SECONDS 
RUN-TIME RATIO: 79/18=4-3 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-73 18:14 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0745 

3 COMMON EQUATE MODULE 
558 COMMON DEFENITIONS AND REFERENCES 

561 OOOOOO 1 .PRINT ;SPMAC: VERSION 1.1 

603 NEWBA ROUTINE 



NEWBA - ESTABLISH NEW BASE ADDRESS 
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508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 



MACY11 30A(1052) 20-SEP-78 18:14 PAGE 19 
COMMON EQUATE MODULE 

.TITLE NEWBA - ESTABLISH NEW BASE ADDRESS 
.IDENT /VO.O/ 



MODULE NAME: 
NEWBA 

FUNCTIONAL DESCRIPTION: 

CALCULATES A NEW RELOCATION BASE ADDRESS BY USING 
EITHER THE CONSTANT OFFSET OR A RANDOMLY GENERATED 
OFFSET VALUE 

INPUTS: 

DATA TABLE ADDRESS, CURRENT ADDRESS OFFSET, 
FIRST RELOCATION FLAG 

IMPLICIT INPUTS: 

DT.REL, DT.ESIZ, DT.SSIZ, DT.SWR, DT.STO 

OUTPUTS: 

NEW ADDRESS OFFSET 



IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 

NONE 

SUBORDINATE MODULES CALLED: 
RANDOM 
SAVREG 
RESREG 

FUNCTIONAL SIDE EFFECTS 
NONE 



SEQ 0745 



RANDOM NUMBER GENERATOR 
SAVE REGISTERS 
RESTORE. REGISTERS 



CALLING SEQUENCE: 

CALL NEWBA IN <A,B.C> OUT <D> 

A=ADDRESS OF DATA TABLE 
B=CURRENT ADDRESS OFFSET 
C=FIRST RELOCATION FLAG 
D=NEW ADDRESS OFFSET 

VERSION: 
0.0 



EDIT 



BY 



DATE 



REASON 



000000' 
000000' 



000001 
000001 
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558 
559 
560 
561 
(D 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 



584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 



000000' 

000002' 

000004' 

000006' 
000010' 

000012' 

000014' 

000016' 



000000 

000000 

000000 

000000 
000000 

000000 

000000 

000000 



MACY11 3QA(1052) 20-SEP-78 18:14 PAGE 19-1 
COMMON DEFENITIONS AND REFERENCES 

.SBTTL COMMON DEFENITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



**************** 

REFERENCED BY OTHER MODULES 
GLOBL NEWBA 

GLOBAL REFERENCES 



SEQ 0747 



GLOBL RANDOM 
GLOBL SAVREG 
GLOBL RESREG 



NB.CNT: 

N3.CYCLNG: 

NB.MAX: 

N8.NBR: 
NB.STADDR: 

N3.0FLAG: 

NB.TOP: 
NB.BIT: 



.WORD 

•WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 



;MODULE ENTRY POINT 



RANDOM NUMBER GENERATOR 
SAVE REGISTERS' 
RESTORE REGISTERS 



NO. OF RANDOM RELOCATIONS SINCE LAST 

MOVE TO BOTTOM OF MEMORY 
CYCLING FLAG - INDICATES, WHEN SET, RELOCATING 

BY CONSTANT OFFSET (CYCLING) 
MAX. NO. OF RANDOM RELOCATIONS ALLOWED 

BEFORE RELOCATING BACK TO BOTTOM 
STORAGE FOR RANDOM NUMBER 
STORAGE FOR EXERCISER'S STARTING ADDRESS 

OFFSET VALUE 
0-FLAG - INDICATES, WHEN SET, THAT THERE 

HAS BEEN A RELOCATION TO BOTTOM 
OFFSET NEEDED TO MOVE THE EXERCISER 

TO HIGHEST MEMORY 
BIT PATTERN FOR USE WITH RANDOM NUMBER 



**************** 
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603 
604 
605 
(2) 
606 
607 
308 
609 
610 
611 
612 
(3) 
613 
614 
615 
616 
617 
618 
619 
(4) 
620 
621 
622 
623 
624 
625 
526 
(6) 
(9) 
627 
628 
629 
630 
631 
632 
633 
(4) 
634 
(4) 
635 
(4) 
636 
637 
638 
639 
640 
641 
(4) 
642 
643 
644 
645 
546 
647 
648 
649 



000020' 
000020* 



000020' 

000020' 004767 000000G 



000024' 

000024' 016500 000000 



000030' 026527 000004 000001 
000036' 001067 



000040' 

000040' 012767 000001 177734 

000046' 

000046' 005067 177740 

000052' 

000052' 005067 177722 



000056' 

000056' 016567 000002 177724 
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NEWBA ROUTINE 



20-SEP-78 18:14 PAGE 19-2 



SEQ 0748 



.SBTTL NEWBA ROUTINE 

ROUTINE NEWBA <TABL, OLDPAR, RL1 , NEWPAR> 

;-r ' 

;SAVE REGISTERS 

T 

CALL SAVREG 

+ 

SET RO TO START OF DATA TABLE 

LET RO := TABL(R5) 



NEWBA: 



JSR 



MOV 



; + 

;IF THIS IS THE FIRST RELOCATION, DO THE NECESSARY INITIALIZATION 



IF RL1 (R5) EO #1 THEN 



INITIALIZE FLAGS AND NB.CNT 

LET NB.CYCLNG := #1 
LET NB.OFLAG := #0 
LET NB.CNT := #0 

+ 

SAVE THE INITIAL ADDRESS OFFSET 

LET NB.STADDR := 0LDPAR(R5) 



CMP 

BNE 



MOV 



CALCULATE NB.MAX BY DIVIDING BY 2 THE NUMBER OF K'S OF MEMORY. 

THIS IS DONE BY GETTING THE CONTENTS OF DT.SSIZ AND SHIFTING 

TO THE RIGHT 6 TIMES. (5 TIMES TO GET NO. OF K'S, AND ONCE MORE TO 

DIVIDE BY 2) . 

DON'T, HOWEVER, ALLOW NB.MAX TO BE GREATER THAN 30(10). 



PC, SAVREG 



TABL(R5),R0 



RL1 (R5) ,#1 
50002$ 



MOV 


#1 


NB.CYCLNG 


CLR 


NB 


OFLAG 


CLR 


NB 


CNT 



0LDPAR(R5),NB.ST 
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650 
651 
652 
(4) 
653 
(7) 
(7) 
(7) 
(7) 
(7) 
(7) 
654 
(6) 
(9) 
655 
(4) 
656 
(4) 
657 
(4) 



000064' 
000064' 
000070' 
000070' 
000072' 
000074' 
000076' 
000100' 
000102' 
000104' 
000104' 
000110' 
0001 12* 
000112' 
000116' 
0001 16' 
000116' 
000116' 



016001 000046 

006201 
006201 
006201 
006201 
006201 
006201 



020127 
003402 
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LET R1 := DT.SSIZ(RO) 
LET R1 := R1 SHIFT #~6 



000036 



012701 000036 



010167 177662 



IF R1 GT #~D30 THEN 

LET R1 := jTD30 
ENDIF 
LET NB.MAX := R1 



500035: 



MOV 



ASR 



SEQ 0749 



DT.SSIZ(RO) t R1 



R1 



hjK 


F\ 1 


ASR 


R1 


ASR 


R1 


ASR 


R1 


ASR 


R1 


CMP 


R1 ,#~D30 


BLE 


50003$ 


MOV 


#~D30,R1 



MOV 



R1 , NB.MAX 
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SEQ 0750 



659 








660 








661 








662 








663 








664 








665 








666 








667 








668 








669 








670 








671 








672 








673 


000122' 






(4) 


000122' 


016002 


000044 


(6) 


000126' 


162702 


020000 


674 


000132' 






(7) 


000132' 


006202 




(7) 


000134' 


006202 




(7) 


000136' 


006202 




(7) 


000140' 


006202 




(7) 


000142' 


006202 




(7) 


000144' 


006202 




675 


000146' 






(6) 


000146' 


042702 


176000 


676 


000152' 






(6) 


000152' 


005202 




677 








678 


000154' 






(6) 


000154' 


032760 


000200 000010 


(9) 


000162' 


001007 




(6) 


000164' 


026027 


000046 007600 


(9) 


000172' 


103403 




679 


000174' 






(4) 


000174' 


012701 


007600 


680 


000200' 






(4) 


000200' 


000402 




(3) 


000202' 






681 


000202' 






(4) 


000202' 


016001 


000046 


682 


000206' 






(4) 


000206' 






683 








684 


000206' 






(4) 


000206' 


010167 


177602 


(6) 


000212' 


160267 


177576 


685 








686 








687 








688 


000216' 






(4) 


000216' 






689 








690 








691 








692 









CALCULATE THE ADDRESS OFFSET NEEDED TO MOVE THE EXERCISER TO THE 
TOP OF CORE. THIS IS DONE USING THE FOLLOWNG ALGORITHM: 

1. GET THE SIZE OF THE MOVABLE PORTION OF THE EXERCISER 

2. SHIFT OUT THE SIX LEAST SIGNIFICANT BITS 

3. ADD ONE TO THE RESULT TO ALLOW ROOM FOR THE SLOCKS UUST 
SHIFTED OUT 

4. SUBTRACT THIS FROM THE SYSTEM SIZE. IF, HOWEVER, THE 
UNIBUS MAP IS SHUT OFF, (IT MAY NOT 

EVEN EXIST), THEN DON'T ALLOW RELOCATION ABOVE 1 24K . 



LET R2 := DT.ESIZ(RO) - #20000 
LET R2 := R2 SHIFT #~6 



LET R2 := R2 CLR.BY #176000 
LET R2 := R2 + #1 



IF #MAPSTAT NOTSETIN DT.STO(RO) AND DT.SSIZ(RO) HIS #7600 THEN 

■ BIT 
BNE 
CMP 
BLO 



MOV 


DT.ESIZ(RO) ,R2 


SUB 


#20000, R2 


ASR 


R2 


ASR 


R2 


ASR 


R2 


ASR 


R2 


ASR 


R2 


ASR 


R2 


BIC 


#1 76000, R2 


INC 


R2 



ELSE 



ENDIF 



LET R1 := #7600 



LET R1 := DT.SSIZ(RO) 



50004$: 



50005$: 



LET NB.TOP := Rl - R2 



MOV 
BR 

MQV 



MOV 
SUB 



ENDIF 



50002$: 



#MAPSTAT,DT.ST0( 
50004$ 

DT.SSIZ(R0},#760 
50004$ 

#7600,R1 

50005$ 

DT.SSIZ(RO) ,R1 



R1 , NB.TOP 
R2,NB.T0P 



;ARE WE RELOCATING BY THE CONSTANT OFFSET (CYCLING) ? WE ARE IF 



000216' 
000216' 



026727 177560 



000224' 001404 

000226' 032760 

000234' 001435 
000236' 



000400 



000236' 

000236' 016565 
000244' 066065 



000002 
000040 
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693 

694 

695 

696 

697 

(6) 

(8) 

(6) 

(9) 

(6) 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

70S 

709 

(4) 

(6) 

710 

711 

71 2 

713 

714 

715 

716 

(6) 

(9) 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

(4) 

727 

(4) 

728 

729 

730 

(4) 

731 

732 

733 

734 

735 

736 



000001 
000056 



000006 
000006 



000252' 

000252' 026567 
000260' 101406 



000006 177534 



000262' 

000262' 012765 000200 

000270' 

000270' 012767 000001 



000276' 
000276' 



000006 
177514 
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THE CYCLING FLAG IS SET OR IF BIT 8 OF THE SOFTWARE SWITCH 
REGISTER IS SET. 



IF NB.CYCLNG EQ #1 OR #BIT08 SETIN DT.SWR(RO) THEN 



SEQ 0751 



CMP 

OCA 

BIT 
BEQ 



NB.CYCLNG, #1 

^J W \J V W«4> 

#BIT0S,DT.SWR(R0 
50007$ 



50006S: 



; + 

jRELOCATING BY CONSTANT OFFSET (CYCLING) 



; + 

;ADD THE OFFSET CONSTANT TO THE CURRENT ADDRESS OFFSET TO FIND 
;A NEW BASE 



LET NEWPAR(R5) := 0LDPAR(R5) + DT.REL(RO) 

r + 

•SEE IF THIS NEW BASE VALUE IS TOO LARGE FOR THE SYSTEM. 

T 

IF NEWPAR(R5) HI NB.TOP THEN 



MOV 
ADD 



0LDPAR(R5) ,NEWPA 
DT.REL(RO),NEWPA 



CMP NEWPAR(R5) ( NB.T0 
BLOS 500T0S 



THE NEW ADDRESS WILL BE TOO HIGH - WE'VE HIT THE TOP OF CORE, SO 
IT'S TIME TO RELOCATE TO THE BOTTOM. THE NEW OFFSET VALUE WILL BE 200. 
THIS WILL PUT THE EXERCISER BACK TOGETHER AGAIN AT THE BOTTOM OF 
MEMORY. SET NB.OFLAG TO INDICATE WE'VE GONE TO THE BOTTOM, AND RETURN. 



LET NEWPAR(R5) := #200 
LET NB.OFLAG := #1 



MOV #200,NEWPAR(R5) 
MOV #1, NB.OFLAG 



ENDIF 



50010$: 



; + 

;NEW ADDRESS IS OK. BUT BEFORE WE LEAVE, WE HAVE TO SEE IF WE HAVE 
; FINISHED CYCLING. THIS IS DONE BY CHECKING IF THE NEW BASE IS 
;GREATER THAN OR EQUAL TO THE STARTING ADDRESS OFFSET, AND IF NB.OFLAG 



755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
(6) 
(9) 
767 
768 
769 
770 
771 
772 
773 
(4) 
774 
(4) 
775 
776 
777 
(4) 
(3) 



000276' 

000276' 026567 

000304' 103410 

000306' 026727 

000314' 001004 



000006 177504 



l'/'/SOO UUUUU1 
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737 
738 
739 
740 
(6) 
(9) 
(6) 
O) 
741 
742 
743 
744 
745 
746 
747 
748 
(4) 
749 
(4) 
750 
751 
(4) 
752 
753 
754 
(4) 

( <7\ 
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;IS SE* 



IF NEWPAR(R5) HIS NB.STADDR AND NB.OFLAG EQ #1 THEN 



CYCLING IS COMPLETED. 
ALSO CLEAR NB.OFLAG. 



CLEAR THE CYCLING FLAG. 



000316' 

000316' 005067 177460 

000322' 

000322' 005057 177464 

000326' 
000326' 



000326' 
000326' 000463 



LET NB.CYCLNG := #0 
LET NB.OFLAG := #0 



CLR 
CLR 



ENDIF 



ELSE 



; RELOCATING BY RANDOM OFFSET VALUES 



50011$: 



50007$: 



BR 



000330' 

000330' 026727 
000336' 001006 



;IF THE LAST RELOCATION WAS BACK TO THE BOTTOM OF MEMORY, THEN 
;WE MUST NOW RELOCATE TO THE TOP-MOST PIECE OF MEMORY. 



IF NB.OFLAG EQ #1 THEN 



177456 OOOOOt 



CMP 
BNE 



GET THE PREVIOUSLY CALCULATED OFFSET NEEDED TO GET US TO THE TOP 
OF MEMORY. ALSO CLEAR NB.OFLAG. 



000340' 

000340' 016765 177450 000006 

000346' 

000346' 005067 177440 



000352' 

000352' 000451 
000354' 



LET NEWPAR(R5) := NB.TOP 
LET NB.OFLAG := #0 



ELSE 



MOV 
CLR 

BR 



SEQ 0752 



CMP 


NEWPAR(R5) ,NB.ST 


BLO 


50011$ 


ohAn 


mo nci ^ M -\ 


y^twiv 


imji vt unui ff i 


BNE 


50011$ 



NB.CYCLNG 
NB.OFLAG 



50012$ 



NB.OFLAG,#1 
50013$ 



NB.T0P,NEWPAR(R5 
NB.OFLAG 

50014$ 



50013$: 
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SEQ 0753 



778 










779 










780 










781 










782 










783 










784 










785 










786 


000354' 








(6) 


000354' 


026767 


177420 


177422 


(9) 


000362' 


001011 






787 


000364' 








(4) 


000364' 


012765 


000200 


000006 


788 


000372' 








(4) 


000372' 


012767 


000001 


177412 


789 


000400' 








(4) 


000400' 


005067 


177374 




790 










791 


000404' 








(4) 


000404' 


000434 






(3) 


000406' 








792 










793 










794 










795 










796 










797 










798 










799 










800 










801 










802 










803 










804 










805 


000406' 








(3) 


000406' 








806 


000406' 








(4) 


000406' 


012767 


100000 


177402 


807 


000414' 








(4) 


000414' 


162705 


000002 




(3) 


000420' 


004767 


OOOOOOG 




(4) 


000424' 


012567 


177356 




808 


000430' 








(4) 


000430' 








(6) 


000430' 


026767 


177352 


177356 


(9) 


000436* 


101406 






809 


000440' 








(6) 


000440' 


046767 


177352 


177340 


810 


000446' 








(7) 


000446' 


006267 


177344 




811 


000452' 








(4) 


000452' 


000766 






(3) 


00C454' 








812 


000454' 








(3) 


000454' 


026727 


177326 


000200 


(6) 


000462' 


103751 







IF THE NUMBER OF PREVIOUS RANDOM RELOCATIONS EQUALS THE MAXIMUM, 
THEN RELOCATE TO THE BOTTOM OF CORE, SET NB.OFLAG, AND RESET THE 
RELOCATION COUNTER 



IF NB.CNT EQ NB.MAX THEN 

LET NEWPAR(RB) : = #200 
LET NB.OFLAG := #1 
LET NB.CNT : = #0 

ELSE 

50015S: 



CMP 


NB.CNT, NB.MAX 


BNE 


50015$ 


MOV 


#200,NEWPAR(R5) 


MOV 


#1 , NB.OFLAG 


CLR 


NB.CNT 



BR 



GET A RANDOM NUMBER AND SEE IF IT CAN BE USED TO CREATE AN ADDRESS 
WHICH IS GREATER THAN THE HIGHEST ADDRESS OF THE LOW 4K OF THE 
EXERCISER AND SMALLER THAN OR EQUAL TO NB.TOP. 
IF IT IS TOO BIG, START CLEARING HIGH ORDER BITS ONE AT A 
TIME UNTIL THE NUMBER IS SMALL ENOUGH. THEN CHECK TO SEE IF IT IS 
TOO SMALL. IF IT IS, GET ANOTHER RANDOM NUMBER AND START 
AGAIN. WHEN A GOOD VALUE IS FOUND, SET UP THE OUTPUT AND INCREMENT 
THE COUNTER OF THE NUMBER OF RELOCATIONS. 



REPEAT 



LET NB.BIT := #100000 
CALL RANDOM OUT <NB.NBR> 



50017$: 



MOV 



50016$ 



#100000, NB.BIT 



NB.NBR, NB.TOP 
50021$ 



SUB #1*2, R5 
JSR PC, RANDOM 
MOV (R5)+, NB.NBR 
WHILE NB.NBR HI NB.TOP DO 

50020$: 

CMP 
BLOS 
LET NB.NBR : = NB.NBR CLR. BY NB.BIT 

BIC NB.BIT, NB.NBR 
LET NB.BIT := NB.BIT SHIFT #-1 

ASR NB.BIT 
ENDDO 

BR 50020$ 
50021$: 
UNTIL NB.NBR HIS #200 

CMP NB.NBR, #200 
BLO 50017$ 
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813 


000454' 






(4) 


000464 s 


016765 


177316 000006 


814 


000472' 






(6) 


000472' 


005267 


177302 


815 








816 


000476' 






(4) 


000476 ! 






817 


000476' 






(4) 


000476' 






818 


000476' 






(4) 


000476' 






819 








820 








821 








822 








823 








824 








825 


000476' 






(3) 


000476' 


004767 


OOOOOOG 


826 








827 


000502' 






(3) 


000502' 






(3) 


000502' 






(2) 


000502' 


000207 




828 








829 




000001 
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LET N£WPAR(R5) := NB.NBR 
LET NB.CNT := NB.CNT + #1 



SEQ 0754 



MOV 
INC 



NB.NBR, NEWPAR(R5 
NB.CNT 



ENDIF 



ENDIF 



ENDIF 



;+. 



50016$: 
50014$: 
50012$: 



;RESTORE REGISTERS AND RETURN 

; + 

CALL RESREG 



ENDRTN 



50000$: 
50001S: 



JSR 



RTS 



PC, RESREG 



PC 



.END 
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ACSR = 


000102 


ACT3IT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


* rn ^ 


0001 Oo 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AW AS = 


0001 10 


BITO = 


000001 


BIT00 = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BITS = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDW.DCT = 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


COOVF = 


000001 


CR 


000015 


CSRA = 


000100 


CSRC = 


000102 



ADDRESS MACY11 
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23 


SYMBOL 


TABLE 




CTRLC = 


000003 


ERRTYP= 


000106 


CTRLO = 


000017 


EVNTBE= 


000200 


CTRLU = 


000025 


EVNTHD= 


000200 


DCEVNT= 


000011 


EVNTKT= 


000203 


DEFRTN= 


000400 


EVNTPE= 


000202 


DIAGMC= 


000000 


EVNTRE= 


000201 




■i A AAA A 


C ^ TCDO; 


1 A A AAA 


1 \J \J WV \J 






DSEVNT= 


000014 


HRDCNT= 


000044 


DT.ADD= 


000042 


HRDPAS=. 


000050 


DT.AP =■ 


000100 


ICONT = 


000036 


OT.APK= 


000076 


ICOUNT= 


000040 


DT.BLS= 


000034 


IDNUM = 


000122 


DT.CF0= 


000014 


IE 


000100 


DT.CF'1 = 


000016 


INDPAR= 


000040 


DT.ERR= 


000020 


INHDRP= 


040000 


DT.ESI= 


000044 


INHEPR= 


020000 


DT.EVN= 


000000 


INHREL= 


001000 


DT.EXS= 


000060 


INHRRE= 


000400 


DT.FCH= 


000037 


INIT = 


000030 


DT.FCN= 


000036 


INTR = 


000120 


DT.HMX= 


000104 


IOMOD = 


100000 


DT.KBE= 


000024 


IOMODP= 


102000 


DT,KBP= 


000026 


I0M0DR= 


1 12000 


DT.KBR= 


000022 


IOMODX= 


1 10000 


DT.KBU= 


000030 


JACK = 


035060 


DT.MLS= 


000032 


KIPAR0= 


172340 


DT.MTI= 


0001 10 


KIPAR1- 


172342 


DT.OFF= 


000070 


KIPAR2- 


172344 


DT.PAS= 


000074 


KIPAR3= 


1 72346 


DT.PC = 


000002 


KIPAR4= 


172350 


DT.PFL= 


000062 


KIPAR5= 


172352 


DT.PSW= 


000004 


KIPAR6= 


172354 


DT.PTA= 


000054 


KIPAR7= 


172356 


DT.RCS= 


0001.02 


KIPDR0= 


172300 


DT.REL= 


000040 


KIPDR1= 


172302 


DT.SCT= 


000066 


KIPDR2= 


172304 


DT.SMX= 


000106 


KIPDR3= 


172306 


DT.SP = 


000006 


KIPDR4=- 


172310 


DT.SSI= 


000046 


KIPDR5= 


172312 


DT.ST0= 


000010 


KIPDR6= 


172314 


DT.ST1= 


000012 


KIPDR7= 


172316 


DT.SWR= 


000056 


KTERRO= 


000040 


DT.SYP= 


000072 


KTPRES= 


000400 


DT.WBU= 


000050 


KTSTAT= 


000020 


DT.WHL= 


000054 


KTXTND= 


0400C0 


DT.WLL= 


000052 


LF 


000012 


DVID1 -- 


00 0014 


LPSTA'T = 


000001 


ECCMEM= 


000100 


MAPSTA= 


000200 


ECCSTA= 


000010 


MED 


076600 


ENBE0P= 


010000 


MEMPAS= 


040000 


ENBNUL= 


000001 


MODEXH= 


004000 


ENDLST= 


000000 


MODHOL= 


002000 


EOPBIT= 


000001 


MODSEL= 


001000 
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SEQ 0755 



MSGCKD= 


000010 


MSGCKS= 


000011 


MSGDER= 


000005 


MSGORP= 


000017, 


MSGECH= 


177777 


MSGEOP= 


000013 


m c n u ri o - 

i%i^ ui iu r\ — 


000004 


MSGHNjG= 


000022 


r/.SGHRD= 


000007 


MSGMAP= 


000021 


MSGNUL= 


177775 


MSGPOP= 


000002 


MSGPRM= 


177776 


MSGRES= 


000001 


MSGSFT= 


000006 


MSGSKE= 


000003 


MSGSM3= 


000015 


MSGSMH= 


000014 


MS.GSMS= 


000016 


MSGSTD= 


000000 


MSGSYS= 


000012 , 


MSGVEC= 


000020 


NBKMOD= 


001000 


NB.BIT 


00001 6R 


NB.CNT 


000000R 


NB.CYC 


000002R 


NB.MAX 


000004R 


NB.NBR 


000006R 


NB.STA 


00001 OR 


NB..T0P 


000014R 


NB.OFL 


000012R 


NCPL)OP= 


000020 


NEWBA 


000020RG 


NEWPAR= 


000006 


NOAPTY= 


000002 


NULL = 


000000 


OLDPAR= 


000002 


OWEN = 


024020 


PAERR = 


000010 


PARPRE= 


002000 


PARSTA= 


000100 


PASCNT= 


000034 


PDPLSI= 


020000 


PDP60 = 


004000 


PDP70 = 


010000 


PRIO = 


000000 


PRI1 = 


000040 


PRI4 = 


000200 


PRI5 = 


000240 


PRI6 = 


000300 


PRI7 = 


000340 


PRO 


000000 


PR4 


000200 



PRS = 

PR6 

PR7 

PS 

PSW 

RANDOM= 

RANNUIV! = 

R3UFEA= 

RBUFPA= 

RBUFS2= 

R3UFVA= 

RDSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RESREG= 

RES1 = 

RES2 = 

RICHAR= 

RL1 

RPTDAT= 

RSTRT = 

RUB0UT.= 

RUNMOD= 

R5VALU= 

SAM 

SAVREG= 

SBADR = 

SBK!ViOD= 

S3KSEL= 

SC.ADR= 

SC.ALC= 

SC. APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SOFCNT= 

SGFPAS= 

SPACE = 

SPQINTs 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 



0O0240 
000300 
000340 
177776 
177776 
****** 
000054 
000130 
000126 
000132 
000124 
000101 
000022 
000020 
020000 
010000 
****** 

000056 
000060 
031060 
000004 
002000 
000112 
000177 
100000 
001740 
075464 
****** 

000102 
000000 
010000 
000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 
000027 
000001 



NEW3A - 


ESTABLISH NEW I 


3ASE ADDRESS MACY11 


30A(1052) 20-SEP-7: 


NEW3A.MAC 28-JUL-78 


09:23 


SYMBOL 


TABLE 




SVRO = 


000062 


UIPDR3= 


177606 


$F$CAS* 


000150 


SVR1 


000064 


UIPDR4= 


177610 


$F$DEC= 


000220 


SVR2 = 


000066 


UIPDR5= 


177612 


$F$DO = 


000340 


SVR3 = 


000070 


UIPDR6= 


177614 


$F$FAL= 


000405 


SVR4 = 


000072 


UIPDR7= 


177616 


$F$GOO= 


000400 


SVR5 = 


000074 


WASADR= 


000104 


$F$IF = 


0001 10 










^nrTur- 


f\ a r\ a ■* r\ 


5VR6 = 


000076 


iWDi 1 M 1 = 


uuuu^+u 


jpr ^> i in^- 


SYSCNT= 


000052 


WBUFEA= 


000136 


$F$LOO= 


000200 


SYSERR= 


000100 


WBUFPA= 


000134 


$F$NAM= 


000160 


TABL = 


000000 


WBUFRO= 


000140 


SFSNO = 


000403 


TMPIO = 


000002 


WBUFSZ= 


000142 


SFSOR = 


000320 


TQOVF = 


000002 


WDFR = 


000116 


$F$RTI= 


000350 


UIPARO= 


177640 


WDTO = 


000114 


$F$RTN= 


000300 


UIPAR1= 


177642 


WTINRE= 


000352 


$F$SEL= 


000140 


UIPAR2= 


177644 


WTWHMI= 


000222 


$F$THE= 


000330 


UIPAR3= 


177646 


XFLAG = 


000005 


$F$TRU= 


000404 


UIPAR4= 


177650 


XOFF = 


000023 


$F$UNT= 


000130 


UIPAR5= 


177652 


XON 


000021 


$F$WHI= 


000120 


UIPAR6= 


177654 


SBGNLE= 


177777 


$F$YES= 


000402 


UIPAR7= 


177656 


$ERFLG= 


000400 


$IFLEV= 


177777 


UIPDR0= 


177500 


$F$AND= 


000310 


$ISK0 = 


000001 


UIPDR1= 


177602 


$F$BAD= 


000401 


$ISK1 = 


000001 


UIPDR2= 


177604 


$F$BLA= 


000170 


$ISK2 = 


000001 


. ABS. 


000000 000 
000504 001 
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SEQ 0756 



$L0CTA= 


177777 


$LSTIN= 


000001 


$LSTTA= 


000001 


$NESTL= 


177777 


SNSK0 = 


000300 


SNSK1 = 


000110 


oinor\i — 


a a a ■* ^ a 


$NSK3 = 


000110 


SNSK4 = 


000130 


SNSK5 = 


000120 


SSAVLE= 


17~777 


SSSK0 - 


050021 


-$TAGLE= 


177777 


$TAGNU= 


050022 


$TEMP = 


000300 


$TSK0 = 


050012 


$TSK1 = 


050014 


$TSK2 = 


050016 


$TSK3 = 


05C017 


STSK4 = 


050020 


$TSK5 = 


050021 


$SARGC= 


000010 


$$BYTE= 


000403 



i -5 C A b h : 
SSDST = 
$$ELOC = 
SSERFL= 
$SFLAG= 
$$FR0M= 



000000 
000000 
000402 
000000 
000001 
000000 



<t <t ! or _ nnn/iOD 



: <t ! or _ r\r\ 



$$L0CM = 
SSREG = 
$$RETU = 
$$R7N1= 
$SRTN2= 
SSSRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
SSTO = 
$$$TAG= 



000000 
177777 
000000 
050000 
050001 
000000 
000000 
000000 
000000 
000000 
050000 
000504R 



ERRORS DETECTED: 

DEFAULT GL0BALS GENERATED: 

DSKZ:NEWBA.DSKZ:NEWBA=SPMAC/ML f EQUATE, NEWBA 
RUN-TIME: 18 8 .4 SECONDS 
RUN-TIME RATIO: 84/28=2.9 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30AO052) 20-SEP-78 18:15 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0757 

3 COMMON EQUATE MODULE 

565 COMMON DEFINTIONS AND REFERENCES FOR NUMCHK 

568 000000' .PRINT ;SPMAC: VERSION 1.1 

593 NUMCHK ROUTINE 



NUMCHK OCTAL ASCII TO BINARY CONVERSION ROUTINE MACY1 1 30A( 1052) 20-SEP-78 
NUMCHK. MAC 28-JUL-7S 09:23 COMMON- EQUATE MODULE 



18:15 PAGE 19 



SEQ 0758 



508 
509 
510 
511 
512 
513 
51 4 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 



.TITLE NUMCHK OCTAL ASCII TO BINARY CONVERSION ROUlINt 
.IDENT /V0.0/ 

++ 
MODULE NAME: 
NUMCHK 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE CONVERTS A 6 DIGIT OCTAL ASCII NUMBER 

INTO A 16 BIT BINARY NUMBER. IT WILL VERIFY THAT THE NUMBER 

IS NOT MORE THAN 16 BITS IN LENGTH( LEADING ZEROES ARE 

ARE NOT COUNTED AS PART OF THE 16 BITS) AND THAT IT IS AN OCTAL NUMBER, 

A RETURN WITH ERROR OCCURS IF THE NUMBER IS GREATER THAN 16 

BITS IN LENGTH OR IT IS NOT OCTAL ( I.E. SOMETHING 

OTHER THAN THE NUMBERS 0-7 WAS DETECTED IN THE NUMBER). 

INPUTS: 

1 . ADDRESS OF DATA TABLE 

2. COMMAND DECODE BUFFER POINTER 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

1 . UPDATED COMMAND DECODE BUFFER POINTER 

2. THE BINARY NUMBER 

IMPLICIT OUTPUTS: 

DT.KBRSP - THE COMMAND RESPONSE LOCATION 



; ERROR MESSAGE 
; ERROR MESSAGE 



PATHOLOGICAL CONNECTIONS: 
CM.NUM 
CM.NBAD 

SUBORDINATE ROUTINES CALLED: 
SAVREG 
RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 



CALLING SEQUENCE: 

CALL NUMCHK IN <DTADR , CMDPTR> OUT <NEWPTR,NUM> 

WHERE: 

DTADR = ADDRESS OF DATA TABLE 

CMDPTR = COMMAND DECODE BUFFER POINTER 

NEWPTR = UPDATED CMD DECODE BUFFER POINTER 

NUM = CONVERTED 16 BIT BINARY NUMBER 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



NUMCHK 
NUMCHK, 

565 
566 
557 
568 
(D 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 



OCTAL ASCII TO BINARY CONVERSION ROUTINE MACY1 1 3CA(1052) 20-SEP-78 18: 15 PAGE 19-1 
,MAC 28-JUL-78 09:23 COMMON DEFINTIONS AND REFERENCES FOR NUMCHK 

.SBTTL COMMON DEFINTIONS AND REFERENCES FOR NUMCHK 



SEO 0759 



000000' 
000000' 



000001 
000001 



.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

Si c T T 'i — < 
i_o I ± IN- I 

$LSTTAG=1 

REFERENCED BY OTHER MODULE? 
GL08L NUMCHK 



;MODULE ENTRY POINT 



GLOBAL REFERENCES: 

GLOBL CM.NUM 

GLOBL SAVREG 

GLOBL RESREG 

GLOBL CM.NBAD 



'NUMBER TOO LARGE' MSG ADDRESS 

SAVE REGISTERS 

RESTORE REGISTERS 

'NOT AN OCTAL NUMBER' MSG ADDRESS 



591 



NUMCHK OCTAL ASCII TO BINARY CONVERSION ROUTINE MACY1 1 30A(1052) 
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593 








594 








595 


000000' 






(2) 


000000' 






596 








597 








598 








599 








600 








601 


000000' 






(3) 


000000' 


004767 


000000G 


602 








603 


000004 1 






(4) 


000004' 


016500 


000000 


604 


000010' 






(4) 


000010' 


016501 


000002 


605 








606 








607 








608 








609 








610 


000014' 






(4) 


000014' 


005002 




511 








612 








613 








614 








615 








616 


000016' 






(4) 


000016' 






(6) 


000016' 


121127 


000060 


(9) 


000022' 


002425 




(6) 


000024' 


121127 


000067 


(9) 


000030' 


003022 




617 








618 








619 








620 








621 








622 








623 


000032' 






(4) 


000032' 


005004 




624 








625 








626 








627 








628 








629 








630 








631 


000034' 






(4) 


000034' 


112103 




632 


000036' 






(6) 


000036' 


162703 


000060 


633 


000042' 






(4) 


000042' 






(6) 


000042' 


020427 


000003 



.SBTTL NUMCHK ROUTINE 

ROUTINE NUMCHK <DTADR , CMDBUF .NEWPTR ,NUM> 



NUMCHK: 



SAVE REGISTERS* DATA TABLE ADDRESS AND CMD DECODE BUFFER POINTER 



CALL SAVREG 

LET RO := DTADR(R5) 
LET R1 := CMDBUF(R5) 

INITIALIZE THE OUTPUT REG 
LET R2 := #0 

h 

WHILE THERE IS AN OCTAL ASCII CHAR IN CMD DECODE BUFFER 



JSR 

MOV 
MOV 



CLR 



WHILES (R1) GE #'0 ANDB (R1) LE #'7 DO 



50002S: 



CMPB 
BLT 
CMPB 
BGT 



INITIALIZE THE COUNTER. 



LET R4 := #0 



CLR 



GET A CHARACTER, SUBTRACT ASCII ZERO, ROTATE 3 LEFT (TO MAKE ROOM) 
AND CHECK TO SEE IF NUM IS NOW > 16 BITS. IF IT IS, STUFF 
ERROR MSG AND RETURN. IF NOT, MOVE R3 TO R2. 



LET R3 :B= (R1 )+ 
LET R3 := R3 - #'0 
WHILE R4 NE #3 DO 



50004$; 



MOV 3 
SUB 

CMP 



S'EO 0760 



PC, SAVREG 

DTADR(R5) ,R0 
CMDBUF(R5) ,R1 



R2 



(R1 ) ,#'0 
50003$ 
(R1 ), #'7 
50003$ 



R4 



(R1 )+,R3 
#'0,R3 

R4,£3 
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SEO 0761 



(9) 


000046' 


001411 




634 


000050' 






(4) 


000050' 


00 0241 




635 


000052' 






(7) 


000052' 


006102 




636 


000054' 






(6) 


n/>nnC/l 1 


■i a on r\A 




\J WW v~»-t 


1 V O W V/T 




637 


000056' 






(4) 


000056' 


012760 


000000G 000022 


638 


000064' 






(2) 


000064' 


000431 




639 


000066' 






(4) 


000066' 






640 


000066' 






(6) 


000066' 


005204 




641 


000070' 






(4) 


000070' 


000764 




(3) 


000072' 






642 








643 








644 


000072' 






(6) 


000072' 


150302 




645 


000074' 






(4) 


000074' 


000750 




(3) 


000076' 






646 








647 








648 








649 








650 








651 








652 








653 


000076' 






(6) 


000076' 


121127 


000015 


(9) 


000102' 


001413 




(6) 


000104' 


121127 


000040 


(9) 


000110 1 


001410 




(6) 


000112' 


121127 


000012 


(9) 


000116' 


001405 




654 


000120' 






(4) 


000120' 


012760 


000000G 000022 


655 


000126' 






(2) 


000126' 


000410 




656 








657 


000130' 






(4) 


000130' 


000407 




(3) 


000132' 






658 








659 








660 








661 








662 








663 








664 


000132' 






(4) 


000132' 


010265 


000006 


665 


000136' 







LET CARRY := 

LET R2 := R2 ROTATE 1 

IFCOND CS THEN 

LET DT.KBRSP(RO) := #CM.NUM 
INLINE <BR 1$> 

ENDIF 

LET R4 := R4 + #1 



ENDDO 



LET R2 :B= R2 SET. BY R3 



ENDDO 



IF THE NON-OCTAL CHAR JUST DETECTED IS NOT A SPACE AND NOT A CR, 
STUFF ERROR MSG AND RETURN. ELSE RETURN WITH' NO ERROR... 



IFB (R1) NE #CR ANDB (R1) NE #SPACE ANDB (R1) NE #LF THEN 



LET DT.KBRSP(RO) := #CM.NBAD 
INLINE <BR 1$> 



ELSE 



BR 



50007$: 



THE NUMBER IS OK (16 BITS OR LESS AND OCTAL) 
SO SET UP OUTPUTS AND RETURN NO ERROR. 



LET NUM(R5) := R2 
LET NEWPTR(R5) := R1 



MOV 



50005$ 





C LC 






ROL 


R2 




BCC 


50006$ 




MOV 


#CM.NUM,DT.KBRSP 




BR 


1$ 


50006$: 








INC 


R4 




BR 


50004$ 


50005$: 








BISB 


R3.R2 




BR 


50002$ 


50003$: 







CiVSPB 


(R1),#CR 


BEG 


50007$ 


CMP 5 


(R1 ) ,#SPACE 


SEO 


50007$ 


CMPB 


(R1 ) ,#LF 


BEQ 


50007$ 


MOV 


#CM.NBAD,DT.KBRS 


BR 


1$ 



50010$ 



R2,NUM(R5) 
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CALL RESREG 
RETURN NO. ERROR 
END IF 

INLINE <1$:> 
CALL RESREG 
RETURN ERROR 

ENDRTN 



.END 



(4) 


000136' 


010165 000004 


666 


000142' 




(3) 


000142' 


004767 000000G 


667 


000146' 




(4) 


000146' 


000404 


668 


000150' 




1 A\ 


AAA-t C A * 
W V V t JV 




669 






670 


000150' 




(2) 


000150' 




671 


000150' 




(3) 


000150' 


004767 000000G 


672 


000154' 




(2) 


000154' 


000261 


(4) 


000156' 


000401 


673 






674 


000160' 




(3) 


000160' 




(2) 


000160' 


00C241 


(3) 


000162' 




(2) 


000162' 


000207 


675 






676 




000001 







SEQ 0762 




MOV 


R1 r NEW?TR(R5) 




JSR 


PC, RESREG 




BR 


50000$ 




1$: 






JSR 


PC, RESREG .. 




SEC 






BR 


50001$ 


50000$: 


CLC 




50001$: 







RTS 



PC 



NUMCHK OCTAL ASCII TO BINARY CONVERSION ROUTINE MACY 
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ACSR = 


000i02 


CR 


00001 5 


ACTBIT= 


004000 


CSRA = 


000100 


ADDR22= 


001000 


CSRC = 


000102 


ADR 


000006 


CTRLC = 


000003 


APTFER= 


000004 


CTRLO = 


000017 


APTPRE= 


000200 


CTRLU = 


000025 


A C O _ 


O v v l w w 


DCEVNT= 


00001 1 


ASSEMB= 


000010 


DEFRTN= 


000400 


ASTAT = 


000104 


DIAGMC= 


000000 


AUTO = 


000010 


DROPMO= 


100000 


AUTOST= 


020000 


DSEVNT= 


000014 


AWAS = 


000110 


DTADR = 


000000 


BITO = 


000001 


DT.ADD= 


000042 


BITOO = 


000001 


DT.AP = 


000100 


BIT01 = 


000002 


DT.APK= 


000076 


BIT02 = 


000004 


DT.BLS= 


000034 


BIT03 = 


000010 


DT.CF0= 


000014 


BIT04 = 


000020 


DT.CF1= 


000016 


BIT05 = 


000040 


DT.ERR= 


000020 


BIT06 = 


000100 


DT.ESI= 


000044 


BIT07 = 


000200 


DT.EVN= 


000000 


BIT08 = 


000400 


DT,EXS= 


000060 


BIT09 » 


001000 


DT.FCH= 


000037 


BIT1 = 


000002 


DT.FCN= 


000036 


BIT10 = 


002000 


DT.HMX= 


000104 


BIT11 = 


004000 


DT.KBE- 


000024 


BIT12 = 


010000 


DT.KBP= 


000026 


BIT13 = 


020000 


DT.KBR= 


000022 


BIT14 = 


040000 


DT.KBU= 


000030 


BIT15 = 


100000 


DT.MLS= 


000032 


BIT2 = 


000004 


DT.MTI= 


000110 


BIT3 = 


000010 


DT.QFF= 


00C070 


BIT4 = 


000020 


DT.PAS= 


000074 


BIT5 = 


000040 


DT.PC = 


000002 


BIT6 = 


000100 


DT.PFL= 


000062 


BIT7 = 


000200 


DT.PSW= 


000004 


8IT8 = 


000400 


DT.PTA= 


000064 


BIT9 = 


001000 


DT.RCS= 


000102 


BKDEF = 


000002 


DT.REL= 


000040 


BKMOD = 


000020 


DT.SCT= 


C00066 


BKMODE= 


040000 


DT.SMX= 


000106 


BKSLSH= 


000134 


DT.SP = 


000006 


CAPRES= 


000004 


DT.SSI= 


000046 


CASTAT= 


000004 


DT.ST0= 


000010 


CDERCT= 


000146 


DT.ST1= 


000012 


CDWDCT= 


000144 


DT.SWR= 


000056 


CKTIM = 


100000 


DT.SYP= 


000072 


CLKPRE= 


000001 


DT.WBU= 


000050 


CMDBUF= 


000002 


DT.WHL= 


000054 


CM.NBA= 


****** Q 


DT.WLL= 


000052 


CM.NUM= 


****** Q 


DVID1 = 


000014 


CONFIG= 


000056 


ECCMEM= 


000100 


CQOVF = 


000001 


ECCSTA= 


000010 



'11 30A(1052) 20-SEP- 


78 18:15 P. 


*vGE 20 


r- ik i r» r- n r\ _ 




muiTirno- 


f\A A AAA 


ENBNUL= 


000001 


M0DEXH= 


004000 


ENDLST= 


000000 


MODHQL- 


002000 


EOPBIT= 


0C0001 


MODSEL= 


001000 


ERRTYP= 


000106 


MSGCKD= 


000010 


EVNTBE= 


000200 


MSGCKS= 


00001 1 


EVNTHD= 


000200 


MSGDER= 


000005 


EVNTKT= 


000203 


MSGDRP= 


000017 


EVNTPE= 


000202 


MSGECH= 


177777 


EVNTRE- 


000201 


MSGEOP= 


000013 


FATERR= 


100000 


MSGHDR= 


000004 


HRDCNT= 


000044 


MSGHNG= 


000022 


HRDPAS= 


000050 


MSGHRD= 


000007 


ICONT = 


000036 


MSGMAP= 


000021 


ICOUNT= 


000040 


MSGNUL= 


177775 


IDNUM = 


000122 


MSGP0P= 


000002 


IE 


000100 


MSGPRlVi= 


177776 


INDPAR= 


000040 


MSGRES= 


000001 


INHDRP= 


O4Q000 


MSGSFT= 


000006 


INHEPR= 


020000 


MSGSKE= 


000003 


INHREL- 


001000 


MSGSMB= 


000015 


INHRRE= 


000400 


MSGSMH= 


000014 


INIT = 


000030 


MSGSMS= 


000016 


INTR = 


000120 


MSGSTD= 


000000 


IOMOD = 


100000 


MSGS'Y-S = 


000012 


IOMODP= 


102000 


MSGVEC= 


000020 


IOMODR= 


112000 


NBKMOD=- 


00 1 000 


IOMODX= 


110000 


NCPUOP= 


000020 


JACK = 


035060 


NEWPTR= 


000004 


KIPAR0= 


1 72340 


NOAPTY= 


000002 


KIPAR1= 


172342 


NULL = 


oooooo 


KIPAR2= 


172344 


NUM 


000006 


KIPAR3= 


172346 


NUMCHK 


000000RG 


KIPAR4= 


172350 


OWEN = 


024020 


KIPAR5= 


172352 


PAERR = 


000010 


KIPAR6= 


172354 


PARPRE= 


002000 


KIPAR7= 


172356 


PARSTA= 


000100 


KIPDR0= 


172300 


PASCNT= 


000034 


KIPDR1= 


172302 


PDPLSI= 


020000 


KIPDR2= 


172304 


PDP60 = 


004000 


KIPDR3= 


172306 


PDP70 = 


010000 


KIPDR4= 


172310 


PRIO = 


oooooo 


KIPDR5= 


172312 


PRI1 = 


000040 


KIPDR6= 


172314 


PRI4 = 


000200 


KIPDR7= 


172316 


PRI5 = 


000240 


KTERRO= 


000040 


PRI6 = 


000300 


KTPRES= 


000400 


PR 1 7 = 


000340 


KTSTAT= 


000020 


PRO 


oooooo 


KTXTND= 


040000 


PR4 = 


000200 


LF 


000012 


PR5 


000240 


LPSTAT= 


000001 


PR6 


000300 


MAPSTA= 


000200 


PR7 


000340 


MED 


076600 


PS 


177776 







SEQ 0763 


PSl\( = 


1 ''7776 




RANNUM= 


000054 




R3UFEA= 


000130 




RBUFPA= 


000126 




RBUFS2= 


000132 




RBUFVA= 


000124 




RDS.ERV = 


000101 




RDWHMI= 


000022 




RELERR= 


000020 




RELMOD= 


020000 




RELTIM= 


010000 




RESREG= 


****** Q 




RES1 = 


000056 




RES2 = 


000060 




RICHAR= 


031060 




R?TDAT= 


002000 




RSTRT = 


000112 




RUBOUT= 


000177 




RUNMOD= 


100000 




R5VALU= 


001740 




SAM 


075464 




SAVREG= 


****** g 




S3ADR = 


000102 




SBKMOD= 


OOOOOO 




S3KSEL= 


010000 




SC.ADR= 


000005 




SC.ALC= 


000014 




SC-APC= 


OOoOlb 




SC.CKL= 


000002 




SC.CKP= 


000004 




SC.CLO= 


oooooo 




SC.HLD= 


000010 




SC.SCA= 


000012 




SENDLS= 


177777 




SOFCNT= 


000042 




SOFPAS= 


000046 




SPACE = 


000040 




SPOINT= 


000032 




SPVALU= 


002200 




SRO 


177572 




SR1 


t77574 




SR2 


177576 




SR3 


172516 




STAT = 


000026 




STATBI= 


064757 




STAT1 = 


000027 




SUSPND= 


000001 




SVRO = 


000062 




SVR1 = 


000064 




SVR2 = 


000066 




SVR3 = 


000070 




SVR4 = 


000072 




SVR5 = 


000074 





NUMCHK OCTAL ASCII TO BINARY CONVERSION ROUTINE MACY1 1 30A(1052) 20-SEP-7S 
NUMCHK.MAC 28-JUL-7S 09*23 SYMBOL TABLE 



18: 15 PAGE 20-1 



SEQ 0764 



SVR6 = 


000076 




UIPDR7= 


177616 


SYSCNT= 


000052 




WASADR= 


000104 


SYSERR= 


000100 




WBSTAT= 


000040 


TMPIO = 


000002 




W3UFEA= 


000136 


TOOVF = 


000002 




WBUFPA= 


000134 


UIPAR0= 


177640 




WBUFRQ= 


000140 


UIPAR1= 


177642 




WBUFSZ= 


000142 


UIPAR2= 


177644 




WDFR = 


000116 


UIPAR3= 


177646 




WDTO = 


000114 


UIPAR4= 


177650 




WTINRE= 


000352 


UIPAR5= 


177652 




WTWHMI= 


000222 


UIPAR6= 


177654 




XFLAG = 


000005 


UIPAR7= 


177656 




XOFF = 


000023 


UIPDR0= 


177600 




XON 


000021 


UIPOR1= 


177602 




$BGNLE= 


177777 


UIPDR2= 


177604 




$ERFLG= 


000000 


UIPDR3= 


177606 




$F$AND= 


000310 


UIPDR4= 


177610 




$F$BAD= 


000401 


UIPDR5= 


177612 




$F$BLA= 


000170 


UIPDR6= 


177614 




$F$CAS= 


000150 


. ABS. 


000000 
000164 


000 
001 







hKKUKb DtltUltD: U 

DEFAULT GLOBALS GENERATED: 

DSK2: NUMCHK t DSKZ:NUMCHK=SPMAC/ML f EQUATE, NUMCHK 
RUN-TIME: 14 4 .3 SECONDS 
RUN-TIME RATIO: 45/19=2.3 
CORE USED: 14K (27 PAGES) 



SF$DEC= 
SFSDO = 
$F$FAL= 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$FSRTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$FSUNT= 
$F$WHI= 
$F$YES= 
$IFLEV= 
$ISKO = 



000220 
000340 
000405 
000400 
000110 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 
000001 



SLOCTA= 
$LSTIN= 
$LSTTA= 
SNESTL= 
$NSKO = 
SNSK1 = 
SNSK2 =■ 
$NSK3 = 
$SAVLE= 
$SSKO = 
$TAGLE= 
$TAGNU= 
STEMP = 
STSKO = 
STSKT = 
STSK2 = 
$TSK3 = 
STSK4 = 
$$ARGC= 
$$BYTE= 



177777 

000001 

000001 

177777 

000300 

000110- 

000120 

000110 

177777 

050003 

177777 

05001 1 

000300 

050010 

050003 

050004 

050005 

050006 

000010 

000402 



SSCASE= 
$$DST = 
$SELOC= 
S$ERFL= 
SSFLAG= 
$$FROM= 
$SLOC = 
$SLOCN= 
SSREG = 
$SRETU= 
$3RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
SSTO = 
$SSTAG= 



000000 

000000 

000403 

000000 

000001 

000000 

000116R 

000000 

177777 

000001 

050000 

050001 

000000 

COOOOO 

000000 

000000 

000000 

050000 

000164R 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:16 

EQUATE. MAC 13-SEP-78 16: 13 TABLE OF CONTENTS SEQ 0765 

3 COMMON EQUATE MODULE 
555 000000' .PRINT ;SPMAC: VERSION 1.1 



PBREAK PROCESS BREAK MODULE (PBREAK) 
PBREAK. MAC 28-JUL-78 09:23 



MACY11 30A(1052) 20-SEP-78 18:16 PAGE 19 
COMMON EQUATE MODULE 



SEQ 0766 



508 
509 
510 
511 
512 
513 

C 4 A 
.J I "T 

515 
51S 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 



I 1 I lc kdkcma rrct-H-ccss D«cHr\ iviusjuuc ^ro^^£«r\J 



IDENT /V0.0/ 



MODULE NAME: 
PBREAK 



FUNCTIONAL DESCRIPTION: 

THIS MODULE PROCESSES BREAK TRAP CALLS. IT 
ENTERS THE OPTION MODULE MAKING THE CALL INTO THE 
CONTROL QUEUE. 

INPUTS: 

DTABLE ADDRESS 

IMPLICIT INPUTS: 
DT . PC 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
ENQCQ 
SAVREG 
RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL PBREAK IN<DTA> 



DTA = 



EDIT 



DATA 
TABLE 
ADDRESS 

DATE 



BY 



REASON 



PBREAK PROCESS BREAK MODULE (PBREAK) 
PBREAK. MAC 28-JUL-78 09:23 



i>D4 

555 
(1) 
555 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 



000000' 
000000' 



000001 
000001 



MACY11 30A(1052) 20-StP-7S~ 
COMMON EQUATE MODULE 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 

•jlt***********;)::):***^:):;^:); 

REFERENCED BY OTHER MODULES 

GLOBL PBREAK 

********************* 
GLOBAL REFERENCES 

GL03L ENQCQ 
GLOBL SAVREG 
GLOBL RESREG 

J ********#***#*****#:(<>(( 



ia:ib PAtit ly-i 



SEQ 0767 



PBREAK PROCESS BREAK MODULE (PBREAK) 
PBREAK. MAC 28-JUL-78 09:23 



573 


000000' 






(2) 


000000' 






574 








575 








576 








577 








578 


000000' 






(3) 


000000' 


004767 


OOOOOOG 


579 








580 








581 








582 








583 








584 








585 


000004' 






(4) 


000004' 


016500 


000000 


586 


000010' 






(4) 


000010' 


016001 


000002 


587 


000014' 






(4) 


000014' 


010102 




(6) 


000016' 


062702 


000002 


588 








589 








590 








591 








592 








593 


000022' 






(3) 


000022' 


010546 




(S) 


000024' 


010245 




(5) 


000026' 


01 1145 




(4) 


000030' 


010045 




(3) 


000032' 


004767 


OOOOOOG 


(3) 


000036' 


012605 




594 








595 








596 








597 








598 








599 


000040' 






(3) 


000040' 


004767 


OOOOOOG 


600 








601 


000044' 






(3) 


000044' 






(3) 


000044' 






(2) 


000044' 


000207 




602 








603 




000001 





MACY11 30A(1052) 20-SEP-78 18:16 PAGE 19-2 
COMMON EQUATE MODULE 

ROUTINE PBREAK <DTA> 



SAVE REGISTERS NEEDED 
CALL SAVREG 



GET DATA TABLE ADDRESS ARGUMENT PASSED 

GET BEGIN ADDRESS AND DEVELOP RETURN ADDRESS 



LET RO := DTA(R5) 
LET R1 := DT.PC(RO) 
LET R2 := R1 + #2 

h 

MAKE ENTRY IN CONTROL QUEUE 
CALL ENQCQ IN <R0,(R1),R2> 



SEQ 0763 



PBREAK: 



JSR 



RESTORE REGISTERS 
CALL RESREG 
ENDRTN 

.END 



500005: 
50001$: 



JSR 



RTS 



PC, SAVREG 



MOV 


DTA(R5) ,R0 


MOV 


DT.PC(RO) ,R1 


MOV 


R1 ,R2 


ADD 


#2,R2 



MOV 


R5,-(SP) 


MOV 


R2,-(R5) 


MOV 


(RD,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC , ENQCQ 


MOV 


(SP)+,R5 



PC, RESREG 



PC 



PBREAK PROCESS BREAK MODULE (PBREAK) 
PBREAK.MAC 2S-JUL-7S 09:23 



ACSR = 
ACTBIT= 
ADDR22= 
ADR 

APTFER= 
APTPRE= 
ASB 

ASSEMB= 
ASTAT = 
AUTO = 
AUTOST= 
AWAS ■ - 
BITO = 
BITOO = 
BIT01 = 
BIT02 = 
BIT03 = 
BIT04 = 
BIT05 = 
BIT06 = 
BIT07 = 
BIT08 = 
BIT09 = 
BIT1 = 
BIT10 = 
BITi i = 
BIT12 = 
BIT13 = 
BIT14 = 
BIT'15 = 
BIT2 = 
BIT3 = 
BIT4 = 
BIT5 = 
BITS = 
BIT7 = 
BITS = 
BIT9 . = 
BKDEF = 
BKMOD = 
BKMODE= 
BKSLSH= 
CAPRES= 
CASTAT= 
CDERCT= 
CDWDCT= 
CKTIM = 
CLKPRE= 
CONFIG= 
CQOVF = 
CR 

CSRA = 
CSRC = 



000102 
004000 
001000 
000006 
000004 
000200 
000106 
000010 
000104 
000010 
020000 
000110 
000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 
100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
000020 
040000 
000134 
000004 
000004 
000146 
000144 
100000 
000001 
000056 
000001 
000015 
000100 
000102 



CTRLC = 

CTRLO = 

CTRLU = 

DCEVNT= 

DEFRTN; 

DIAGMC= 

DROPMO: 

DSEVNT= 

DTA 

DT.ADD= 

DT.AP ■ 

DT.APK= 

DT.BLS = 

DT.CFO- 

DT.CF1= 

DT.ERR= 

DT.ESI = 

DT.EVN: 

DT.EXS= 

DT.FCH; 

DT.FCN- 

DT.HMX'= 

DT.KBE: 

DT.KBP-= 

DT.KBR= 

DT , KBU 

DT.MLS 

DT.MTI 

DT.DFF 

DT.PAS 

DT.PC. 

DT.PFL 

DT.PSW 

DT.PTA 

DT.RCS 

DT.REL 

DT.SCT 

DT.SMX 

DT.SP 

DT.SSI 

DT.STO 

DT.ST1 

DT.SWR 

DT.SYP 

DT.WBU 

DT.WHL 

DT.WLL 

DVID1 

ECCMEM 

ECCSTA 

ENBEOP 

ENBNUL 

ENDLST 



000003 
000017 
000025 
000011 
000400 
COOOOO 
100000 
000014 
000000 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000C60 
000037 
000036 
000104 
000024 
000026 
000022 

f\ r\ r\ r\ "1 f\ 

— uu U^OU 

= 000032 

= 0001 10 
=000070 

= 000074 

= 000002 

=' 000062 

= 000004 

= 000064 

= 000102 

= 000040 

= 000066 

= 000106 

= 000006 

= 000046 

= 000010 

= 000012 

= 000056 

= 000072 

= 000050 

= 000054 

= 000052 

= 000014 

= 000100 

= 000010 

= 010000 

= 000001 

= 000000 



MACY11 30A(1052) 

SYMBOL TABLE 

ENQCQ = 

EOPSIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT= 

HRDPA'S* 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT .= 

INTR = 

IOMOD = 

I0MODP= 

IO!VIOD.R = 



20-SEP-78 18:16 



000001 
000106 
000200 
000200 
000203 
000202 
000201 ■ 
100000 
000044 
000050 
000035 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000030 
000120 
100000 
102000 
112000 
T'nwnnv- 1 -\ nnnn 

lUi'iuUA- I I v/ V V V 

JACK = 035060 
KIPAR0= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 17234S 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 
KIPDR0= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KTERRO= 000040 
KTPRES= 000400 
KTSTAT= 000020 
KTXTND= 0400C0 
LF = 000012 
LPSTAT= 000001 
MAPSTA= 000200 
MED = 076600 
MEMPAS= 040000 
MODEXH= 004000 



=AGE 20 




MOD'HOL=- 


002000 


MODSEL= 


001000 


MSGCKD=. 


000010 


MSGCKS= 


00001 1 


MSGDER= 


000005 


MSGDRP= 


000017 


MSGECH= 


177777 


MSG£OP= 


000013 


MSGHDR= 


000004 


MSGHNG= 


000022 


MSGHRD= 


000007 


MSGMAP= 


000021 


MSGNUL= 


177775 


MSGPOP= 


000002 


MSGPRM= 


177776 


MSGRESf 


000001 


MSGSFT= 


000006 


!VlSGSKE = 


000003 


MSGSMB= 


000015 


MSGSMH= 


000014 


IV.SGS!ViS = 


000016 


MSGSTD= 


000000 


MSGSYS= 


000012 


MSGVEC= 


000020 


NBKMOD= 


001000 


NCPUQP= 


000020 


NOAPTY= 


000002 


NULL = 


oooooo 


OWEN = 


024020 


PAERR = 


000010 


PARPRE= 


002000 


PARSTA= 


000100 


PASCNT= 


00CG34 


PBREAK 


00OOOORG 


PDPLSI= 


020000 


PDP60 = 


004000 


PDP70 = 


010000 


PRIO = 


OOOOOO 


PRI1 = 


000040 


PRI4 = 


000200 


PRI5 = 


000240 


PRI6 = 


000300 


PRI7 = 


000340 


PRO 


OOOOOO 


PR4 


000200 


PR5 


000240 


PR6 


000300 


PR7 


000340 


PS 


177776 


PSW 


177776 


RANNUM= 


000054 


RBUFEA= 


000130 


RBUFPA= 


000126 



SEQ 0769 



RBUFSZ= 

RBUFVA= 

RDSERV= 

RD'*IHMI = 

RELERR= 

RELMOD= 

RELTIM= 

RESREG= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUSOUT= 

RUNMOD= 

R5VALU= 

SAM 

SAVREG= 

SBADR = 

SBKMOD= 

SBKSEL= 

SC.ADR= 

SC.ALC= 

SC.APC= 

SC.CKL= 

SC,CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

S'ENDLS = 

SOFCNT= 

SOFPAS= 

SPACE = 

SP0INT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 = 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 

SVR6 = 

SYSCNT= 

SYSERR= 

TMPIO = 



000132 
000124 
000101 
000022 
000020 
020000 
010000 
****** 
000056 
000060 
031060 
002000 
000112 
000177 
100000 
001740 
075464 
****** 

000102 
OOOOOO 
010000 
000006 
000014 
000015 
000002 
000004 
OOOOOO 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 
000027 
000001 
000062 
000064 
000066 
000070 
000072 
000074 
000076 
000052 
000100 
000002 



PBREAK 


PROCESS 


BREAK MODULE (PBREAK) MACY11 


30A(1052) 20-SEP-7 


P BREAK.! 


MAC 28-JUL-78 


09:23 


SYMBOL 


TABLE 




TQOVF = 


000002 




WASADR= 


000104 


$FSBLA= 


000170 


UIPAR0= 


177640 




W3STAT= 


000040 


$F$CAS= 


000150 


UIPAR1= 


177642 




WBUFEA= 


000136 


$F$DEC= 


000220 


UIPAR2 = 


177644 




WBUFPA= 


000134 


$F$DO = 


000340 


UIPAR3= 


177646 




WBUFRQ= 


000140 


$F$FAL= 


000405 


UIPAR4= 


177650 




WBUFSZ= 


000142 


$F$GOO= 


000400 


UIPAR5= 


177652 




WDFR = 


000116 


$F$IF = 


000110 


UIPAR6= 


177654 




WDTO = 


000114 


$F$INC= 


000210 


UIPAR7= 


177656 




WTINRE= 


000352 


$F$LOO= 


000200 


UIPDR0= 


177600 




WTWHMI= 


000222 


$F$NAM= 


000160 


UIPDR1= 


177602 




XFLAG = 


000005 


$F$NO = 


000403 


UIPDR2= 


177604 




XOFF = 


000023 


$F$OR = 


000320 


UIPDR3= 


177606 




XON 


000021 


$F$RTI= 


000350 


UIPDR4= 


177610 




$BGNLE= 


177777 


$F$RTN= 


000300 


UIPDR5= 


177612 




$ERFLG= 


000400 


$F$SEL= 


000140 


UIPDR6= 


177614 




$F$AND= 


000310 


$F$THE= 


000330 


UIPDR7= 


177616 




$F$BAD=. 


000401 


$F$TRU= 


000404 


. ABS. 


000000 
000046 


000 
001 











18:16 PAGE 20-1 



SEQ 0770 



$F$UNT= 000130 
$F$WHI= 000120 
$F$YES= 000402 
SIFLEV= 177777 
$LOCTA= 177777 
$LSTIN= 000001 
■$LSTTA= 000001 
$NESTL= 177777 
SNSKO = 000300 
$SAVLE= 177777 
$TAGLE= 177777 
$TAGNU= 050002 
$TEMP = 000300 
$$ARGC= 000002 
$$3YTE= 000000 
$SCASE= 000000 
$$DST = 000000 



$SELOC= 
S$ERFL= 
S$FLAG= 
$SFROM= 
$$LOC = 

SSREG = 
SSRETU= 
S$RTN1= 
$$RTN2= 
SSSRC = 
SSTGSV= 
SSTGS1= 
$STGS2= 
SSTO = 
$$STAG= 



000000 
000000 
000000 
000000 
000000 

r\n aa a a 

V \J W W \J \J 

177777 

000000 
050000 
050001 
000000 
000000 
000000 
000000 
000000 
050000 
00004SR 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ: PBREAK ,DSKZ: PBREAK=SPMAC/ML, EQUATE, PBREAK 
RUN-TIME: 11 1 .3 SECONDS 
RUN-TIME RATIO: 33/13=2.5 
CORE USED: 14K (27 PAGES) 



.WAIN. MACY11 30A(1052) 20-SEP-78 18:16 

EQUATE, MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0771 

3 COMMON EQUATE MODULE 

551 COMMON DEFINITIONS AND REFERENCES 

557 000000' .PRINT ;SPMAC: VERSION 1.1 

581 PROCESS END TRAP CALL 



P'END - PROCESS END TRAP CALL 
PEND.MAC 28-JUL-78 09:24 



MACY11 30A(1052) 20-SEP-78 18:16 PAGE 19 
COMMON EQUATE MODULE 



SEQ 0772 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 



.TITLE PEND - PROCESS END TRAP CALL 
.IDENT /VO.O/ 



++ 
MODULE NAME 
PEND 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PROCESSES THE 'ENDMOD' TRAP CALL (ENDS). 

INPUTS: 

1 . DATA TABLE 



IMPLICIT INPUTS: 
1. DT.PC 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
1 . DRPfviOD 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL PEND IN <DTABLE> 

VERSION: 
0.0 



; ROUTINE TO DROP MODULE FROM EXECUTION 



EDIT 



BY 



DATE 



REASON 



PEND - PROCESS END TRAP CALL 
PEND. MAC 28-JUL-78 09:24 

551 
552 
553 
554 
555 
556 

557 000000' 
(1) 000000' 

558 000001 
55S 000001 
560 

561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
' 571 
572 
573 
574 
575 
576 
577 
578 
579 



MACY11 30A(1052) 20-SEP-78 18: 16 PAGE 20 
COMMON DEFINITIONS AND REFERENCES 

.SBTTL COMMON DEFINITIONS AND REFERENCES 



SEQ 0773 



«/li~ A I I CTDl IPT 



STRUCT 
PRINT ;SPMAC: VERSION 1.1 
$LSTIN = 1 
SLSTTAG = 1 



********** ****** 

REFERENCED BY OTHER MODULES 
GLOBL PEND .'MODULE'S ENTRY POINT 

GLOBAL REFERENCES 
GLOBL DRPMOD 



PEND - PROCESS END TRAP CALL 
PEND.MAC 28-JUL-78 09:24 
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PROCESS END TRAP CALL 



PAGE 21 



SEQ 0774 



581 






582 






583 






584 


000000' 




(2) 


000000' 




585 






586 






587 






588 






589 






590 






591 






592 


000000' 




(2) 


000000' 


010046 


(3) 


000002' 


010146 


593 


000004' 




(4) 


000004' 


016500 000000 


594 


000010' 




(4) 


000010' 


017001 000002 


595 






596 






597 






598 






599 






600 


000014' 




(3) 


Q0001 4 ' 


01 0546 


(5) 


000016' 


010145 


(4) 


000020' 


010045 


(3) 


000022' 


004767 000000G 


(3) 


000026' 


012605 


601 






602 






603 


000030' 




(2) 


000030' 


012601 


(3) 


000032' 


012600 


604 


000034' 




(3) 


000034' 




(3) 


000034' 




(2) 


000034' 


000207 


605 






606 






607 




000001 



•SBTTL PROCESS END TRAP CALL 



ROUTINE PEND <DTA3LE> 



PEND: 



INIT, GET DTABLE ADDR. AND HEADER 

PUSH R0 T R1 

LET RO := DTABLE(R5) 
LET R1 := @DT.PC(R0) 

GO DROP THE OPTION MODULE FROM EXECUTION, 
CALL DRPMOD IN <R0 T R1> 



MOV 


RO.-(SP) 




MOV 


R1,-(SP) 




MOV 


DTABLE(R5) 


,R0 


MOV 


@DT.PC(RO) 


,R1 



W2V 


R5 ~ ! S? 1 


MOV 


R1 |-(R5) 


M3V 


R0 t -(R5) 


JSR 


PC, DRPMOD 


MGV 


(SP)+,R5 



POP R1 ,R0 
ENDRTN 

.END 



50000$: 
50001$: 



MOV 
MOV 



RTS 



(SP)+,R1 
(SP)+,R0 



PC 



PEND - PROCESS END TRAP CALL 
PEND. MAC 28-JUL-78 09:24 



MACY11 30A(1052) 20-SEP-7S 
SYMBOL TABLE 



ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


a r» t r\ r»r- ^ 


rt r\ **\ r\ r\ A 
VW4.WJ 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


000110 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT.07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


3IT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 • - 


000010 


BIT4 = 


000020 


BIT5 » 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQOVF = 


000001 


CR 


000015 


CSRA = 


000100 


CSRC = 


000102 



CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN=. 

r\ t a r<mm — 

DROPMO= 
DRPMOD= 
DSEVNT= 
DTABLE= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CF0= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.'FCH = 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 



000003 
000017 
000025 
000011 
000400 

An n AAA 

\J \J \j w \j \s 

100000 

000014 
000000 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000050 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
000110 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
00G056 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 



ENDLST= 

EOPBIT= 

ERRTYP= 

EVNTBE- 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT= 

HRDPAS= 

ICONT = 

I COUNT = ■ 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT = 

INTR = 

iomod = 

I0M0DP= 

IOMODR= 

IOMODX= 

JACK = 

KIPAR'0 = 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDR0= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPSTAT= 

MAPSTA= 

MED 

MEMPAS= 

MODEXH= 



18: 16 PAGE 2'. 



000000 
000001 
000106 
00 02Q0 
000200 
r, 002 A ' 3 
000202 
000201 
100000 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000030 
000120 
100000 
1020C0 
112000 
1 10000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
1723C0 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
00C020 
040000 
000012 
000001 
000200 
076600 
040000 
004000 



SEQ 0775 



MDDHOL= 


002000 


MODSEL= 


001000 


MSGCKD= 


000010 


■■MSGC'KS'= 


00001 1 


MSGDER= 


000005 


MSGDRP= 


00001 7 


MSGECH= 


177777 


MSGEOP= 


000013 


MSGHDR= 


000004 


MSGHNG= 


000C22 


MSGHRD= 


000007 


MSGMAP= 


000021 


MSGNUL= 


177775 


MSGPOP= 


000002 


H/!SGPRM= 


177776 


MSGRES= 


000001 


MSGSFT= 


000006 


MSGSKE= 


000003 


MSGSM6= 


000015 


MSGSMH= 


000014 


MSGSMS- 


000016 


MSGSTD= 


000000 


MSGSYS= 


000012 


MSGVEC= 


000020 


NBKMOD= 


001000 


NCPUOP= 


000020 


NOAPTY = : 


000002 


NULL = 


000000 


OWEN - 


024020 


PAERR ■= 


000010 


PARPRE= 


002000 


PARSTA= 


000100 


PASCNT= 


000034 


PDPLSI= 


020000 


PDP60 = 


004000 


PDP70 = 


010000 


PEND 


0O00OORG 


PRIO = 


000000 


PRI1 = 


000040 


PRI4 = 


000200 


PRI5 = 


000240 


PRI6 = 


000300 


PRI7 = 


000340 


PRO 


000000 


PR4 


000200 


PR5 


000240 


PR6 


000300 


PR7 


000340 


PS 


177776 


PSW 


177776 


RANNUM= 


000054 


RBUFEA= 


000130 


RBUFPA= 


000126 



R5UFSZ= 

R3UFVA= 

RDS£RV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBQUT= 

RUNMOD= 

R5VALU= 

SAM 

SBADR = 

SBKMOD= 

SBKSEL= 

SC.ADR= 

SC.ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SOFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 = 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 

SVR6 = 

SYSCNT= 

SYSERR= 

TMPIO = 

TQOVF = 

UIPARO= 



000132 

000124 

000101 

000022 

000020 

020000 

010000. 

000056 

000060 

031060 

002000 

000112 

000177 

100000 

001740 

075464 

000102 

000000 

010000 

000006 

000014 

000015 

000002 

000004 

000000 

000010 

000012 

177777 

000042 

000045 

000040 

000032 

002200 

177572 

177574 

177576 

172516 

000026 

064757 

000027 

000001 

000C62 

000064 

000066 

000070 

000072 

000074 

000076 

000052 

000100 

000002 

000002 

177640 



PEND - PROCESS END TRAP CALL 
PEND. MAC 23-JUL-78 09:24 
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SYMBOL TABLE 



PAGE 22-1 



SEQ 0776 



UIPAR1= 


177642 




WBUFEA= 


000136 


UIPAR2= 


177644 




WBUFPA= 


000134 


UIPAR3= 


177646 




WBUFRQ= 


000140 


UIPAR4= 


177650 




W3UFSZ= 


000142 


UIPAR5= 


177652 




WDFR = 


000116 


UIPAR6= 


177654 




WDTO = 


0001 14 


UIPAR7= 


177656 




WTINRE= 


000352 


UIPDR0= 


177600 




WTWHMI= 


000222 


UIPDR1= 


177602 




XFLAG = 


000005 


UIPDR2= 


177604 




XOFF = 


000023 


UIPDR3= 


177606 




XON 


000021 


UIPDR4= 


177610 




$BGNLE= 


177777 


UIPDR5= 


177612 




$ERFLG= 


000400 


UIPDR6= 


177614 




$F$AND= 


000310 


UIPDR7= 


177616 




$F$BAD= 


000401 


WASADR= 


000104 




$F$BLA= 


000170 


WBSTAT= 


000040 




$F$CAS=. 


000150 


. ABS. 


000000 
000036 


000 
001 







$F$DEC= 
$F$DO = 
$F$FAL= 
$F$GOO= 
$F$IF == 
$F$INC= 
$F$LCO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 



000220 
000340 
000405 
000400 
000110 
00021 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 



SF$YES= 
$IFLEV = 
$LOCTA= 
$LSTIN= 
$LSTTA = 
$ N E S T L - 
SNSKO = 
$SAVLE= 
$TAGLE= 
$TAGNU= 
$TEMP = 
$$ARGC = 
S$BYTE= 
$SCASE= 
SSDST = 
$SELOC= 
$$ERFL= 



000402 
177777 
177777 
000001 
000001 

11,1/1 

000300 
177777 
177777 
050002 
000300 
000002 
000000 
000000 
000000 
000000 
000000 



$SFLAG= 
$SFROM= 
SSLOC = 
$SLOCN = 
SSREG = 
SSRETU = 
$$RTN1= 
$SRTN2= 
SSSRC = 
SSTGSV= 
S$TGS1= 
S$TG32= 
$$TQ = 
$$$TAG= 



000000 
000000 
000000 
000000 
177777 

r\n a AAA 

V V V V V \J 

050000 
050001 
000000 
000000 
000000 
000000 
000002 
050000 
000036R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 

DSKZ : PEND DSKZ : PEND-SPf/AC ^ML 
RUN-TIME:' 11 1 .3 seconds' 
RUN-TIME RATIO: 53/13=4.0 
CORE USED: 14K (27 PAGES) 



PDIIATP PFMD 



.MAIN. MACY11 30A(1052) 20-SEP-78 13:17 

EQUATE. MAC. 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0777 

3 COMMON EQUATE MODULE 

562 COMMON DEFINITIONS AND REFERENCES 

566 000000' .PRINT ;SPMAC: VERSION 1.1 

592 PROCESS ENDIT ROUTINE 



PENDIT - PROCESS ENDIT TRAP CALL 
PENDIT.MAC 14-SEP-78 10:57 

508 
509 
510 
511 
512 
51 3 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 



MACY11 30A(1052) 2G-SEP-78 1.6:17 PAGE 19 
COMMON EQUATE MODULE 



SEQ 0778 



.TITLE PENDIT 
.IDENT /VO.O/ 



PROCESS ENDIT TRAP CALL 



MODULE NAME: 
PENDIT 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PROCESSES THE 'ENDIT' TRAP CALL, WHICH CONSISTS 
OF HANDLING END OF PASS CALLS AND END OF ITERATION CALLS. ALSO, AS 
PART OF SERVICING THE END OF PASS CALLS, BACKGROUND MODULES ARE 
TAKEN OFF THE AIR. 



INPUTS: 

1 . DATA TABLE 

IMPLICIT INPUTS: 

1. DT.PC 

2. DT.STO 

3. MODULE'S HEADER ADDRESS 

4. DT.ST1 

5. DT.CFO 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

1. UPDATED RETURN ADDRESS (DT.PC) 

2. UPDATED DT.STO 



PATHOLOGICAL CONNECTIONS: 
BA.STAT 

SUBORDINATE MODULES CALLED: 

1 . ENQTQ 

2. SAVREG 

3. RESREG 

4. ENQCQ 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL PENDIT IN <DTABLE> 

VERSION: 
0.0 



; BACKGROUND QUEUE STATUS WORD 
; EN-QUEUE TYPE QUEUE ENTRY 
;ENQEUE CONTROL QUEUE ENTRY 



EDIT 



BY 



DATE 



REASON 



PENDIT - PROCESS ENDIT TRAP CALL 
PENDIT. MAC 14-SEP-78 10:57 



562 
563 
564 
565 
566 



I i ) 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 



000000 
OOOOOC ' 



000001 
000001 
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COMMON DEFINITIONS AND REFERENCES 

.SBTTL COMMON DEFINITIONS AND REFERENCES 



.MCALL STRUCT 
STRUCT 
.PRINT ;SPMAC« VERSION 1.1 
SLSTIN = 1 
SLSTTAG = 1 



SEQ 0779 



**************** 

REFERENCED BY OTHER MODULES 
QLOBL PENDIT 
**************** 

GLOBAL REFERENCES 

GLOBL SAVREG 

GLOBL RESREG 

GLOBL ENQTQ 

GLOBL ENQCQ 

GLOBL BA.STAT 



;MODULE'S ENTRY POINT 



; EN-QUEUE TYPE QUEUE ROUTINE 

; ENQUEUE INTO THE CONTROL QUEUE 

; BACKGROUND QUEUE STATUS WORD 



000000' 
000000' 



000000' 

000000' 004767 000000G 

000004' 

000004' 005004 

000006' 

000006' 016500 000000 

000012' 

000012' 042760 000400 000010 



PENDIT - PROCESS ENDIT TRAP CALL 
PENDIT.MAC 14-SEP-78 10:57 



592 
593 
594 
595 
(2) 
596 
597 
59S 
599 
600 
501 
602 
603 
(3) 
604 
(4) 
605 
(4) 
606 
(6) 
607 
508 
609 
610 
611 
612 
613 
(4) 
614 
(4) 
615 
(6) 
516 
617 
618 
619 
620 
621 
622 
(6) 
(8) 
(6) 
(9) 
(6) 
623 
(6) 
624 
(4) 
625 
626 
627 
628 
629 
630 
(6) 
631 



000020' 

000020' 017001 000002 

000024' 

000024' 016102 000026 

000030' 

000030' 042702 064757 



000034' 

000034' 020227 
000040' 001403 
000042' 020227 
000046' 001003 
000050' 
000050' 
000050' 
000056' 
000056' 



000000 



001000 



052760 000400 000010 



000056' 

000056' 062760 000002 000002 
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PROCESS ENDIT ROUTINE 

.SBTTL PROCESS ENDIT ROUTINE 



ROUTINE PENDIT <DTABLE> 



SEQ 07S0 



PENDIT: 



DO THE NECESSARY SET-UP STUFF, WHICH CONSISTS OF SAVING THE GPR'S 
AND MARKING THE MODULE FOR AN IMMEDIATE RETURN AFTER 
THE PROCESSING OF THIS TRAP CALL 



CALL SAVREG 

LET R4 := #0 

LET RO := DTABLE(R5) 

LET DT.STO(RO) := DT.STO(RO) CLR.BY #DEFRTN 



GET THE MODULE'S HEADER, THEN GET ITS STATUS WORD, WITH ALL BU - 
THE STATUS BITS MASKED OUT. 



JSR 


PC, SAVREG 


CLR 


R4 


MOV 


DTABLE(R5) , RO 


BIC 


#DEFRTN,DT.STO(R 



LET R1 
LET R2 
LET R2 



= @DT,PC(R0) 

= STAT(R1 ) 

= R2 CLR.BY #STATBITS 



MOV ©DT.PC(R-0),R1 
MOV STAT(R1 ) ,R2 
BIC #STATBITS,R2 



IF THE MODULE IS SBK OR NBK, INDICATE THE A DEFERRED RETURN MUST TAKE 
PLACE. 



IF R2 EQ #SBKMOD OR R2 EQ #NBKMOD THEN 



50002$: 
LET DT.STO(RO) := DT.STO(RO) SET.SY #DEFRTN 



CMP 


R2,#SBKM0D 


BEO 


50002$ 


CMP 


R2,#NBKM0D 


BNE 


50003$ 



BIS 



#DEFRTN,DT.STO(R 



ENDIF 



50003$: 



UPDATE THE RETURN PC. 



LET DT.PC(RO) : = DT.PC(RO) + #2 



ADD #2,DT.PC(R0) 



PENDIT - PROCESS ENDIT TRAP CALL 
PENDIT.MAC 14-SEP-78 10:57 



MACY11 30A(1052) 20-SEP-78 
PROCESS ENDIT ROUTINE 
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SEQ 0731 



632 








633 








634 








635 








636 








637 








638 


000064' 






(6) 


000064' 


005261 


000040 


639 


000070' 






(6) 


000070' 


026161 


000040 000036 


(8) 


000076' 


103004 




(6) 


0001.00' 


032760 


000002 000010 


(9) 


000106' 


001501 




(6) 


0001 10' 






640 








641 








642 








643 








644 








645 








646 








647 


000110' 






(6) 


000110' 


052760 


100000 000012 


643 


0001 16' 






(6) 


000116' 


052760 


000400 000010 


649 


000124' 






(4) 


000124' 


005061 


000046 


650 


000130' 






(4) 


000130' 


005061 


000050 


651 


000134' 






(4) 


000134' 


005061 


000040 


652 


000140' 






(6) 


000140' 


005261 


000034 


653 








654 








655 








656 








657 








658 








659 


000144' 






(6) 


000144' 


005204 




660 








661 








662 








663 








664 








665 








666 








667 








668 








669 








670 


000146' 






(6) 


000146' 


020227 


000000 


(8) 


000152' 


001406 




(6) 


000154' 


020227 


001000 


(8) 


000160' 


001403 





INCREMENT THE MODULE'S ITERATION VARIABLE, AND DETERMINE IF AN 
END OF PASS IS IN ORDER (I.E., IF ITERATIONS EQUAL MAX. OR 
INITIAL PASS OF A BKMOD) 



LET ICOUNT(R1) := ICOUNT(R1) + #1 



INC 



IF IC0UNT(R1) HIS ICONT(R1) OR #TMPIO SETIN DT.STO(RO) THEN 

■.;-■ ' CMP 

BHIS 
BIT 
BEQ 
50004$: 



IC0UNT(R1 ) 

IC0UNT(R1 ) , ICONT 
50004$ 

#TMPIO,DT.ST0(R0 
50005$ 



ITS END-OF-PASS TIME, SO, MARK THE MODULE AS NOT REQUIRING AN IMMEDIATE 
RETURN FROM THIS CALL, RESET THE ERRORS PER PASS COUNTS, 
BUMP THE END OF PASS COUNT AND RESET THE ITERATION COUNT. 



LET DT.ST1 (RO) 
LET DT.STO(RO) 
LET SQFPAS(R1 ) 
LET HRDPAS(RI) 
LET IC0U.NT(R1 ) 
LET PASCNT(R1) 



= DT.ST1(R0) SET. BY #CKTIM 

- DT.STO(RO) SET. BY #DEFRTN 

= #0 

= #0 

= #0 

= PASCNT(R1) + #1 



BIS 


#CKTIM,DT.ST1 (RO 


BIS 


#DEFRTN,DT.ST0(R 


CLR 


SGF PAS ( R1 ) 


CLR 


HRDPAS(R1 ) 


CLR 


IC0UNT(R1 ) 


INC 


PASCNT(R1) 



NOTE THAT AN END OF PASS MESSAGE IS IN ORDER 



LET R4 := R4 + #1 



INC 



R4 



IF THE MODULE TYPE IS BK, BSK, OR NBK, DO THE FOLLOWING: 

1. CLEAR THE RETURN ADDRESS FOR THE MESSAGE ENQUEUE CALL. 

2. CLEAR THE ACTIVE BIT TO TAKE THE MODULE OFF THE AIR. 

3. IF NBK, SET THE "DROP*' BIT. 

4. IF SBK OR NBK, UNLOCK THE MODULE QUEUE LIST. 

OTHERWISE, LOAD THE MODULE'S RETURN ADDRESS FOR THE MESSAGE ENQUEUE CALL. 

IF R2 EQ #SBKMOD OR R2 EQ#NBKMOD OR R2 EQ #BKMOD THEN 

CMP R2,#SBKM0D 

BEQ 50006$ 

CMP R2,*'N BKMOD 

BEQ 50006$ 



PENDIT - PROCESS ENDIT TRAP CALL 
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(6) 


000162 


020227 


000020 




(9) 


000166 


001025 






(6) 


000170 








671 


000170 








(4) 


000170 


005003 






672 


0001 72 








(6) 


000172 


042761 


004000 


000026 


673 


000200 








(6) 


000200 


020227 


001000 




(9) 


000204 


001003 






674 


000206 








(6) 


000206 


052761 


020000 


000026 


675 


000214 








(4) 


000214 








676 


000214 








(6) 


000214 


020227 


000000 




(8) 


000220 


001403 






(6) 


000222 


020227 


001000 




(9) 


000226 


001004 






(6) 


000230 








677 


000230 








(6) 


000230 


042760 


002000 


000010 


678 


000236 








(4) 


000236 


005003 






679 


000240 








(4) 


000240 








680 


000240 








(4) 


000240 


000402 






(3) 


000242 








681 


000242 








(4) 


000242 


016103 


000112 




682 


000246 








(4) 


000246 








633 










684 










685 










686 










687 










688 










689 










690 










691 


000246 








(6) 


000246 


032760 


000002 


000010 


(9) 


000254 


001004 






692 


000256 








(6) 


000256 


152761 


000001 


000005 


693 


000264 








(4) 


000264 


000412 






(3) 


000266 








694 


000266 








(4) 


000266 


005003 






695 


000270 








(6) 


000270 


042761 


100000 


000026 


696 


000276 








(6) 


000276 


052761 


000020 


C00026 


697 


000304 
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PROCESS ENDIT ROUTINE 



LET R3 := #0 



SEQ 0782 



50006S: 



LET STAT(RI) t~ STAT(RI) CLR .BY #ACTBIT 
IF R2 EQ #NBKMOD THEN 



CMP 

BNE 



CLR 

BIC 

CMP 

SNE 



R2 t #BKM0D 
50007$ 



R3 



LET STAT(R1) := STAT(R1) SET. BY #BI713 

BIS 
ENDIF 

5001 OS: 
IF R2 EQ ffSBKMOD OR R2 EQ #NBKMOD THEN 



#ACTBIT,STAT(R1 ) 

R2 T #N3KM0D 
50010$ 

#BIT13,STAT(R1) 



cmp 


R2,#SBKM0D 


BEQ 


50011$ 


CMP 


R2,#NBKM0D 


BNE 


50012$ 



50011$: 
LET DT.STO(RO) : = DT.STO(RO) CLR. BY #MODHOLD 

BIC #MODHQLD,DT.STO( 
LET R3 := #0 



ENDIF 



ELSE 



ENDIF 



LET R3 := RSTRT(R1 ) 



50012$: 
50007$: 

50013$: 



CLR 



BR 



MOV 



R3 

50013$ 
RSTRT(R1 ) ,R3 



SET THE MODULE'S EOP BIT, UNLESS THIS IS A BKMQD IN DISGUISE AS A IOMOD 

(TMPIO = 1), IN WHICH CASE WE MUST CHANGE 

THE BKMOD'S STAT BITS BACK FROM IOMOD TO BKMOD AND 

CLEAR TMPIO. 

IF #TMPIO NOTSETIN DT.STO(RO) THEN 

BIT #TMPIO,DT.STO(RO 
BNE 50014$ 

#E0PBIT,XF.LAG(R1 

BR 50015$ 

CLR R3 

BIC #I0M0D,STAT(R1) 
LET STAT(R1) := STAT(R1) SET. BY #BKM0D 

BIS #BKM0D,STAT(R1) 
LET DT.STO(RO) := DT.STO(RO) CLR. BY #TMPIO!MODHOLD 



LET XFLAG(R1) : B= XFLAG(R1) SET. BY #EOPBIT 

BIS5 



ELSE 



50014$: 



LET R3 := #0 



LET STAT(R1) := STAT(R1) CLR. BY # IOMOD 



PENDIT - PROCESS ENDIT TRAP CALL 
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(6) 


000304' 


042760 


002002 


000010 


693 


000312' 








(4) 


000312' 








699 


000312' 








(4) 


000312' 








•7AA 

1 WW 










701 










702 










703 










704 










705 










706 


C00312' 








(6) 


000312' 


032760 


020000 


000010 


(8) 


000320' 


001010 






(6) 


000322' 


032760 


000010 


000014 


(8) 


000330' 


001004 






(6) 


000332' 


032760 


010000 


000012 


(9) 


000340' 


001432 






(6) 


000342" 








707 










708 










709 










710 










711 










712 










713 










714 










715 










716 


000342' 








(6) 


000342' 


032760 


010000 


000010 


(8) 


000350' 


001004 






(6) 


000352' 


032760 


040000 


000012 


(9) 


000360' 


001422 






(6) 


000362' 








717 


000362' 








(6) 


000362' 


052760 


000400 


000010 


718 


000370' 








(6) 


000370' 


042761 


004000 


000026 


719 










720 










721 










722 










723 










724 










725 


000376' 








(6) 


000376' 


032761 


000020 


000026 


(9) 


000404' 


001407 






(6) 


000406' 


032760 


040000 


000010 


(9) 


000414' 


001403 






726 


000416' 








(6) 


000416' 


042760 


040000 


000010 


727 


000424' 








(4) 


000424' 








728 










729 










730 


000424' 









BIC 



SEQ 0783 
#TMPIO!MODHOLD,D 



ENDIF 



ENDIF 



50015$: 
50005$: 



DETERMINE IF THE EXERCISER IS RUNNING IN RELOCATABLE MODE, 

AUTOMATIC MODE, OR IF S3KSEL IS SET, AND IF 50, DO THE REQUIRED STUFF 

IF #RELMODE SETIN DT.STO(RO) OR #AUTO SETIN DT.CFO(RO) OR #SBKSEL SETIN DT.ST1(R 

BIT #RELMQDE,DT.STO( 

BNiE 50016$ 

BIT #AUT0,DT.CF0(R0) 

BNE 50016$ 

BIT #SBKSEL,DT.ST1(R 

BEQ 50017$ 
50016$: 



IS IT TIME TO RELOCATE? OR, IF NOT IN RELOCATION MODE, IS IT TIME TO RETURN TO 

THE XXDP MONITOR? IF SO, MARK THE MODULE AS NOT REQUIRING 

AN IMMEDIATE RETURN FROM THIS CALL, DE-ACTIVATE THE MODULE, AND 

SET THE MODULE'S RETURN ADDRESS TO 0. 

IF #RELTIME SETIN DT.STO(RO) OR #MEMPAS SETIN DT.ST1(R0) THEN 

BIT #RELTIME,DT.STO( 
BNE 
BIT 
BEQ 
50020$: 

LET DT.STO(RO) := DT.STO(RO) SET. BY #D£FRTN 

BIS 

LET STAT(R1) := STAT(R1) CLR.BY #ACTBIT 

BIC 



50020$ 

#MEMPAS,DT.'ST1(R 

50021$ 



#DEFRTN,DT.ST0(R 
#ACTBIT,STAT(R1 ) 



IF ITS A BACKGROUND MODULE, RESET THE BKMODE BIT IN THE MONITOR'S STATUS 
INDICATOR WORD 



IF #BKMOD SETIN STAT(R1) AND #BKMODE SETIN DT.STO(RO) THEN 

BIT #BKM0D,STAT(R1) 

BEQ 50022$ 

BIT #BKMODE,DT.ST0(R 

BEQ 50022$ 

LET DT.STO(RO) := DT.STO(RO) CLR.BY #BKMODE 

BIC #BKMODE,DT.ST0(R 
ENDIF 

50022$: 



LET R3 := #0 



PENDIT - PROCESS ENDIT TRAP CALL 
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SEQ 0784 



(4) 


000424 


005003 




731 


000426 






(4) 


000426 






732 


000426 






(4) 


000426 






TOO 
















734 








735 








736 








737 








738 








739 








740 


000426 






(6) 


000426 


005704 




(9) 


000430 


001414 




741 


000432 






(3) 


000432 


010546 




(8) 


000434 


010345 




(7) 


000436 


010145 




(6) 


000440 


012745 


000000 


(5) 


000444 


012745 


000013 


(4) 


000450 


010045 




(3) 


000452 


004767 


OOOOOOG 


(3) 


000456 


012605 




742 


000460 






(4) 


000460 


000417 




(3) 


000462 






743 


000462 






(6) 


000462 


020227 


000000 


(8) 


000466 


001403 




(6) 


000470 


020227 


001000 


(9) 


000474 


001011 




(6) 


' 000476 






744 


000476 






(4) 


000476 


016002 


000002 


745 


000502 






(3) 


000502 


010546 




(6) 


000504 


010245 




(55 


000506 


010145 




(4) 


000510 


010045 




(3) 


000512 


004767 


OOOOOOG 


(3) 


000516 


012605 




746 


000520 






(4) 


000520 






747 


000520 






(4) 


000520 






748 








749 








750 








751 








752 








753 


000520 






(3) 


000520 


004767 


OOOOOOG 


754 


000524 






(3) 


000524 






(3) 


000524 







CLR 



ENDIF 



ENDIF 



50021S: 
50017$: 



IF IT IS AN END-OF-PASS, ENQUEUE A MESSAGE. 

OTHERWISE, IF NBK OR SBK f GET THE RETURN ADDRESS AND MAKE A 

CONTROL QUEUE ENTRY. 



IF R4 NE #0 THEN 

CALL ENQTQ IN <R0 ,#MSGE0P, #0 , R1 , R3> 



ELSE 



IF R2 EQ #SBKMOD OR R2 EQ #N3KM0D THEN 



LET R2 := DT.PC(RO) 
CALL ENQCQ IN <R0,R1,R2> 



ENDIF 



ENDIF 



RETURN TO CALLER 

CALL RESREG 
ENDRTN 



JSR 



R3 





TST 


R4 




BEQ 


50023$ 




MOV 


R5,-(SP) 




MDV 


R3,-(R5) 




MOV 


R1,-(R5) 




MOV 


#0,-(R5) 




MOV 


#MSGE0P,-(R5) 




MOV 


R0,-(R5) 




JSR 


PC, ENQTQ 




MOV 


(SP)+,R5 




BR 


50024$ 


t>0023$: 








CMP 


R2,#SBKM0D 




BEQ 


50025$ 




CMP 


R2,#NBKM0D 




BNE 


50026$ 


50025$: 








MOV 


DT.PC(RO) ,R2 




MOV 


R5,-(SP) 




MOV 


R2,-(R5) 




MOV 


R1 ,-(R5) 




MOV 


R0,-(R5) 




JSR 


PC, ENQCQ 




MOV 


(SP)+,R5 


50026$: 






50024$: 







PC, RESREG 



50000$: 
50001$: 
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PROCESS ENDIT ROUTINE 
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SEQ 0785 



(2) 
755 
756 
757 



000524' 000207 



000001 



RTS 



PC 



END 



;THAT'S ALL FOLKS! ! ! 



PENDIT - PROCESS ENDIT TRAP CALL 
PENDIT. MAC 14-SEP-78 10:57 



MACY11 30A(1052) 
SYMBOL TABLE 



20-SEP-78 18:17 



ACSR = 
ACT3IT= 
ADDR22= 
ADR 

APTFER= 
APTPRE= 
ASB 

ASSEMS= 
ASTAT = 
AUTO = 
AUTOST= 
AWAS = 
BA.STA= 
BITO = 
BITOO = 
BIT01 = 
BIT02 = 
BIT03 = 
BIT04 = 
BIT05 = 
BIT06 = 
BIT07 = 
BIT08 = 
BIT09 = 
BIT1 = 
BIT10 = 
BIT11 = 
BIT12 = 
BIT13 = 
BIT14 = 
BIT15 = 
BIT2 = 
BIT3 = 
BIT4 = 
BIT5 = 
BIT6 = 
BIT7 = 
BIT8 = 
BIT9 = 
BKDEF = 
BKMOD = 
BKMODE= 
BKSLSH= 
CAPRES= 
CASTAT= 
CDERCT= 
CDWDCT= 
CKTIM = 
CLKPRE= 
CONFIG= 
CQOVF = 
CR 
CSRA = 



000102 
004000 
001000 
000006 
000004 
000200 
000106 
000010 
000104 
000010 
020000 
000110 
* * # * # * 

000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 
100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
000020 
040000 
000134 
000004 
000004 
000146 
000144 
100000 
000001 
000056 
000001 
000015 
000100 



CSRC = 
CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMQ= 
DSEVNT= 
DTABLE= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CFO= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP: 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF = 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP = 
ENBNUL= 



000102 
0C0003 
000017 
000025 
00001 1 
C00400 
000000 
100000 
000014 
000000 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
000110 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
0O0C4O 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 



ENDLST= 

ENQCQ = 

ENQTQ = 

EOPBIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT- 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUW! = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT = 

INTR = 

IOMOD = 

IOMODP= 

IOMODR= 

IOMQDX= 

JACK = 

KIPARO= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPSTAT= 

MAPSTA= 

MED 



000000 

3}C * * * * 5}C 
3|C 5ff 31C 5^ ^C 3(C 

000001 
000105 
000200 
000200 
000203 
000202 
000201 
100000 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000030 
000120 
100000 
102000 
1 1 2000 
1 10000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 
000001 
000200 
076600 



PAGE 22 




MEMPAS= 


040000 


MODEXH= 


004000 


MODHOL= 


002000 


MODSEL= 


O'OIOOO 


MSGCKD= 


000010 


MSGCKS= 


000011 


MSGDER= 


000005 


MSGDRP= 


000017 


MSGECH= 


177777 


MSGEOP= 


000013 


MSGHDR= 


000004 


MSGHNG= 


000022 


MSGHRD= 


000007 


MSGMAP= 


000021 


MSGNUL= 


177775 


MSG.POP= 


000002. 


MSGPRM=- 


177776 


MSGRES= 


000001 


MSGSFT= 


000006 


MSGSKE= 


000003 


MSG&MB= 


000015 


MSGSMH= 


000014 


MSGSMS= 


000016 


MSGSTD= 


000000 


MSGSYS= 


000012 


MSGVEC= 


000020 


NBKMGD= 


00 i coo 


NCPUOP= 


000020 


NOAPTY= 


000002 


NULL = 


000000 


OWEN = 


024020 


PAERR = 


000010 


PARPRE= 


002000 


PARSTA= 


000100 


PASCNT= 


000034 


PDPLSI= 


020000 


PDP60 = 


004000 


PDP70 = 


010000 


PENDIT 


OOOOOORG 


PR 10 = 


000000 


PRI1 = 


000040 


PRI4 = 


000200 


PRI5 = 


000240 


PRI6 = 


000300 


PRI7 = 


000340 


PRO 


000000 


PR4 


000200 


PR5 


000240 


PR6 


000300 


PR7 


000340 


PS 


177776 


PSW 


177776 


RANNUNN 


0C0054 



SEQ 0786 



RBUFEA= 

RBUFPA= 

RBUFSZ= 

RSUFVA = 

RDSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RESREG= 

RES1 = 

R£S2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RU30UT= 

RUNMOD= 

R5VALU= 

SAM = 

SAVREG= 

SBADR = 

SBKMOD= 

SBKSEL= 

SC.ADR= 

SC.ALC= 

SC.APC= 

ov- . wK L- 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SOFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 = 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 

SVR6 = 

SY5CNT= 



000130 
000126 
000132 
000124 
000101 
000022 
000020 
020000 
010000 
****** 
000056 
000060 
031060 
002000 
000112 
000177 
100000 
001740 
075464 
****** 
000102 
000000 
010000 
000006 
000014 
000016 

r\ r\ r\ s\ r\ ri 
U v o W V £. 

000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 
000027 
000001 
000062 
000064 
000066 
000070 
000072 
000074 
000076 
000052 



PENDIT • 


- PROCESS 


ENDIT " 


fRAP CALL 


MACY1 1 


30A(1052) 20-SEP-7 


PENDIT.I 


VI AC 14- 


-SEP-78 


10:57 


SYMBOL 


TABLE 




SYSERR= 


000100 




WBSTAT= 


000040 


$FSFAL= 


000405 


TMPIO = 


000002 




WBUFEA= 


000136 


$F$GOO= 


000400 


TQOVF = 


000002 




WBUFPA= 


000134 


$F$IF = 


0001 10 


U1PAR0= 


177640 




WBUFRQ= 


000140 


$F$INC= 


000210 


UIPAR1= 


177642 




WBUFSZ= 


000142 


SF$LOO= 


00020G 


UIPAR2= 


177644 




WDFR = 


0001 16 


$F$NAM= 


000160 


UIPAR3= 


177646 




WDTO = 


000114 


$F$NQ = 


000403 


UIPAR4= 


177650 




WTINRE= 


000352 


SFSOR = 


000320 


UIPAR5= 


177652 




WTWHMI= 


000222 


$F$RTI= 


000350 


UIPAR6= 


177654 




XFLAG = 


000005 


$F$RTN= 


000300 


UIPAR7= 


177656 




XOFF = 


000023 


$F$SEL= 


000140 


UIPDRO= 


177600 




XON 


000021 


$F$THE= 


000330 


UIPDR1= 


1 77602 




$BGNLE= 


177777 


$F$TRU= 


000404 


UIPDR2= 


177604 




$ERFLG= 


000400 


$F$UNT= 


000130 


UIPDR3= 


177606 




$F$AND= 


000310 


$FSWHI= 


000120 


UIPDR4= 


177610 




$F$BAD= 


000401 


$F$YES= 


000402 


UIPDR5= 


177612 




$F$BLA= 


000170 


$IFLEV= 


177777 


UIPDR6= 


177614 




$F$CAS= 


000150 


$ISK0 = 


000001 


UIPDR7= 


177616 




$FSDEC= 


000220 


$ISK1 = 


000001 


WASADR= 


000104 




$F$DO = 


000340 


$ISK2 = 


000001 


. ABS- 


000000 
000526 


000 
001 
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SEQ 0787 



$LOCTA= 177777 
$LSTIN= 000001 
$LSTTA= 000&01 
$NESTL= 17?777 
SNSKO = 000300 
SNSK1 = 000110 
SNSK2 = 000110 
SNSK3 = 003110 
$SAVLE=. 177777 
$TAGLE= 177777 
$TAGNU= 050027 
STEMP = 000300 
STSKO = 050024 
$TSK1 = 050026 
$TSK2 = 050022 
$$ARGC= 000002 
$$3YTE= 000403 
$$CASE= 000000 
$$DST = 000000 
$$ELOC= 000402 



$3ERFL= 
$ $ F LA j = 
S$FROM= 
SSLOC = 
$$LOCN= 
S$REG = 
$SRETU= 
S5RTN1= 
SSRTN2= 
SSSRC = 
$$TGSV= 
$$TGS1= 
$STGS2=. 
S3 TO = 
$$$TAG= 



000000 

000001 

000000 

000474R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000526R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSK2: PENDIT ,DSKZ:PENDIT=SPMAC/ML, EQUATE, PENDIT 
RUN-TIME: 20 11.3 SECONDS 
RUN-TIME RATIO: 92/32=2.8 
CORE USED: 14K (27 PAGES) 



•MAIN. MACY11 30A(1052) 20-SEP-73 
EQUATE. MAC 13-SEP-78 16:13 



1 S : 1 S 

TABLE OF 



CONTENTS 



SEQ 0788 



3 COMMON EQUATE MODULE 

556 PDATER (COMMON DEFINITIONS AND REFERENCES) 

559 000000' .PRINT ;SPMAC: 

582 PDATER (CODE) 



VERSION 1.1 



PDATER (PROCESS DATER$ TRAP) 
PDATER.MAC 28-JUL-78 09:24 

508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
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COMMON EQUATE MODULE 

.TITLE PDATER (PROCESS DATERS TRAP) 
.IDENT /VO.O/ 



SEQ 07S9 



++ 

module name 
pdate: 



R 



FUNCTIONAL DESCRIPTION: 

THIS MODULE' IS CALLED AS A RESULT OF A DATERS TRAP 

EXECUTED BY AN OPTION MODULE. IT ENQUEUES AN ERROR MESSAGE, 



INPUTS: 
1 



DTABLE ADDRESS 



IMPLICIT INPUTS: 

1 . DT.PC 

2. DT.CFO 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 

1. ENQTQ ;ENQUE THE ERROR MESSAGE 

2. SAVREG 

3. RESREG 

4. APTSER 

5. DRPMOD 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL PDATER IN <DT> 

WHERE DT a DATA TABLE ADDRESS 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



PDATER (PROCESS DATERS TRAP) 
PDATER. MAC 28-JUL-78 09:24 



556 
557 
558 
559 
(1) 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 



000000' 
000000' 



000001 
000001 
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PDATER (COMMON DEFINITIONS AND REFERENCES) 

.SBTTL PDATER (COMMON DEFINITIONS AND REFERENCES) 

.MCALL STRUCT 

STRUCT 

•PRINT ;SPMAC: VERSION 1.1 

$LSTIN = '1 

$LSTTAG=1 



SEQ 0790 



REFERENCED BY OTHER MODULES 
GLOBL PDATER 

GLOBAL REFERENCES 



;MODULc ENTRY POINT 



GLOBL ENQTQ 

GLOBL SAVREG 

GLOBL RESREG 

GLOBL APTSER 

GLOBL DRPMOD 



ENQUES ERROR MSG 



APT ROUTINE 
DROP MODULE 



PDATER (PROCESS DATER$ TRAP) 
PDATER.MAC 28-JUL-78 09:24 



MACY 1 1 



582 








583 








584 


000000' 






(2) 


000000' 






585 








586 








587 








588 








589 








590 








591 








592 








593 








594 








595 








596 


000000' 






(3) 


000000' 


004767 


000000G 


597 








598 


000004' 






(4) 


000004' 


016500 


000000 


599 


000010' 






(4) 


000010' 


016001 


000002 


600 


000014' 






(4) 


000014' 


017004 


000002 


601 








602 








603 








604 








605 








606 








607 


000020' 






(6) 


000020' 


005264 


000042 


608 


000024' 






(6) 


000024' 


005264 


000046 


609 


000030' 






(6) 


000030' 


032760 


000200 000014 


(9) 


000036' 


001406 




610 


000040" 






(3) 


000040' 


010546 




(4) 


000042' 


010045 




(3) 


000044' 


004767 


OOOOOOG 


(3) 


000050' 


012605 




611 


000052' 






(4) 


000052' 


000431 




(3) 


000054' 






612 








613 








614 








615 








616 








617 








618 








619 


000054' 






(6) 


000054' 


032760 


100000 000056 


(9) 


000062' 


001407 




620 


000064' 







30A(1052) 20-SEP-78 18:19 PAGE 19-2 
PDATER (CODE) 

.SBTTL PDATER (CODE) 

ROUTINE PDATER <AA> 



SEO 0791 



PDATER: 



THIS ROUTINE ENQUES THE DATA ERROR MESSAGE IN THE TYPE QUEUE. 

RO = DTABLE ADDRESS 

R1 = PC+2 OF CALL 

R2 = PC OF CALL AND IS PASSED AS ADDR OF MSG 

R3 = RETURN ADDRESS 

MSGDER = DATA ERROR TYPE MSG CODE 



CALL SAVREG 



LET RO 
LET R1 
LET R4 

+ 



= AA(R5) 

= DT.PC(RO) 

= @DT.PC(RO) 



JSR 


PC.SAVREG 


MOV 


AA(R5) ,R0 


MOV 


DT.PC(RO) , R1 


MOV 


@DT.PC(RQ) ,R4 



INCREMENT SOFCNT, AND SOFPAS AND IF UNDER APT, CALL APT SOFT 
ERROR ROUTINE 



LET S0FCNT(R4) :» S0FCNT(R4) + #1 

LET S0FPAS(R4) := S0FPAS(R4) + #1 

IF 4APTPRES SETIN DT.CFO(RO) THEN 

CALL. APTSER IN <R0> 



INC 


S0FCNT(R4) 


INC 


S0FPAS(R4) 


BIT 
BEQ 


#APTPRES,DT.CFO( 

50002$ 


MOV 
MOV 
JSR 
MOV 


R5,-(SP) 
R0,~(R5) 
PC, APTSER 
(SP) + ,,R5 



ELSE 



BR 



50002$: 



THE ENVIRONMENT IS NOT APT. 

IF THE SWITCH REGISTER SAYS DROP THE MODULE BECAUSE OF THE 

ERROR, DO IT. 



IF #BIT15 SETIN DT.SWR(RO) THEN 



BIT 
BEQ 



50003$ 



#BIT15,DT.SWR(R0 
50004$ 



CALL DRPMOD IN <R0,R4> 



PDATER (PROCESS DATER$ TRAP) 
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PDATER (CODE) 



18:19 PAGE 19-3 



SEQ 0792 



(3) 
(5) 
(4) 
(3) 
(3) 
621 
(4) 
(3) 
622 
623 
624 
625 
626 
627 
628 
629 
(6) 
(9) 
(6) 
(9) 
630 
(3) 
(5) 
(4) 
(3) 
(3) 
631 
(4) 
632 
(4) 
633 
(4) 
634 
635 
636 
637 
638 
639 
640 
(4) 
(6) 
641 
642 
643 
644 
645 
646 
(4) 
(6) 
647 
(3) 
(8) 
(7) 
(6) 
(5) 
(4) 



000064' 
000066* 
000070' 
000072' 
000076' 
000100' 
000100' 
000102' 



010546 
010445 
010045 
004767 
012605 

000416 



000102' 
000102' 
0001 10' 
0001 12' 
000120' 
000122' 
000122' 
000124' 
000126' 
000130' 
000134' 
000136' 
000136' 
000136' 
000136' 
000136' 
000136' 



026460 
101412 
032760 
001006 

010546 
010445 
01 0045 
004767 
012605 



000136' 

000136' 010102 
000140' 162702 



000144' 
000144' 
000146' 
000152' 
000152' 
000154' 
000156' 
000160' 
000162' 
000166' 



010103 
062703 

010546 
010345 
01 1 145 
010245 
012745 
010045 



OOOOOOG 



ELSE 



MOV 
MOV 
MOV 
JSR 
MOV 

BR 



R5,-(SP) 

R4,-(R5) 

R0,-(R5) 

PC.DRPMOD 

(SP)+ f R5 

50005$ 



50004$: 



000042 000106 
040000 000056 



OOOOOOG 



IF THE ERROR COUNT HAS REACHED THE LIMIT, AND IF THE SWITCH REGISTER 
INDICATES THE MODULE SHOULD BE DROPPED, DO IT. 

IF S0FCNT(R4) HI DT.SMX(RO) AND 0BIT14 NOTSETIN DT.SWR(RO) THEN 



CALL DRPMOD IN <R0,R4> 



ENDIF 



ENDIF 



ENDIF 





CMP 
BLOS 
BIT 
BNE 


S0FCNT(R4) ,DT.SM 
50006$ 

#BIT14,DT.SWR(R0 
50006$ 




MOV 
MOV 
MOV 
JSR 
MOV 


R5,-(SP) 
R4,-(R5) 
R0,-(R5) 
PCDRPMOD 
(SP)+, R5 


50006$: 






50005$: 






50003$: 







000002 



000002 



000005 



PUT THE ADDRESS OF THE TRAP CALL. IN R2, 



LET R2 := R1 - #2 



PUT THE OPTION MODULE'S RETURN ADDRESS IN R3, 



LET R3 := R1 + #2 



CALL ENQTQ IN <R0 , #MSGDER , R2 , ( R1 ) , R3> 



MOV 
SUB 



R1 ,R2 
#2,R2 



MOV 


R1 ,R3 


ADD 


#2, R3 


MOV 


R5,-(SP) 


MOV 


R3,-(R5) 


MOV 


(R1 ),~(R5) 


MOV 


R2,-(R5) 


MOV 


#MSGDER,-(R5) 


MOV 


R0,-(R5) 



PDATER (PROCESS DATER$ TRAP) 
PDATER.MAC 28-JUL-78 09:24 



(3) 
(3) 
648 
649 
(3) 
650 
651 
(3) 
(3) 
(2) 
652 
653 



000170' 
000174' 

000176' 
000 I 76' 

000202' 
000202' 
000202" 
000202' 



004767 
012605 



000000G 



004767 OOOOOOG 



000207 



000001 



MACY11 30AO052) 20--SEP-78 
PDATER (CODE) 



CALL RESREG 
ENDRTN 

.END 



18:19 PAGE 19-4 



50000$: 
50001$: 



JSR 



RTS 



SEQ 0793 



JSR PC.ENQTQ 
MOV (SP)+,R5 



PC, RESREG 



PC 



PDATER (PROCESS DATER$ TRAP) 
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MACY11 30A(1052) 20 
SYMBOL TABLE 



AA 


000000 


ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


APTSER= 


****** 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS * 


0001 10 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


B1T2 = 


000004 


BIT3 a 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQOVF = 


000001 


CR 


000015 



CSRA = 
CSRC = 
CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO= 
DRPMOD= 
DSEVNT= 
DT.ADD= 
DT.AP = 
DT.A'PK = 
DT.BLS= 
DT.CF0= 
DT.CF1= 
DT.ERR- 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI* 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 



000100 
000102 
000003 
000017 
000025 
00001 1 
000400 
000000 
100000 

000014 
000042 
00 0100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 



-SEP-78 
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SEQ 0794 


ENBNUL= 


,000001 


MEMPAS- 


040000 


..' RBUFEA= 


000130 




ENDLST= 


000000 


MODEXH= 


004000 


RBUFPA= 


000126 




ENQTQ = 


****** G 


MODHOL= 


00.2000 


RBUFSZ= 


000132 




EOPBIT= 


000001 


MODSEL= 


001000 


RBUFVA= 


000124 




ERRTYP= 


000106 


MSGCKD= 


000010 


RDSERV= 


000101 




EVNTBE= 


000200 


MSGCKS= 


00001 1 


RDWHMI= 


000022 




EVNTHD= 


000200 


MSGDER= 


000005 


RELERR= 


000020 




EVNTKT= 


000203 


MSGDRP== 


000017 


RELMOD= 


020000 




EVNTPE= 


000202 


MSGECH- 


17777 7 


RELTIM= 


010000 




EVNTRE= 


000201 


MSGEOP- 


000013 


RESREG= 


* # * * * * Q 




FATERR= 


100000 


MSGHDR== 


000004 


RES1 


000056 




HRDCNT= 


000044 


MSGHNG= 


000022 


RES2 = 


000060 




HRDPAS= 


000050 


MSGHRD= 


000007 


RICHAR= 


031060 




ICONT = 


000036 


MSGMAP= 


000021 


RPTDAT= 


002000 




ICOUNT= 


000040 


MSGNUL- 


177775 


RSTRT = 


000112 




IDNUM = 


000122 


MSGPOP= 


000002 


RUBOUT= 


000177 




IE 


000100 


MSGPRM* 


177776 


RUNMOD= 


100000 




INDPAR= 


000040 


MSGRES== 


000001 


R5VALU= 


001740 




INHDRP= 


040000 


MSGSFT= 


000006 


SAM 


075464 




INHEPR= 


020000 


MSGSKE= 


000003 


SAVREG= 


* * + # * * G 




INHREL= 


001000 


MSGSMB= 


000015 


SBADR = 


000102 




INHRRE= 


000400 


MSGSMH= 


000014 


SBKMOD= 


000000 




INIT : = 


000030 


MSGSMS= 


000016 


SBKSEL= 


010000 




INTR = 


000120 


MSGSTD= 


000000 


SC.ADR= 


000006 




IOMOD * 


100000 


MSGSYS= 


000012 


SC.ALC= 


000014 




IOMODP= 


102000 


MSGVEC= 


000020 


SC.APC= 


000016 




IOMODR= 


1 12000 


NBKMOD= 


001000 


SC.CKL= 


000002 




IOMODX= 


1 10000 


NCPUOP= 


000020 


SC.CKP= 


000004 




JACK = 


035060 


NOAPTY= 


000002 


SC.CLO= 


000000 




KIPAR0= 


172340 


NULL = 


000000 


SC.HLD* 


000010 




KIPAR1= 


172342 


OWEN - 


024020 


.,. ,• SC.SCA = 


000012 




KIPAR2= 


172344 


PAERR = 


000010 


' SENDLS= 


177777 




KIPAR3= 


172346 


PARPRE= 


002000 


SOFCNT= 


000042 




KIPAR4= 


172350 


PARSTA= 


000100 


SOFPAS= 


000046 




KIPAR5= 


172352 


PASCNT= 


000034 


SPACE = 


000040 




KIPAR6= 


172354 


PDATER 


OOOOOORG 


SPOINT= 


000032 




KIPAR7= 


172356 


PDPLSI= 


020000 


SPVALU* 


002200 




KIPDRO= 


172300 


PDP60 = 


004000 


SRO 


177572 




KIPDR1= 


172302 


PDP70 = 


010000 


SR1 


177574 




KIPDR2= 


172304 


PRIO = 


000000 


SR2 


177576 




KIPDR3= 


172306 


PRI1 = 


000040 


SR3 


172516 




KIPDR4= 


172310 


PRI4 = 


000200 


STAT = 


000026 




KIPDR5= 


172312 


PRI5 = 


000240 


STATBI= 


064757 




KIPDR6= 


172314 


PRI6 = 


000300 


STAT1 = 


000027 




KIPDR7= 


172316 


PRI7 = 


000340 


SUSPND= 


000001 




KTERRO= 


000040 


PRO 


000000 


SVRO = 


000062 




KTPRES= 


000400 


PR4 


000200 


SVR1 - 


000064 




KTSTAT= 


000020 


PR5 


000240 


SVR2 = 


000066 




KTXTND= 


040000 


PR6 


000300 


SVR3 = 


000070 




LF 


000012 


PR7 


000340 


SVR4 = 


000072 




LPSTAT= 


000001 


PS = 


177776 


SVR5 = 


000074 




MAPSTA= 


000200 


PSW 


177776 


SVR6 = 


000076 




MED 


076600 


RANNUM= 


000054 


SYSCNT= 


000052 
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,SYSERR= 000100 

TMPIO = 000002 

TQOVF = 000002 

UIPAR0= 177640 

UIPAR1= 177642 

UIPAR2= 177644 

UIPAR3= 177646 

UIPAR4= 177650 

UIPAR5= 177652 

UIPAR6= 177654 

UIPAR7= 177656 

UIPDR0= 177600 

UIPDR1= 177602 

UIPDR2= 177604 

UIPDR3= 177606 

UIPDR4= 177610 

UIPDR5= 177612 

UIPDR6= 177614 

UIPDR7= 177616 

WASADR= 000104 

. ABS. 000000 
000204 
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SEQ 0795 





WBSTAT= 


000040 




WBUFEA= 


000136 




WBUFPA= 


000134 




WBUFRO= 


000140 




WBUFS2= 


000142 




WDFR = 


0001 16 




WDTO = 


0001 14 




WTINRE= 


000352 




WTWHMI= 


000222 




XFLAG = 


000005 




XOFF = 


000023 




XON 


000021 




$BGNLE = 


177777 




$ERFLG= 


000400 




$F$AND= 


000310 




$F$BAD= 


000401 




$F$BLA= 


000170 




$F$CAS= 


000150 




$F$DEC= 


000220 




$F$DO = 


000340 


000 






001 







$F$FAL= 
$F$GOO* 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$QR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 
$IFLEV= 
$ISK0 = 
$ISK1 = 
$ISK2 = 



000405 
000400 
0001 10 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 
000001 
000001 
000001 



$LOCTA; 
$LSTIN; 
$LSTTA: 
S'NESTL' 
$NSKO ' 
SNSK1 -. 
$NSK2 : 
$NSK3 • 
$SAVLE> 
$TAGLE^ 
$TAGN.U = 
$TEMP •■ 
$TSKO i 
$TSK1 : 
$TSK2 -■ 
$$ARGG 
$$BYTE< 
$$CASE' 
$$DST ■■ 
$$ELOC 



177777 
000001 
000001 
177777 
00030 
000110 
000110 
000110 
177777 
177777 
050007 
000300 
050003 
050005 
050006 
000002 
000403 
000000 
000000 
000402 



$$ERFL= 
$$FLAG= 
$$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RF.TU = 
$$RTN1= 
$$RTN2= 
$$5RC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 ■ 
$$$TAG= 



000000 

000001 

000000 

000120R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000204R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ: PDATER, DSKZ : PDATER=SPMAC/ML , EQUATE, PDATER 
RUN-TIME: 13 3 .4 SECONDS 
RUN-TIME RATIO: 64/17=3.6 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:20 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0736 

3 COMMON EQUATE MODULE 

565 PGETPA (COMMON DEFINITIONS & REFERENCES) 

568 000000' .PRINT ;SPMAC: VERSION 1.1 

587 PGETPA (CODE) 



PGETPA (GET PHYSICAL ADDRESS MODULE) 
PGETPA. MAC 28-JUL-78 09:24 

508 
509 
510 
511 
512 
513 
514 
515 
513 
517 
513 
519 
520 
521 
522 
523 
524 
525 
526 
527 
526 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 



MACY11 30A(1052) 20-SEP-78 
COMMON EQUATE MODULE 



18:20 PAGE 19 



SEQ 0797 



.TITLE PGETPA (GET PHYSICAL ADDRESS MODULE) 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
PGETPA 

FUNCTIONAL DESCRIPTION: 

THIS MODULE SERVICES GETPA TRAP CALLS. 
IT RETURNS A 16-BIT OR 18-BIT VIRTUAL 
ADDRESS FOR A 16-BIT VIRTUAL ADDRESS GIVEN 
(DEPENDING ON IF KT IS TURNED ON). 
A POINTER TO A 3-WCRD AREA IS RECEIVED. THE F 
WORD CONTAINS THE 16-BIT VIRTUAL ADDRESS, THE 
WORDS WILL CONTAIN, ON RETURN, THE LOW 13-BITS 
THE EXTENDED ADDRESS BITS. 



INPUTS: 

DTABLE ADDRESS 



RST 

NEXT TWO 
OF THE ADDRESS 



AND 



IMPLICIT INPUTS: 
1 . DT . PC 



DT.PC+2 POINTS TO TABLE CONTAINING VA,PA,EA 
WHERE VA = VIRTUAL ADDRESS 
PA = PHYSICAL ADDRESS 
EA = EXTENDED ADDRESS 



DT.STO 
DT. OFFSET 



OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

1. PHYSICAL ADDRESS WORD 

2. EXTENDED ADDRESS WORD 

PATHOLOGICAL CONNECTIONS^ 
NONE 

SUBORDINATE ROUTINES CALLED: 

SAVREG 
RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL PGETPA IN <DT> 

WHERE DT = DTA3LE ADDRESS 

VERSION: 
0.0 



;SAVE REGISTERS 
;RESTORE REGISTERS 



EDIT 



DATE 



BY 



REASON 



PGETPA (GET PHYSICAL ADDRESS MODULE) 
PGETPA.MAC 28-JUL-78 09:24 

565 

566 

567 

568 000000' 

(1) 000000' 

569 

570 000001 

571 000001 
572 

573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 



MACY11 30A(1052) 2G-SEP-78 18:20 PAGE 19-1 
PGETPA (COMMON DEFINITIONS & REFERENCES) 

.SBTTL PGETPA (COMMON DEFINITIONS & REFERENCES) 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 
$LSTTAG=1 

> **************** 

; REFERENCED BY OTHER MODULES 



SEQ 0798 



.GLOBL PGETPA 

• **************** 

; GLOBAL REFERENCES 

!globl SAVREG 
.GLOBL RESREG 

• **************** 



;MODULE ENTRY POINT 



;SAVE REGISTERS 
{RESTORE REGISTERS 



PGETPA (GET PHYSICAL ADDRESS MODULE) 
PGETPA. MAC 28-JUL-78 09:24 



587 
588 
589 
(2) 
590 
591 
592 
593 
594 
595 
(3) 
596 
597 
598 
599 
600 
601 
602 
(4) 
603 
604 
605 
606 
607 
608 
609 
(4) 
(6) 
610 
611 
(4) 
612 
613 
614 
615 
616 
617 
618 
(6) 
619 
620 
621 
622 
623 
624 
625 
626 
627 
(6) 
(9) 
628 
(4) 
629 
(4) 
630 
631 



000000' 
000000' 



000000 
000000 



004767 OOOOOOG 



000004' 
000004' 



016500 000000 



000010' 

000010' 016002 
000014' 062702 



000002 
000002 



000020 1 
000020' 



01 1201 



000022' 

000022' 062760 000004 000002 



000030' 
000030' 
000036' 
000040' 
000040' 
000042' 
000042' 

000046' 



032760 
001004 

012111 



005061 000002 



000020 000010 



MACY11 30A(1052) 20-SEP-78 18:20 PAGE 19-2 
PGETPA (CODE) 

.SBTTL PGETPA (CODE) 

ROUTINE PGETPA <DT> 



SAVE REGISTERS 



SEO 0799 



PGETPA: 



CALL SAVREG 



SET RO TO THE START OF THE DATA TABLE 



USR 



PC, SAVREG 



LET RO := DT(R5) 



SET R1 TO THE START OF THE ADDRESS TABLE, 



MOV 



DT(R5) ,R0 



LET R2 := DT.PC(RO) + #2 



LET R1 := (R2) 



MOV DT.PC(R0),R2 
ADD #2,R2 



MOV 



(R2) ,R1 



UPDATE DT.PC TO REFLECT THE OPTION MODULE'S RETURN ADDRESS. 



LET DT.PC(RO) := DT.PC(RO) + #4 



ADD #4,DT.PC(R0) 



IF MEMORY MANAGEMENT IS NOT TURNED ON, SIMPLY MOVE THE 

16-BIT VIRTUAL ADDRESS TO THE OUTPUT POSITION OF THE TABLE, CLEAR THE 

HIGH BIT TABLE POSITION, AND RETURN. 



IF #KTSTAT NOTSETIN DT.STO(RO) THEN 

LET (R1 ) := (R1 ) + 
LET 2(R1 ) := #0 

ELSE 



BIT 
BNE 

MOV 

CLR 



#KTSTAT,DT.ST0(R 
50002$ 

(R1 )+,(R1) 
2(R1) 



PGETPA (GET PHYSICAL ADDRESS MODULE) 
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MACY11 30A(1052) 
PGETPA (CODE) 



20-SEP-78 18:20 PAGE 19-3 



SEQ 0800 



(4) 


000046' 


000446 


(3) 


000050' 




632 






633 






634 






635 






636 






637 






638 






639 






640 






641 






642 






643 






644 






645 


000050' 




(4) 


000050' 


01 1 102 


646 


000052' 




(6) 


000052' 


000302 


647 


000054' 




(7) 


000054' 


006202 


(7) 


000056' 


006202 


(7) 


000060' 


006202 


(7) 


000062' 


006202 


648 


000064' 




(6) 


000064' 


042702 177761 


649 


000070' 




(4) 


000070' 


012703 172340 


(6) 


000074' 


060203 


650 






651 






652 






653 






654 






655 






656 


000076' 




(4) 


000076' 


01 1302 


657 






658 






659 






660 






661 






662 






663 






664 


000100' 




(6) 


000100' 


166002 000070 


665 






666 






667 






668 






669 






670 






671 






672 






673 






674 


000104' 





BR 



50002$: 



ELSE MEMORY MANAGEMENT IS ON, 



DETERMINE THE PAR REGISTER REFERENCED BY THE VIRTUAL ADDRESS 

BY PLACING THE VA IN R2, DETERMINING THE ADDRESS 

OF THE PROPER PAR REGISTER, AND PLACING THE ADDRESS OF THIS 
REGISTER IN R3. 



LET R2 := (R1) 

LET R2 := SWAP R2 

LET R2 := R2 SHIFT #-4 

LET R2 := R2 CLR.BY #177761 

LET R3 := 0KIPARO + R2 



NOW GET THE CONTENTS OF THIS PAR REGISTER, 



LET R2 := (R3) 



MOV 



50003$ 



MOV 


(R1 ) ,R2 




SWAB 


R2 




ASR 


R2 




ASR 


R2 




ASR 


R2 




ASR 


R2 




BIC 


#177761 


R2 


MOV 


#KIPARO 


R3 


ADD 


R2.R3 





(R3) ,R2 



WE NOW HAVE THE 22-BIT PHYSICAL ADDRESS IN PAR FORMAT. 

MAKE THIS A VIRTUAL 18-BIT VALUE (STILL PAR FORMAT) BY SUBTRACTING 

THE CURRENT OFFSET VALUE. 



LET R2 := R2 - DT .OFFSET ( RO) 



SUB 



DT.OFFSET(RO) ,R2 



NOW CONVERT THIS VALUE TO 18 BITS. 

FIRST FORM THE LOW-ORDER 16-BITS BY SHIFTING THE HIGH 

ORDER BITS OUT OF THE PAR CONTENTS AND ADDING THE LOW 12 BITS OF THE 

ORIGINAL VA. THEN IF THERE IS OVERFLOW, CARRY IT TO THE HIGH BITS. 



LET R3 := R2 SHIFT #6 



PGETPA (GET PHYSICAL ADDRESS MODULE) 
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PGETPA (CODE) 



SEQ 0801 



(4) 


000104' 


010203 




(7) 


000106' 


006303 




(7) 


0001 10' 


006303 




(7) 


0001 12' 


006303 




(7) 


0001 14' 


006303 




(7) 


0001 16' 


006303 




(7) 


000120' 


006303 




675 


000122' 






(4) 


000122' 


01 1 104 




(6) 


000124' 


042704 


160000 


676 


000130' 






(4) 


000130' 


010361 


000002 


(6) 


000134' 


060461 


000002 


677 


000140' 






(6) 


000140' 


103002 




678 


000142' 






(6) 


000142' 


062702 


000200 


679 


000146' 






(4) 


000146' 






680 








681 








682 








683 








684 








685 








686 








687 


000146' 






(6) 


000146' 


000302 




688 


000150' 






(7) 


000150' 


006302 




(7) 


000152' 


006302 




689 


000154' 






(6) 


000154' 


042702 


177717 


690 


000160' 






(4) 


000160' 


010261 


000004 


691 








692 








693 


000164' 






(4) 


000164' 






694 








695 








696 








697 








698 








699 








700 


000164' 






(3) 


000164' 


004767 


OOOOOOG 


701 








702 


000170' 






(3) 


000170' 






(3) 


000170' 






(2) 


000170' 


000207 




703 








704 




000001 





LET R4 := (R1) CLR.BY #160000 

LET 2(R1 ) := R3 + R4 

IFCOND CS THEN 

LET R2 := R2 + #200 
ENDIF 



FORM THE HIGH-ORDER 2 BITS, SHIFTING THEM INTO BIT POSTIONS 
4 AND 5. 



LET R2 := SWAP R2 

LET R2 := R2 SHIFT #+2 

LET R2 := R2 CLR.BY #177717 

LET 4(R1 ) := R2 



MOV 


R2,R3 


ASL 


R3 


ASL 


R3 


ASL 


R3 


ASL 


R3 


ASL 


R3 


ASL 


R3 


MOV 


(R1 ) ,R4 


BIC 


#160000, R4 


MOV 


R3,2(R1 ) 


ADD 


R4,2(R1 ) 


BCC 


50004$ 


ADD 


#200, R2 


50004$: 





SWAB 

ASL 
ASL 

BIC 

MOV 



ENDIF 



50003$: 



RESTORE REGISTERS AND RETURN, 



CALL RESREG 



JSR 



ENDRTN 



.END 



50000$: 
50001$: 



R2 

R2 
R2 

#177717, R2 

R2 r 4(R1 ) 



PC, RESREG 



PC 
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SYMBOL TABLE 
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SEQ 0802 



ACSR = 


000102 


ACT3IT= 


004000 


ADDR22= 


001000 


ADR - 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


0001 10 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT 11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 s 


000040 


BITS « 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


COOVF = 


000001 


CR 


000015 


CSRA = 


000100 


CSRC = 


000102 



CTRLC = 

CTRLO = 

CTRLU. = 

DCEVNT= 

DEFRTN= 

DIAGMC= 

DROPMO= 

DSEVNT= 

DT 

DT.ADD= 

DT.AP = 

DT.APK= 

DT.BLS= 

DT.CFO= 

DT.CF1= 

DT.ERR= 

DT.ESI= 

DT.EVN= 

DT.EXS= 

DT.FCH= 

DT.FCN= 

DT.HMX* 

DT.KBE= 

DT.KBP= 

DT.KBR= 

DT.KBU= 

DT.MLS= 

DT.MTI= 

DT.OFF= 

DT.PAS= 

DT.PC = 

DT.PFL= 

DT.PSW= 

DT.PTA= 

DT.RCS= 

DT.REL= 

DT.SCT= 

DT.SMX= 

DT.SP * 

DT.SSI= 

DT.STO= 

DT.ST1= 

DT.SWR= 

DT.SYP- 

DT.WBU= 

DT.WHL= 

DT.WLL= 

DVID1 = 

ECCMEM= 

ECCSTA= 

ENBEOP= 

ENBNUL= 

ENDLST= 



000003 
000017 
000025 
00001 1 
000400 
000000 
100000 
000014 
000000 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 
000000 



EOPBIT= 

ERRTYP= 

EVNTBE* 

EVNTHD* 

EV.NTKT* 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDGNT= 

HRDPAS= 

I COW = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR* 

INHREL= 

INHRRE= 

INIT = 

INTR = 

IOMOD = 

IOMODP= 

IOMODR= 

IOMODX= 

JACK = 

KIPARO= 

KIPAR1= 

KIPAR2* 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KJPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT* 

KTXTND= 

LF 

LPSTAT= 

MAP5TA= 

MED 

MEMPAS* 

MODEXH= 

MODHOL= 



000001 
000106 
000200 
000200 
000203 
000202 
000201 
100000 
000044 
000050 
000033 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000030 
000120 
100000 
102000 
1 12000 
1 10000 
035060 
172340 
172342 
1 72344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 
000001 
000200 
076600 
040000 
004000 
002000 



MODSEL= 


001000 


MSGCKD= 


000010 


MSGCKS= 


00001 1 


MSGDER= 


000005 


MSGDRP= 


000017 


MSGECH= 


177777 


MSGEOP= 


000013 


MSGHDR= 


000004 


MSGHNG= 


000022 


MSGHRD= 


000007 


MSGMAP= 


000021 


MSGNUL= 


177775 


MSGPOP= 


000002 


MSGPRM= 


177776 


MSGRES= 


000001 


MSGSFT= 


00006 


MSGSKE= 


000003 


MSGSMB= 


000015 


MSGSMH= 


000014 


MSG'5MS = 


000016 


MSGSTD= 


000000 


MSGSYS=: 


000012 


MSGVEC= 


000020 


NBKMOD= 


001000 


NCPUOP== 


000020 


NOAPTY== 


000002 


NULL = 


oooooo 


OWEN == 


024020 


PAERR = 


000010 


PARPRE= 


002000 


PARSTA== 


000100 


PASCNT= 


000034 


PD'PLSI = 


020000 


PDP60 = 


004000 


PDP70 == 


010000 


PGETPA 


OOOOOORG 


PR 10 == 


oooooo 


P R 1 1 == 


000040 


PR 1 4 = 


000200 


P R 1 5 = 


000240 


PRI6 = 


000300 


PR 1 7 = 


000340 


PRO 


OOOOOO 


PR4 


000200 


PR5 


000240 


PR6 


000300 


PR7 


000340 


PS 


177776 


PSW 


177776 


RANNUM= 


000054 


RBUFEA= 


000130 


RBUFPA= 


000126 


RBUFSZ= 


000132 



RBUFVA= 
RDSERV= 
RDWHMI= 
RELERR= 
RELMOD= 
RELTIM= 
RESREG= 

:resi = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBOUT= 

RUNMOD= 

R5VALU= 

SAM = 

SAVREG= 

SBADR = 

SBKMOD= 

SBKSEL= 

SC.ADR= 

SC. ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SOFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO - 

SVR1 = 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 

SVR6 = 

SYSCNT= 

SYSERR= 

TMPIO = 

TQOVF = 



000124 
000101 
000022 
000020 
020000 
01 0000 

# * * * * # 

000056 
000060 
031060 
002000 
0001 12 
000177 
100000 
001740 
075464 

* * * * * + 
000102 
OOOOOO 
010000 
000006 
000014 
000016 
000002 
000004 
OOOOOO 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 
000027 
000001 
000062 
000064 
000066 
000070 
000072 
000074 
000076 
000052 
000100 
000002 
000002 



PGETPA 


(GET PHYSICAL 


ADDRESS MODULE) MACY11 


30A(1052) 21 


D-SEP-7I 


PGETPA.I 


V1AC 28- 


-JUL- 


-78 


09:24 


SYMBOL 


TABLE 




UIPAR0= 


177640 






WBUFEA= 


000136 


$F$DO = 


000340 


UIPAR1= 


177642 






WBUFPA= 


000134 


$F$FAL= 


000405 


UIPAR2= 


177644 






WBUFRO= 


000140 


$F$GOO= 


000400 


UIPAR3= 


177646 






WBUFSZ= 


000142 


$F$IF = 


0001 10 


UIPAR4= 


177650 






WDFR = 


0001 16 


$F$INC= 


000210 


UIPAR5= 


177652 






WDTO a 


000114 


$F$LOO= 


000200 


UIPAR6= 


177654 






WTINRE= 


000352 


$F$NAM= 


000160 


UIPAR7= 


177656 






WTWHMI= 


000222 


$F$NO r 


000403 


UIPDRO= 


177600 






XFLAG = 


000005 


$F$OR = 


000320 


UIPDR1= 


177602 






XOFF = 


000023 


$F$RTI= 


000350 


UIPDR2= 


177604 






XON 


000021 


$F$RTN= 


000300 


UIPDR3= 


177606 






$BGNLE= 


177777 


$F$SEL= 


000140 


UIPDR4= 


177610 






$ERFLG= 


000400 


$F$THE= 


000330 


UIPDR5= 


177612 






$F$AND= 


000310 


$F$TRU= 


000404 


UIPDR6 = 


177614 






$F$BAD= 


000401 


$F$UNT= 


000130 


UIPDR7= 


177616 






$F$BLA= 


000170 


$F$WHI= 


000120 


WASADR= 


000104 






$F$CAS= 


000150 


$F$YES= 


000402 


WBSTAT= 


000040 






$F$DEC= 


000220 


$IFLEV= 


177777 


. ABS. 


000000 
000172 


000 
001 











18:20 PAGE 20-1 



SEQ 0803 



$ISK0 = 000001 

$ISK1 =: 000001 

$LOCTA= 177777 

$LSTIN= 000001 

$LSTTA^= 000001 

$NESTL= 177777 

SNSKO = 000300 

$NSK1 = 000110 

SNSK2 = 000110 

$SAVLE- 177777 

$TAGLE= 177777 

$TAGNU== 050005 

$TEMP = 000300 

$TSK0 =■- 050003 

$TSK1 = 050004 

$$ARGC== 000002 

$$BYTE= 000403 

$$CASE== 000000 



$$DST = 
$$ELOC= 
$$ERFL= 
$$FLAG= 
$$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
$$£RC = 
$$TGSV= 
$3TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG=' 



000000 

000402 

000000 

000001 

000000 

000140R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000172R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ : PGETPA , DSKZ: PGETPA=SPMAC/ML , EQUATE, PGETPA 
RUN-TIME: 14 4 .4 SECONDS 
RUN-TIME RATIO: 72/19=3.7 
CORE USED: 1 4K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:21 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ OS04 

3 COMMON EQUATE MODULE 
550 COMMON DEFINITIONS AND REFERENCES 

552 000000' .PRINT ;SPMAC: VERSION 1.1 ' 

570 PMAP22 ROUTINE 



PMAP22 
PMAP22 

508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 



- PROCESS MAP22 MACY11 30A(1052) 20-SEP-78 18:21 PAGE 19 



MAC 



28-JUL-78 09:24 



COMMON EQUATE MODULE 

.TITLE PMAP22 - PROCESS MAP22 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
PMAP22 

FUNCTIONAL DESCRIPTION: 

PROCESSES MAP22 TRAP CALLS 

INPUTS: 

DATA TABLE 

IMPLICIT INPUTS: 
DT.PC 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.PC 

PATHOLOGICAL CONNECTIONS^ 
NONE 

SUBORDINATE MODULES CALLED: 
UNIPA 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL PMAP22 IN <A> 

A=ADDRESS OF DATA TABLE 

VERSION: 
0.0 



SEQ 0805 



;GET PHYS. ADDR. FROM UNIBUS MAP 



EDIT 



BY 



DATE 



REASON 



PMAP22 
PMAP22 

550 
551 
552 
(1) 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 



- PROCESS MAP22 MACY1 1 30A(1052) 20-SEP-78 18:21 PAGE 1 9-1 
,MAC 28-JUL-78 09:24 COMMON DEFINITIONS AND REFERENCES 



SEP 0806 



000000 
000000 



000001 
000001 



.SBTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$I_STIN=1 

$LSTTAG=1 



REFERENCED BY OTHER MODULES 
GLOBL PMAP22 

GLOBAL REFERENCES 
GLOBL UNIPA 



; MODULE ENTRY POINT 



;GET PHYS. ADDR. FROM UNIBUS MAP 



PMAP22 - PROCESS MAP22 MACY1 1 30A(1052) 20-SEP-78 18:21 PAGE 19-2 
PMAP22.MAC 28-JUL-78 09:24 PMAP22 ROUTINE 



570 
571 
572 
(2) 
573 
574 
575 
576 
577 
578 
579 
(2) 
(3) 
580 
581 
582 
583 
584 
585 
586 
(4) 
587 
588 
589 
590 
591 
592 
593 
594 
595 
(4) 
(6) 
596 
597 
598 
599 
600 
601 
602 
(3) 
(4) 
(3) 
(3) 
603 
604 
605 
606 
607 
608 
609 
610 
611 
(6) 
612 
613 
614 



000000 1 
000000' 



000000' 

000000' 010046 
000002' 010146 



000004 
000004 



016500 000000 



000010' 

000010' 016001 
000014' 062701 



000002 
000002 



000020' 
000020' 
000022' 
000024' 



010546 
01 1 145 
004767 



OOOOOOG 



000030' 012605 



000032 
000032 



SEO 0807 



062760 000004 000002 



.SBTTL PMAP22 ROUTINE 
ROUTINE PMAP22 <TABL> 

SAVE REGISTERS 
PUSH R0.R1 

SET RO TO START OF DATA TABLE 



PMAP22: 



MOV 
MOV 



RO,-(SP) 
R1 ,-(SP) 



LET RO := TABL(R5) 



MOV 



TABL(R5) ,R0 



GET THE ADDRESS OF THE TABLE REQUIRED BY UNIPA. THIS TABLE 
CONTAINS THE 18-BIT ADDRESS TO BE CONVERTED ALONG WITH A STORAGE 
AREA FOR THE 22-BIT RESULT. 



LET R1 := DT.PC(RO) + #2 



CALL UNIPA 



CALL UNIPA IN <(R1 )> 



MOV 
ADD 



DT.PC(RO) , R1 

#2,R1 



MOV 
MOV 
JSR 
MOV 



R5,-(SP) 
(R1 ),-(R5) 
PC, UN I PA 
(SP)+,R5 



UPDATE DT.PC TO REFLECT THE OPTION MODULE'S RE-ENTRY 
ADDRESS. (THAT IS, JUMP OVER THE INPUT ARGUMENT OF 
THE TRAP CALL.) 



LET DT.PC(RO) : = DT.PC(RO) + #4 



ADD 



#4,DT.PC(R0) 



; + 
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SEQ 0808 



615 
616 
617 
618 
(2) 
(3) 
619 
620 
621 
622 
623 
624 
325 
(3) 
(3) 
(2) 
626 
627 



000040" 

000040' 012601 
000042' 012600 



000044' 
000044' 
000044' 
000044' 



000207 



000001 



; RESTORE REGISTERS 



POP R1 ,R0 



GOOD-BYE. 



ENDRTN 



END 



MOV 
MOV 



(SP)+,R1 
(SP)+,RO 



50000$: 
50001$: 



RTS 



PC 



PMAP22 - PROCESS MAP22 MACY1 1 30A(1052) 20-SEP-78 
PMAP22.MAC 28-JUL-78 09:24 SYMBOL TABLE 



ACSR = 
ACTBIT= 
ADDR22= 
ADR 

APTFER= 
APTPRE= 
ASB 

ASSEMB= 
ASTAT = 
AUTO = 
AUTOST= 
AWAS = 
BITO = 
BITOO = 
BIT01 = 
BIT02 = 
BIT03 = 
BIT04 = 
BIT05 = 
BIT06 = 
BIT07 = 
BIT08 = 
BIT09 = 
BIT1 = 
BIT10 = 
BIT11 = 
BIT12 = 
BIT13 = 
BIT14 = 
BIT15 = 
BIT2 = 
BIT3 = 
BIT4 = 
BIT5 = 
BIT6 = 
BIT7 = 
BIT8 = 
BIT9 = 
BKDEF = 
BKMOD = 
BKMODE= 
BKSLSH= 
CAPRES= 
CASTAT= 
CDERCT= 
CDWDCT= 
CKTIM = 
CLKPRE= 
CONFIG= 
COOVF = 
CR 

CSRA = 
CSRC = 



000102 
004000 
001000 
000006 
000004 
000200 
000106 
000010 
000104 
000010 
020000 
0001 10 
000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 
100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
000020 
040000 
000134 
000004 
000004 
000146 
000144 
100000 
000C01 
000056 
000001 
000015 
000100 
000102 



CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO* 
DSEVNT= 
DT.ADD= 
DT.AP = 
DT,APK= 
DT..BLS = 
DT.CFO= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE- 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 
ENDLST= 
EOPBIT= 



000003 
000017 
000025 
000011 
000400 
000000 
100000 
000014 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 
000000 
000001 



18:21 


PAGE 2C 


ERRTYP= 


000108 


EVNTBE= 


000200 


EVNTHD= 


000200 


EVMTKT= 


000203 


EVNITPE = 


000202 


EVNTRE= 


000201 


FATERR= 


100000 


HRDCNT= 


000044 


HRDPAS= 


000050 


ICONT = 


000036 


ICOUNT= 


000040 


IDNUM = 


000122 


IE 


000100 


INDPAR= 


00004C 


INHDRP= 


040000 


INHEPR= 


020C00 


INHREL= 


001000 


INHRRE= 


000400 


INIT = 


000030 


INTR = 


000120 


IOMOD = 


100000 


IOMODP= 


102000 


IOMODR= 


1 12000 


IOMODX= 


1 10000 


JACK = 


035060 


KIPARO= 


172340 


KIPAR1= 


172342 


KIPAR2= 


172344 


KIPAR3= 


172346 


KIPAR4= 


172350 


KIPAR5= 


172352 


KIPAR6= 


172354 


KIPAR7= 


172356 


KIPDRO= 


172300 


KIP'DR1 = 


172302 


KIPDR2= 


1723C4 


KIPDR3= 


172306 


KIPDR4= 


172310 


KIPDR5= 


172312 


KIPDR6= 


172314 


KIPDR7= 


172316 


KTERRO= 


000040 


KTPRES^ 


000400 


KTSTAT= 


000020 


KTXTND= 


0400C0 


LF 


000012 


LPSTAT= 


000001 


MAPSTA= 


0002C0 


MED 


076600 


WlEMPAS = 


040000 


MODEXH= 


004000 


MODHOL= 


002000 


MODSEL= 


001000 











SEQ 0809 


MSGCKD= 


000010 


RDSERV= 


000101 




MSGCKS= 


00001 t 


RDWHMI= 


000022 




MSGDER= 


000005 


RELERR= 


000020 




MSGDRP= 


000017 


RELMOD= 


020000 




MSGECH= 


177777 


RELTIM= 


010000 




MSGEOP= 


000013 


RES1 = 


000056 




MSGHDR= 


000004 


RES2 = 


000060 




MSGHNG= 


000022 


RICHAR= 


031060 




MSGHRD= 


000007 


RPTDAT= 


002000 




MSGMAP= 


000021 


RSTRT = 


0001 12 




MSGNUL= 


177775 


RUBQUT= 


000177 




MSGPOP= 


000002 


RUNMOD= 


100000 




MSGPRM= 


177776 


R5VALU= 


001 740 




MSGRES= 


000001 


SAM 


075464 




MSGSFT= 


OOOOOS 


SBADR = 


000102 




MSGSKE= 


000003 


S8K!V!0D = 


000000 




MSGSMB= 


000015 


S3K5EL= 


010000 




MSGSMH= 


000014 


SC.ADR= 


000006 




MSGSMS= 


000016 


SC.ALC= 


000014 




MSGSTD= 


000000 


SC.APC= 


000016 




MSGSYS- 


000012 


SC.CKL= 


000002 




MSGVEC= 


000020 


SC.CKP= 


000004 




NBKMOD= 


001000 


SC.CLO= 


000000 




NCPUOP= 


000020 


SC.HLD= 


000010 




NOAPTY= 


000002 


SC.SCA= 


000012 




NULL = 


000000 


SENDLS= 


177777 




OWEN = 


024020 


SQFCNT= 


000 042 




PAERR = 


000010 


SOFPAS= 


000046 




PARPRE= 


002000 


SPACE = 


000040 




PARSTA= 


000100 


SPOINT= 


000032 




PASCNT= 


000034 


SPVALU= 


002200 




PDPLSI= 


020000 


SRO 


177572 




PDP60 = 


004000 


SR1 


177574 




PDP70 = 


010000 


SR2 


177576 




PMAP22 


OOOOOORG 


SR3 


172516 




P R 1 = 


000000 


STAT = 


000026 




PRI1 


000040 


STATBI= 


064757 




PRI4 = 


000200 


STAT1 = 


000027 




PRI5 = 


000240 


SUSPND= 


000001 




PR 1 6 = 


000300 


SVRO = 


000062 




PRI7 = 


000340 


SVR1 = 


000064 




PRO 


000000 


SVR2 = 


000066 




PR4 


000200 


SVR3 = 


000070 




PR5 


000240 


SVR4 = 


000072 




PR6 


000300 


SVR5 = 


000074 




PR7 


000340 


SVR6 = 


000076 




PS 


177776 


SYSCNT= 


000052 




PSW 


177776 


SYSERR= 


000100 




RANNUM= 


000054 


TABL = 


000000 




RBUFEA= 


000130 


TMPIO = 


000002 




RBUFPA= 


000I26 


TOOVF = 


000002 




RBUFSZ= 


000132 


UIPARO= 


177640 




RBUFVA= 


000124 


UIPAR1= 


177642 
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SEQ 0B10 



UIPAR2= 


177644 




WBUFEA= 


000136 


UIPAR3= 


177646 




WBUFPA= 


000134 


UIPAR4= 


177650 




WBUFRQ= 


000140 


UIPAR5= 


177652 




WBUFSZ= 


000142 


UIPAR6= 


177654 




WDFR = 


0001 16 


UIPAR7= 


177656 




WDTO = 


0001 14 


UIPDR0= 


177600 




WTINRE= 


000352 


UIPDR1= 


177602 




WTWHMI= 


000222 


UIPDR2= 


177604 




XFLAG = 


000005 


UIP0R3= 


177606 




XOFF = 


000023 


UIPDR4= 


177610 




XON 


000021 


UIPDR5= 


177612 




$BGNLE= 


177777 


UIPDR6= 


177614 




$ERFLG= 


000400 


UIPDR7= 


177616 




$F$AND= 


000310 


UNIPA = 


****** g 




$F$BAD= 


000401 


WASADR= 


000104 




$F$BLA= 


000170 


WBSTAT= 


000040 




$F$CAS= 


000150 


. ABS. 


000000 
000046 


000 
001 







$F$DEC = 
$F$DO = 
$F$FAL= 
$F$GOO= 
$F$IF s 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO ■- 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL = 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 



000220 
000340 
000405 
000400 
000110 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 



$F$YES= 
$IFLEV= 
$LOCTA= 
$LSTIN= 
$LSTTA= 
$NESTL= 
$NSK0 = 
$SAVLE= 
$TAGLE== 
$TAGNU= 
STEIViP = 
$$ARGO 
$$BYTE= 
$$CASE= 
$$DST = 
$$ELOC== 
$$ERFL= 



000402 
177777 
177777 
000001 
000001 
1 7 7 77 7 
000300 
177777 
177777 
050002 
000300 
000002 
000000 
000000 
000000 
000000 
000000 



$$FLAG= 
$$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$SRETU= 
$SRTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG* 



000000 
000000 
000000 
000000 
177777 
000000 
050000 
050001 
000000 
000000 
000000 
000000 
000001 
050000 
000046R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ: PMAP22.DSKZ: PMAP22=SPMAC/ML , EQUATE, PMAP22 
RUN-TIME: 11 1 .3 SECONDS 
RUN-TIME RATIO: 62/13=4.6 
CORE USED: 1 4K (27 PAGES) 



.MAIN. MACY11 30AO052) 20-SEP-78 18:22 

EQUATE. MAC 13-SEP-7S 16:13 TABLE OF CONTENTS SEQ 0811 

3 COMMON EQUATE MODULE 

526 KPON/KPOFF PROCESS THE KEYBOARD COMMANDS: 'PON'/'POFF' 
584 COMMON DEFINITIONS AND REFERENCES FOR PONOF 

587 000000' .PRINT ;SPMAC: VERSION 1.1 

624 KPON/KPOFF ROUTINE 



PONOF 



PROCESS THE KEYBOARD COMMANDS 



PONOF.MAC 

508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 



11-SEP-78 14:03 



PON' AND 'POFF' MACY1 1 30A(1052) 
COMMON EQUATE MODULE 



.TITLE PONOF 
.IDENT /V0.0/ 



20-SEP-78 13:22 PAGE 19 
PROCESS THE KEYBOARD COMMANDS 'PON' AND 'POFF' 



SEQ 0812 



++ 
MODULE PACKAGE NAME: 
PONOF 

FUNCTIONAL DESCRIPTION: 

THIS MODULE PACKAGE CONTAINS TWO ROUTINES: 

1. KPON - PROCESS THE KEYBOARD COMMAND 'PON' 

2. KPOFF - PROCESS THE KEYBOARD COMMAND 'POFF' 

VERSION: 
0.0 



EDIT 



BY 



DATE 



REASON 



PONOF PROCESS THE KEYBOARD COMMANDS 
PONOF.MAC 11-SEP-78 14:03 

526 
527 
523 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
55E 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 



PON 1 AND 'POFF' MACY11 30A(1052) 20-SEP-78 13:22 PAGE 
KPON/KPOFF PROCESS THE KEYBOARD COMMANDS: ' PON '/' POFF ' 



19-1 



SEQ 0813 



SBTTL KPON/KPOFF PROCESS THE KEYBOARD COMMANDS: 'PON'/'POFF' 
, IDENT /VO.O/ 

++ 
MODULE NAME: 

KPON/KPOFF 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PROCESSES THE 'PON'/'POFF 1 KEYBOARD COMMANDS. 

IT WILL FIRST VERIFY THAT NO JUNK ARGUMENTS EXIST. 

IT WILL THEN VERIFY THAT PARITY IS PRESENT ON THE SYSTEM. 

ALL PARITY CSR'S IN THE PARITY TABLE WILL HAVE THE APPROPRIATE BITS 



SET OR CLEARED DEPENDING ON COMMAND ISSUED. 
REGISTERS MAY BE NORMAL PARITY OR ECC(ERROR 
IF CACHE THEN THE CACHE CONTROL 
REGISTER IS CLEARED. IF THE CPU IS AN 11/70, 
IN THE MEMORY CONTROL REGISTER ARE CLEARED. 



THE 

CORRECTION CIRCUITRY) 



BITS 0, 1 
THE PARITY 



ENABLED 



MESSAGE WILL 
NOT VALID IN 



BE STUFFED. 
BUSY MODE. 



IF INDIRECT ECC CSR'S THEN THIS COMMAND IS 



INPUTS: 
1 , 
2, 



ADDRESS OF DATA TABLE 
COMMAND DECODE BUFFER POINTER 



IMPLICIT INPUTS: 
DT.PTA 
DT.CFO 
DT.STO 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.KBRSP 

PATHOLOGICAL CONNECTIONS: 

CM. RUN - COMMAND NOT ALLOWED IN RUN MODE MESSAGE 
CM.ARG - ILLEGAL ARGUMENT MESSAGE 

SUBORDINATE ROUTINES CALLED: 

ARGCHK - CHECK AN ARGUMENT 

ICSROO - TURN ON/OFF INDIRECT ECC CSRS 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL KPON IN <DTADR , CMDBUF> 

WHERE: DTADR = ADDRESS OF DATA TABLE 

CMDBUF = COMMAND DECODE BUFFER POINTER 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



PONOF 
PONOF 

583 
584 
585 
586 
587 

(1) 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 

614 



615 
616 
617 



PROCESS THE KEYBOARD COMMANDS 
,MAC 11-SEP-78 14:03 



618 



619 
620 
621 



622 



000000' 
000000' 



oooooo 1 

000002' 
000010' 
000015' 
000022' 
000030' 
000036' 
000037' 

000040' 
000046' 
000054' 
000060' 
000066' 
000074' 
000101 ' 



000001 
000001 



OOOOOO 

047516 

0521 1 1 

120 

020131 

054522 

045 

000 

041505 
047515 
043106 
040520 
046440 
020131 
000 



050040 
022531 
051101 
042515 
047440 



020103 
054522 
000045 
044522 
046505 
047117 



000102' 041505 020103 

000110' 047515 054522 

000116' 022516 000 

000122' 



051 101 
000 
0521 1 1 
047515 
043106 



042515 
047440 

054524 

051117 

045 



042515 
047440 



PON 1 AND 'POFF' MACY1 1 30AM052) 20-SEP-78 18:22 PAGE 
KPON/KPOFF PROCESS THE KEYBOARD COMMANDS: 'PON' /'POFF' 



.SBTTL COMMON DEFINITIONS AND REFERENCES FOR PONOF 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTTAG=1 
$LSTINa1 

REFERENCED BY OTHER MODULES: 



19-2 



SEO 0814 



GLOBL KPON 
GLOBL KPOFF 

GLOBAL REFERENCES: 



GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 



CCNTRL 
ARGCHK 
ICSROO 
CM.ARG 
CM. RUN 
KONTRL 



;KPON ENTRY POINT 
;KPCFF ENTRY POINT 



CACHE OR MEMORY CONTROL REG 
CHECK AN ARGUMENT 
INDIRECT ECC CSR ROUTINE 
'INVALID OR ILLEGAL ARGUMENT' MSG 
'ILLEGAL COMMAND IN BUSY MODE 1 MSG 
CONTROL WORD 



LOCAL STORAGE: 

PO.FLAG: .WORD . 

PO.NUN: .ASCIZ /NO PARITY%/ 

PO.OFF: .ASCII /PARITY MEMORY OFF%/ 



;PON/POFF FLAG 



PO.MBO: .BYTE ;WILL BE STUFFED WITH A % IF 

;ECC MEM IS PRESENT 
PO.EOF: .ASCIZ /ECC MEMORY OFF%/ 



PO.ON: .ASCII /PARITY MEMORY 0N%/ 



P0.MB1: .BYTE 



PO.EON: .ASCIZ /ECC MEMORY 0N%/ 



EVEN 



;WILL BE STUFFED WITH A % IF 
;ECC MEM IS PRESENT 



PONOF PROCESS THE KEYBOARD COMMANDS 
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624 
625 
626 
(2) 
627 
628 
629 
630 
631 
632 
(4) 
633 
(2) 
634 
(3) 
(3) 
(2) 
635 
636 
637 
(2) 
638 
639 
640 
641 
642 
643 
(4) 
644 
645 
646 
647 
648 
(2) 
649 
(2) 
(3) 
650 
(4) 
651 
(4) 
652 
653 
654 
655 
656 
657 
(4) 
658 
(4) 
659 
660 
661 
662 
663 
664 



000122' 
000122' 



000122' 

000122' 005067 177652 

000126' 

000126' 000404 

000130' 

000130' 

000130' 

000130' 000207 



000132' 
000132' 



000132' 
000132' 012767 



000140' 
000140' 
000140 1 

000140' 010046 
000142' 010146 
000144' ' 
000144' 016500 
000150' 
000150' 016501 



000154' 

000154' 105067 
000160' 
000160' 105067 



000164' 



000001 177640 



000000 
000002 



177657 
177715 



PON' AND 'POFF' MACY11 30A(1052) 20-SEP-78 18:22 PAGE 19-3 
KPON/KPOFF ROUTINE 

.SBTTL KPON/KPOFF ROUTINE 

ROUTINE KPON <DT ADR, BUFPTR> 

KPON: 

; + 

; SET THE FLAG TO REFLECT PON COMMAND 

LET PO.FLAG := #0 

INLINE <BR PARITY> 

ENDRTN 

50000$: 
50001$; 



SEQ 0815 



CLR PO.FLAG 

Brt PARITY 



RTS 



ROUTINE KPOFF <DTADR , BUFPTR> 

SET THE FLAG TO REFLECT POFF COMMAND 

LET PO.FLAG : = #1 

SAVE REGISTERS, DTABLE ADDRESS AND BUFPTR 

INLINE <PARITY:> 
PUSH R0.R1 

LET RO := DTADR(R5) 
LET R1 := BUFPTR(R5) 

PLACE MESSAGE TERMINATORS IN MESSAGES 



KPOFF: 



MOV 



PARITY 



LET PO.MBO 


:B= #0 


LET P0.MB1 


;:B= #0 



CLRE 
CLRB 



INSURE NO JUNK ARGUMENTS EXIST 
CALL ARGCHK IN <R1> OUT <R1> 



PC 



#1 .PO.FLAG 



MOV 
MOV 


R0,-(SP) 
R1 ,-(SP) 


MGV 


DTADR(R5) , RO 


MOV 


BUFPTR(RS) ,R1 



PO.MBO 
P0.MB1 



PONOF 
PONOF 

(4) 
(3) 
(4) 
(3) 
(3) 
(4) 
665 
666 
(6) 
667 
668 
669 
570 
671 
672 
(4) 
673 
674 
(4) 
(3) 
675 
576 
677 
678 
679 
680 
(6) 
(9) 
681 
682 
683 
684 
685 
686 
(4) 
687 
688 
(4) 
(3) 
689 
690 
691 
692 
693 
694 
(6) 
(9) 
695 
696 
697 
698 
699 
700 
701 
702 
(4) 
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000164' 162705 000002 

000170' 010546 

000172' 010145 

000174' 004767 OO0000G 

000200' 012605 

000202' 012501 

000204' 

000204' 103404 



000206' 

000206' 012760 OOOOOOG 000022 

000214' 

000214' 000564 
000216' 



000216' 

000216' 032760 002100 000014 

000224" 001004 



000226* 

000226' 012760 000002' 000022 

000234' 

000234' 000554 
000236' 







SEQ 0816 


SUB 


#1*2 t R5 




MOV 


R5,-(SP) 




MOV 


R1 ,-(R5) 




JSR 


PC, ARGCHK 




MOV 


(SP)+,R5 




MOV 


(R5)+,R1 





IF. NO. ERROR THEN 



IT'S NOT A CR SO STUFF ERROR MSG AND SCRAM, 



LET DT.KBRSP(RO) := #CM.ARG 



ELSE 



BCS 



MOV 



BR 



50002$: 



IT'S A CR SO SEE IF PARITY OR ECC EXISTS AT ALL 



IF #PARPRES!ECCMEM NOTSETIN DT.CFO(RO) THEN 



NO PARITY.. OR ECC... STUFF ERROR MSG AND LEAVE, 



BIT 

BNE 



LET DT.KBRSP(RO) 



#PO.NUN 



ELSE 



MOV 



BR 



50004$: 



DETERMINE IF INDIRECT PARITY REGISTERS IF NOT THEN GO CHECK TABLE, 



000236' 

000236' 032760 
000244' 001016 



IF #INDPAR NOTSETIN DT.CFO(RO) THEN 



000040 000014 



BIT 
BNE 



THERE IS PARITY ON THE SYSTEM GET THE PARITY TABLE ADDRESS 

THE REGISTERS MAY 

BE PARITY OR ECC... IF 11/70, THE PARITY TABLE COULD BE EMPTY. 



000246' 
000246' 016001 



LET R1 



DT.PTA(RO) 



000064 



MOV 



50002$ 



#CM.ARG,DT.KBRSP 



50003$ 



#PARPRES!ECCMEM, 
50004$ 



#PQ.NUN,DT.KBRSP 



50005$ 



#INDPAR,DT.CFO(R 
50006$ 



DT.PTA(RO) ,R1 
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SEQ 0817 



703 


000252' 






(4) 


000252' 






(6) 


000252' 


005711 




(9) 


000254' 


001411 




704 








705 








706 








707 








708 








709 


000256' 






(6) 


000256' 


005767 


177516 


(9) 


000262' 


001003 




710 


000264' 






(6) 


000264' 


052731 


000003 


711 


000270' 






(4) 


000270' 


000402 




(3) 


000272' 






712 


000272' 






(6) 


000272' 


042731 


000003 


713 


000276' 






(4) 


000276' 






714 


000276' 






(4) 


000276' 


000765 




(3) 


000300' 






715 








716 


000300' 






(4) 


C00300' 


000420 




(3) 


000302' 






717 








718 








719 








720 








721 








722 


000302' 






(6) 


000302* 


032760 


100000 000010 


(9) 


000310' 


001405 




723 


000312' 






(4) 


000312' 


012760 


000000G 000022 


724 


000320' 






(2) 


000320' 


000522 




725 


000322' 






(4) 


000322' 


000407 




(3) 


000324' 






726 








727 








728 








729 








730 








731 








732 








733 


000324' 






(3) 


000324' 


010546 




(5) 


000326' 


016745 


177446 


(4) 


000332' 


010045 




(3) 


000334' 


004767 


OOOOOOG 


(3) 


000340' 


012605 





WHILE (R1 ) NE #0 DO 



50007$: 



TST 
BEO 



(RD 

50oio; 



DETERMINE WHETHER PON OR POFF COMMAND AND SET OR CLEAR APPROPRIATE BITS 



IF PO.FLAG EQ #0 THEN 

TST PO.FLAG 
BNE 50011$ 
LET @(R1)H- := @(R1)+ SET.3Y #3 

BIS #3,@(R1)+ 
ELSE , 

BR 50012$ 
50011$ J 
LET @(R1)+ := @(R1)+ CLR.BY #3 

BIC #3,@(R1i) + 
ENDIF 

50012$: 



ENDDO 



ELSE 



50010$: 



50006$: 



BR 50007$ 



BR 50013$ 



THERE ARE INDIRECT ECC CSRS THEN IF IN RUN MODE DO NOT LOOK BUT RETURN 



IF #RUNMODE SETIN DT.STO(RO) THEN 



LET DT.KBRSP(RO) 
INLINE <BR 100$> 



:= #CM.RUN 



ELSE 



BIT #RUNMOD£ f DT.ST0( 
BEO 50014$ 

MOV #CM.RUN,DT.KBRSP 

BR 100$ 

BR 50015$ 



50014$: 



IT IS OKAY TO GO TO INDIRECT CSRS 

SEND FLAG A '0' TO INDICATE PON COMMAND 

OR SEND FLAG A '1' TO INDICATE POFF COMMAND 



CALL ICSROO IN <R0,PO.FLAG> 



MOV 


R5,--(SP) 


MOV 


PO. FLAG,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, ICSROO 


MOV 


(SP)+,R5 



000342' 

000342' 032760 
000350' 001415 



000004 000014 



177422 
000203 



000000G 
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734 000342' 
(4) 000342' 

735 000342' 
(4) 000342' 
736 

737 
738 
739 
740 
741 
(6) 
(9) 
742 
743 
744 
745 
746 
747 
748 
(6) 
(9) 
749 
(6) 
750 
(4) 
(3) 
751 
(6) 
752 
(4) 
753 
(4) 
754 
755 
(4) 
756 
757 
758 
759 
760 
761 
(6) 

(9) 
762 
(6) 
(9) 
763 
(6) 
(9) 
764 
(4) 
765 
(6) 
766 
(4) 
(3) 
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SEQ 0818 



ENDIF 



50015$: 
50013$: 



IF CACHE PRESENT 



000352' 

000352' 005767 

000356' 001004 

000360' 

000360' 042767 

000366' 

000366' 000403 

000370' 

000370' 

000370' 052767 

000376' 

000376' 

000376' 

000376' 016777 OOOOOOG OOOOOOG 

000404' 
000404' 



IF #CAPRES SETIN DT.CFO(RO) THEN 



IF PON COMMAND TURN ON CACHE PARITY OTHERWISE 
MUST BE A PARITY POFF COMMAND 



IF PO.FLAG EQ #0 THEM 



BIT 
BEQ 



#CAPRES,DT.CF0(R 
50016$ 



LET KONTRL : = KONTRL CLR.BY #203 



ELSE 



000203 OOOOOOG 



LET KONTRL : = 
ENDIF 
LET @CCNTRL := KONTRL. 



50017$: 
KONTRL SET. BY #203 



50020$: 



TST 
BNE 
I 
BIC 

BR 

I 
BIS 

MOV 



PO.FLAG 
50017$ 

#203, KONTRL 

500:20$ 

#203, KONTRL 
KONTRL, @CCNTRL 



ENDIF 



50016$: 
NOW STUFF THE APPROPRIATE BITS IN DT.STO AND LOAD THE ASSOCIATE MESSAGES 



032760 
001445 

032760 
001420 



002000 000014 



000100 000014 



177350 



000404' 

000404' 

000412' 

000414' 

000414' 

000422' 

000424' 

000424' 005767 

000430' 001007 

000432' 

000432' 112767 000045 177441 

000440' 

000440' 052760 000010 000010 

000446' 

000446' 

000450 



IF #PARPRES SETIN DT.CFO(RO) THEN 

IF #ECCMEM SETIN DT.CFO(RO) THEN 
IF PO.FLAG EQ #0 THEN 

LET P0.MB1 :B= #'% 



BIT #PARPRES,DT.CFO( 

BEQ 50021$ 

BIT #ECCMEM,DT.CFO(R 

BEQ 50022$ 

TST PO.FLAG 

BNE 50023$ 



MOVB #'%,P0.MB1 
LET DT.STO(RO) := DT.STO(RO) SET. BY #ECCSTAT 

BIS #ECCSTAT,DT.STO( 



ELSE 



000406 



BR 



50024$ 



50023$: 
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SEQ 0819 



767 
(4) 
768 
(6) 
769 
(4) 
770 
(4) 
771 
(6) 
(9) 
772 
(4) 
773 
(6) 
774 
(4) 
(3) 
775 
(4) 
776 
(6) 
777 
(4) 
778 
(4) 
(3) 
779 
(6) 
(9) 
780 
(4) 
781 
(6) 
782 
(4) 
(3) 
783 
(4) 
784 
(6) 
785 
(4) 
786 
787 
(4) 
788 
(4) 
789 
790 
(4) 
791 
792 
793 
794 
795 



000450 
000450 
000456 
000456 
000464 
000464 
C00464 
000464 
000464 
000464 
000470 
000472 
000472 
000500 
000500 
000506 
000506 
000510 
000510 
000510 
000516 
000516 
000524 
000524 
000524 
000524 
000526 
000526 
000526 
000532 
000534 
000534 
000542 
000542 
000550 
000550 
000552 
000552 
000552 
000560 
000560 
000566 
000566 

000566 
000566 
000566 
000566 

000566 
000566 



112767 000045 177361 
042760 000010 000010 



005767 177310 
001007 

012760 000060' 000022 

052760 000100 000010 

000406 

012760 000015' 000022 

042760 000100 000010 

000420 

005767 177246 
001007 

012760 000102' 000022 

052760 000010 000010 

000406 

012760 000040' 000022 

042760 000010 000010 



LET PO.MBO :B= #'% 

MOVB #'% V PO„MBO 

LET DT.STO(RO) := DT.STO(RO) CLR.BY #ECCSTAT 

BIC #ECCSTAT,DT.STQ( 



ENDIF 
ENDIF 
IF PO.FLAG EQ #0 THEN 



50024$: 
50022$: 



LET DT.KBRSP(RQ) : = #PO.ON 



ELSE 



TST PO.FLAG 
BNE 50025$ 

MOV #PO.ON,DT.KBRSP( 
LET DT.STO(RO) := DT.STO(RO) SET . 3Y #PARSTAT 

BIS #PARSTAT,DT.STO( 

BR 50026$ 
50025$: 

LET DT.KBRSP(RO) : = #P0. OFF- 
MO V #PO.OFF,DT.KBRSP 

LET DT.STO(RO) : = DT.STO(RO) CLR.BY #PARSTAT 

BIC #PARSTAT,DT.ST0( 



ENDIF 



ELSE 



50026$: 



50021$: 



IF PO.FLAG EQ #0 THEN 



LET DT.KBRSP(RO) : = #PO.EON 



BR 



TST 

BNE 

MOV 



50027$ 



PO. FLAG 
50030$ 



#PO.EON,DT.KBRSP 



ELSE 



ENDIF 



ENDIF 



ENDIF 



ENDIF 



; CLEAN UP MESS. . . 



LET DT.STO(RO) := DT.STO(RO) SET. BY #ECCSTAT 

BIS #ECCSTAT,DT.STO( 

BR 50031$ 
50030$: 
LET DT.KBRSP(RO) := #PO.EOF 

MOV #PO.EOF,DT.KBRSP 

LET DT.STO(RO) := DT.STO(RO) CLR.BY #ECCSTAT 

BIC #ECCSTAT,DT.STO( 

50031$: 



50027$: 
50005$: 

50003$: 
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796 
797 
(2) 
798 
(2) 
(3) 
799 
800 
(3) 
(3) 
(2) 
801 



000566' 
000566 1 
000566' 
000566' 
000570' 

000572' 
0G0572' 
000572' 
000572' 



012601 
012600 



000207 
000001 
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INLINE <100$:> 
POP R1 ,R0 

ENDRTN 

.END 
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SEQ 0820 



50000$: 
50001$: 



100$: 

MOV 
MOV 



RTS 



(SP)+,R1 
(SP)+,R0 



PC 
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ACSR = 
ACTBIT= 
ADDR22= 
ADR 

APTFER= 
APTPRE= 
ARGCHK= 
ASB 

ASSEMB= 
ASTAT = 
AUTO = 
AUTOST= 
AWAS = 
BITO = 
BITOO = 
BIT01 = 
BIT02 = 
BIT03 = 
B1T04 = 
BIT05 = 
BIT06 = 
BIT07 = 
BIT08 = 
BIT09 = 
BIT1 = 
BIT10 = 
BIT11 = 
BIT12 * 
BIT13 = 
BIT14 = 
BIT15 = 
BIT2 = 
BIT3 = 
BIT4 = 
BIT5 = 
BIT6 = 
BIT7 = 
BIT8 = 
BIT9 = 
BKDEF = 
BKMOD = 
BKMODEs 
BKSLSH= 
BUFPTR= 
CAPRES= 
CASTAT= 
CCNTRL= 
CDERCT= 
CDWDCT= 
CKTIM = 
CLKPRE= 
CM.ARG= 
CM.RUN= 



000102 
004000 
001000 
000006 
000004 
000200 

****** 

000106 
000010 
000104 
000010 
020000 
0001 10 
000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 
100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
000020 
040000 
000134 
000002 
000004 
000004 
****** 

000146 
000144 
100000 
000001 

****** 
****** 



C0NFIG= 

CQOVF = 

CR 

CSRA = 

CSRC = 

CTRLC = 

CTRLO = 

CTRLU = 

DCEVNT= 

DEFRTN= 

DIAGMC= 

DROPMO= 

DSEVNT= 

DTADR = 

DT.ADD= 

DT.AP = 

DT.APK= 

DT.BLS= 

DT.CFO= 

DT.CF1= 

DT.ERR= 

DT.ESI= 

DT.EVN= 

DT.EXS= 

DT.FCH= 

DT.FCN= 

DT.HMX= 

DT.KBE= 

DT.KBP= 

DT.KBR= 

DT.KBU= 

DT.MLS= 

DT.MTI= 

DT.OFF= 

DT.PAS= 

DT.PC = 

DT.PFL= 

DT.PSW= 

DT.PTA= 

DT.RCS= 

DT.REL= 

DT.SCT^-- 

DT.SMX= 

DT.SP = 

DT.SSI= 

DT.STO= 

DT.ST1= 

DT.SWR= 

DT.SYP= 

DT.WBU= 

DT.WHL= 

DT.WLL= 

DVID1 = 



000056 
000001 
000015 
000100 
000102 
000003 
000017 
000025 
000011 
000400 
000000 
100000 
000014 
000000 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000C60 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
000110 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 



ECCMEMs 

ECCSTA= 

ENBEOP= 

ENB'NUL= 

ENDLST= 

EOPBIT= 

ERRTYPx 

EVNTBE* 

EVNTHD« 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT- 

HRDPAS= 

ICONT = 

ICOUNT= 

ICSROO= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT = 

INTR = 

IO'MOD = 

IOMODP= 

IOMODR= 

IOMQDX= 

JACK = 

KIPARO= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KI.PAR7 = 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

K1PDR5= 

K1PDR6= 

KIPDR7= 

KONTRL= 

KPOFF 

KPON 

KTERRO= 

KTPRES= 



000100 
000010 
010000 
000001 
000000 
000001 
000106 
000200 
000200 
000203 
000202 
Q00201 

rooooo 

000044 

000050 

000036 

000040 

****** G 

000122 

000100 

00040 

040000 

020000 

001000 

000400 

000030 

000120 

100000 

102000 

1 12000 

1 10000 

035060 

172340 

172342 

172344 

172346 

172350 

172352 

172354 

172356 

172300 

172302 

172304 

172306 

172310 

172312 

172314 

172316 

****** Q 

000132RG 
000122RG 
000040 
000400 



KTSTAT= 
KTXTND= 
LF 
LPSTAT= 

MAPSTA= 
MED 

MEMPAS= 
MODEXH= 
MODHOL= 
IWODSEL* 
MSGCKD= 
MSGCKS= 
MSGDER= 
MSGDRP= 
MSGECH= 
■MSGEOP = 
MSGHDR= 
MSGHNG= 
MSGHRD= 
MSGMAP^ 
MSGNUL= 
MSGPOP= 
MSGPRM= 
MSGRES= 
MSGSFT= 
MSGSKE= 
MSGSMB= 
MSGSMH= 
MS G SMS--; 
MSGSTD= 
MSGSYS= 
MSGVEC= 
NBKMOD= 
NCPUOP== 
NOAPTY= 
NULL = 
OWEN = 
PAERR = 
PARITY 
PARPRE 
PARSTA 
PASCNT 
PDPLSI 
PDP60 
PDP70 
PO.EOF 
PO.EON 
PO. FLA 
PO.MBO 
P0.MB1 
PO.NUN 
PO.OFF 
PO.ON 



000020 

040000 

000012 

000C01 

000200 

076600 

040000 

004000 

002000 

001000 

000010 

00001 1 

000005 

000017 

177777 

000013 

000004 

000022 

000007 

000021 

177775 

00002 

177776 

000001 

000006 

000003 

000015 

000014 

000016 

000000 

000012 

000020 

001000 

000020 

000002 

000000 

024020 

000010 

000140R 

002000 

000100 

000034 

020000 

004000 

010C00 

000040R 

000102R 

OOOOOOR 

000037R 

000101R 

000002R 

000015R 

000060R 







SEQ 0821 


PRIO = 


000000 




PR 1.1 = 


000040 




PRI4 = 


000200 




PRI5 = 


000240 




PRI6 = 


000300 




PRI7 = 


000340 




PRO 


000000 




PR4 


000200 




PR5 


000240 




PR6 


000300 




PR7 


000340 




PS 


177776 




PSW = 


177776 




RANNUM= 


000054 




RBUFEA= 


000130 




RBUFPA= 


000 126 




RBUFSZ= 


000132 




RBUFVA = 


000124 




RD5ERV* 


000101 




RDWHMI= 


000022 




RELERR= 


000020 




RELMOD= 


020000 




RELTIM= 


010000 




RES1 = 


000056 




RES2 = 


000060 




RICHARs 


031060 




RPTDAT = 


002000 




RSTRT = 


000112 




RUBOUT= 


000177 




RUNMOD= 


100000 




R5VALU= 


001740 




SAM 


075464 




SBADR = 


000102 




SBKMQD= 


000000 




SBKSEL= 


010000 




SC.ADR= 


000006 




SC.ALC= 


000014 




SC.APC= 


000016 




SC.CKL= 


000002 




SC.CKP= 


000004 




SCCLO = 


000000 




SC.HLD= 


000010 




SC.SCA= 


000012 




SENDLS= 


177777 




SOFCNT= 


000042 




SOFPAS= 


000046 




SPACE = 


000040 




SPOINT= 


000032 




SPVALU= 


002200 




SRO 


177572 




SR1 


177574 




SR2 


177576 




SR3 


172516 
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SEO 0822 



STAT = 


000026 


UIPDR1= 


177602 


STATBI= 


064757 


UIPDR2= 


177604 


STAT1 = 


000027 


UIPDR3= 


177606 


SUSPND= 


000001 


UIPDR4= 


177610 


SVRO = 


000062 


UIPDR5= 


177612 


SVR1 = 


000064 


UIPDR6= 


177614 


SVR2 = 


000066 


UIPDR7= 


177616 


SVR3 = 


000070 


WASADR= 


000104 


SVR4 = 


000072 


WBSTAT= 


000040 


SVR5 = 


000074 


WBUFEA= 


000136 


SVR6 = 


000076 


WBUFPA= 


000134 


SYSCNT= 


000052 


WBUFRQ= 


000140 


SYSERR= 


000100 


WBUFS2= 


000142 


TMPIO = 


000002 


WDFR = 


000116 


TQOVF = 


000002 


WDTO = 


0001 14 


UIPARO= 


177640 


WTINRE= 


000352 


UIPAR1 = 


177642 


WTWHMI= 


000222 


UIPAR2= 


177644 


XFLAG = 


000005 


UIPAR3= 


177646 


XOFF = 


000023 


UIPAR4= 


177650 


XON 


000021 


UIPAR5= 


177652 


$BGNLE= 


177777 


UIPAR6= 


177654 


$ERFLG= 


000400 


UIPAR7= 


177656 


$F$AND= 


000310 


UIPDRO= 


177600 


$F$BAD= 


000401 


. ABS. 


000000 000 
000574 001 





$F$BLA= 
$F$CAS= 
$F$DEC= 
$F$DO = 
$F$FAL= 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR s 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 
$IFLEV= 
$ISK0 = 
$ISK1 = 
$ISK2 = 



000170 
000150 
000220 
000340 
000405 
000400 
000110 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 
000001 
000001 
000001 



$ISK3 = 


000001 


$ISK4 = 


000001 


$LOCTA= 


177777 


$LSTIN= 


000001 


$LSTTA= 


000001 


$NESTL= 


177777 


$NSKO = 


000300 


SNSK1 =•■ 


000110 


$NSK2 = 


000110 


$NSK3 = 


000110 


$NSK4 = 


000110 


$NSK5 = 


000110 


$SAVLE= 


177777 


SSSKO --= 


050010 


$TAGLE= 


177777 


$TAGNU= 


050032 


$TEMP = 


000300 


STSKO = 


050003 


$TSK1 = 


050005 


$TSK2 = 


050027 


$TSK3 = 


050031 


$TSK4 = 


050024 


STSK5 = 


050012 


$$ARGC== 


000004 



$$BYTE= 
$$CASE= 
$$DST = 
$$ELOC = 
$SERFL= 
$$FLAG= 
$$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG= 



000403 

000000 

000000 

000402 

000000 

000001 

000000 

000532R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000002 

050000 

000574R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ: PONOF . DSKZ: PONOF = SPMAC/ML t EQUATE, PONOF 
RUN-TIME: 19 9 .4 SECONDS 
RUN-TIME RATIO: 111/29=3.7 
CORE USED*. 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:24 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0823 

3 COMMON EQUATE MODULE 

556 COMMON DEFINITIONS AND REFERENCES FOR PRBTOD 

559 000000' .PRINT ;SPMAC: VERSION 1.1 

578 PRBTOD ROUTINE 



PRBTOD PROCESS THE 'BTOD' MACRO IN OPTION MODULES MACY1 1 30A(1052) 20-SEP-78 18:24 PAGE 19 
PRBTOD.MAC 28-JUL-78 09:25 COMMON EQUATE MODULE 



SEQ 0824 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 



TITLE PRBTOD PROCESS THE 'BTOD' MACRO IN OPTION MODULES 
IDENT /VO.O/ 

++ 
MODULE NAME: 
PRBTOD 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PROCESSES THE 'BTOD' TRAP ISSUED BY OPTION 
MODULES. IT WILL RETRIEVE THE NUMBER TO BE CONVERTED TO 
DECIMAL ASCII FROM DT . PC+2 AND THE TABLE ADDRESS AT WHICH 
TO STORE THE DECIMAL ASCII FROM DT . PC +4. IT CALLS THE 
BINARY TO DECIMAL ASCII CONVERSION ROUTINE. THE RETURN PC 
IS UPDATED SINCE THIS IS DIRECT SERVICE. 

INPUTS: 

DTABLE ADDRESS 

IMPLICIT INPUTS: 
DT.PC 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS". 
NONE. 

SUBORDINATE ROUTINES CALLED: 

BDACNV - BINARY TO DECIMAL ASCII CONVERSION ROUTINE 

FUNCTIONAL. SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL PRBTOD IN <DTADR> 

WHERE DTADR * ADDRESS OF DATA TABLE 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



PRBTOD 
PRBTOD, 

556 
557 
558 
559 
(D 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 



PROCESS THE ' BTOD ' MACRO IN OPTION MODULES 
MAC 28-JUL-78 09:25 



MACY11 30A(1052) 20-SEP-78 18:24 PAGE, 19-1 



oooooo 1 

000000 ' 



000001 
000001 



COMMON DEFINITIONS AND REFERENCES FOR PRBTOD 

.SBTTL COMMON DEFINITIONS AND REFERENCES FOR PRBTOD 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$I_STIN = 1 
$LSTTAG«1 

**************** 

REFERENCED BY OTHER MODULES: 

GLOBL PRBTOD ;MODULE ENTRY POINT 

GLOBAL REFERENCES: 
GLOBL BDACNV {BINARY TO DECIMAL ASCII CONVERSION ROUTINE 



SEQ 0825 



PRBTOD PROCESS THE ' BTOD ' MACRO IN OPTION MODULES 
PRBTOD.MAC 28-UUL-78 09:25 PRBTOD ROUTINE 



MACY11 30A(1052) 20-SEP-78 18:24 PAGE 19-2 



SEQ 0826 



578 
579 
580 
(2) 
581 
582 
583 
584 
585 
586 
587 
(2) 
(3) 
588 
(4) 
589 
5p0 
591 
592 
593 
594 
(4) 
595 
(3) 
(5) 
(4) 
(3) 
(3) 
596 
597 
598 
599 
600 
601 
(6) 
602 
603 
604 
605 
606 
607 
(2) 
(3) 
608 
609 
(3) 
(3) 
(2) 
610 
611 



000000 1 
000000' 



000000' 
000000' 
000002' 
000004' 
000004' 



000010' 
000010' 
000014' 
000014' 
000016' 
000022' 
000026' 
000032' 



010046 
010146 

016500 000000 



016001 000002 



.SBTTL PRBTOD ROUTINE 
ROUTINE PRBTOD <DTADR> 

+ 

INITIALIZE AND SAVE DATA TABLE ADDRESS 

PUSH R0.R1 

LET RO := DTADR(R5) 

GET DT.PC AND CALL BDACNV 

LET R1 := DT.PC(RO) 

CALL BDACNV IN <@2(R1 ) ,4(R1 )> 



PRBTOD: 



MOV 
MOV 

MOV 



RO,~(SP) 
R1 ,-(SP) 

DTADR(R5) , RO 



MOV 



DT.PC(RO) ,R1 



010546 
016145 
017145 
004767 
012605 



000004 
000002 
OOOOOOG 



MOV 


R5,-(SP) 


MOV 


4(R1),-(R5) 


MOV 


@2(R1 ),-(R5) 


JSR 


PC, BDACNV 


MOV 


(SP)+,R5 



000034' 

000034' 062760 000006 000002 



000042' 

000042' 012601 
000044' 012600 



000046' 
000046' 
000046' 
000046' 



000207 



000001 



UPDATE RETURN PC 



LET DT.PC(RO) := DT.PC(RO) + #6 



CLEAN UP AND GOODBYE 



POP R1 ,R0 



ENDRTN 



.END 



ADD 



#6,DT.PC(R0) 



50000$: 
50001$: 



MOV 
MOV 



RTS 



(SP)+,R1 
(SP)+,RO 



PC 



PRBTOD PROCESS THE ' BTOD ' MACRO IN OPTION MODULES 
PRBTOD.MAC 28-JUL-78 09 = 25 SYMBOL TABLE 



MACY11 30A(1052) 



ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE* 


000200 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO « 


000010 


AUTOST= 


020000 


AWAS = 


0001 10 


BDACNV= 


* if: * * * # 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


3IT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQOVF = 


000001 


CR 


000015 


CSRA * 


000100 



CSRC = 
CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO= 
DSEVNT= 
DTADR = 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CFO= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 



000102 
000003 
00.0017 
000025 
00001 1 
000400 
000000 
1.00000 
000014 
000000 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
00C066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 



ENDLST= 

EOPBIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT = 

INTR = 

IOMOD = 

IOMODP= 

IOMODR= 

IOMODX= 

JACK « 

KIPARO= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5^ 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPSTAT= 

MAPSTA= 

MED 

MEMPAS= 

MODEXH= 



000000 
000001 
000106 
000200 
000200 
000.203 
000202 
000201 
100000 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000030 
000120 
100000 
102000 
1 12000 
1 10000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 
000001 
000200 
076600 
040000 
004000 



20-SEP-78 


18:24 PA 


MODHOL= 


002000 


MODSEL= 


001000 


MSGCKD= 


000010 


MSGCKS* 


00001 1 


M$GDER= 


000005 


MSGDRP= 


000017 


MSGECH= 


177777 


MSGEOP= 


000013 


MSGHDR= 


000004 


MSGHNG= 


000022 


MSGHRD= 


000007 


MSGMAP= 


000021 


MSGNUL= 


177775 


MSGPOP= 


000002 


MSGPRM= 


177776 


MSGRES= 


000001 


MSGSFT= 


000006 


MSGSKE= 


000003 


MSGSMB= 


000015 


MSGSMH= 


000014 


MSGSMS= 


000016 


MSGSTD= 


000000 


MSGSYS= 


000012 


MSGVEC= 


000020 


NBKMOD= 


001000 


NCPUOP= 


000020 


NOAPTY= 


000002 


NULL * 


00000 


OWEN = 


024020 


PAERR = 


000010 


PARPRE= 


002000 


PARSTA-- 


000100 


PASCNT= 


000034 


PDPLSI= 


020000 


PDP60 - 


004000 


PDP70 - 


010000 


PRBTOD 


OOOOOORG 


PRIO = 


000000 


PRI1 = 


000040 


PRI4 = 


000200 


PRI5 = 


000240 


PRI6 = 


000300 


PRI7 = 


000340 


PRO 


000000 


PR4 


000200 


PR5 


000240 


PR6 


000300 


PR7 


000340 


PS 


177776 


PSW 


177776 


RANNUM== 


000054 


RBUFEA= 


000130 


RBUFPA-- 


000126 



20 



SEQ 0827 



RBUFSZ= 

RBUFVA* 

RDSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RES1 ■ = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBOUT= 

RUNMQD= 

R5VALU= 

SAM 

SBADR = 

SBKMOD= 

SBKSEL= 

SC.ADR= 

SC.ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS^-- 

SOFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 = 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 = 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 

SVR6 = 

SYSCNT= 

SYSERR= 

TMPIO = 

TOOVF * 

UIPARO= 



000132 
000124 
000101 
000022 
000020 
020000 
010000 
000056 
000060 
031 060 
002000 
000112 
000177 
100000 
001740 
075464 
000102 
000000 
010000 
000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
177 777 
000042 
000046 
000040 
000C32 
002200 
177572 
177574 
177 576 
172516 
000026 
064757 
000027 
000001 
000062 
000064 
000066 
000070 
000072 
000074 
000076 
000052 
000100 
000002 
000002 
177640 
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SEQ 0828 



UIPAR1= 


177642 




WBUFEA= 


000136 


UIPAR2= 


177644 




WBUFPA= 


000134 


UIPAR3= 


177646 




WBUFRQ= 


000140 


UIPAR4= 


177650 




WBUFSZ= 


000142 


UIPAR5= 


177652 




WDFR = 


000116 


UIPAR6= 


177654 




WDTO = 


0001 14 


UIPAR7= 


177656 




WTINRE= 


000352 


UIPDR0= 


177600 




WTWHMI= 


000222 


UIPOR1= 


177602 




XFLAG = 


000005 


UIPDR2= 


177604 




XOFF = 


000023 


UIP0R3= 


177606 




XON 


000021 


UIPDR4= 


177610 




$BGNLE= 


177777 


UIPDR5= 


177612 




$ERFLG= 


000400 


UIPDR6= 


177614 




$F$AND= 


000310 


UIPDR7= 


177616 




$F$BAD= 


000401 


WASADR= 


000104 




$F$BLA= 


000170 


WBSTATa 


000040 




$F$CAS= 


000150 


. ABS. 


000000 
000050 


000 
001 







$F$DEC= 
$F$DO = 
$F$FAL,= 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$ND - 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 



000220 
000340 
000405 
000400 
0001 10 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 



$F$YES= 
$IFLEV= 
$LDCTA= 
$LSTIN= 
$LSTTA= 
$NESTL= 
$NSK0 -■ 
$SAVLE= 
$TAGLE= 
$TAGNU= 
$TEMP = 
$$ARGC= 
$$BYTE== 
$$CASE= 
$$DST = 
$$ELOC= 
$$ERFL= 



000402 
177777 
177777 
000001 
000001 
177777 
000300 
177777 
177777 
050002 
000300 
000002 
000000 
000000 
OOOCOO 
000000 
000000 



$SFLAG= 
$$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG= 



000000 
000000 
000000 
000000 
177777 
000000 
050000 
050001 
000000 
000000 
000000 
000000 
000002 
050000 
000050R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSK2: PRBTOD, DSKZ:PRBTOD=SPMAC/ML, EQUATE, PRBTOD 
RUN-TIME: 11 1 .3 SECONDS 
RUN-TIME RATIO: 33/13=2.5 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:25 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0829 

3 COMMON EQUATE MODULE 
563 COMMON DEFINITIONS & REFERENCES 

566 000000' .PRINT ;SPMAC: VERSION 1.1 

638 PREVT (CODE) 



PREVT (PROCESS EVENT MODULE) 
PREVT.MAC 28-JUL-78 09:25 

508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
54e 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 



MACY11 30A(1052) 20-SEP-7S 18:25 PAGE 19 
COMMON EQUATE MODULE 

.TITLE PREVT (PROCESS EVENT MODULE) 
.IDENT /VO.O/ 



++ 
MODULE NAME: 
PREVT 

FUNCTIONAL DESCRIPTION: 

THIS MODULE DISPATCHES CONTROL TO VARIOUS EVENT 
HANDLING ROUTINES. THE ADDRESS OF A DATA TABLE 
IS PASSED TO THIS MODULE. THE EVENT CODE IS 
EXTRACTED FROM THE TABLE AND AN OFFSET IS GENERATED, 
THIS OFFSET IS USED TO FORM ADDRESS IN THE DISPATCH 
TABLE TO SEND CONTROL TO THE PROPER EVENT HANDLING 
ROUTINE. 



SEQ 0830 



NOTE: 



IF EVENT CODE IS 'ZERO', THE STACK IS POPPED 
AND CONTROL GOES BACK TO CALLER. 



INPUTS: 

ADDRESS OF DATA TABLE 

IMPLICIT INPUTS: 
EVENT CODE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 

IT CALLS THE ACTUAL EVENT HANDLING ROUTINE 
THROUGH A POINTER AND THE FORMAT IS: 
CALL PTR IN <DTADDR> 

WHERE DTADDR = DATA TABLE ADDRESS 

FUNCTIONAL. SIDE EFFECTS: 

NONE. 
CALLING SEQUENCE: 

CALL. PREVT IN <DTADR> 

WHERE DTADR - DATA TABLE ADDRESS 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



PREVT (PROCESS EVENT MODULE) 
PREVT.MAC 28-JUL-78 09:25 

563 

564 

565 

56S 000000' 

(1) 000000' 

567 000001 

568 000001 
569 

570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 

608 000000' 

609 000000' 000000 

610 000002' OOOOOOG 

611 000004' OOOOOOG 

612 000006' OOOOOOG 

613 000010' OOOOOOG 

614 000012' OOOOOOG 

615 000014' OOOOOOG 

616 000016' OOOOOOG 

617 000020' OOOOOOG 



MACYtt 30A(1052) 20-SEP-78 18:25 PAGE 19-1 
COMMON DEFINITIONS & REFERENCES 

.SBTTL COMMON DEFINITIONS & REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



•REFERENCED BY OTHER MODULES: 
!gL0BL PREVT 



SEQ 0831 



• **************** 

; GLOBAL REFERENCES 



GLOBL 


PENDIT 


GLOBL 


PEND 


GLOBL 


PRHARD 


GLOBL 


PDATER 


GLOBL 


PRMSG 


GLOBL 


PBREAK 


GLOBL 


PRSOFT 


GLOBL 


PRMSGN 


GLOBL 


PRGWB 


GLOBL 


PGETPA 


GLOBL 


PDATCK 


GLOBL 


PCDATA 


GLOBL 


PMAP22 


GLOBL 


PRMSGS 


GLOBL 


PRRAND 


GLOBL 


PARERR 


GLOBL 


KTERR 


GLOBL 


BUSERR 


GLOBL 


PROTOA 


GLOBL 


PRBTOD 



si,****-,)!****:!;***** 



LOCAL STORAGE: 



'.MODULE ENTRY POINT 



ENDIT H 
END HAN 
HRDER H 
DATER H 
MSG HAN 
BREAK H 
SOFER H 
MSGN HA 
GWBUFF 
GETPA H 
DATACK 
CDATA H 
MAP22 H 
MSGS HA 
RAND TR 
MEMORY 
MEMORY 
TIMEOUT 
OCTAL-T 
BIN-TO- 



ANDLER 

DLER 

ANDLER 

ANDLER 

DLER 

ANDLER 

ANDLER 

NDLER 

HANDLER 

ANDLER 

HANDLER 

ANDLER 

ANDLER 

NDLER 

AP HANDLER 

PARITY ERROR HANDLER 

MGMT VIOL. HANDLER 

.ILLEGAL INSTR. ETC. 

O-DECIMAL EVENT 

DECIMAL EVENT 



DISPATCH TABLE FOR SOFT-TRAP EVENTS 



PR.TRPTBL: 

.WORD 

PRMSG 

PRMSGS 

PRMSGN 

PDATER 

PRHARD 

PRSOFT 

PBREAK 

PEND 



ADDRESS OF EVENT HANDLER 
EXIT IS ZERO - DOES NOT NEED A ROUTINE 



PREVT (PROCESS EVENT MODULE) 
PREVT.MAC 28-JUL-78 09:25 
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COMMON DEFINITIONS & REFERENCES 



SEQ 0832 



618 


000022' 


OOOOOOG 


619 


000024' 


OOOOOOG 


620 


000026' 


OOOOOOG 


621 


000030' 


OOOOOOG 


622 


000032' 


OOOOOOG 


623 


000034' 


OOOOOOG 


624 


000036' 


OOOOOOG 


625 


000040' 


OOOOOOG 


626 


000042' 


OOOOOOG 


627 






528 






629 






630 






631 


000044' 




632 


000044' 


OOOOOOG 


633 


000046' 


OOOOOOG 


634 


000050' 


OOOOOOG 


635 


000052' 


OOOOOOG 


636 







PDATCK 

PCDATA 

PENDIT 

PRGWB 

PGETPA 

PMAP22 

PRRAND 

PROTOA 

PRBTOD 

DISPATCH TABLE FOR HARD TRAPS & MISC. EVENTS 



PR.NTRPTBL: 

BUSERR 
BUSERR 
PARERR 
KTERR 



ADDRESS OF EVENT HANDLER 



PREVT (PROCESS EVENT MODULE) 
PREVT. MAC 28-JUL-78 09:25 



638 

639 

640 

641 000054' 

(2) 000054' 

642 

643 

644 

645 

646 

647 

648 

649 000054' 

(2) 000054' 

(3) 000056' 

650 000060' 

(4) 000060' 

651 000064' 
(4) 000064' 

652 000070' 
(6) 000070' 
(9) 000072' 
653 

654 
655 
656 
(6) 
657 
(7) 
658 
659 
(6) 
(9) 
660 
661 
662 
663 
664 
665 

666 000112' 
(6) 000112' 

667 000116' 
(4) 000116' 

(3) 000120' 
668 

669 
670 
671 
672 
673 

674 000120' 
(6) 000120' 

675 000124' 

(4) 000124' 

676 000124' 
(3) 000124' 



MACY11 30A(1052) 20-SEP-78 
PREVT (CODE) 

.SBTTL PREVT (CODE) 



ROUTINE PREVT <DTBL> 
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SEQ 0833 



010046 
01 0146 

016500 000000 

016001 000000 

005701 
001421 



000074' 

000074' 042701 177700 

000100* 

000100' 006301 



000102' 

000102' 026027 
000110' 002403 



000000 000200 



062701 000044 



000402 



062701 000000 



010546 



PREVT : 



SAVE REGISTERS, FETCH DTABLE ADDRESS & EVENT CODE. 

IF EVENT CODE IS 0, RETURN. 

ELSE CHECK IF EVENT CODE IS A HARDWARE-TRAP TYPE. 



PUSH R0.R1 

LET RO := DTBL(R5) 
LET R1 := DT.EVNT(RO) 
IF R1 NE #0 THEN 

DEVELOP OFFSET INTO TABLE 

LET R1 := R1 CLR.BY #177700 
LET R1 := R1 SHIFT 1 

IF DT.EVNT(RO) GE #EVNTHD THEN 



IT IS A HARDWARE-TRAP EVENT, 
DEVELOP ADDRESS. 



MOV 
MOV 


RO,-(SP) 
R1 f -(SP) 


MOV 


DTBL(R5) ,R0 


MOV 


DT.EVNT(RO) ,R1 


TST 
BEQ 


R1 

'50002$ 



BIC 
ASL 



CMP 
BLT 



LET R1 := R1 + #PR.NTRPTBL 



ELSE 



IT IS A SOFTWARE TRAP EVENT 
FORM AN ADDRESS 



LET R1 := R1 + #PR.TRPTBL 
ENDIF 
CALL @(R1 ) IN <R0> 



ADD 
BR 



50003$: 



50004$: 



ADD 



MOV 



#1 77700, R1 
R1 



DT.EVNT(RO) ,#EVN 
50003$ 



#PR.NTRPTBL,R1 
50004$ 



#PR.TRPTBL,R1 



R5,-(SP) 



PREVT (PROCESS EVENT MODULE) 
PREVT. MAC 28-JUL-78 09:25 



000000 



(4) 


000126' 


010045 


(3) 


000130' 


004771 


(3) 


000134' 


012605 


577 






678 


000136' 




(4) 


000136' 




679 






680 






681 






682 






683 


000136' 




(2) 


000136' 


012601 


(3) 


000140' 


012600 


684 


000142' 




(3) 


000142' 




(3) 


000142' 




(2) 


000142' 


000207 


685 




000001 



MACY11 30A(1052) 20-SEP-78 
PREVT (CODE) 



ENDIF 
+ 



18:25 PAGE 19-4 



MOV 
JSR 
MOV 



50002$: 



RESTORE REGISTERS AND RETURN 



POP R1 f R0 



ENDRTN 



END 



50000$: 
50001$: 



MOV 
MOV 



RT! 



SEQ 0834 



R0,-(R5) 
PC,@(R1 ) 
(SP)+,R5 



(SP)+,R1 
(SP)+,RO 



PC 



PREVT (PROCESS EVENT MODULE) 
PREVT.MAC 28-JUL~78 09:25 



MACY11 30A(1052) 

SYMBOL TABLE 



ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER = 


000004 


APTPRE= 


000200 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


0001.10 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT0.3 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 r 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


BUSERR= 


* * * * * * 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQOVF = 


000001 


CR 


000015 


CSRA = 


000100 



CSRC = 
CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO= 
DSEVNT= 
DTBL = 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CFO= 
DT.CF1= 
DT.ERR= 
DT.ESi*>, 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 



000102 
000003 
000017 
000025 
00001 1 
000400 
000000 
100000 
000014 
000000 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 



-SEP-78 
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SEQ 0835 


ENDLST= 


000000 


MDDEXH= 


004000 




PRI5 = 


000240 




EOPBIT= 


000001 


MODHOL= 


002000 




PR 1 6 = 


000300 




ERRTYP= 


000106 


MODSEL= 


001000 




PR 1 7 = 


000340 




EVNTBE= 


000200 


MSGCKD= 


000010 




PRMSG = 


****** G 




EVNTHD= 


000200 


MSGCKS= 


000011 




PRMSGN= 


****** Q 




EVNTKT= 


000203 


MSGDER= 


000005 




P.RMSGS* 


****** Q 




EVNTPE= 


000202 


MS.GDRP = 


000017 




PROTOA= 


****** G 




EVNTRE* 


000201 


MSGECH= 


177777 




PRRAND= 


****** g 




FATERR= 


100000 


MSGEOP= 


000013 




PRSQFT= 


****** g 




HRDCNT= 


000044 


MSGHDR= 


000004 




PR.NTR 


000044R 




KRDPAS* 


000050 


MSGHNG= 


000022 




PR.TRP 


OOOOOOR 




ICONT = 


000036 


MSGHRD= 


000007 




PRO 


000000 




ICOUNT= 


000040 


MSGMAP= 


000021 




PR4 


000200 




IDNUM = 


000122 


MSGNUL= 


177775 




PR5 


000240 




IE 


000100 


MSGPOP= 


000002 




PR6 


000300 




INDPAR= 


000040 


MSGPRM= 


177776 




PR7 = 


000340 




INHDRP= 


040000 


MSGRES= 


000001 




PS 


177776 




INHEPR= 


020000 


MSGSFT= 


000006 




PSW 


177 776 




INHREL= 


001000 


MSGSKE= 


000003 




RANNUM= 


000054 




INHRRE= 


000400 


MSGSMB= 


000015 




RBUFEA= 


000130 




INIT = 


000030 


MSGSMH= 


000014 




RBUFPA= 


000126 




INTR = 


000120 


MSGSMS= 


00016 




R3UFSZ= 


000132 




IOMOD = 


100000 


MSGSTD= 


000000 




RBUFVA= 


000124 




IOMODP= 


102000 


MSGSYS= 


000012 




RDSERV= 


000101 




IOMODR= 


112000 


MSGVEC= 


000020 




RDWHMI= 


000022 




IOMODX= 


1 10000 


NBKMOD= 


001000 




RELERR= 


000020 




JACK = 


035060 


NCPUOP= 


000020 




RELMOD= 


020000 




KIPARO= 


172340 


NOAPTY= 


000002 




RELTIM= 


010000 




KIPAR1= 


172342 


NU L L = 


000000 




RES1 


000056 




KIPAR2= 


172344 


OWEN --■ 


024020 




RES2 = 


000060 




KIPAR3= 


172346 


PAERR = 


000010 




RICHAR= 


031060 




KIPAR4= 


172350 


PARERR= 


****** 


G 


RPTDAT= 


002000 




KIPAR5= 


172352 


PARPRE= 


002000 




RSTRT = 


000112 




KIPAR6= 


172354 


PARSTA== 


00100 




RUBOUT= 


000177 




KIPAR7= 


172356 


PASCNT= 


000034 




RUNMOD= 


100000 




KIPDRO= 


172300 


PBREAK= 


****** 


G 


R5VALU= 


001740 




KIPDR1= 


172302 


PCDATA= 


****** 


G 


SAM 


075464 




KIPDR2= 


172304 


PDATCK= 


****** 


G 


SBADR = 


000102 




KIPDR3= 


172306 


PDATER== 


****** 


G 


SBKMOD= 


000000 




KIPDR4= 


172310 


PDPLSI= 


020000 




SBKSEL= 


010000 




KIPDR5= 


172312 


PDP60 = 


004000 




SC.ADR= 


000006 




KIPDR6= 


172314 


PDP70 = 


010000 




SC.ALC^ 


000014 




KIPDR7= 


172316 


PEND = 


****** 


G 


SC.APC= 


000016 




KTERR = 


****** Q 


PENDIT= 


****** 


G 


SC.CKL= 


000002 




KTERRO= 


000040 


PGETPA= 


****** 


G 


SC.CKP= 


000004 




KTPRES= 


000400 


PMAP22= 


****** 


G 


SC.CLO= 


000000 




KTSTAT= 


000020 


PRBTOD= 


****** 


G 


SC.HLD= 


000010 




KTXTND= 


040000 


PRFVT 


000054RG 


SC.SCA= 


000012 




LF 


000012 


PRGWB = 


****** 


G 


SENDLS= 


177777 




LPSTAT= 


000001 


PRHARD= 


****** 


G 


SQFCNT= 


000042 




MAPSTA= 


000200 


P R 1 = 


000000 




SOFPAS= 


000046 




MED 


076600 


PRI1 


000040 




SPACE = 


000040 




MEMPAS= 


040000 


PRI4 = 


000200 




SPOINT= 


000032 





PREVT 
PREVT 



(PROCESS EVENT MODULE) 
.MAC 28-JUL-7S 09:25 



MACY.11 



30A(1052) 20-SEP-78 
SYMBOL TABLE 



SPVALU= 
SRO 
SR1 
SR2 
SR3 

STAT = 
STATBI= 
STAT1 = 
SUSPND= 
SVRO = 
SVR1 
SVR2 = 
SVR3 = 
SVR4 = 
SVR5 = 
SVR6 = 
SYSCNT= 
SYSERR= 
TMPIO = 
TOOVF = 
UIPAR0= 
UIPAR1* 



002200 
177572 
177574 
177576 
172516 
000026 
064757 
000027 
000001 
000062 
000064 
000066 
000070 
000072 
000074 
000076 
000052 
000100 
000002 
000002 
177640 
177642 



UIPAR2= 
UIPAR3= 
UIPAR4= 
UIPAR5= 
UIPAR6= 
UIPAR7= 
UIPDR0= 
UIPDR1= 
UIPDR2= 
UIPDR3= 
UIPDR4= 
UIPDR5= 
UIPDR6= 
UIPDR7= 
WASADR= 
WBSTAT= 
WBUFEA= 
WBUFPA= 
WBUFRQ= 
WBUFS2= 
WDFR = 
WDTO = 



177644 
177646 
177650 
177652 
177654 
177656 
177600 
177602 
177604 
177606 
177610 
177612 
177614 
177616 
000104 
000040 
000136 
000134 
000140 
000142 
000116 
000114 



WTINRE= 

WTWHMIs 

XFLAG = 

XOFF = 

XQN 

$BGNLE= 

$ERFLG= 

$F$AND= 

$F$BAD= 

$F$BLA= 

$F$CAS= 

$F$DEC= 

$F$DO = 

$F$FAL= 

$F$GOO= 

$F$IF = 

$F$INC= 

$F$LOO= 

$F$NAM= 

$F$NO = 

$F$OR = 

$F$RTI= 



18:25 PAGE 20-1 



000352 $F$RTN= 000300 

000222 $F$SEL= 000140 

000005 $F$THE= 000330 

000023 $F$TRU= 000404 

000021 $F$UNT= 000130 

177777 $F$WHI= 000120 

000400 $F$YES= 000402 
000310 $IFLEV= 177777 

000401 $ISKO = 000001 
000170 SISK1 = 000001 
000150 $LOCTA= 177777 
000220 $LSTIN= 000001 
000340 $LSTTA= 000001 
000405 $NESTL= 177777 
000400 $NSKO = 000300 
000110 $NSK1 = 000110 
000210 $NSK2 = 000110 
000200 $SAVLE= 177777 
000160 $TAGLE= 177777 
000403 $TAGNU= 050005 
000320 $TEMP = 000300 
000350 $TSKO = 050002 



SEO 0836 



$TSK1 = 

$$ARGC= 
$$BYTE= 
$SCASE= 
$$DST = 
$$ELOC= 
$$ERFL= 
$$FLAG= 
$$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG= 



050004 

000002 

000403 

000000 

000000 

000402 

000000 

000001 

000000 

0001 10R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000001 

050000 

000144R 



ABS. 



000000 
000144 



000 
001 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ: PREVT, DSKZ:PREVT=SPMAC/ML, EQUATE, PREVT 
RUN-TIME: 12 2 .4 SECONDS 
RUN-TIME RATIO: 39/15=2.5 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:25 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0837 

3 COMMON EQUATE MODULE 

554 COMMON DEFINTIONS AND REFERENCES 

556 OOOOOO 1 .PRINT ;SPMAC: VERSION 1.1 

586 PRGWB ROUTINE 
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SEQ 0838 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 



TITLE PRGWB - PROCESS GWBUF 
IDENT /V0.0/ 

++ 
MODULE NAME: 
PRGWB 

FUNCTIONAL DESCRIPTION: 

PROCESSES GWBUF CALLS FROM OPTION MODULES. DETERMINES 
AND PASSES TO A REQUESTING OPTION MODULE A BUFFER 
SIZE AND STARTING ADDRESS. 

INPUTS: 

DATA TABLE ADDRESS 

IMPLICIT INPUTS: 

DT . ADDR , , DT . SS I Z , DT . ES I Z , DT . PC , DT . STO , DT . WBUF t 
DT.WLLMT.DT.WHLMT.DT. OFFSET 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.WBUF 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE MODULES CALLED: 
SAVREG 
RESREG 

FUNCTIONAL. SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL PRGWB IN <A> 

A=ADDRESS OF DATA TABLE 

VERSION: 
0.0 



;SAVE REGISTERS 

; RESTORE REGISTERS 



EDIT 



BY 



DATE 



REASON 
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554 
555 
556 
(1) 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 



000000' 
000000' 



000001 
000001 



000000' 
000002' 



000000 
000000 



SEO 0839 



.SBTTL COMMON DEFINTIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



St:************** 

REFERENCED BY OTHER MODULES: 
GLOBL PRGWB 

GLOBAL REFERENCES 

GLOBL SAVREG 
GLOBL RESREG 

LOCAL STORAGE 



; MODULE ENTRY POINT 



;SAVE REGISTERS 
{RESTORE REGISTERS 



PG. AVAIL: 
PG.SIZE: 



.WORD 
.WORD 



; AVAILABLE BUFFER SIZE - PAR FORMAT 

; ACTUAL WRITE BUFFER SIZE - PAR FORMAT 



%*%$;*>¥$<**>&%**>£** 
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SEQ 0840 



586 
587 
(2) 
583 
589 
590 
591 
592 
593 
(3) 
594 
595 
596 
597 
598 
599 
600 
(4) 
601 
602 
603 
604 
605 
606 
607 
(4) 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
(6) 
(9) 
621 
(4) 
(6) 
622 
(4) 
(3) 
623 
(4) 
(6) 
624 
(4) 
625 
626 
627 
628 



000004' 
000004' 



000004' 
000004' 004767 



000000G 



000010' 
000010' 016500 



000000 



000014' 
000014' 017001 



000002 



000020' 

000020' 026060 
000026' 103007 
000030' 

000030' 016067 
000036' 166067 
000044' 

000044* 000406 
000046' 
000046' 
000046' 016067 



000050 000042 



000042 177742 
000050 177734 



000054' 
000062' 
000062' 



166067 



000054 
000050 



177724 
177716 



.SBTTL PRGWB ROUTINE 
ROUTINE PRGWB <TABL> 



SAVE REGISTERS 



PRGWB: 



CALL SAVREG 



SET RO TO THE START OF THE DATA TABLE 



JSR PC, SAVREG 



LET RO := TABL(R5) 



GET THE OPTIONS MODULE'S HEADER ADDRESS 



MOV TABL(R5),R0 



LET R1 := @DT.PC(RO) 



MOV @DT.PC(RO) ,R1 



CALCULATE THE LARGEST AVAILABLE BUFFER SIZE. IF THE BUFFER 

ADDRESS POINTER IS POINTING BELOW THE MOVABLE PORTION OF 

THE EXERCISER, THEN THE AVAILABLE BUFFER SIZE IS EVERYTHING FROM THE 

CURRENT POINTER POSITION UP TO THE BASE ADDRESS OF THE M0VA3LE PORTION 

OF THE EXERCISER. IF THE BUFFER ADDRESS POINTER IS ABOVE THE TOP OF 

THE EXERCISER, THEN THE AVAILABLE BUFFER SIZE IS EVERYTHING FROM 

THE CURRENT POINTER POSITION UP TO THE HIGH BUFFER LIMIT. 



IF DT.WBUF(RO) LO DT.ADDR(RO) THEN 



LET PG. AVAIL := DT.ADDR(RO) - DT.WBUF(RO) 



ELSE 



LET PG. AVAIL := DT.WHLMT(RO) - DT.WBUF(RO) 



ENDIF 



50002$: 



50003$: 



CMP 
BHIS 

MOV 
SUB 

BR 



MOV 
SUB 



DT.WBUF(RO) ,DT.A 
50002$ 

DT.ADDR(RO) , PG.A 
DT.WBUF(RO) , PG.A 

50003$ 



DT.WHLMT(RO) , PG . 
DT.WBUF(RO) , PG.A 



; + 



GET THE REQUESTED BUFFER SIZE FROM THE OPTION MODULE, CONVERT IT TO 
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SEQ 0841 



629 
630 
631 
632 
633 
634 
635 
636 
(4) 
(7) 
(7) 
(7) 
(7) 
(7) 
(7) 
637 
(6) 
638 
(7) 
639 
(6) 
(9) 
640 
(4) 
641 
(4) 
(3) 
642 
(4) 
643 
(4) 
644 
(4) 
(7) 
(7) 
(7) 
(7) 
(7) 

(?) 

645 
(7) 
646 
(6) 
647 
648 
649 
650 
651 
652 
653 
65* 
(4) 
(6) 
655 
(4) 
656 



000062 
000062 
000056 
000070 
000072 
000074 
000076 
000100 
000102 
000102 
000106 
000106 
0001 10 
0001 10 
0001 14 
0001 16 
0001 16 
000124 
000124 
000126 
000126 
000126 
000132 
000132 
000132 
000132 
000140 
000144 
000150 
000154 
000160 
000164 
000170 
000170 
000174 
000174 



000202' 
000202' 
000206' 
000212' 
000212' 
000214' 



016102 
006202 
006202 
006202 
006202 
006202 
006202 

042702 

006302 

020267 
101404 

016767 

000402 



016761 
006361 
006361 
006361 
006361 
006361 
006361 

006261 

042761 



016002 
166002 

010203 



000140 



176000 

177664 
177656 



010267 177650 



177644 
000142 
000142 
000142 
000142 
000142 
000142 

000142 

100000 



000050 
000070 



177656 



000142 



000142 



PAR FORMAT, DOUBLE IT TO CHANGE IT FROM A WORD COUNT TO A MEMORY AREA SIZE, AND 
COMPARE IT TO THE AVAILABLE BUFFER SIZE. IF THE REQUESTED SIZE IS LARGER THAN THAT 
AVAILABLE, LET THE ACTUAL BUFFER SIZE EQUAL THE AVAILABLE SIZE. OTHERWISE, LET 
THE ACTUAL SIZE BE THE FULL REQUESTED SIZE. THEN PASS THE ACTUAL SIZE TO THE 
OPTION MODULE, AFTER CONVERTING IT TO A PHYSICAL WORD COUNT FROM PAR FORMAT. 

LET R2 := WBUFRQ(R1) SHIFT #-6 



LET R2 := R2 CLR.BY #176000 
LET R2 := R2 SHIFT #+1 
IF R2 HI PG. AVAIL THEN 



LET PG.SIZE := PG. AVAIL 



ELSE 



LET PG.SIZE := R2 
ENDIF 
LET WBUFSZ(R1) : = PG.SIZE SHIFT #+6 



LET WBUFSZ(R1) : = WBUFSZ(RI) SHIFT #-1 

LET WBUFSZ(R1) := WBUFSZ(RI) CLR.BY #100000 



CONVERT THE BUFFER ADDRESS POINTER FROM PAR FORMAT TO AN 18-BIT 
VIRTUAL ADDRESS, AND PASS IT TO THE OPTION MODULE. 



MOV 


WBUFRQ(R1 ) ,R2 


ASR 


R2 


ASR 


R2 


ASR 


R2 


ASR 


R2 


ASR 


R2 


ASR 


R2 


BIC 


#1 76000, R2 


ASL 


R2 


CMP 


R2.PG. AVAIL 


BLOS 


50004$ 


MOV 


PG. AVAIL, PG.SIZE 


BR 


50005$ 


50004$: 




MOV 


R2, PG.SIZE 


50005$: 




MOV 


PG.SIZE,WBUFSZ(R 


ASL 


WBUFSZ(R1 ) 


ASL 


WBUFSZ(R1 ) 


ASL 


WBUFSZ(R1 ) 


ASL 


WBUFSZ(R1 ) 


ASL 


WBUFSZ(R1 ) 


ASL 


WBUFSZ(R1 ) 


ASR 


WBUFSZ(R1 ) 


BIC 


#100000, WBUFSZ(R 



LET R2 := DT.WBUF(RO) - DT . OFFSET ( RO) 

LET R3 := R2 

LET R2 := R2 SHIFT #+6 



MOV DT.WSUF(RO) ,R2 
SUB DT.OFFSET(RO) ,R2 

MOV R2,R3 
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(7) 


000214' 


006302 




(7) 


000216' 


006302 




(7) 


000220' 


006302 




(7) 


000222' 


006302 




(7) 


000224' 


006302 




(7) 


000226' 


006302 




657 


000230' 






(6) 


000230' 


000303 




653 


000232' 






(7) 


000232' 


006303 




(7) 


000234' 


006303 




659 


000236' 






(6) 


000236' 


042703 


177717 


660 


000242' 






(4) 


000242' 


010261 


000134 


661 


000246' 






(4) 


000246' 


010361 


000136 


662 








663 








664 








665 








666 








567 








668 








669 


000252' 






(6) 


000252' 


032760 


000040 


(9) 


000260' 


001470 




670 








671 








672 








673 








674 








675 








676 








677 








678 








679 


000262' 






(6) 


000262' 


066760 


177514 


(7) 


000270' 


005260 


000050 


680 








681 








682 








683 








684 








685 








686 








687 








688 








689 


000274' 






(4) 


000274' 


016003 


000054 


(6) 


000300' 


162703 


000020 


690 


000304' 






(6) 


000304' 


026003 


000050 


(9) 


000310' 


103403 




691 


000312' 






(4) 


000312' 


016060 


000052 



000010 



000050 



5WA3 



LET R3 := SWAP R3 

LET R3 *.= R3 SHIFT #+2 

LET R3 := R3 CLR.BY #177717 

LET WBUFPA(R1 ) : = R2 

LET WBUFEA(R1 ) := R3 



IF WRITE BUFFER ROTATION IS ENABLED, FIND A NEW VALUE FOR THE WRITE 
BUFFER ADDRESS POINTER. OTHERWISE, JUST RETURN. 



IF #WBSTAT SETIN DT.STO(RO) THEN 



BIT 
BEQ 



LET THE NEW BUFFER ADDRESS POINTER EQUAL THE CURRENT POINTER PLUS 
THE SIZE OF THE BUFFER WE JUST PASSED TO THE OPTION MODULE. 
ADD ONE TO THIS VALUE TO GET THE NEXT 100 BYTE BLOCK, TO 
ASSURE THAT THERE IS NO OVERLAPPING OF WRITE BUFFERS. 



LET DT.WBUF(RO) := DT.WBUF(RO) + PG.SIZE + #1 



ADD 
INC 



SEO 0842 



ASL 


R2 


ASL 


R2 


ASL 


R2 


ASL 


R2 


ASL 


R2 


ASL 


R2 



R3 



ASL 


R3 


ASL 


R3 


BIC 


#17771 7 ,R3 


MOV 


R2,WBUFPA(R1 ) 


MOV 


R3,WBUFEA(R1 ) 



#WBSTAT,DT.ST0(R 
50006$ 



PG.SIZE,DT.WBUF( 
DT.WBUF(RO) 



IF THIS NEW BUFFER STARTING ADDRESS IS GREATER THAN OR EQUAL TO THE 
HIGH BUFFER LIMIT MINUS 1/2 K (THE 1/2 K IS TO ASSURE THAT WE HAVE A WRITE 
BUFFER AREA OF AT LEAST THAT SIZE), THEN MOVE THE BUFFER ADDRESS POINTER TO THE 
LOW BUFFER LIMIT. 



LET R3 :- DT.WHLMT(RO) - #20 



IF DT.WBUF(RO) HIS R3 THEN 



LET DT.WBUF(RO) : == DT.WLLMT(RO) 



000050 



MOV DT.WHLMT(RO) ,R3 

SUB #20, R3 

CMP DT.WBUF(RO) ,R3 

BLO 50007$ 

MOV DT.WLLMT(RO) ,DT, 
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ENDIF 



SEQ 0843 



692 


000320' 






(4) 


000320' 






693 








694 








695 








696 








697 








698 








699 








700 








701 








702 








703 








704 








705 








706 








707 








708 








709 








710 


000320' 






(4) 


000320'' 


016002 


000044 


(7) 


000324' 


006202 




(7) 


000326' 


006202 




(7) 


000330' 


006202 




(7) 


000332' 


006202 




(7) 


000334' 


006202 




(7) 


000336' 


006202 




711 


000340' 






(6) 


000340' 


042702 


176000 


712 


000344' 






(6) 


000344' 


005202 




713 


000346' 






(6) 


000346' 


066002 


000042 


(7) 


000352' 


162702 


000200 


714 








715 


000356' 






(4) 


000356' 


016003 


000042 


(6) 


000362' 


162703 


000020 


716 








717 


000366' 






(6) 


000366' 


026002 


000050 


(9) 


000372' 


101C23 




(6) 


000374' 


026003 


000050 


(9) 


000400 ' 


103420 




718 


000402' 






(4) 


000402' 


016004 


000054 


(6) 


000406' 


162704 


000020 


719 


000412' 






(6) 


000412' 


020204 




(9) 


000414' 


10 3410 




(6) 


000416' 


026027 


000042 000200 


(9) 


000424' 


101404 




720 


000426' 






(4) 


000426' 


016060 


000052 000050 


721 


000434' 






(4) 


000434* 


000402 





50007$: 



NOW CHECK TO SEE IF THE POINTER HAS BEEN PLACED WITHIN THE CURRENT 

POSITION OF THE EXERCISER. TO DO THIS, WE FIRST CALCULATE ' THE CURRENT POSITION 

Of THE TOP OF THE EXERCISER (WITHIN 100 BYTES, BECAUSE WE ARE WORKING WITH 

PAR-FORMATTED WORDS). THEN SEE IF THE CONTENTS OF THE POINTER IS LESS THAN 

THIS VALUE BUT GREATER THAN THE BASE ADDRESS OF THE MOVABLE PORTION OF THE 

EXERCISER MINUS 1/2 K. IF IT IS NOT, THEN WE HAVE A GOOD POINTER VALUE. 

BUT IF IT IS, WE MUST THEN CHECK TO SEE IF THE TOP OF THE 

EXERCISER IS WITHIN 1/2 K OF THE HIGH BUFFER LIMIT. IF YES, 

AND IF THE MOVABLE PORTION OF THE EXERCISER IS NOT IN LOWEST MEMORY, MOVE THE 

BUFFER ADDRESS POINTER DOWN TO THE LOW BUFFER LIMIT. 

OTHERWISE, MOVE THE POINTER TO THE TOP OF THE EXERCISER. 



LET R2 := DT.ESIZ(RO) SHIFT #-6 



LET R2 := R2 CLR.BY #176000 

LET R2 := R2 + #1 

LET R2 := R2 + DT.ADDR(RO) - #200 

LET R3 := DT.ADDR(RO) - #20 

IF DT.WBUF(RO) LOS R2 AND DT.WBUF(RO) HIS R3 THEN 

LET R4 := DT.WHLMT(RO) - #20 

IF R2 HIS R4 AND DT.ADDR(RO) HI #200 THEN 



LET DT.WBUF(RO) := DT.WLLMT(RO) 



ELSE 



MOV 
ASR 
ASR 
ASR 
ASR 
ASR 
ASR 


DT.ESI2(R0) , 

R2 

R2 

R2 

R2 

R2 

R2 


R2 


BIC 


#176000, R2 




INC 


R2 




ADD 

SUB 


DT . ADDR(RO) , 
#200, R2 


R2 


MOV 
SUB 


DT.ADDR(RO) , 
#20, R3 


R3 


CMP 
BHI 
CMP 
BLO 


DT.WBUF(RO) , 
50010$ 
DT.WBUF(RO) , 
50010$ 


R2 
R3 


MOV 
SUB 


DT.WHLMT(RO) 
#20, R4 


,R4 


CMP 
BLO 
CMP 
BLOS 


R2, R4 
5001 1$ 

DT.ADDR(RO) » 
50011$ 


#200 


MOV 


DT.WLLMT(RO) 


,DT. 


BR 


50012$ 
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SEQ 0844 



(3) 
722 
(4) 
723 
(4) 
724 
(4) 
725 
726 
(4) 
727 
728 
729 
730 
731 
732 
733 
734 
(6) 
735 
736 
737 
738 
739 
740 
741 
(3) 
742 
743 
744 
(3) 
(3) 
(2) 
745 



000436' 

000436' 

000436' 010260 

000442' 

000442' 

000442' 

000442' 

000442' 
000442' 



LET DT.WBUF(RO) := R2 



000050 



ENDIF 



ENDIF 



ENDIF 



50011$: 

50012$: 

50010$: 

50006$: 



MOV R2,DT.WBUF(R0) 



UPDATE DT.PC TO REFLECT THE ADDRESS TO RETURN TO (I.E., THE ADDRESS 
AFTER THE GWBUF TRAP CALL. 



000442' 

000442' 062760 000002 000002 



000450' 

000450' 004767 OOOOOOG 



000454' 
000454' 
000454' 

000454' 000207 
000001 



LET DT.PC(RO) := DT.PC(RO) + #2 



RESTORE REGISTERS AND RETURN 



CALL RESREG 



ENDRTN 



END 



ADD 



#2,DT.PC(R0) 



50000$: 
50001$: 



JSR 



RTS 



PC,RESREG 



PC 
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ACSR - 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


0001 10 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


3IT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 a 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BIT6 = 


000100 


8IT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQOVF = 


000001 


CR 


000015 


CSRA = 


000100 


CSRC = 


000102 



CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO= 
DSEVNT= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CF0= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HWlX = 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT«MTI= 
DT.OFF- 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.ST0= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 
ENDLST= 
EOPBIT= 



000003 

000017 

000025 

00001 1 

000400 

000000 

100000. 

000014 

000042 

000100 

000076 

000034 

000014 

000016 

000020 

000044 

000000 

000060 

000037 

0Q0036 

000104 

000024 

000026 

000022 

000030 

000032 

0001 10 

000070 

000074 

000002 

000062 

000004 

000064 

000102 

000040 

000066 

000106 

000006 

000046 

000010 

000012 

000056 

000072 

000050 

000054 

000052 

000014 

000100 

000010 

010000 

000001 

000000 

000001 



ERRTYP = 

EVNTBE = 

EVNTHD= 

EVNTKT: 

EVNTPE = 

EVNTRE = 

FAT ERR = 

HRDCNT= 

HRDPAS= 

ICONT = 

1C0UNT: 

IDNUM .,: 

IE • '« 

1NDPAR = 

INHDRP = 

INHEPR; 

INHREL = 

INHRRE = 

IN It ■■ 

INTR = 

IOMOD = 

IOMODP' 

IOMODR: 

IOMODXs 

JACK = 

KIPARO: 

KIPARIs 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT* 

KTXTND= 

LF 

LPSTAT= 

MAPSTA= 

MED 

MEMPAS= 

MODEXH= 

MODHOL = 

MODSEL= 
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000106 
000200 
000200 
000203 
000202 
000201 
100000 
000044 
000050 
000035 
000C40 
000122 
000100 
000040 
040000 
020000 
OOiOOO 
000400 
000030 
000120 
100000 
102000 
1 12000 
1 10000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
'172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 
000001 
000200 
076600 
040000 
004000 
002000 
001000 



SEO 0845 



MSGCKD= 


000010 


MSGCKS= 


00001 1 


MSGDER= 


000005 


MSGDRP= 


000017 


M5GECH= 


177777 


MSGEOP= 


000013 


MSGHDR= 


000004 


MSGHNG= 


000022 


MSGHRD= 


000007 


MSGMAP= 


000021 


MSGNUL= 


177775 


MSGPOP= 


000002 


MSGPRM= 


177776 


MSGRES= 


000001. 


MSGSFT= 


000006 


MSGSKE= 


000003 


MSGSMB= 


000015 


MSGSMH= 


000014 


MSGSMS= 


000016 


MSGSTD= 


000000 


MSGSYS= 


000012 


MSGVEC- 


000020 


NBKMOD= 


001000 


NCPUOP= 


000020 


NOAPTY= 


000002 


NULL = 


000000 


OWEN = 


024020 


PAERR = 


000010 


PARPRE= 


002000 


PARSTA- 


000100 


PASCNT= 


000034 


PDPLSI= 


020000 


PDP60 = 


004000 


PDP70 = 


010000 


PG.AVA 


OOOOOOR 


PG.SIZ 


00000 2R 


PRGWB 


000004RG 


PRIO = 


000000 


PRI1 


000040 


PRI4 = 


000200 


PRI5 = 


000240 


PRI6 = 


000300 


PRI7 = 


000340 


PRO 


000000 


PR4 


000200 


PR5 


000240 


PR6 


000300 


PR7 


000340 


PS 


177776 


PSW 


177776 


RANNUM= 


000054 


RBUFEA= 


000130 


RBUFPA= 


000126 



RBUFSZs 

RBUFVA = 

RDSERV= 

RDWHMI= 

RELERR^ 

RELMODs 

RELTIM= 

RESREG= 

RES1 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBOUT= 

RUNMOD- 

R5VALU= 

SAM 

SAVREG= 

SBADR = 

SBKMOD= 

SBKSEL* 

SC.ADR= 

SC.ALC= 

SC.APC= 

SC.CKL= 

SC.CKP- 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SOFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT a 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 = 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 

SVR6 = 

SYSCNT* 

SYSERR= 

TABL = 



000132 
000124 
000101 
000022 
000020 
020000 
010000 
****** 

000056 
000060 
03 1060 
002000 
0001 12 
000177 
100000 
001 740 
075464 
****** 

000102 
OODOOO 
010000 
000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 
000027 
000001 
000062 
000064 
000066 
000 70 
000072 
000074 
000076 
000052 
000100 
000000 
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$F$DO = 
$F$FAL = 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL = 
$F$THE = 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 
$IFLEV= 
$ISKO ■■ 



TMPIO = 


000002 




WBSTAT= 


000040 


TQOVF = 


000002 




WBUFEA= 


000136 


UIPARO= 


177640 




WBUFPA= 


000134 


UIPAR1= 


177642 




WBUFRQ= 


000140 


UIPAR2= 


177644 




WBUFSZ= 


000142 


UIPAR3= 


177646 




WDFR = 


000116 


UIPAR4= 


177650 




WDTO = 


0001 14 


UIPAR5= 


177652 




WTINRE= 


000352 


UIPAR6= 


177654 




WTWHMI= 


000222 


UIPAR7= 


177656 




XFLAG = 


000005 


UIPDRO= 


177600 




XOFF = 


000023 


UIPDR1= 


177602 




XON 


000021 


UIPDR2= 


177604 




$BGNLE= 


177777 


UIPDR3= 


177606 




$ERFLG= 


000400 


UIPDR4= 


177610 




$F$AND= 


000310 


UIPDR5= 


177612 




$F$BAD= 


000401 


UIPDR6= 


177614 




$F$BLA= 


000170 


UIPDR7= 


177616 




$F$CAS= 


000150 


WASADR = 


000104 




$F$DEC= 


000220 


. ABS. 


000000 
000456 


000 
001 
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000340 
000405 
000400 
0001 10 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 
000001 



SEQ 0846 



$ISK1 * 

$ISK2 = 

$LOCTA= 

$LSTIN= 

$LSTTA= 

$NESTL= 

$NSK0 

$NSK1 = 

$NSK2 

$NSK3 = 

$SAVLE= 

$TAGLE= 

$TAGNU= 

$TEMP = 

$TSK0 

$TSK1 

$TSK2 = 

$$ARGC 

$$BYTE 



000001 
000001 
177777 
000001 
000001 
177777 
000300 
000110 
000110 
000110 
177777 
177777 
050013 
000300 
050006 
050010 
050012 
000002 
000403 



$$CASE= 
$$DST = 
$$ELOC= 
$$ERFL= 
$$FLAG= 
$$FROM= 
$$LQC = 
$SLQCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG= 



000000 

000000 

000402 

000000 

000001 

000000 

000424R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000456R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ: PRGWB, DSKZ : PRGWB=SPMAC/ML, EQUATE, PRGWB 
RUN-TIME: 18 8 .4 SECONDS 
RUN-TIME RATIO: 64/27=2.3 
CORE USED: 14K (27 PAGES) 
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MACY11 30A(1052) 20-SEP-78 18:26 PAGE 19 
COMMON EQUATE MODULE 

.TITLE PRHARD (PROCESS HARD ERRORS) 
.IDENT /V0.0/ 

++ 
MODULE NAME: 
PRHARD 

FUNCTIONAL DESCRIPTION: 

THIS MODULE IS CALLED AS A RESULT OF A 'HRDERR' TRAP EXECUTED 
BY AN OPTION MODULE. 

FIRST THE FOLLOWING IS DONE 

1. THE MODULE'S HARD ERROR COUNT IS INCREMENTED. 

2. ERROR MESSAGE IS QUEUED UP. 

IF THE ENVIRONMENT IS APT, THEN AN APT ERROR HANDLING ROUTINE 
IS CALLED. 

IF NOT UNDER APT ENVIRONMENT, THEN 

1. IF BIT15 OF THE SOFTWARE SWITCH REGISTER IS SET, THE 
MODULE IS DROPPED WITH 'MODULE DROPPED' MESSAGE PRINTED, 

; EVEN ON THE FIRST ERROR. 

2. IF THE ERROR COUNT IS EQUAL TO OR GREATER THAN THE 
LIMIT, THEN BIT14 OF THE SOFTWARE SWITCH REGISTER IS 
CHECKED. IF BIT14 IS SET, THE MODULE IS NOT DROPPED. 



INPUTS: 

DATA TABLE ADDRESS 

IMPLICIT INPUTS: 

DT.ST0,DT,CF0,DT.HMX 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 



SEQ 0848 



SUBORDINATE ROUTINES CALLED: 

1 . DRPMOD 

2. ENQTQ 

3. APTHER 

4. SAVREG 

5. RESREG 



DROP A MODULE ROUTINE 
ENQUE AN ERROR MSG ROUTINE 
APT HARD ERROR ROUTINE 



FUNCTIONAL SIDE EFFECTS: 

UNDER APT ENVIRONMENT IT CAN SHUT DOWN THE EXCERCISER 

CALLING SEQUENCE: 

CALL PRHARD IN <DT> 
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SEQ 0849 



564 
565 
566 
567 
568 
569 
570 
571 



WHERE DT 



VERSION: 
0.0 

EDIT 



DATA TABLE ADDRESS 



DATE 



BY 



REASON 
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573 
574 
575 

576 000000' 
(1) 000000' 

577 000001 

578 000001 
579 

580 
581 
582 
583 
584 
585 
586 
587 
588 
539 
590 
591 
592 
593 
594 
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PRHARD (COMMON DEFINITIONS & REFERENCES) 

.SBTTL PRHARD (COMMON DEFINITIONS & REFERENCES) 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



SEO 0850 



J*******-* * * ****** 

; REFERENCED BY OTHER MODULES 

.'CLOBL PRHARD 

•J)!*********** •+!)!** 

; GLOBAL REFERENCES 

!globl APTHER 

.GLOBL ENQTQ 

.GLOBL DRPMOD 

•GLOBL SAVREG 

.GLOBL RESREG 



;MODULE ENTRY POINT 



;HARD ERROR HANDLER UNDER APT 

;ENQUE A MESSAGE INTO THE TYPE QUEUE 

;'DROP THE MODULE' ROUTINE 
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596 








597 








599 


000000' 






(2) 


000000' 






599 








600 








601 








603 








604 








605 


000000' 






(3) 


000000' 


004767 


000000G 


606 


000004' 






(4) 


000004' 


016500 


000000 


607 


000010' 






(4) 


000010' 


016001 


000002 


608 


000014' 






(4) 


000014' 


01 1102 




609 








610 








611 








612 








613 


000016' 






(4) 


000016' 


010103 




(6) 


000020' 


162703 


000002 


614 








615 








616 








617 








618 








619 


000024' 






(6) 


000024' 


062701 


000004 


620 








621 








622 








623 








624 








625 


000030' 






(6) 


000030' 


005262 


000044 


626 


000034' 






(6) 


000034' 


005262 


000050 


627 


000040' 






(3) 


000040' 


010546 




(8) 


000042' 


010145 




(7) 


000044' 


010245 




(6) 


000046' 


010345 




(5) 


000050' 


012745 


000007 


(4) 


000C54' 


010045 




(3) 


000056' 


004767 


OOOO00G 


(3) 


000062' 


012605 




628 








629 








630 








631 








632 








633 


000064' 
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SEQ 0851 



PRHARD: 



SAVE REGS, GET DTABLE ADDRESS AND MODULE 
HEADER ADDRESS. 



CALL SAVREG 
LET RO := DTA(R5) 
LET R1 := DT.PC(RO) 
LET R2 := (R1) 

POINT TO TRAP PC 
LET R3 := R1 - #2 

POINT R1 TO RETURN PC 
LET R1 := R1 + #4 

INCREMENT MODULE'S ERROR COUNT, AND ENQUE ERROR MESSAGE. 

LET HRDCNT(R2) := HRDCNT(R2) + #1 
LET HRDPAS(R2) := HRDPAS(R2) + #1 
CALL ENQTQ IN <R0 , #MSGHRD, R3 , R2 , R1 > 



JSR 


PC, SAVREG 


MOV 


DTA(R5) ,R0 


MOV 


DT.PC(RO) ,R1 


MOV 


(RO.R2 



MOV 
SUB 



ADD 



IF APT ENVIRONMENT, CALL APT ERROR HANDLING ROUTINE 



IF #APTPRE SETIN DT.CFO(RO) THEN 



R1 ,R3 
#2,R3 



#4,R1 



INC 


HRDCNT(R2) 


INC 


HRDPAS(R2) 


MOV 


R5,-(SP) 


MOV 


R1 ,~(R5) 


MOV 


R2,-(R5) 


MOV 


R3,-(R5) 


MOV 


#MSGHRD,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, ENQTQ 


MOV 


(SP)+,R5 



PRHARD 
PRHARD, 

(6) 
(9) 
634 
(3) 
(4) 
(3) 
(3) 
635 
(4) 
(3) 
636 
637 
638 
639 
640 
641 
842 
643 
(6) 
(9) 
644 
(3) 
(5) 
(4) 
(3) 
(3) 
645 
(4) 
(3) 
646 
647 
648 
649 
650 
(6) 

(9) 
(6) 
(9) 
651 
(3) 
(5) 
(4) 
(3) 
(3) 
652 
(4) 
653 
(4) 
654 
(4) 
655 
656 
657 
658 
659 
660 
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SEO 0352 



000064' 
000072' 
000074' 
000074' 
000076' 
000100' 
000104' 
000106' 
000106' 
000110' 



0001 10' 
0001 10' 
0001 16' 
000120' 
000120' 
0001 22' 
000124' 
000126' 
000132' 
000134' 
000134' 
000136' 



000136' 
000136' 
000144' 
000146' 
000154' 
000156' 
000156' 
000160' 
000162' 
000164* 
000170' 
000172' 
000172' 
000172' 
000172' 
000172' 
000172' 



032760 
001406 

010546 
010045 
004767 
012605 

000431 



032760 
001407 

010546 
01 0245 
01 0045 
004767 
012605 

000416 



026260 
103412 
032760 
001006 

010546 
010245 
01 0045 
004767 
012605 



000200 000014 



OOOOOOG 



CALL APTHERR IN <R0> 



ELSE 



BIT #APTPRE,DT.CFO(R 

BEQ 50002$ 

MOV R5,-(SP) 

MOV R0,~(R5) 

JSR PC, APTHERR 

MOV (SP)+,R5 

BR 50003$ 



50002$: 



100000 000056 



OOOOOOG 



000044 000104 



040000 000056 



OOOOOOG 



THE ENVIRONMENT IS NOT APT. 

CHECK SWITCH REGISTER IF THE MODULE IS TO BE DROPPED 

DUE TO THIS ERROR. 

IF 0BIT15 SETIN DT.SWR(RO) THEN 

CALL DRPMOD IN <R0,R2> 

ELSE 

IF TOO MANY HARD ERRORS AND BIT 14 NOT SET IN SWR , DROP MODULE 

IF HRDCNT(R2) HIS DT.HMX(RO) AND 0BIT14 NOTSETIN DT.SWR(RO) THEN 

CMP HRDCNT(R2) ,DT.HM 
BLO 50006$ 
BIT #BIT14,DT.SWR(R0 
BNE 50006$ 

MOV R5,-(SP) 

MOV R2 f ~(R5) 

MOV R0,-(R5) 

JSR PC, DRPMOD 

MOV (SP)+,R5 





BIT 


#BIT15,DT.SWR(R0 




BEQ 


50004$ 




MOV 


R5,~(SP) 




MOV 


R2,-(R5) 




MOV 


R0,-(R5) 




JSR 


PC, DRPMOD 




MOV 


(SP)+,R5 




BR 


50005$ 


50004$: 







CALL DRPMOD IN <R0,R2> 



ENDIF 



END IF 



ENDIF 



50006$: 
50005$: 
50003$: 



RESTORE REGS AND RETURN 



PRHARD 


(PROCESS 


HARD ERRORS) 


PRHARD. 
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661 


000172' 




(3) 


000172' 


004767 000000G 


662 






663 


000176' 




(3) 


000176' 




(3) 


000176' 




(2) 


000176' 


000207 


664 






665 




000001 
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CALL RESREG 



ENDRTN 
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SEQ 0853 



50000$: 
50001 S: 



JSR 



RTS 



PC, RESREG 



PC 



END 
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ACSR = 


000102 


ACTBIT= 


004000 


ADDR22 = 


001000 


ADR 


000006 


APTFER= 


000004 


APTHER = 


****** 


APTPRE* 


000200 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


0001 10 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT 13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BITS = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODEs 


040000 


3KSLSH= 


000134 


CAPRE5= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCTs 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQOVF = 


000001 


CR 


000015 


CSRA = 


000100 



CSRC = 

CTRLC = 

CTRLO = 

CTRLU = 

DCEVNT= 

DEFRTN= 

DIAGMC= 

DROPMO= 

DRPMOD= 

DSEVNT= 

DTA 

DT.ADD= 

DT.AP = 

DT.APK= 

DT.BLS= 

DT.CFO= 

DT.CF1= 

DT.ERR= 

DT.ESI= 

DT.EVN= 

DT.EXS= 

DT.FCH= 

DT.FCN= 

DT.HMX= 

DT.KBE= 

DT.KBP= 

DT.KBR= 

DT.KBU= 

DT.MLS= 

DT.MTI= 

DT.OFF= 

DT.PAS= 

DT.PC = 

DT.PFL= 

DT.PSW= 

DT.PTA= 

DT.RCS= 

DT.REL= 

DT.SCT= 

DT.SMX= 

DT.SP = 

DT.SSI= 

DT.STO= 

DT.ST1= 

DT.SWR= 

DT.SYP= 

DT.WBU= 

DT.WHL= 

DT.WLL= 

DVID1 = 

ECCMEM= 

ECCSTA= 

ENBEOP= 



000102 
000003 
000017 
000025 
00001 1 
000400 
000000 
100000 
****** 

000014 
000000 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000C02 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
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SEQ 0854 


ENBNUL= 


000001 


MEMPAS 


- 040000 


RBUFEA= 


000130 




ENDLS.T'a 


000000 


MODEXH 


= ' 004000 


RBUFPA= 


000126 




ENQTQ = 


****** Q 


MODHOL 


= 002000 


RBUFSZ= 


000132 




EOPBIT= 


000001 


MODSEL 


.= 001000 


R3UFVA= 


000124 




ERRTYP= 


000106 


MSGCKD 


- 000010 


RDSERV^ 


000101 




EVNTBE= 


000200 


MSGCKS 


- 00001 1 


RDWHMI= 


000022 




EVNTHD= 


000200 


MSGDER 


-- 000005 


RELERR= 


000020 




EVNTKT= 


000203 


MSGDRP 


= 000017 


RELMOD= 


020000 




EVNTPE= 


000202 


MSGECH 


= 177777 


RELTIM= 


010000 




EVNTRE* 


000201 


MSGEOP 


- 000013 


RESREG= 


* * * + * * G 




FATERR= 


100000 


MSGHDR 


■= 000004 


RES1 = 


000056 




HRDCNT= 


000044 


MSGHNG 


-- 000022 


RES2 = 


000060 




HRDPAS= 


000050 


MSGHRD 


- 000007 


RICHAR= 


031060 




ICONT = 


000036 


MSGMAP 


= 000021 


RPTDAT= 


002000 




IC0UNT= 


000040 


MSGNUL 


= 177775 


RSTRT = 


000112 




IDNUM = 


000122 


MSGPOP 


= 0C0002 


RUBOUT= 


000177 




IE 


000100 


MSGPRM 


= 177776 


RUNiV10D = 


100000 




INDPAR= 


000040 


MSGRES 


= 000001 


R5VALU= 


001740 




INHDRP= 


040000 


MSGSFT 


- 000006 


SAM 


075464 




INHEPR= 


020000 


MSGSKE 


= 000003 


SAVREG= 


****** Q 




INHREL- 


001000 


MSGSMB 


= 000015 


SBADR = 


000102 




INHRRE- 


000400 


MSGSMH 


= 000014 


SBKMOD= 


000000 




INIT = 


000030 


MSGSMS 


= 000016 


SBKSEL= 


010000 




INTR = 


000120 


MSGSTD 


= 000000 


SC.ADR= 


000006 




IOMOD = 


100000 


MSGSYS 


= 000012 


SC.ALC= 


000014 




IQMODP= 


102000 


MSGVEC 


= 000020 


SC.APC= 


000016 




IOMODRa 


1 12000 


NBKMOD 


= 001000 


SC.CKL= 


000002 




I0M0DX= 


1 10000 


NCPUOP 


= 000020 


SC.CKP= 


000004 




JACK = 


035060 


NOAPTY 


= 000002 


SC.CLO= 


000000 




KIPARO= 


172340 


NULL 


= 000000 


SC.HLD= 


000010 




KIPAR1= 


172342 


OWEN 


= 024020 


SC.SCA= 


000012 




KIPAR2= 


172244 


PAERR 


= 000010 


SENDLS= 


177777 




KIPAR3= 


172346 


PARPRE 


= 002000 


SOFCNT= 


000042 




KIPAR4= 


172350 


PARSTA 


= 000100 


SOFPAS= 


000046 




KIPAR5= 


172352 


PASCNT 


= 000034 


SPACE = 


000040 




KIPAR6= 


172354 


PDPLSI 


= 020000 


SPOINT= 


000032 




KIPAR7= 


172356 


PDP60 


= 004000 


SPVALU= 


002200 




KIPDRO= 


172300 


PDP70 


- 010000 


SRO 


177572 




KIPDR1= 


172302 


PRHARD 


OOOOOORG 


SR1 


177574 




KIPDR2= 


172304 


PRIO 


= 000000 


SR2 


177576 




KIPDR3= 


172306 


PRI1 


= 000040 


SR3 * 


172516 




KIPDR4= 


172310 


PRI4 


= 000200 


STAT = 


000026 




KIPDR5= 


172312 


PRI5 


= 000240 


STATBI= 


064757 




KIPDR6= 


172314 


PRI6 


= 0C0300 


STAT1 = 


000027 




KIPDR7-- 


172316 


PRI7 


= 000340 


SUSPND= 


000001 




KTERRO= 


000040 


PRO 


= 000000 


SVRO = 


000062 




KTPRES= 


000400 


PR4 


= 000200 


SVR1 = 


000064 




KTSTAT= 


000020 


PR5 


= 000240 


SVR2 = 


000066 




KTXTND= 


040000 


PR6 


= 000300 


SVR3 = 


000070 




LF 


000012 


PR7 


= 000340 


SVR4 = 


000072 




LPSTAT= 


000001 


PS 


= 177776 


SVR5 = 


000074 




MAPSTA= 


000200 


PSW 


= 177776 


SVR6 = 


000076 




MED - 


076600 


RANNUM 


= 000054 


SYSCNT= 


000052 
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SEQ 0855 



SYSERR= 


000100 




WBSTAT= 


000040 


TMPIO = 


000002 




WBUFEA= 


000136 


tqovf" = 


000002 




WBUFPA= 


000134 


UIPAR0= 


177640 




WBUFRO= 


000140 


UIPAR1= 


177642 




WBUFSZ= 


000142 


UIPAR2= 


177644 




WDFR = 


0001 16 


UIPAR3= 


177646 




WDTO = 


0001 14 


UIPAR4= 


177650 




WTINRE= 


000352 


UIPAR5= 


177652 




WTWHMI= 


000222 


UIPAR6= 


177654 




XFLAG = 


000005 


UIPAR7= 


177656 




XOFF a 


000023 


UIPDRO= 


177600 




XON 


000021 


UIPDR1= 


177602 




$BGNLE= 


177777 


UIPDR2= 


177604 




$ERFLG= 


000400 


UIPDR3= 


177606 




$F$AND= 


000310 


UIPDR4= 


177610 




$F$BAD= 


000401 


UIPDR5= 


177612 




$F$BLA= 


000170 


UIPDR6= 


177614 




$F$CAS= 


000150 


UIPDR7= 


177616 




$F$DEC= 


000220 


WASADR* 


000104 




$F$DO = 


000340 


. ABS. 


000000 
000200 


000 
001 







$F$FAL= 
$F$GO0= 
$F$IF = 
$F$INC= 
$F$L00= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI* 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 
$IFLEV= 
$ISKO = 
$ISK1 = 
$ISK2 = 



000405 
000400 
0001 10 
000210 
000200 
000160 
000403 
000320 
00035.0 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
1 77777 
000001 
000001 
000001 



$LOCTA= 
$LSTIN= 
$LSTTA= 
$NESTL= 
$NSKO = 
$NSK1 = 
$NSK2 = 
$NSK3 = 
$SAVLE= 
$TAGLE= 
$TAGNU= 
$TEMP = 
$TSKO = 
STSK1 = 
$TSK2 = 
$$ARGC= 
$$BYTE= 
$$CASE= 
$$DST - 
$$ELOC= 



177777 
000001 
000001 
177777 
000300 
000110 
000110 
000110 
177777 
177777 
050007 
000300 
050003 
050005 
050006 
000002 
000403 
000000 
000000 
000402 



$$ERFL= 
$SFLAG= 
$$FROM= 
$$LOC = 
$$LOCN=. 
$$REG = 
$$RETU= 
$$RTN1= 
$3RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$3T0 = 
$$$TAG= 



000000 

000001 

000000 

0001 54R 

000000 

177 777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000200R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ: PRHARD f DSKZ: PRHARD=SPMAC/ML , EQUATE, PRHARD 
RUN-TIME: 13 3 ,4 SECONDS 
RUN-TIME RATIO: 42/17=2.3 
CORE USED: 14K (27 PAGES) 



•MAIN. MACY11 30A(1052) 20-SEP-7S 18:27 

EQUATE. MAC 13-SEP-78 16: 13 TABLE OF CONTENTS SEQ 0856 

3 COMMON EQUATE MODULE 
553 COMMON REFERENCES AND DEFINITIONS 

556 000000' .PRINT ;SPMAC: VERSION 1.1 

579 PRMSG ROUTINE 



PRMSG - PROCESS MSG MACY11 
PRMSG. MAC 28-JUL-78 09:25 

508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 



30A(1052) 20-SEP-78 18:27 PAGE 19 
COMMON EQUATE MODULE 

.TITLE PRMSG - PROCESS MSG 
. I DENT /VO.O/ 



++ 
MODULE NAME: 
PRMSG 

FUNCTIONAL DESCRIPTION: 

PROCESSES MSG CALLS FROM OPTION MODULES BY LOADING 
THE TYPE-QUEUE WITH THE SPECIFIED MESSAGE 

INPUTS: 

DATA TABLE ADDRESS 

IMPLICIT INPUTS: 
DT.PC 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE MODULES CALLED: 

ENQTQ - TYPE-QUEUE ENQUEUER 

SAVREG 

RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL PRMSG IN <A> 

A=ADDRESS OF DATA TABLE 

VERSION: 
0.0 



SEQ 0857 



EDIT 



BY 



DATE 



REASON 



PRMSG - PROCESS MSG 



MACY11 30A(1052) 20-SEP-78 18:27 PAGE 19-1 



PRMSG. MAC 



28-JUL-7S 09:25 



553 
554 
555 

556 000000' 
(1) 000000' 

557 000001 

558 000001 
559 

560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 



COMMON REFERENCES AND DEFINITIONS 

.SBTTL COMMON REFERENCES AND DEFINITIONS 

.MCALL STRUCT 

STRUCT 

•PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG^1 



REFERENCED BY OTHER MODULES 
GLOBL PRMSG 

GLOBAL REFERENCES 



SEO 0858 



GLOBL ENQTQ 
GLOBL SAVREG 
GLOBL RESREG 



;MODULE ENTRY POINT 



; TYPE-QUEUE ENQUEUER 
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SEQ 0859 



579 
580 
581 
582 
(2) 
583 
584 
585 
585 
587 
588 
(3) 
589 
590 
591 
592 
593 
594 
595 
(4) 
596 
597 
598 
599 
600 
601 
602 
(4) 
603 
604 
605 
606 
607 
608 
609 
(4) 
610 
(4) 
611 
612 
613 
614 
615 
616 
(3) 
(8) 
(7) 
(6) 
(5) 
(4) 
(3) 
(3) 
617 
618 
619 
620 



000000' 
000000' 



000000' 
000000' 



004767 OOOOOOG 



000004' 
000004' 



016500 000000 



000010 1 
000010 



016001 000002 



000014' 

000014' 012102 
000016' 
000016' 012103 



000020' 
000020' 
000022' 
000024' 
000026' 
000030' 
000034' 
000036' 
000042' 



010546 
01 0145 
01 0245 
010345 
012745 
01 0045 
004767 
012605 



000000 



OOOOOOG 



SBTTL PRMSG ROUTINE 



ROUTINE PRMSG <TABL> 



SAVE REGISTERS 



PRMSG: 



CALL SAVREG 

+ 

SET RO TO START OF DTABLE 

LET RO := TABL(R5) 

+ 

GET PC+2 OF THE MSG TRAP CALL FROM THE DATA TABLE 

LET R1 := DT.PC(RO) 

+ 

GET THE OPTION MODULE HEADER ADDRESS AND MESSAGE ADDRESS 

LET R2 := (R1)+ 
LET R3 := (R1) + 

+ 

ENQUEUE THE MESSAGE, USING THE STANDARD MESSAGE CODE 

CALL ENQTQ IN <R0 , #MSGSTD , R3 , R2 , R1 > 



JSR 



PC, SAVREG 



MOV 



TABL(R5) ,R0 



MOV 



DT.PC(RO) ,R1 



MOV 
MOV 



(R1 )+,R2 
(R1 )+,R3 



MOV 


R5,-(SP) 




MOV 


R 1 , - ( R5 ) 




MOV 


R2,-(R5) 




MOV 


R3,-(R5) 




MOV 


#MSCSTD,- 


(R5) 


MOV 


R0,-(R5) 




JSR 


PC, ENQTQ 




MOV 


(SP)+,R5 





; + 

;RESTORE REGISTERS 
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SEQ 0860 



621 






;- 


622 








623 


000044' 




CALL R 


(3) 


000044' 


004767 OOOOOOG 




624 








625 








626 






; + 


627 






;RETUR 


628 






;- 


629 








630 


000050' 




ENDRTN 


(3) 


000050' 






(3) 


000050' 






(2) 


000050' 


000207 




631 




000001 


• END 



JSR 



PC t RESREG 



50000$: 
50001$: 



RTS 



PC 



PRMSG - PROCESS MSG MACY11 30A(1052) 20-SEP-78 18:27 
PRMSG. MAC 28-JUL-78 09:25 SYMBOL TABLE 



ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ASB 


000106 


ASSEMB= 


000010 


AST AT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AW AS = 


0001 10 


BI'TO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT 13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMQDE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG- 


000056 


COOVF = 


000001 


CR 


000015 


CSRA = 


000100 


CSRC = 


000102 



CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DRQPMO= 
DSEVNT= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CFO= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH^ 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 
ENDLST= 
ENQTQ = 



000003 
000017 
000025 
00001 1 
000400 
000000 
100000 
000014 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 
000000 



EOPBIT= 

ERRTYP= 

EVNTBE* 

EVNTHD= 

EVNTKT* 

EVNTPE* 

EVNTRE= 

FATERR= 

HRDCNT= 

H.RDPAS* 

ICONT = 

ICOUNT= 

IDNUM -■ 

IE 

INDPAR= 

INHDRP = 

INHEPR= 

INHREL = 

INHRRE= 

INIT = 

INTR * 

IOMOD = 

IOMODP= 

IOMODR= 

IOMODX* 

JACK = 

KIPAR0= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDR0= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTNDs 

LF 

LPSTAT= 

MAPSTA= 

MED 

MEMPAS= 

MODEXH= 

MODHOL= 
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000001 
000105 
000200 
000200 
000203 
000202 
000201 
100000 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000030 
000120 
100000 
102000 
1 12000 
1 10000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
17 2310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 
000001 
000200 
076600 
040000 
004000 
002000 



SEQ 0861 



MODSEL= 


001000 


MSGCKD= 


000010 


MSGCKS= 


00001 1 


MSGDER= 


000005 


MSGDRP= 


000017 


MSGECH= 


177777 


MSGEOP= 


000013 


MSGHDR= 


000004 


MSGHNG= 


000022 


MSGHRD= 


000007 


MSGMAP= 


000021 


MSGNUL= 


177775 


MSGPOP= 


000002 


WISGPRM= 


177776 


MSGRES= 


000001 


MSGSFT= 


000C06 


MSGSKE= 


000003 


MSGSMBa 


000015 


MSGSMH= 


000014 


MSGSMS= 


000016 


MSGSTD= 


000000 


MSGSYS= 


00001 2 


MSGVEC= 


000020 


NBKMOD= 


001000--, 


NCPUOP= 


000020 


NOAPTY- 


000002 


NULL = 


ooocoo 


OWEN = 


024020 


PAERR = 


000010 


PARPRE= 


002000 


PARSTA= 


000100 


PASCNT= 


000034 


PDPlSIa 


020000 


PDP60 a 


004000 


PDP70 -s 


010000 


PRIO = 


000000 


PRI1 


000040 


PRI4 = 


000200 


PR 1 5 -= 


000240 


PRI6 = 


000300 


PR 1 7 = 


000340 


PRMSG 


OOOOOORG 


PRO 


000000 


PR4 


000200 


PR5 


000240 


PR6 


000300 


PR7 


000340 


PS 


177776 


PSW 


177776 


RANNUM= 


000C54 


RBUFEA== 


000130 


RBUFPA^ 


000126 


RBUFSZs 


000132 



RBUFVA= 
RDSERV= 
RDWHMIs 
RELERR= 
RELMOD= 
RELTIM= 
RESREG= 
RES1 = 
RES2 = 
RICHAR= 
RPTDAT= 
RSTRT = 
RUBOUT= 
RUNMOD= 
R5VALU= 
SAM 

SAVREG= 
SBADR = 
S BKMOD = 
SBK5EL= 
SC.ADR= 
SC.ALC= 
SC.APC= 
SC.CKL= 
SC.CKP= 
SC.CLO= 
SC.HLD= 
'SC'.SCA = 
SENDLS= 
SOFCNT= 
SGFPAS= 
SPACE = 
SPOINT= 
SPVALU= 
SRO 
SR1 
SR2 

SR3 = 
STAT = 
STATBI= 
STAT1 = 
SUSPND= 
SVRO = 
SVR1 = 
SVR2 = 
SVR3 = 
SVR4 = 
SVR5 = 
SVR6 = 
SYSCNT= 
SYSERR= 
TABL = 
TMPIO = 



000124 
000101 
000022 
000020 
020000 
010000 
****** 
000056 
000060 
031060 
002000 
0001 12 
000177 
100000 
001740 
075464 
****** 

000102 
000000 
010000 
000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 
000027 
000001 
000062 
000064 
000066 
000070 
000072 
000074 
000076 
000052 
000100 
000000 
000002 
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$F$BLA = 
$F$CAS = 
$F$DEC= 
$F$DO = 
$F$FAL= 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO ■ 
$F$OR : 
$F$RTI= 
$F$RTN= 
$F$SEL = 
$F$THE= 
$F$TRU= 



TQOVF = 


000002 




WASADR= 


000104 


UIPAR0= 


177640 




WBSTAT= 


000040 


UIPAR1= 


177642 




WBUFEA= 


000136 


UIPAR2= 


177644 




WBUFPA= 


000134 


UIPAR3= 


177646 




WBUFR0= 


000140 


UIPAR4= 


177650 




WBUFSZ= 


000142 


UIPAR5= 


177652 




WDFR = 


0001 16 


UIPAR6= 


177654 




WDTO = 


0001 14 


UIPAR7= 


177656 




WTINRE= 


000352 


UIPDR0= 


177600 




WTWHMI= 


000222 


UIPDR1= 


177602 




XFLAG = 


000005 


UIPDR2= 


177604 




XOFF = 


000023 


UIPDR3= 


177606 




XON = 


000021 


UIPDR4= 


177610 




$BGNLE= 


177777 


UIPDR5= 


177612 




$ERFLG= 


000400 


UIPDR6= 


177614 




$F$AND= 


000310 


UIPDR7* 


177616 




$F$BAD= 


000401 


. ABS. 


000000 
000052 


000 
001 
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000170 
000150 
000220 
000340 
000405 
000400 
000110 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 



SEQ 0862 



$F$UNT= 
$F$WHI~ 
$F$YES= 
$IFLEV== 
$LOCTA= 
$LSTIN=: 
$LSTTA= 
$NESTL== 
$NSK0 ~ 
$SAVLE== 
$TAGLE= 
$TAGNU--= 
$TEMP == 
$$ARGC== 
$$BYTE== 
$$CASE" 
$$DST == 



000130 
000120 
000402 
177777 
177777 
000001 
000001 
177777 
000300 
177777 
177777 
050002 
000300 
000002 
000000 
000000 
000000 



$$ELOC= 
$$ERFL= 
$$FLAG= 
$$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
% % S RC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$TO = 
$3$TAG= 



000000 
000000 
000000 
000000 
000000 
000000 
177777 
000000 
050000 
050001 
000000 
000000 

oooooo 

000000 

oooooo 

050000 
000052R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DS;<Z: PRMSG, DSKZ : PRMSG = SPMAC/ML, EQUATE, PRMSG 
RUN-TIME: 11 1 .3 SECONDS 
RUN-TIME RATIO: 26/13=2.0 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:28 

EQUATE. MAC 13-SEP-78 16". 13 TABLE OF CONTENTS SEQ 0863 

3 COMMON EQUATE MODULE 

554 COMMON DEFINITIONS AND REFERENCES 

558 000000' .PRINT ;SPMAC: VERSION 1.1 

580 PRMSGN ROUTINE 
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SEO 0864 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 



.TITLE PRMSGN - PROCESS MSGN 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
PRMSGN 

FUNCTIONAL DESCRIPTION: 

PROCESSES MSGN CALLS FROM OPTION MODULES BY LOADING 
THE TYPE-QUEUE WITH, FIRST, AN ENTRY FOR THE HEADER 
MESSAGE AND, THEN, AN ENTRY FOR EACH ADDRESS IN THE 
MESSAGE ADDRESS TABLE 

INPUTS: 

DATA TABLE ADDRESS 

IMPLICIT INPUTS: 
DT.PC 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE MODULES CALLED: 

PRMSGS - PROCESS MSGS ROUTINE 
ENQTQ - TYPE-QUEUE ENQUEUER 

FUNCTIONAL SIDE EFFECTS: 
NONE. 

CALLING SEQUENCE: 

CALL. PRMSGN IN <A> 

A=ADDRESS OF DATA TABLE 

VERSION: 
0.0 



EDIT 



BY 



DATE 



REASON 



PRMSGN 
PRMSGN, 

554 
555 
556 
557 
558 
(1) 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
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.SBTTL COMMON DEFINITIONS AND REFERENCES 



SEQ 0865 



000000' 
000000' 



000001 
000001 



.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



REFERENCED BY OTHER MODULES 
GLOBL PRMSGN 

GLOBAL REFERENCES 

GLOBL ENQTQ 
GLOBL PRMSGS 



; MODULE ENTRY POINT 



; TYPE-QUEUE ENQUEUER 
; PROCESS MSGS ROUTINE 
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SEQ 0866 



580 
581 
582 
(2) 
583 
584 
585 
586 
587 
588 
(2) 
(3) 
589 
590 
591 
592 
593 
594 
595 
(4) 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
(4) 
(6) 
606 
(3) 
(8) 
(7) 
(6) 
(5) 
(4) 
(3) 
(3) 
607 
608 
609 
610 
611 
612 
613 
614 
(3) 
(4) 
(3) 
(3) 
615 
616 
617 



000000' 
000000' 



000000' 

000000' 010046 
000002' 010146 



000004' 
000004' 016500 



000010' 
000010' 
000014' 
000020' 
000020' 
000022' 
000026' 
000032' 
000034' 
000040' 
000042' 
000046' 



016001 
162701 

010546 
01 2745 
016145 
010145 
012745 
010045 
004767 
012605 



000050' 
000050' 
000052' 
000054' 
000060' 



010546 
010045 
004767 
012605 



000000 



000002 
000002 



000000 
000002 

000004 

O00O00G 



OOOOOOG 



.SBTTL PRMSGN ROUTINE 
ROUTINE PRMSGN <TABL> 

+ 

SAVE REGISTERS 

PUSH R0.R1 

+ 

SET RO TO START OF DATA TABLE 

LET RO := TABL(R5) 



PRMSGN: 



MOV 
MOV 



MOV 



ENQUEUE THE SKELETAL HEADER MESSAGE, SETTING THE MESSAGE ADDRESS 

PARAMETER TO THE TRAP ADDRESS IN THE OPTION MODULE AND 

THE RETURN ADDRESS PARAMETER TO #0. 

(THE TRAP ADDRESS IS NEEDED FOR THE HEADER MESSAGE.) 



LET R1 := DT.PC(RO) - #2 



CALL ENQTQ IN <R0 , #MSGHDR , R1 , 2( R 1 ) , #0> 



ENQUEUE THE MESSAGES LISTED IN THE MESSAGE ADDRESS TABLE 
BY CALLING "PROCESS MSGS" . 



CALL PRMSGS IN <R0> 



MOV 
MOV 
JSR 
MOV 



RO,-(SP) 
R1 ,-(SP) 



TABL(R5),R0 



MOV 


DT.PC(RO) ,R1 


SUB 


#2,R1 


MOV 


R5,-(SP) 


MOV 


#0,-(R5) 


MGV 


2(R1),-(R5) 


MOV 


R1 ,-(R5) 


MOV 


#MSGHDR,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, ENQTQ 


MOV 


(SP)+,R5 



R5,-(SP) 
R0,-(R5) 
PC, PRMSGS 
(SP)+,R5 



; + 
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SEQ 0867 



618 






619 






620 






621 


000062 1 




(2) 


000062 ' 


012601 


(3) 


000064' 


012600 


622 






623 






524 






625 






626 






627 






628 


000066' 




(3) 


000066' 




(3) 


000066' 




(2) 


000066' 


000207 


629 






630 




000001 



;RESTORE REGISTERS 



POP R1 ,R0 



+ 
RETURN 



ENDRTN 



.END 



MOV 
MOV 



(SP)+, R1 
(SP)+,R0 



50000S: 
500015: 



RTS 



PC 
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ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS ■ = 


0001 10 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT = 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQOVF = 


000001 


CR 


000015 


CSRA = 


000100 


CSRC » 


000102 



DT 
DT 



CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO= 
DSEVNT= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CF0= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
FCH = 
FCN = 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 
ENDLST= 
ENQTO = 



000003 
000017 
000025 
000011 
000400 
000000 
100000 
000014 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
000110 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
00.0056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
01 0000 
000001 
000000 

* * # * * # 



EOPBIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE = 

FATERR= 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL = 

INHRRE= 

INIT = 

INTR = 

IOMOD = 

IOMODP= 

IOMODR= 

IOMODX= 

JACK = 

KIPARO= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND = 

LF 

LPSTAT= 

MAPSTA= 

MED 

MEMPAS= 

MODEXH= 

MODHOL= 
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000.001 
000106 
000200 
000200 
000203 
000202 
000201 
100000 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
00 0400 
000030 
000120 
100000 
102000 
1 12000 
1 10000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 
000001 
000200 
076600 
040000 
004000 
002000 











SEQ 0868 


MODSEL = 


= 001000 


RBUFSZ= 


000132 




MSGCKD= 


: 000010 


RBUFVA= 


000124 




MSGCKS= 


: 00001 1 


RDSERV= 


000101 




MSGDER= 


= 000005 


RDWHMI= 


000022 




MSGDRP = 


: 000017 


RELERR= 


000020 




MSGECH = 


: 17777 7 


RELMOD= 


020000 




MSGEOP = 


= 000013 


RELTIM= 


010000 




MSGHDR = 


: 000004 


RES1 = 


000056 




MSGHNG= 


- 000022 


RES2 = 


000060 




MSGHRD = 


•■ 000007 


RICHAR= 


031060 




MSGMAP: 


: 000021 


RPTDAT= 


002000 




MSGNUL= 


= 177775 


RSTRT = 


000112 




MSGPOP; 


- 000002 


RUBOUT= 


000177 




MSGPRM= 


= 177776 


RUNMOD= 


100000 




MSGRES = 


= 000001 


R5VALU= 


001740 




MSGSFT = 


: 000006 


SAM 


075464 




MSGSKE = 


= 000003 


SBADR = 


000102 




MSGSMB = 


= 000015 


SBKMOD= 


000000 




MSGSMH= 


= 000014 


SBKSEL= 


010000 




MSGSMS = 


= 000016 


SC.ADR= 


000006 




MSGSTD = 


= 000000 


SC.ALC= 


000014 




MSGSYS = 


= 000012 


SC.APC= 


000016 




MSGVEC: 


= 000020 


SC.CKL= 


000002 




NBKMOD: 


= 001000 


SC.CKP= 


000004 




NCPUOP^ 


= 000020 


SC.CLO= 


000000 




NDAPTY-- 


= 000002 


SC.HLD= 


000010 




NULL = 


= 000000 


SC.5CA= 


000012 




OWEN = 


= 024020 


SENDLS= 


177777 




PAERR = 


= 000010 


SOFCNT= 


000042 




PARPRE: 


= 002000 


SOFPAS= 


000046 




PARSTA: 


= 000100 


SPACE = 


000040 




PASCNT = 


= 000034 


SPOINTa 


000032 




PDPLSI-- 


= 020000 


SPVALU= 


002200 




PDP60 ■ 


= 004000 


SRO 


177572 




PDP70 • 


= 010000 


SR1 


177574 




PRIO - 


= 000000 


SR2 


177576 




PRI1 


= 000C40 


SR3 


172516 




PRI4 


= 000200 


STAT = 


000026 




PRI5 


= 000240 


STATBI= 


064757 




PRI6 


= 000300 


STAT1 = 


000027 




PRI7 


= 000340 


SUSPND= 


000001 




PRMSGN 


OOOOOORG 


SVRO = 


000062 




PRMSGS^ 


; jjc** ;!;>(;* Q 


SVR1 = 


000064 




PRO 


= 000000 


SVR2 = 


000066 




PR4 


= 000200 


SVR3 = 


000070 




PR5 


= 000240 


SVR4 = 


000072 




PR6 


= 000300 


SVR5 = 


000074 




PR7 


= 000340 


SVR6 = 


000076 




PS 


= 177776 


SYSCNT= 


000052 




PSW 


= 177776 


SYSERR= 


000100 




RANNUM; 


= 000054 


TABL = 


000000 




RBUFEA- 


= 000130 


TMPIO = 


000002 




RBUFPA 


- 000126 


TQOVF = 


000002 
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$F$CAS= 
$F$DEC= 
$F$DO = 
$F$FAL = 
$F$GOO= 
$F$IF = 
$F$INC = 
$F$LOO» 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL = 
$F$THE = 
$F$TRU= 
$F$UNT: 



UIPAR0= 


177640 




WBSTAT= 


000040 


UIPAR1= 


177642 




WBUFEA= 


000136 


UIPAR2= 


177644 




WBUFPA= 


000134 


UIPAR3= 


177646 




WBUFRQ= 


000140 


UIPAR4= 


177650 




WBUFSZ= 


000142 


UIPAR5= 


177652 




WDFR = 


000116 


UIPAR6* 


177654 




WDTO = 


0001 14 


UIPAR7= 


177656 




WTINRE= 


000352 


UIPDR0= 


177600 




WTWHMI= 


000222 


UIPDR1= 


177602 




XFLAG = 


000005 


UIPDR2= 


177604 




XOFF = 


000023 


UIPDR3= 


177606 




XON 


000021 


UIPDR4= 


177610 




$BGNLE= 


177777 


UIPDR5= 


177612 




$ERFLG= 


000400 


UIPDR6= 


177614 




$F$AND= 


000310 


UIPDR7= 


177616 




$F$BAD= 


000401 


WASADR= 


000104 




$F$BLA= 


000170 


. ABS. 


000000 
000070 


000 
001 
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000150 
000220 
000340 
000405 
000400 
0001 10 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 



SEO 0869 



$F$WHI= 
$F$YES= 
$IFLEV= 
$LOCTA= 
$LSTIN= 
$LSTTA= 
$NESTL= 
$NSKO = 
$SAVLE= 
$TAGLE= 
$TAGNU= 
$TEMP = 
$$ARGC= 
$$BYTE= 
$$CASE= 
$$DST = 
$$ELOC= 



000120 
000402 
177777 
177777 
000001 
000001 
177777 
000300 
177777 
177777 
050002 
000300 
000002 
000000 
000000 
000000 
000000 



$$ERFL- 
$$FLAG= 
$$FROM= 
$$LOC = 
$$LOCN= 
$SREG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$TO = 
$$$TAG= 



000000 
000000 
000000 
000000 
000000 
177777 
000000 
050000 
050001 
000000 
000000 
000000 
000000 
000001 
050000 
000070R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ: PRMSGN.DSKZ: PRMSGN=SPMAC/ML , EQUATE , PRMSGN 
RUN-TIME: 11 1 .3 SECONDS 
RUN-TIME RATIO: 26/13=2.0 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30AO052) 20-SEP-78 18:28 

EQUATE. MAC 13-SEP-78 16:13 TABLE Of CONTENTS SEQ 0870 

3 COMMON EQUATE MODULE 

554 COMMON DEFINITIONS AND REFERENCES 

558 000000' .PRINT ;SPMAC: VERSION 1.1 

581 PRMSGS ROUTINE 
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SEO 0871 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 



.TITLE PRMSGS - PROCESS MSGS 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
PRMSGS 

FUNCTIONAL DESCRIPTION: 

PROCESSES MSGS CALLS FROM OPTION MODULES BY LOADING 
THE TYPE-QUEUE WITH AN ENTRY FOR EACH ADDRESS 
IN THE MESSAGE ADDRESS TABLE 

INPUTS: 

ADDRESS OF DATA TABLE 

IMPLICIT INPUTS: 
DT.PC 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE MODULES CALLED: 

ENQTQ - TYPE-QUEUE ENQUEUER 
SAVREG - SAVE REGISTERS 
RESREG - RESTORE REGISTERS 

FUNCTIONAL SIDE EFFECTS: 

NONE 

CALLING SEQUENCE: 

CALL PRMSGS IN <A> 

A=ADDRESS OF DATA TABLE 

VERSION: 
0.0 



EDIT 



BY 



DATE 



REASON 
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SEQ 0872 



554 
555 
556 
557 
558 
(1) 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 



000000 
000000 



000001 
000001 



SBTTL COMMON DEFINITIONS AND REFERENCES 



.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



s|<!t:^:j(!jt;!|;j|cj(:H!!|t5|<>|<H<*'(' + 

REFERENCED BY OTHER MODULES 
GLOBL PRMSGS 



GLOBAL REFERENCES 

GLOBL ENQTQ 
GLOBL SAVREG 
GLOBL RESREG 



'.MODULE ENTRY POINT 



;TYPE-QUEUE ENQUUEUER 

;SAVE REGISTERS 

; RESTORE REGISTERS 
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.SBTTL PRMSGS ROUTINE 

ROUTINE PRMSGS <TABL> 



SAVE REGISTERS 



SEO 0873 



581 








582 








583 


000000' 






(2) 


000000' 






584 








585 








586 








587 








588 








589 


000000' 






(3) 


000000' 


004767 


0OO0O0G 


590 








591 








592 








593 








594 








595 








596 


000004' 






(4) 


000004' 


016500 


000000 


597 








598 








599 








600 








601 








602 








603 


000010' 






(4) 


000010' 


016001 


000002 


604 








605 








606 








607 








608 








609 








610 








611 








612 


000014' 






(4) 


000014' 


012103 




613 


000016' 






(4) 


000016' 


012102 




614 








615 








616 








617 








618 








619 








620 








621 








622 








623 


000020' 






(4) 


000020' 






(6) 


000020' 


021227 


177777 


(9) 


000024' 


001422 




624 


000026' 






(6) 


000026' 


026227 


000002 177777 


(9) 


000034' 


001002 




625 


000036' 







PRMSGS : 



CALL SAVREG 



SET RO TO START OF DATA TABLE 



JSR 



PC f SAVREG 



LET RO := TABL(R5) 



GET PC+2 OF THE MSGS TRAP CALL 



LET R1 := DT.PC(RO) 



MOV 



TABL(R5) ,R0 



MOV 



DT.PC(RO) ,R1 



GET THE OPTIONS MODULE'S HEADER ADDRESS, THE MESSAGE ADDRESS TABLE, 
AND THE RETURN ADDRESS. (THE MESSAGE ADDRESS TABLE ADDRESS 
IS PLACED IN R2) . 



LET R3 := (R1)+ 
LET R2 := (R1)+ 



MOV 
MOV 



(R1 )+,R3 
(R1 )+,R2 



BUILD AND ENQUEUE A TYPE-QUEUE ENTRY FOR EACH ADDRESS IN THE MESSAGE 
ADDRESS TABLE. THE RETURN ADDRESS FOR EACH ENTRY EXCEPT THE LAST 
ONE WILL BE 0. THE LAST ENTRY WILL CONTAIN THE ACTUAL RETURN ADDRESS 
FOR THE OPTION MODULES. 



WHILE (R2) NE #-1 DO 



50002$: 



IF 2(R2) EQ #-1 THEN 



LET R4 := R1 



CMP 
BEQ 

CMP 
BNE 



(R2) ,#-1 
50003$ 

2(R2) ,#-1 
50004$ 



PRMSGS - PROCESS MSGS MACY11 30A(1052) 20-SEP-78 18:28 PAGE 19-3 
PRMSGS.MAC 28-JUL-78 09:26 PRMSGS ROUTINE 



ELSE 



SEQ 0874 



(4) 


000036' 


010104 


626 


000040' 




(4) 


000040' 


000401 


(3) 


000042' 




627 


000042' 




(4) 


000042' 


005004 


623 


000044' 




(4) 


000044' 




529 


000044' 




(3) 


000044' 


010546 


(8) 


000046' 


01 0445 


(7) 


000050' 


010345 


(6) 


000052' 


012245 


(5) 


000054' 


012745 000000 


(4) 


000060' 


010045 


(3) 


000062' 


004767 000000G 


(3) 


000066" 


012605 


630 


000070' 




(4) 


000070' 


000753 


(3) 


000072' 




631 






632 






633 






634 






635 






636 






637 






638 


000072' 




(3) 


000072' 


004767 OOOOOOG 


63S 






640 






641 






642 






643 






644 






645 


000076' 




(3) 


000076' 




(3) 


000076' 




(2) 


000076' 


000207 


646 






647 




000001 



50004$: 



LET R4 := #0 

ENDIF 

CALL ENQTQ IN <R0 , #MSGSTD , ( R2)+ , R3 , R4> 



MOV 
ER 

CLR 



ENDDO 



RESTORE REGISTERS 



CALL RESREG 



+ 
RETURN 



JSR 



ENDRTN 



.END 



50000$: 
50001$: 



RTS 



R1 ,R4 
50005$ 

R4 



50005$: 








MOV 


R5,-(SP) 




MOV 


R4,-(R5) 




MOV 


R3,-(R5) 




MOV 


(R2)+,-(R5) 




MOV 


#MSGSTQ,-(R5) 




MOV 


R0,-(R5) 




JSR 


PC , ENQTQ 




MOV 


(SP)+, R5 




BR 


50002$ 


50003$: 







PC, RESREG 



PC 
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ACSR = 


000102 


ACT3IT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


0001 10 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT 10 = 


002000 


B I T 1 1 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQOVF = 


000001 


CR 


000015 


CSRA = 


000100 


CSRC = 


000102 



CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO= 
DSEVNT= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CFO= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN=. 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 
ENDLST= 
ENQTO = 



000003 
000017 
000025 
000011 
000400 
000000 
100000 
000014 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 
000000 
****** 



EOPBIT= 

ERRTYP = 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT* 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL = 

INHRRE= 

INIT = 

INTR = 

IOMOD = 

IOMODP= 

IOMODR= 

IOMODX= 

JACK = 

KIPARO= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDR0= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPSTAT= 

MAPSTA= 

MED 

MEMPAS= 

MODEXH= 

MODHOL = 
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00000! 
000106 
000200 
000200 
000203 
000202 
000201 
100000 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
040000 
020000 
001 COO 
000400 
000030 
000120 
100000 
102000 
1 12000 
1 10000 
035060 
172340 
1723^2 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 
000001 
000200 
076600 
040000 
004000 
002000 











SEG 0875 


MODSEL = 


= 001000 


RBUFVA= 


000124 




MSGCKD= 


• 000010 


RDSERV= 


000101 




MSGCKS= 


: 000011 


ROWHMIa 


000022 




MSGDER= 


= 000005 


RELERR= 


000020 




MSGDRP= 


: 000017 


RELMOD= 


020000 




MSGECH= 


: 177777 


RELTIM= 


010000 




MSGEOP* 


= 000013 


RESREG= 


****** Q 




MSGHDR= 


: 000004 


REST = 


000056 




MSGHNG; 


■■ 000022 


RES2 = 


000060 




MSGHRD= 


■■ 000007 


RICHAR= 


031 060 




MSGMAP= 


= 000021 


RPTDAT= 


002000 




MSGNUL = 


= 177775 


RSTRT = 


000112 




MSGPOP = 


■ 000002 


RUBOUT= 


000177 




MSGPRM= 


= 177776 


RUNMOD= 


100000 




MSGRES= 


= 000001 


R5VALU= 


001740 




MSGSFT= 


= 000006 


SAM = 


075464 




MSGSKE = 


= 000003 


SAVREG* 


****** Q 




MSG5MB= 


= 000015 


SBADR = 


000102 




MSGSMH= 


= 000014 


SBKMOD= 


000000 




MSGSMS= 


= 000016 


SBKSEL= 


010000 




MSGSTD= 


= 000000 


SC.ADR= 


000006 




MSGSYS= 


■ 000012 


SC.ALC= 


000014 




MSGVEC= 


= 000020 


SC.APC= 


000016 




NBKMOD= 


= 00 I 000 


SC.CKL= 


000002 




NCPUOP = 


= 000020 


SC.CKP= 


000004 




NOAPTY = 


= 000002 


SC.CLO= 


000000 




NULL = 


= 000000 


SC.HLD= 


000010 




OWEN = 


= 024020 


SC..SCA = 


000012 




PAERR = 


= 000010 


SENDLS= 


177777 




PARPRE = 


= 002000 


SOFCNT= 


000042 




PARSTA = 


= 000100 


SOFPAS= 


000046 




PASCNT: 


= 000034 


SPACE = 


000040' . 




PDPLSI = 


= 020C00 


SPOINT= 


000032 




PDP60 : 


• 004000 


S?VALU= 


002200 




PDP70 : 


= 010000 


SRO 


177572 




PRIO = 


= 000000 


SR1 


177574 




PRI1 = 


= 000040 


SR2 


177576 




PRI4 r 


= 000200 


SR3 


172516 




PRI5 = 


= 000240 


STAT = 


000026 




PRI6 : 


= 000300 


STATBI= 


064757 




PRI7 


'- 000340 


STAT1 = 


000027 




PRMSGS 


OOOOOORG 


SUSPND= 


000001 




PRO 


= 000000 


SVRO = 


000062 




PR4 


= 000200 


SVR1 = 


000064 




PR5 


= 000240 


SVR2 = 


000056 




PR6 


•• 000300 


SVR3 = 


000070 




PR7 


= 000340 


SVR4 = 


000072 




PS 


= 177776 


SVR5 =■ 


000074 




PSW 


= 177776 


SVR6 = 


000076 




RANNUM= 


= 000054 


SYSCNT= 


000052 




RBUFEA= 


= 000130 


SYSERR= 


000100 




RBUFPA= 


= 000126 


TA3L = 


000000 




RBUFSZ= 


•- 000132 


TMPIO = 


000002 





PRMSGS - PROCESS MSGS MACY11 30A(1052) 20-SEP-78 18:28 
PRMSGS.MAC 28-UUL-78 09:26 SYMBOL TABLE 

$F$FAL = 
$F$GOOs 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL = 
$F$THE = 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES = 
$IFLEV= 
$ISKO = 
$LOCTA= 



TQOVF = 


000002 




WBUFEA= 


000136 


UIPAR0= 


177640 




WBUFPA= 


000134 


UIPAR1= 


177642 




WBUFR0= 


000140 


UIPAR2= 


177644 




WBUFSZ= 


000142 


UIPAR3= 


177646 




WDFR = 


0001 16 


UIPAR4= 


177650 




WDTO = 


0001 14 


UIPAR5= 


177652 




WTINRE= 


000352 


UIPAR6= 


177654 




WTWHMI= 


000222 


UIPAR7= 


177656 




XFLAG = 


000005 


UIPDR0= 


177600 




XOFF = 


000023 


UIPOR1= 


177602 




XON 


000021 


UIPDR2= 


177604 




$BGNLE= 


177777 


UIPDR3= 


177606 




$ERFLG= 


000400 


UIPDR4= 


177610 




$F$AND= 


000310 


UIPDR5= 


177612 




$F$BAD= 


000401 


UIPDR6= 


177614 




$F$BLA= 


000170 


UIPDR7= 


177616 




$F$CAS= 


000150 


WASADR = 


000104 




$F$DEC= 


000220 


WBSTAT= 


000040 




$F$DO = 


000340 


. ABS. 


000000 
000100 


000 
001 
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000405 
000400 
000110 
000210 
000200 
000160 
000403 
000320 
00C350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 
000001 
177777 



SEQ 0876 



$LSTIN= 

$LSTTA= 

$NESTL= 

$NSK0 = 

$NSK1 

$NSK2 

$SAVLE= 

$SSK0 

$TAGLE= 

$TAGNU= 

$TEMP = 

$TSK0 = 

$TSK1 == 

$TSK2 = 

$$ARGC== 

$$BYTE== 

$$CASE= 

$$DST = 

$$ELOC== 



000001 
000001 
177777 
000300 
000120 
000110 
177777 
050003 
177777 
050006 
000300 
050002 
050003 
050005 
000002 
000403 
000000 
000000 
000402 



$$ERFL= 
$$FLAG= 
$$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$TO = 
$$$TAG= 



000000 

000001 

000000 

000034R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000100R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ: PRMSGS f DSKZ : PRMSGS=SPMAC/ML , EQUATE, PRMSGS 
RUN-TIME: 12 2 .3 SECONDS 
RUN-TIME RATIO*. 29/14 = 2.0 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:29 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0877 

3 COMMON EQUATE MODULE 

556 COMMON DEFINITIONS AND REFERENCES FOR PROTOA 

559 000000' .PRINT ;SPMAC: VERSION 1.1 

577 PROTOA ROUTINE 



PROTOA PROCESS THE 'OTOA' MACRO IN OPTION MODULES 
PROTOA. MAC 28-JUL-78 09:26 COMMON EQUATE 



MACY1 1 
MODULE 



30A(1052) 20-SEP-78 18:29 PAGE 19 



SEO 0878 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 



MACRO IN OPTION MODULES 



TITLE PROTOA PROCESS THE 'OTOA 
IDENT /VO.C/ 

++ 
MODULE NAME: 
PROTOA 



FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PROCESSES THE 'OTOA' TRAP ISSUED BY OPTION 
MODULES. IT WILL RETRIEVE THE NUMBER TO BE CONVERTED TO 
OCTAL ASCII FROM DT . PC+2 AND THE TABLE ADDRESS AT WHICH 
TO STORE THE OCTAL ASCII FROM DT . PC +4. IT CALLS THE 
BINARY TO OCTAL ASCII CONVERSION ROUTINE. THE RETURN PC 
IS UPDATED SINCE THIS' IS DIRECT SERVICE. 

INPUTS: 

DTABLE ADDRESS 

IMPLICIT INPUTS: 
DT . PC 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 

B0A16 - BINARY TO OCTAL ASCII CONVERSION ROUTINE 

FUNCTIONAL. SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL PROTOA IN <DTADR> 

WHERE DTADR = ADDRESS OF DATA TABLE 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



PROTOA 
PROTOA, 

556 
557 
558 
559 
(1) 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 



PROCESS THE ' OTOA ' MACRO IN OPTION MODULES 
MAC 28-JUL-78 09:26 



MACY11 30A(1052) 



10-SEP-78 18:29 PAGE 19-1 



000000 
000000 



000001 
000001 



COMMON DEFINITIONS AND REFERENCES FOR PROTOA 

.SBTTL COMMON DEFINITIONS AND REFERENCES FOR PROTOA 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$I_STIN = 1 
$I_STTAG=1 

REFERENCED BY OTHER MODULES: 
GLOBL PROTOA ;MODULE ENTRY POINT 

GLOBAL REFERENCES: 
.GLOBL B0A16 ;BINARY TO OCTAL ASCII CONVERSION ROUTINE 



SEQ 0879 



PROTOA PROCESS THE ' OTOA ' MACRO IN OPTION MODULES 
PROTOA.MAC 28-JUL-78 09:26 PROTOA ROUTINE 



MACY11 30A(1052) 20-SEP-78 13:29 PAGE 19-2 



SEO 0880 



577 
578 
579 
(2) 
580 
581 
582 
583 
584 
585 
586 
(2) 
(3) 
587 
(4) 
588 
589 
590 
591 
592 
593 
(4) 
594 
(3) 
(5) 
(4) 
(3) 
(3) 
595 
596 
597 
598 
599 
600 
(6) 
601 
602 
603 
604 
605 
606 
(2) 
(3) 
607 
608 
(3) 
(3) 
(2) 
609 
610 



000000 
000000 1 



000000 

000000 

000002 

000004 1 

000004 



000010' 
000010' 
000014' 
000014' 
000016' 
000022' 
000026' 
000032' 



010046 
010146 

016500 000000 



016001 000002 



010546 
016145 
017145 
004767 
012605 



000004 
000002 
OOOOOOG 



000034' 

000034' 062760 000006 000002 



000042' 

000042' 012601 
000044' 012600 



000046' 
000046' 
000046' 
000046' 



000207 



000001 



.SBTTL PROTOA ROUTINE 
ROUTINE PROTOA <DTADR> 

+ 

INITIALIZE AND SAVE DATA TABLE ADDRESS 

PUSH R0.R1 

LET RO := DTADR(R5) 

GET DT.PC AND CALL B0A16 

LET R1 := DT.PC(RO) 

CALL B0A16 IN <@2( R1 ) , 4( R1 )> 



PROTOA: 



MOV 
MOV 

MOV 



MOV 

MOV 
MOV 
MOV 
JSR 
MOV 



UPDATE RETURN PC 



LET DT.PC(RO) := DT.PC(RO) + #6 



CLEAN UP AND GOODBYE 



POP R1 , RO 



ENDRTN 



.END 



ADD 



50000$ 
50001$ 



MOV 
MOV 



RTS 



RQ,-(SP) 
R1 ,-(SP) 

DTADR(R5) ,R0 



DT.PC(RO) ,R1 

R5,-(SP) 
4(R1),-(R5) 
@2(R1 ) ,-(R5) 
PC,B0A16 
(SP)+ f R5 



#6,DT.PC(R0) 



(SP)+,R1 
(SP)+,RO 



PC 



PROTOA PROCESS THE 'OTOA' MACRO IN OPTION MODULES 
PROTOA.MAC 28-JUL-78 09:26 SYMBOL TABLE 



MACY11 30A(1052) 



ACSR = 


000102 


ACT3IT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


0001 10 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


C00040 


BIT06 = 


000100 


BIT07 = 


000200 


BITOB = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


B0A16 = 


****** 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQOVF = 


000001 


CR 


000015 


CSRA = 


000100 



CSRC = 
CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO= 
DSEVNT= 
DTADR = 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CFO= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 



000102 
000003 
000017 
000025 
00001 1 
000400 
000000 
100000 
000014 
000000 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000056 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 



ENDLST= 

EOPBIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

l-"ATERR= 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT = 

INTR = 

IOMOD = 

IOMODP= 

IOMODR= 

IOMODX= 

JACK = 

KIPARO= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPSTAT= 

MAPSTA= 

MED 

MEMPAS= 

MODEXH= 



000000 
000001 
000103 
000200 
000200 
000203 
000202 
000201 
100000 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000030 
000120 
100000 
102000 
1 12000 
1 10000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 
000001 
000200 
076600 
040000 
004000 



20-SEP-78 


18:29 PA 


MODH0L= 


002000 


M0DSEL= 


001000 


MSGCKD= 


000010 


MSGCKS= 


00001 1 


MSGDER= 


000005 


MSGDRP= 


000017 


MSGECH= 


177777 


MSGE0P= 


000013 


MSGHDR= 


000004 


MSGHNG= 


000022 


MSGHRD= 


000007 


MSGMAP= 


000021 


MSGNUL= 


177775 


MSGPOP= 


000002 


MSGPRM=. 


177776 


MSGRES= 


000001 


MSGSFT= 


000006 


MSGSKE= 


000003 


MSGSMB= 


000015 


MSGSMH= 


000014 


MSGSMS= 


000016 


MSGSTD= 


000000 


MSGSYS= 


000012 


MSGVEC= 


000020 


NBKMOD^ 


00100 


NCPU0P= 


000020 


N0APTY= 


000002 


NULL = 


000000 


OWEN = 


024020 


PAERR ■= 


000010 


PARPRE= 


002000 


PARSTA== 


000100 


PASCNT= 


000034 


PDPLSI= 


020000 


PDP60 = 


004000 


PDP70 '■-- 


010000 


PR 10 = 


000000 


PR 11 = 


000040 


PR 14 -■= 


000200 


PR 1 5 = 


000240 


PRI6 == 


000300 


PR 17 ••= 


000340 


PROTOA 


OOOOOORG 


PRO 


000000 


PR4 


000200 


PR5 


000240 


PR6 


000300 


PR7 


000340 


PS 


177776 


PSW 


177776 


RANNUM= 


000054 


RBUFEA= 


000130 


RBUFPA= 


000126 



SEQ 0881 



RBUFSZ= 

R3UFVA= 

RDSERV= 

RDWHMI= 

R£LERR= 

RELMOD= 

RELTIM= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBOUT* 

RUNMOD= 

R5VALU= 

SAM 

SBADR = 

SBKMOD= 

SBKSEL= 

SC. ADR= 

SC.ALC= 

SC.APC= 

SCCKL = 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SOFCNT= 

SQFPAS= 

SPACE = 

SPOINT= 

SPVALU- 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 = 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 

SVR6 = 

SYSCNT= 

SYSERR= 

TMPIO = 

TQOVF = 

UIPARO= 



000132 
000124 
000101 
000022 
000020 
020000 
010000 
000056 
000060 
031060 
002000 
0001 12 
000177 
100000 
001740 
075464 
000102 
000000 
010000 
000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000C40 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 
000027 
000001 
000062 
000064 
000066 
000070 
000072 
000074 
000076 
000052 
000100 
000002 
000002 
177640 
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PROTOA.MAC 28-JUL-78 09:26 SYMBOL TABLE 
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SEQ 0882 



UIPAR1= 


177642 




WBUFEA= 


000136 


UIPAR2= 


177644 




WBUFPA= 


000134 


UIPAR3= 


177646 




WBUFRQ= 


000140 


UIPAR4= 


177650 




WBUFSZ= 


000142 


UIPAR5= 


177652 




WDFR = 


0001 16 


UIPAR6= 


177654 




WDTO = 


0001 14 


UIPAR7= 


177656 




WTINRE= 


000352 


UIPDRO= 


177600 




WTWHMI= 


000222 


UIPDR1= 


177602 




XFLAG = 


000005 


UIPDR2= 


177604 




XOFF = 


000023 


UIPDR3= 


177606 




XON 


000021 


UIPDR4= 


177610 




$BGNLE= 


177777 


UIPDR5= 


177612 




$ERFLG= 


000400 


UIPDR6= 


177614 




$F$AND= 


000310 


UIPDR7= 


177616 




$F$BAD= 


000401 


WASADR = 


000104 




$F$BLA= 


000170 


WBSTAT= 


000040 




$F$CAS= 


000150 


. ABS. 


000000 
000050 


000 
001 







$F$DEC= 
$F$DO = 
$F$FAL= 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 



000220 
000340 
000405 
000400 
000110 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 



$F$YES 

$IFLEV= 

$LOCTA 

$LSTIN 

SLSTTA 

$NESTL 

$NSK0 

$SAVLE 

$TAGLE 

$TAGNU 

$TEMP 

$$ARGC 

$$BYTE 

$$CASE= 

$$DST = 

$$ELOC= 

$$ERFL= 



000402 
177777 
177777 
000001 
000001 
177777 
000300 
177777 
177777 
050002 
000300 
000002 
000000 
000000 
000000 
000000 
000000 



$$FLAG= 
$$FROM= 
$$L.OC = 
$$LOCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG= 



000000 
000000 
000000 
000000 
177777 
000000 
050000 
050001 
000000 
000000 
000000 
000000 
000002 
050000 
000050R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ: PROTOA r DSKZ: PROTOA=SPMAC/ML , EQUATE , PROTOA 
RUN-TIME: 11 1 .3 SECONDS 
RUN-TIME RATIO: 26/12=2.0 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:29 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0883 

3 COMMON EQUATE MODULE 

556 COMMON DEFINITIONS AND REFERENCES 

559 000000' .PRINT ;SPMAC: VERSION 1.1 

577 PRRAND (CODE) 



PRRAND (PROCESS 'RAND' TRAP CALL) 
PRRAND.MAC 28-JUL-78 09=26 

508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 



MACY11 30A(1052) 20~SEF-78 18:29 PAGE 19 
COMMON EQUATE MODULE 

.TITLE PRRAND (PROCESS 'RAND 1 TRAP CALL) 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
PRRAND 

FUNCTIONAL DESCRIPTION: 

THIS MODULE SERVICES A 'RAND' TRAP CALL 

AND RETURNS A RANDOM NUMBER TO A LOCATION IN THE 

MODULE'S HEADER. 



INPUTS: 

DATA TABLE ADDRESS 

IMPLICIT INPUTS: 
1 .DT.PC 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

RANDOM NUMBER 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
RANDOM 

FUNCTIONAL. SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL. PRRAND IN <AA> 



SEQ 0884 



WHERE AA = DATA TABLE ADDRESS 



VERSION: 
0.0 



EDIT DATE 



BY 



REASON 



PRRAND (PROCESS 'RAND' TRAP CALL) 
PRRAND.MAC 28-JUL-7B 09:26 

556 
557 
558 

559 000000' 
(1) 000000' 

560 000001 

561 000001 
562 

563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 



MACY11 30A(1052) 20-SEP-78 18:29 PAGE 19-1 
COMMON DEFINITIONS AND REFERENCES 

.SBTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



REFERENCED BY OTHER MODULES 
GL06L PRRAND ;MODULE l S ENTRY POINT 

GLOBAL REFERENCES 



SEQ 0885 



.GLOBL RANDOM 



;ROUTINE 'RANDOM' 



PRRAND (PROCESS 'RAND' TRAP CALL) 
PRRAND.MAC 28-JUL-78 09:26 



MACY1-1 30A(1052) 
PRRAND (CODE) 



20-SEP-78 1: 



>9 PAGE 19-2 



SEQ 0886 



577 
578 
579 
(2) 
580 
581 
582 
583 
584 
585 
(2) 
(3) 
586 
587 
588 
589 
590 
591 
592 
(4) 
593 
(4) 
594 
(4) 
(6) 
595 
(4) 
596 
597 
598 
599 
600 
801 
(4) 
(3) 
(4) 
602 
603 
604 
605 
606 
607 
(2) 
(3) 
60S 
(3) 
(3) 
(2) 
609 
610 



000000' 
OOCOOO' 



000000 
000000 
000002 



010046 
010146 



000004' 
000004' 
000010' 
000010' 
000014' 
000014' 
000020' 
000026' 
000026' 



016500 

016001 

01 0160 
062760 

01 1101 



000044' 
000044' 
000046' 
000050' 
000050' 
000050' 
000050' 



012601 
012600 



000207 



000001 



000000 

000002 

000002 
000002 



000002 



000030' 

000030' 162705 000002 

000034' 004767 OOOOOOG 

000040' 012561 000054 



.SBTTL PRRAND (CODE) 
ROUTINE PRRAND <AA> 

SAVE REGISTERS 
PUSH R0.R1 



PRRAND: 



MOV R0,-(SP) 
MOV R1,-(SP) 



GET DTABLE ADDRESS ,GET HEADER ADDRESS AND GET RANDOM NUMBER ADDRESS 
IN HEADER 



LET RO := AA(R5) 

LET R1 := DT.PC(RO) 

LET DT.PC(RO) : = R1 + #2 

LET R1 := (R1) 

GET RANDOM NUMBER 
CALL RANDOM OUT <RANNUM(R1)> 

RESTORE REGISTERS AND RETURN 
POP R1 ,R0 
ENDRTN 

.END 



MOV 

MOV 

MOV 
ADD 

MOV 



SUB 
JSR 
MOV 



50000$ 
50001$ 



MOV 
MOV 



RTS 



AA(R5) ,R0 

DT.PC(RO) ,R1 

R1 ,DT.PC(RO) 
#2,DT.PC(R0) 

(R1 ) ,R1 



#1*2, R5 

PC, RANDOM 

(R5) + ,RANNUM(R1 ) 



(SP)+,R1 
(SP)+ t RO 



PC 



PRRAND (PROCESS 'RAND' TRAP CALL) 
PRRAND. MAC 28-JUL-78 09:26 



MACY11 30A(1052) 
SYMBOL TABLE 



20-SEP-78 



18:29 PAGE 20 



SEQ 0887 



AA 


000000 


ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


0001 10 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 > 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 ■ 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CAETAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQOVF = 


000001 


CR 


000015 


CSRA = 


000100 



CSRC = 000102 
CTRLC = 000003 
CTRLO = 000017 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= 000400 
DIAGMC= 000000 
DROPMO= 100000 
DSEVNT= 000014 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000034 
DT.CFO= 000014 
DT.CF1= 000016 
DT.ERR= 000020 
DT.ESI= 000044 
DT.EVN= 000000 
DT.EXS= 000060 
DT.FCH= 000037 
DT.FCN= 000036 
DT.HMX= 000104 
DT.KBE= 000024 
DT.KBP* 000026 
DT.KBR= 000022 
DT.KBU= 000030 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = 000002 
DT.PFL= 000062 
DT.PSW= 000004 
DT.PTA= 000064 
DT.RCS= 000102 
DT.REL= 000040 
DT.SCT= 000066 
DT.SMX= 000106 
DT.SP = 000006 
DT.SSI= 000046 
DT.STO= 000010 
DT.ST1= 000012 
DT.SWR* 000056 
DT.SYP= 000072 
DT.WBU= 000050 
DT.WHL= 000054 
DT.WLL= 000052 
DVID1 = 000014 
ECCMEM= 000100 
ECCSTA* 000010 
ENBEOP= 010000 
ENBNUL= 000001 
ENDLST= 000000 



EOPBIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT = 

INTR = 

IOMOD = 

IOMODP= 

IOMODR= 

IOMODX= 

JACK = 

KIPARO= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPSTAT= 

MAPSTA= 

MED 

MEMPAS= 

MODEXH= 

MODHOL= 



000001 
000106 
000200 
000200 
000203 
000202 
000201 
100000 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000030 
000120 
100000 
102000 
1 12000 
1 10000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
1723C0 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 
000001 
000200 
076600 
040000 
004000 
002000 



MODSEL= 


001000 


MSGCKD= 


000010 


MSGCKS= 


00001 1 


MSGDER= 


000005 


MSGDRP= 


000017 


MSGECH= 


177777 


MSGEOP= 


000013 


MSGHDR= 


000004 


MSGHNG= 


000022 


MSGHRD= 


000007 


MSGMAP= 


000021 


MSGNUL= 


177775 


MSGPOP= 


000002 


MSGPRM= 


177776 


MSGRES= 


000001 


MSGSFT= 


000C06 


MSGSKE= 


000003 


MSGSMB= 


000015 


MSGSMH= 


000014 


'MSGSMS= 


000016 


MSGSTD=: 


000000 


MSGSYS== 


000012 


MSGVEC== 


000020 


NBKMOD= 


001000 


NCPUOP== 


000020 


N-OAPTY = 


000002 


NULL ~ 


000000 


OWEN = 


024020 


PAERR == 


000010 


PARPRE== 


002000 


PARSTA= 


000100 


PASCNTa 


000034 


PDPLSI= 


020000 


PDP60 == 


004000 


PDP70 = 


01 0000 


PR 10 == 


000000 


PR 11 = 


000040 


PRI4 = 


000200 


PRI5 = 


000240 


PR 1 6 = 


000300 


PR 1 7 = 


000340 


PRRAND 


OOOOOORG 


PRO 


000000 


PR4 


000200 


PR5 


000240 


PR6 


000300 


PR7 


000340 


PS 


177776 


PSW 


177776 


RANDOM= 


****'#* Q 


RANNUM= 


000054 


RBUFEA= 


000130 


RBUFPA= 


0C0126 



RBUFSZ= 

R3UFVA= 

RDSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIWI = 

RES1 a 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBOUT= 

RUNMOD= 

R5VALU= 

SAM 

SBADR = 

SBKMODs 

SBKSE'L = 

SC.ADR= 

SC. ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SOFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 

SVR6 = 

SYSCNT= 

SYSERR= 

TMPIO = 

TOOVF = 

UIPAR0= 



000 132 
000124 
000101 
000022 
000020 
020000 
010000 
000056 
000060 
031060 
002000 
0001 12 
000177 
100000 
001740 
075464 
000102 
000000 
010000 
000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177 574 
177576 
172516 
000026 
064757 
000027 
000001 
000062 
000054 
000066 
000070 
000072 
000074 
000076 
000052 
000100 
000002 
000002 
177 640 



PRRAND (PROCESS 'RAND' TRAP CALL) 
PRRAND. MAC 28-JUL-78 09:26 
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SYMBOL TABLE 



20-SEP-78 18:29 PAGE 20-1 



SEQ 0888 



UIPAR1* 


177642 




WBUFEA= 


000136 


UIPAR2= 


177644 




WBUFPA* 


000134 


UIPAR3= 


177646 




WBUFRQ= 


000140 


UIPAR4= 


177650 




WBUFS2= 


000142 


UIPAR5= 


177652 




WDFR = 


000116 


UIPAR6= 


177654 




WDTO = 


000114 


UIPAR7x 


177656 




WTINRE= 


000352 


UIPDRO= 


177600 




WTWHMI= 


000222 


UIPDR1= 


177602 




XFLAG = 


000005 


UIPDR2= 


177604 




XOFF = 


000023 


UIPDR3= 


177606 




XON 


000021 


UIPDR4= 


177610 




$BGNLE = 


177777 


UIPDR5= 


177612 




$ERFLG= 


000400 


UIPDR6= 


177614 




$F$AND= 


000310 


UIPDR7= 


177616 




$F$BAD= 


000401 


WASADR= 


000104 




$F$BLA= 


000170 


WBSTAT= 


000040 




$F$CAS= 


000150 


. ABS. 


000000 
000052 


000 
001 







$F$DEC= 
$F$DO = 
$F$FAL= 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR - 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 



000220 
000340 
000405 
000400 
0001 10 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 



$F$YES 

$IFLEV= 

$LOCTA 

$LSTIN= 

$LSTTA= 

$NESTL= 

$NSK0 = 

$SAVLE= 

$TAGLE= 

STAGNU 

$TEMP = 

$$ARGC= 

$$BYTE= 

$$CASE 

$$DST = 

$$ELOC= 

$$ERFL 



000402 
177777 
177777 
000001 
000001 
177777 
000300 
177777 
177777 
050002 
000300 
000002 
000000 
000000 
000000 
000000 
000000 



$$FLAG= 
$$FRQM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG= 



000000 
000001 
000000 
000000 
177777 
000000 
050000 
050001 
000000 
000000 
000000 
000000 
000000 
050000 
000052R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ: PRRAND, DSKZ:PRRAND=SPMAC/ML, EQUATE, PRRAND 
RUN-TIME: 11 1 .3 SECONDS 
RUN-TIME RATIO: 27/12=2.1 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 
EQUATE. MAC 13-SEP-78 16:13 



18:30 

TABLE DF CONTENTS 



SEQ 0839 



3 COMMON EQUATE MODULE 
576 PRSOFT (COMMON DEFINITIONS & REFERENCES) 

579 000000' .PRINT ;SPMAC: VERSION 1.1 

599 PRSOFT (CODE) 



PRSOFT (PROCESS SOFT ERRORS) 
PRSOFT.MAC 28-JUL-78 09:26 

508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 



MACYtt 30A(1052) 20-SEP-78 18:30 PAGE 19 
COMMON EQUATE MODULE 

.TITLE PRSOFT (PROCESS SOFT ERRORS) 
. I DENT /VO.O/ 

++ 
MODULE NAME: 
PRSOFT 

FUNCTIONAL DESCRIPTION: 

THIS MODULE IS CALLED AS A RESULT OF A 'SOFERR' TRAP EXECUTED 
BY AN OPTION MODULE. 

FIRST THE FOLLOWING IS DONE: 

1. THE MODULE'S SOFT ERROR COUNT IS INCREMENTED. 

2. ERROR MESSAGE IS QUEUED UP. 

IF THE ENVIRONMENT IS APT, THEN AN APT ERROR HANDLING ROUTINE 
IS CALLED AND ON RETURN, THE CONTROL GOES BACK TO THE CALLER. 

IF NOT UNDER APT ENVIRONMENT, THEN 

1. IF BIT15 OF THE SOFTWARE SWITCH REGISTER IS SET, THE 
MODULE IS DROPPED WITH 'MODULE DROPPED' MESSAGE PRINTED, 
EVEN ON THE FIRST ERROR. 

2. IF THE ERROR COUNT IS EQUAL TO OR GREATER THAN THE 
LIMIT, THEN BIT14 OF THE SOFTWARE SWITCH REGISTER IS 
CHECKED. IF BIT14 IS SET, THE MODULE IS NOT DROPPED. 

3. CONTROL RETURNS TO THE CALLER. 



INPUTS: 

DATA TABLE ADDRESS 

IMPLICIT INPUTS: 

1 . DATA TABLE OFFSETS 

2. MODULE HEADER OFFSETS 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

1 . DATA TABLE 

2. MODULE HEADER 

PATHOLOGICAL CONNECTIONS: 
NONE 



SEQ 0890 



SUBORDINATE ROUTINES CALLED: 

1 . DRPMOD 

2. ENQTQ 

3. APTSER 

4. SAVREG 

5. RESREG 



;DROP A MODULE ROUTINE 
;ENQUE AN ERROR MSG ROUTINE 
;APT SOFT ERROR ROUTINE 



FUNCTIONAL SIDE EFFECTS: 

UNDER APT ENVIRONMENT IT CAN SHUT DOWN THE EXCERCISER„ 



PRSOFT (PROCESS SOFT ERRORS) 
PRSOFT.MAC 28-JUL-78 09:26 

564 
565 
566 
567 
568 
569 
570 
571 
372 
573 
574 



MACY11 30A(1052> 20-SEP-78 18:30 
COMMON EQUATE MODULE 



PAGE 19-1 



SEQ 0891 



CALLING SEQUENCE: 

CALL PRSOFT IN <DT> 

WHERE DT b DATA TABLE ADDRESS 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



PRSOFT (PROCESS SOFT ERRORS) 
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576 
577 
573 
579 
(D 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 



000000' 
000000' 



000001 
000001 
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PRSOFT (COMMON DEFINITIONS & REFERENCES) 

.SBTTL PRSOFT (COMMON DEFINITIONS & REFERENCES) 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$I_STTAG=1 

' tit*************** 

; REFERENCED BY OTHER MODULES 

!glOBL PRSOFT 



SEQ 0892 



; GLOBAL REFERENCES 
Iglobl ENQTQ 

.GL0BL APTSER 
•GL0BL DRPM0D 
.GLOBL SAVREG 
.GLOBL RESREG 



;MODULE ENTRY POINT 



ENQUE A MESSAGE INTO THE TYPE QUEUE 
APT SOFT ERROR HANDLER 
'DROP THE MODULE' ROUTINE 



PRSOFT (PROCESS SOFT ERRORS) 
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599 
600 
601 
(2) 
602 
603 
604 
605 
606 
607 
608 
(3) 
609 
(4) 
610 
(4) 
611 
(4) 
612 
613 
614 
615 
616 
617 
(4) 
(6) 
618 
619 
620 
621 
622 
623 
(6) 
624 
625 
626 
627 
628 
629 
(6) 
630 
(6) 
631 
(3) 
(8) 
(7) 
(6) 
(5) 
(4) 
(3) 
(3) 
632 
633 
634 
635 
636 



000000" 
000000' 



000000' 
000000' 
000004' 
000004' 
000010' 
000010' 
000014' 
000014' 



004767 



016500 



016001 



01 1102 



000016' 

000016' 010103 
000020' 162703 



000024' 
000024' 062701 



000030' 
000030' 
000034' 
000034' 
000040' 
000040' 
000042' 
000044' 
000046' 
000050' 
000054' 
000056' 
000062' 



005262 

005262 

01 0546 
010145 
010245 
010345 
01 2745 
010045 
004767 
012605 



MACY11 30A(1052) 20-SEP-78 
PRSOFT (CODE) 

.SBTTL PRSOFT (CODE) 

ROUTINE PRSOFT <DTA> 



13:30 PAGE 19-3 



SEQ 0893 



OOOO00G 

000000 

000002 



000002 



000004 



000042 
000046 



000006 
OOOOOOG 



PRSOFT 



SAVE REGS, GET DTABLE ADDRESS AND MODULE 
HEADER ADDRESS. 



CALL SAVREG 
LET RO := DTA(R5) 
LET R1 := DT.PC(RO) 
LET R2 := (R1) 

POINT R3 TO TRAP ADDRESS 
LET R3 := R1 - #2 

POINT R1 TO RETURN ADDRESS 
LET R1 := R1 + #4 

h . 

INCREMENT MODULE'S SOFT ERROR COUNT AND ENQUE THE ERROR 
MESSAGE. 

LET S0FCNT(R2) := S0FCNT(R2) + #1 

LET S0FPAS(R2) := S0FPAS(R2) + #1 

CALL ENQTQ IN <R0 , #MSGSFT , R3 , R2 , R1 > 



JSR 


PC, SAVREG 


MOV 


DTA(R5) ,R0 


MOV 


DT.PC(RO) ,R1 


MOV 


(R1 ) ,R2 



MOV 
SUB 



ADD 



IF APT ENVIRONMENT, CALL APT ERROR HANDLING ROUTINE 



R1 ,R3 
#2,R3 



#4, R1 



INC 


S0FCNT(R2) 


INC 


S0FPAS(R2) 


MOV 


R5,-(SP) 


MOV 


R1,-(R5) 


MOV 


R2,-(R5) 


MOV 


R3,-(R5) 


MOV 


#MSGSFT t -(R5) 


MOV 


R0,-(R5) 


JSR 


PC.ENQ'TQ 


MOV 


(SP)+,R5 
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SEQ 0894 



637 
(6) 
(9) 
638 
(3) 
(4) 
(3) 
(3) 
639 
(4) 
(3) 
840 
641 
642 
643 
644 
645 
646 
647 
(6) 
(9) 
648 
(3) 
(5) 
(4) 
(3) 
(3) 
649 
(4) 
(3) 
650 
651 
652 
653 
654 
655 
656 
(6) 
(9) 
(6) 
(9) 
657 
(3) 
(5) 
(4) 
(3) 
(3) 
658 
(4) 
659 
(4) 
660 
661 
(4) 
662 
663 



000064' 
000064' 
000072' 
000074' 
000074' 
000076' 
000100' 
000104' 
000106' 
000106' 
0001 10' 



0001 10' 
0001 10' 
0001 16' 
000120' 
000120' 
000122' 
000124' 
000126' 
000132' 
000134' 
000134' 
000136' 



000136* 
000136' 
000144' 
000146' 
000154' 
000156' 
000156' 
000160' 
000162' 
000164' 
000170' 
000172' 
000172' 
000172' 
000172' 

000172' 
000172' 



032760 
001406 

010546 
01 0045 
004767 
01 2605 

000431 



032760 
001407 

010546 
010245 
010045 
004767 
012605 

000416 



026260 
101412 
032760 
001006 

010546 
01 0245 
010045 
004767 
01 2605 



000200 000014 



000000G 



IF 0APTPRE SETIN DT,CF0(R0) THEN 



CALL APTSER IN <R0> 



ELSE 



BIT #APTPRE,DT.CFO(R 

BEO 50002$ 

MOV R5 f -(SP) 

MOV R0,-(R5) 

JSR PC, APTSER 

MOV (SP.) + ,R5 

BR 50003$ 



50002$: 



THE ENVIRONMENT IS NOT APT. 

CHECK SWITCH REGISTER IF THE MODULE IS TO BE DROPPED 

DUE TO THIS ERROR. 



IF 0BIT15 SETIN DT.SWR(RO) THEN 



100000 000056 



OOOOOOG 



CALL DRPMOD IN <R0,R2> 





BIT 


#BIT15,DT.SWR(R0 




BEQ 


50004$ 




MOV 


R5,-(SP) 




MOV 


R2 r -(R5) 




MOV 


R0,-(R5) 




JSR 


PC, DRPMOD 




MOV 


(SP)+,R5 




BR 


50005$ 


50004$: 







000042 000106 



040000 000056 



ELSE 



IF THE COUNT IS EQUAL TO OR GREATER THAN THE LIMIT, 
CHECK SWITCH REGISTER IF MODULE IS TO BE DROPPED. 

IF S0FCNT(R2) HI DT.SMX(RO) AND #3IT14 NOTSETIN DT.SWR(RO) THEN 

CMP S0FCNT(R2) ,DT.SM 



CALL DRPMOD IN <R0,R2> 



OOOOOOG 



ENDIF 



END IF 



ENDIF 

; + 





BLOS 

BIT 

BNE 


50006$ 

#BIT14,DT.SWR(R0 

50006$ 




MOV 
MOV 
MOV 
JSR 
MOV 


R5,-(SP) 
R2,-(R5) 
R0,-(R5) 
PC, DRPMOD 
(SP)+,R5 


50006$: 






50005$: 






50003$: 
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SEQ 0895 



664 
665 
666 
667 
(3) 
668 
669 
(3) 
(3) 
(2) 
670 
671 



000172' 
000172' 

000176' 
000176' 
000176' 
000176' 



; RESTORE REGS AND RETURN 



CALL RESREG 



004767 OOOOOOG 



000207 



000001 



ENDRTN 



END 



50000$ 
50001$: 



JSR 



RTS 



PC, RESREG 



PC 
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SYMBOL TABLE 



ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


APTSER= 


* * * * * * 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


0001 10 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


3IT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQOVF a 


000001 


CR 


000015 


CSRA = 


000100 



CSRC = 

CTRLC = 

CTRLO = 

CTRLU = 

DCEVNT= 

DEFRTN= 

DIAGMC= 

DROPMO= 

DRPMOD= 

DSEVNT= 

DTA 

DT.ADD= 

DT.AP = 

DT.APK= 

DT. BLS= 

DT.CFO= 

DT.CF1= 

DT.ERR= 

DT.ESI= 

DT.EVN= 

DT.EXS= 

DT.FCH= 

DT.FCN= 

DT.HMX= 

DT.KBE= 

DT.KBP= 

DT.KBR= 

DT.KBU= 

DT.MLS= 

DT.MTI= 

DT.OFF= 

DT.PAS= 

DT.PC = 

DT.PFL= 

DT.PSW= 

DT.PTA= 

DT.RCS= 

DT.REL= 

DT.SCT= 

DT.SMX= 

DT.SP = 

DT.SSI= 

DT.STO= 

DT.ST1= 

DT.SWR= 

DT.SYP= 

DT.WBU= 

DT.WHL= 

DT.WLL= 

DVID1 = 

ECCMEM= 

ECCSTA= 

ENBEOP= 



000102 
000003 
000017 
000025 
000011 
000400 
000000 
100000 
****** 
000014 
000000 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
000110 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 



-SEP-78 
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SEQ 0896 


ENBNUL= 


000001 


MEMPAS= 


040000 


RBUFEA= 


000130 




£ndlst= 


000000 


MODEXH= 


004000 


RBUFPA= 


000126 




ENQTQ = 


* * * * * * G 


MODHOL= 


002000 


RBUFSZ= 


000132 




EOPBIT= 


C00001 


MODSEL= 


001000 


R3UFVA= 


000124 




ERRTYP= 


000106 


MSGCKD= 


000010 


. RDSERV= 


000101 




EVNTBE= 


000200 


MSGCKS= 


00001 1 


RDWHMI= 


000022 




EVNTHD= 


000200 


MSGDE-R = 


000005 


REL£RR= 


000020 




EVNTKT= 


000203 


MSGDRP= 


000017 


R£LMOD= 


020000 




EVNTPE= 


000202 


MSGECH= 


17777 7 


R£LTIM= 


0100U0 




EVNTRE= 


000201 


MSGEOP= 


000013 


RESREG= 


****** Q 




FATERR= 


100000 


MSGHDR= 


000004 


RES1 = 


000056 




HRDCNT= 


000044 


MSGHNG= 


000022 


RES2 = 


000 060 




HRDPAS= 


000050 


MSGHRD= 


000007 


RICHAR= 


031060 




ICONT = 


000036 


MSGMAP= 


000021 


RPTDAT= 


002000 




ICOUNT= 


000040 


MSGNUL= 


177775 


RSTRT = 


0001 12 




IONUM a 


000122 


MSGPOP= 


000002 


RUBQUT= 


000177 




IE 


000100 


MSGPRM= 


17 7776 


RUNMOD* 


100000 




INDPAR= 


000040 


MSGRES= 


000001 


R5VALU= 


001740 




INHDRPss 


040000 


MSGSFT= 


00G006 


SAM 


075464 




INHEPR= 


020000 


MSGSKE= 


000003 


SAVREG= 


****** Q 




INHRELs 


001000 


MSGSMB= 


000015 


SBADR = 


000102 




INHRRE=; 


000400 


MSGSMH= 


000014 


. SBKIV!0D = 


000000 




INIT = 


000030 


MSGSMS= 


000016 


SBKSEL= 


010000 




INTR = 


000120 


MSGSTD= 


000000 


SC.ADR= 


000006 




IOMOD = 


100000 


MSGSYS= 


000012 


SC.ALC= 


000014 




IOMODPai 


102000 


MSGVEC= 


000C20 


SC.APC= 


000016 




IOMODR= 


1 12000 


NBKMOD= 


00 1000 


SC.CKL= 


000002 




IOMObX= 


1 10000 


NCPUOP= 


000020 


SC.CKP= 


000004 




JACK = 


035060 


NOAPTY= 


000002 


SC.CLO= 


000000 




KIPARO= 


172340 


NULL = 


000000 


SC.HLD= 


000010 




KIPAR1= 


172342 


OWEN = 


024020 


SC.SCA= 


000012 




KIPAR2= 


172344 


PAERR = 


000010 


SENDLS= 


177777 




KIPAR3= 


172346 


PARPRE= 


002000 


SOFCNT= 


000042 




KIPAR4= 


172350 


PARSTA= 


000100 


SOFPAS= 


000046 




KIPAR5= 


172352 


PASCNT= 


000034 


SPACE = 


000040 




KIPAR6= 


172354 


PDPLSI= 


020000 


SPOINT= 


000032 




KIPAR7= 


1 72356 


PDP60 = 


004000 


SPVALU= 


002200 




KIPDRO= 


172300 


PDP70 = 


010000 


SRO . = 


177572 




KIPDR1= 


172302 


PRIO = 


000000 


SR1 


177574 




KIPDR2= 


1723C4 


PRI1 = 


000040 


SR2 


177576 




KIPDR3= 


172306 


PRI4 = 


000200 


SR3 


172516 




KIPDR4= 


172310 


PRI5 = 


000240 


STAT = 


000026 




KIPDR5= 


172312 


PRI6 = 


000300 


STATBI= 


064757 




KIPDR6= 


172314 


PRI7 = 


000340 


STAT1 ' = 


000027 




KIPDR7= 


172316 


PRSOFT 


OOOOOORG . 


SUSPND= 


000001 




KTERRO= 


000040 


PRO 


000000 


SVRO = 


000062 




KTPRES= 


000400 


PR4 


000200 


SVR1 = 


000064 




KTSTAT= 


000020 


PR5 


000240 


SVR2 - 


000066 




KTXTND= 


040000 


PR6 


000300 


SVR3 = 


000070 




LF 


000012 


PR7 


000340 


SVR4 - 


000072 




LPSTAT= 


000001 


PS 


177776 


SVR5 = 


000074 




MAPSTA= 


000200 


PSW 


177776 


SVR6 = 


000076 




IVIED 


076600 


RANNUM= 


000054 


SYSCNT= 


000052 
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SYSERR= 


000100 




WBSTAT= 


000040 


TMPIO = 


000002 




WBUFEA= 


000136 


TQ'OVF = 


000002 




WBUFPA= 


000134 


UIPAR0= 


177640 




WBUFRO= 


000140 


UIPAR1= 


177642 




WBUFSZ= 


000142 


UIPAR2= 


177644 




WDFR = 


000116 


UIPAR3= 


177646 




WDTO = 


0001 14 


UIPAR4= 


177650 




WTINRE= 


000352 


UIPAR5= 


177652 




WTWHMI= 


000222 


UIPAR6= 


177654 




XFLAG = 


000005 


UIPAR7= 


177656 




XOFF = 


000023 


UIPDR0= 


177600 




XON 


000021 


UIPDR1= 


177602 




$BGNLE= 


177777 


UIPDR2 = 


177604 




$ERFLG= 


000400 


UIPDR3= 


177606 




$F$AND= 


000310 


UIPDR4= 


177610 




$F$BAD= 


000401 


UIPDR5= 


177612 




$F$BLA= 


000170 


UIPDR6= 


177614 




$F$CAS= 


000150 


UIPDR7= 


177616 




$F$DEC^ 


000220 


WASADR= 


000104 




$F$DO = 


000340 


. ABS. 


000000 
000200 


000 
001 
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$F$FAL= 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 
$IFLEV= 
$ISKO = 
$ISK1 = 
$ISK2 ~ 



18:30 PAGE 20-1 



000405 $LOCTA: 

000400 SLSTIN^ 

000110 $LSTTA; 

000210 $NESTL> 

000200 $NSKO : 

000160 $NSK1 ■ 

000403 $NSK2 ■■ 
000320 $NSK3 ■ 
000350 $SAVLE: 
000300 $TAGLE ; 
000140 $TAGNU: 
000330 $TEMP 

000404 STSKO ■■ 
000130 $TSK1 •■ 
000120 $TSK2 ■■ 
000402 $$ARGC' 
177777 $$BYTE' 
000001 $$CAS£; 
000001 $$DST = 
000001 $$ELOC> 



SEQ 0897 



177777 

000001 
000001 
177777 
000300 
000110 
000110 
000110 
177777 
177777 
050007 
000300 
050003 
050005 
050006 
000002 
000403 
000000 
000000 
000402 



$&ERFL= 
$$FLAG= 
$$FROM= 
$SLOC = 
$$LCCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG= 



000000 

000001 

000000 

000154R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000200R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ: PRSOFT ,DSKZ:PRSOFT=SPMAC/ML, EQUATE, PRSOFT 
RUN-TIME: 13 3 .3 SECONDS 
RUN-TIME RATIO: 32/17=1.8 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:30 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0898 

3 COMMON EQUATE MODULE 
561 COMMON DEFINITIONS AND REFERENCES 

564 000000' .PRINT ;SPMAC: VERSION 1.1 

586 RANDOM (CODE) 
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SEO 0899 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 



TITLE RANDOM (PSEUDO-RANDOM NUMBER GENERATOR) 
IDENT /VO.O/ 

++ 
MODULE NAME: 
RANDOM 

FUNCTIONAL DESCRIPTION: 

THIS MODULE GENERATES AND RETURNS A 16-BIT RANDOM NUMBER 
TO THE CALLER. 

THE ALGORITHM USED CONSISTS OF ROTATING TWO BASE WORDS 
ONE POSITION TO THE RIGHT AND THEN PERFORMING AN 
EXCLUSIVE-OR OPERATION ON CERTAIN BITS IN WORD-1 . TO 
INSURE THOROUGH RANDOMNESS OF THE NUMBER, THIS OPERATION 
IS REPEATED 16 TIMES BEFORE RETURNING THE RANDOM NUMBER 
FROM THE SECOND WORD. 

INPUTS: 

NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

A RANDOM NUMBER 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
SAVREG 
RESREG 

FUNCTIONAL. SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL RANDOM OUT <XXX> 



WHERE XXX = RANDOM NUMBER RETURNED. 



VERSION: 
0.0 



EDIT DATE 



BY 



REASON 
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SEQ 0900 



561 
562 
563 
564 
(1) 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 



000000' 
000000' 



000001 
000001 



000000 
000002 



022333 
123456 



.SBTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 

REFERENCED BY OTHER MODULES 



.GLOBL RANDOM 

GLOBAL REFERENCES 

GLOBL SAVREG 
GLOBL RESREG 

LOCAL STORAGE 



MODULE'S ENTRY POINT 



WORK: 


22333 


;W0RD-1 


RAND: 


123456 


;W0RD-2 

;THE CHOICE OF VALUES IS ARBITRARY 
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.SBTTL RANDOM (CODE) 

ROUTINE RANDOM <RSLT> 



SAVE REGISTERS 

GET THE TWO BASE WORDS INTO RO AND R1 



SEQ 0901 



586 








587 








588 


000004 






(2) 


000004 






589 








590 








591 








592 








593 








594 








595 


000004 






(3) 


000004 


004767 


OOOOOOG 


596 


000010 






(4) 


000010 


016700 


177764 


597 


000014 






(4) 


000014 


016701 


177762 


593 








599 








600 








601 








602 








603 








604 








605 








606 


000020 






(4) 


000020 


012702 


000017 


(5) 


000024 


000401 




(4) 


000026 






(7) 


000026 


005302 




(5) 


000030 






(5) 


000030 


005702 




(7) 


000032 


002423 




607 


000034 






(7) 


000034 


006000 




608 


000036 






(7) 


000036 


006001 




609 


000040 






(6) 


000040 


103410 




610 


000042 






(6) 


000042 


042700 


010000 


611 


000046 






(6) 


000046 


032700 


002000 


(9) 


000052 


001402 




612 


000054 






(6) 


000054 


052700 


010000 


613 


000060 






(4) 


000060 






614 


000060 






(4) 


000060 


000407 




(3) 


000062 






615 


000062 






(6) 


000062 


052700 


010000 


616 


000066 






(6) 


000066 


032700 


002000 


(9) 


000072 


001402 




617 


000074 







RANDOM: 



CALL SAVREG 
LET RO := WORK 
LET R1 := RAND 



SET UP LOOP FOR 16 ITERATIONS, ROTATE THE TWO 
WORDS ONE POSITION TO THE RIGHT, AND THEN DO 
THE EXCLUSIVE-OR OPERATION ON BIT12 AND BIT10 
OF WORD-1 , BASED ON "CARRY" CONDITION. 



DECR R2 FROM #15. TO #0 BY #1 



JSR 
MOV 
MOV 



LET RO := RO ROTATE -#1 

LET R1 := R1 ROTATE -#1 

IF. NO. CARRY THEN 

LET RO := RO CLR.BY #BIT12 
IF #BIT10 SETIN RO THEN 

LET RO := RO SET. BY #BIT12 
END IF 
ELSE 

LET RO := RO SET. BY #BIT12 
IF #BIT10 SETIN RO THEN 

LET RC := RO CLR.BY #BIT12 



PC, SAVREG 

WORK.RO 

RAND.R1 



50003$: 

50002$: 


MOV 
BR 

DEC 

T'ST 

BLT 


#15. ,R2 
50002$ 

R2 

R2 
50004$ 




ROR 


RO 






ROR 


Rl 






BCS 


50005$ 






BIC 


#BIT12, 


RO 




BIT 
BEQ 


#BIT10, 
50006$ 


RO 




BIS 


#BIT12, 


RO 


50006$: 








50005$: 


BR 


50007$ 






BIS 


#BIT12, 


RO 




BIT 
BEQ 


#3IT10, 
50010$ 


RO 
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ENDIF 
ENDIF 
ENDDEC 



SEQ 0902 



(6) 


000074' 


042700 


010000 


618 


000100' 






(4) 


000100' 






619 


000100' 






(4) 


000100' 






620 


000100* 






(4) 


000100' 


000752 




(3) 


000102' 






621 








622 








623 








624 








625 








626 








627 








628 








629 


000102' 






(4) 


000102' 


010067 


177672 


630 


000106' 






(4) 


000106' 


010167 


177670 


631 


0001 12' 






(4) 


0001 12' 


010165 


000000 


632 








633 








634 








635 








636 








637 


0001 16' 






(3) 


0001 16' 


004767 


OOOOOOG 


638 








639 


000122' 






(3) 


000122' 






(3) 


000122' 






(2) 


000122' 


000207 




640 








641 




000001 





50010$: 
50007$: 

50004$: 



BIC 



BR 



#BIT12,R0 



50003$ 



NOW THAT YOU HAVE DONE THE 16 ITERATIONS AND 
GOTTEN THE. RESULT, STORE THE TWO WORDS BACK 
INTO THE BASE WORDS. DON'T FORGET TO RETURN 
THE RESULT. 



LET WORK := RO 
LET RAND : = R1 
LET RSLT(R5) := R1 

RESTORE REGISTERS AND RETURN - HURRAH 
CALL RESREG 
ENDRTN 

.END 



MOV 


RO 


WORK 


MOV 


R1 


, RAND 


MOV 


R1 


,RSLT(R5) 



10000$: 
>0001$: 



JSR 



RTS 



PC, RESREG 



PC 
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ACSR = 
ACTBIT= 
ADDR22= 
ADR 

APTFER= 
APTPRE= 
ASB 

ASSEMB= 
ASTAT = 
AUTO = 
AUTOST= 
AWAS = 
BITO a 
BITOO = 
BIT01 = 
BIT02 = 
BIT03 s 
BIT04 = 
BIT05 = 
BIT06 = 
BIT07 = 
BIT08 = 
BIT09 = 
BIT1 = 
BIT10 = 
BIT11 = 
BIT12 = 
BIT13 = 
BIT14 = 
BIT15 = 
BIT2 = 
BIT3 = 
BIT4 = 
BIT5 = 
BIT6 = 
BIT7 = 
BIT8 = 
BIT9 = 
BKDEF = 
BKMOD = 
BKMODE= 
BKSLSH= 
CAPRES = 
CASTAT= 
CDERCT= 
CDWDCT= 
CKTIM = 
CLKPRE= 
CONFIG= 
CQOVF = 
CR 

CSRA * 
CSRC = 



000102 
004000 
001000 
000006 
000004 
000200 
000106 
000010 
000104 
000010 
020000 
0001 10 
000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 
100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
000020 
040000 
000134 
000004 
000004 
000146 
000144 
100000 
000001 
000056 
000001 
000015 
000100 
000102 



CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DRQPMO= 
DSEVNT= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CFO= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP-- 
DT.KBR= 
DT.KBU- 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 
ENDLST= 
E0PBIT= 



000003 
000017 
000025 
00001 1 
000400 
000000 
100000 
000014 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 
000000 
000001 



ERRTYP* 

EVNTBE* 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR* 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM '■■■ = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

I N I T - 

INTR = 

IOMOD = 

IOMODP= 

I0M0DR= 

IOMODX= 

JACK = 

KIPARO= 

KIPAR1-- 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5- 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1- 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPSTAT= 

MAPSTA= 

MED 

MEMPAS= 

MQDEXH= 

MODHOL= 

MODSEL- 



000106 
000200 
000200 
000203 
000202 
000201 
100000 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000C30 
000120 
100000 
102000 
1 12000 
1 10000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 
000001 
000200 
076600 
040000 
004000 
002000 
001000 











SEQ 0903 


MSGCKD= 


000010 


RBUFVA= 


000124 




MSGCKS= 


00001 1 


RDSERV= 


000101 




MSGDER= 


000005 


RDWHMI= 


000022 




MSGDRP= 


000017 


RELERR= 


000020 




MSGECH= 


177777 


RELMOD= 


020000 




MSGEOP= 


000013 


RELTIM= 


010000 




MSGHDR= 


000004 


RESREG= 


**$*** g 




MSGHNG^ 


000022 


RES1 = 


000056 




MSGHRD= 


000007 


RES2 = 


000060 




MSGMAP= 


000021 


RICHAR= 


031060 




MSGNUL= 


177775 


RPTDAT= 


002000 




MSGPOP= 


000002 


RSLT = 


000000 




MSGPRM= 


177776 


RSTRT = 


0001 12 




MSGRES-- 


000001 


RUBOUT= 


000177 




MSGSFT^ 


000006 


RUNMOD= 


100000 




MSGSKE= 


000003 


R5VALU= 


001 740 




MSGSMB- 


000015 


SAM 


75464 




MSGSMH= 


000014 


SAVREG= 


*** *** G 




MSGSMS=- 


000016 


SBADR = 


000102 




MSGSTD=- 


000000 


SBKMOD= 


000000 




MSGSYS= 


000012 


SBKSEL= 


010000 




MSGVEC= 


000020 


SC.ADR= 


000006 




NBKMOD- 


001000 


5C.ALC= 


000014 




NCPUOP=- 


000020 


SC.APC= 


000016 




NOAPTY= 


000002. 


SC.CKL= 


000002 




NULL. ■- 


000000 


SC.CKP= 


000004 




OWEN = 


024020 


SC.CLO= 


000000 




PAERR = 


000010 


SC.HLD= 


000010 




PARPRE= 


002000 


SC.SCA= 


000012 




PARSTA= 


000100 


SENDLS= 


177777 




PASCNT= 


000034 


SQFCNT= 


000042 




PDPLSI-- 


020000 


SOFPAS= 


000046 




PDP60 = 


004000 


SPACE = 


000040 




PDP70 = 


010000 


SPOINT= 


000032 




PR 10 = 


000000 


SPVALU= 


002200 




PR 11 ■= 


000040 


SRO = 


177572 




PRI4 = 


000200 


. SR1 


177574 




PR 15 = 


000240 


SR2 


177576 




PRI6 = 


000300 


SR3 


172516 




PRI7 = 


000340 


STAT = 


000026 




PRO 


000000 


STATBI= 


064757 




PR4 


000200 


STAT1 = 


000027 




PR5 


000240 


SUSPND= 


000001 




PR6 


000300 


SVRO = 


000062 




PR7 


000340 


SVR1 = 


000064 




PS 


177776 


SVR2 = 


000066 




PSW 


177776 


SVR3 = 


000070 




RAND 


000002R 


SVR4 = 


000072 




RANDOM 


000004RG 


SVR5 = 


000074 




RANNUM= 


000054 


SVR6 = 


000076 




RBUFEA= 


000130 


SYSCNT= 


000052 




RBUFPA= 


000126 


SYSERR= 


000100 




RBUFS2= 


000132 


TMPIO = 


000002 
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SEQ 0904 



TQOVF = 


000002 




WBUFPA= 


000134 


UIPAR0= 


177640 




WBUFRQ= 


000140 


UIPAR1= 


177642 




WBUFSZ= 


000142 


UIPAR2= 


177644 




WDFR = 


0001 16 


UIPAR3= 


177646 




WDTO = 


0001 14 


UIPAR4= 


177650 




WORK 


000000R 


UIPAR5= 


177652 




WTINRE= 


000352 


UIPAR6= 


177654 




WTWHMI= 


000222 


UIPAR7= 


177656 




XFLAG = 


000005 


UIPDR0= 


177600 




XOFF = 


000023 


UIPOR1= 


177602 




XON 


000021 


UIPDR2= 


177604 




$BGNLE= 


177777 


UIPDR3= 


177606 




$ERFLG= 


000400 


UIPDR4= 


177610 




$F$AND= 


000310 


UIPDR5= 


177612 




$F$BAD= 


000401 


UIPDR6= 


177614 




$F$BLA= 


000170 


UIPDR7 = 


177616 




$F$CAS= 


000150 


WASADR= 


000104 




$F$DEC= 


000220 


WBSTAT= 


000040 




$F$DO = 


000340 


WBUFEA= 


000136 




$F$FAL= 


000405 


. ABS. 


000000 
000124 


000 
001 







$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 
$IFLEV= 
$ISK0 = 
$ISK1 = 
$LOCTA= 
$LSTIN= 



000400 
0001 10 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
Q00402 
177777 
000001 
000001 
177777 
000001 



$LSTTA= 000001 

$NESTL= 177777 

$NSKO = 000300 

$NSK1 = 000220 

SNSK2 -- 000110 

$NSK3 == 000110 

$SAVLE--= 177777 

$SSKO == 050003 

$TAGLE== 177 777 

$TAGNU== 050011 

$TEMP = 000300 

$TSKO = 050004 

$TSK1 = 050003 

$TSK2 = 050007 

$TSK3 = 050Q10 

$$ARGC== 000002 

S$BYTE== 000403 

$$CASE= 000000 

$$DST = 000000 

$$EL0O 000402 



$$ERFL= 
$$FLAG= 
$$FRQM= 
$$LOC = 
$$LOCN= 
$$R£G = 
$$RETU= 
$SRTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG= 



000000 

000001 

000000 . 

000072R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000124R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED; 



DSKZ: RANDOM, DSKZ : RANDOM=SPMAC/ML , EQUATE, RANDOM 
RUN-TIME: 13 3 .4 SECONDS 
RUN-TIME RATIO: 31/17=1.8 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:31 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0905 

3 COMMON EQUATE MODULE 

559 COMMON DEFINITIONS AND REFERENCES 

562 000000' .PRINT ;SPMAC: VERSION 1.1 

609 RELCTL ROUTINE 



RELCTL - RELOCATION CONTROL 
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508 

509 

510 

511 

512 

513 

514 

515 

516 ■ 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

55G 

557 
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COMMON EQUATE MODULE 

.TITLE RELCTL - RELOCATION CONTROL 
.IDENT /VO.O/ 



++ 
MODULE NAME: 
RELCTL 



SEQ 0906 



FUNCTIONAL DESCRIPTION: 

CONTROLS THE SEQUENCE OF EVENTS THAT MUST OCCUR BEFORE, 
DURING, AND AFTER THE RELOCATION PROCESS. 

INPUTS: 

DATA TABLE ADDRESS 

IMPLICIT INPUTS: 

CURRENT BASE ADDRESS, CONFIGURATION WORD 0, 
STATUS INDICATOR WORD 0, STATUS INDICATOR WORD 1 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 

MESSAGE CODE IN MSGDEQ (MD.COD) 



SUBORDINATE MODULES CALLED: 
CLKOFF 
CLKON 
PRRLOC 
WBFLIM 
UNIMAP 
WSTBUS 
MSGDEQ 
DX.INI 

FUNCTIONAL SIDE EFFECTS: 
NONE 



CALLING SEQUENCE: 

CALL RELCTL IN <A> 

A=DATA TABLE ADDRESS 



TURN OFF SYSTEM CLOCK 

TURN ON SYSTEM CLOCK 

PROCESS RELOCATION 

DETERMINE WRITE BUFFER LIMITS 

LOAD UNIBUS MAP 

WRITE WORST-CASE UNIBUS PATTERNS 

MESSAGE DEQUEUER 

INITIALIZE QUEUES AND KEYBOARD 



VERSION: 
0.0 

EDIT 



BY 



DATE 



REASON 
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559 
560 
561 

562 000000' 
(1) 000000' 

563 000001 

564 000001 
565 

566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
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COMMON DEFINITIONS AND REFERENCES 

.SBTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT' ;SPMAC*. VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



REFERENCED BY OTHER MODULES 
GLOBL RELCTL 

* * *))< Ik*********** 

GLOBAL REFERENCES 



SEQ 0907 



GLOBL 


CLKOFF 


GLOBL 


CMDPRC 


GLOBL 


DX.KFL 


GLOBL 


CLKCN 


GLOBL 


PRRLOC 


GLOBL 


WBFLIM 


GLOBL 


UN I MAP 


GLOBL' 


WSTBUS 


GLOBL 


DX.INI 


GLOBL 


MSGDEQ 


GLOBL 


MD.COD 



jfc*********!).*;):*** 



GLOBAL EQUATES 



GLOBL 


DT.STO 


GLOBL 


DT.ST1 


GLOBL 


DT.CFO 


GLOBL 


DT.ADDR 


GLOBL 


RELTIME 


GLOBL 


MSGNUL 


GLOBL 


ADDR22 


GLOBL 


RCSR 


GLOBL 


IE 


GLOBL 


CLKPRES 


GLOBL 


MEMPAS 


GLOBL 


AUTO 



;MODULE ENTRY POINT 



; PROCESS A KEYBOARD COMMAND 
; KEYBOARD FLAG 



; MESSAGE DEQUEUER 

; MESSAGE CODE IN MESDEQ 



STATUS INDICATOR WORD 

STATUS INDICATOR WORD 1 

CONFIGURATION WORD 

CURRENT BASE ADDRESS 

RELOCATION TIME INDICATOR 

NULL MESSAGE TYPE CODE 

22-BIT ADDRESSING 

KB INPUT CSR 

INTERRUPT ENABLE 

SYSTEM CLOCK PRESENT 

LAST SYSTEM EOP WAS IN LOWEST MEMORY 

AUTOMATIC MODE 



jtj*!}:*******!!; #*>!<*#** 



010046 



016500 000000 
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609 

610 

611 

612 000000' 

(2) 000000' 

613 

614 

615 

616 

617 

618 

619 000000' 

(2) 000000' 
620 

621 

622 

623 ' 

624 

625 

626 000002' 

(4) 000002' 

627 

628 

629 

630 

631 

632 

633 000006' 
(6) 000006' 
(9) 000014' 

634 000016' 

(3) 000016' 

(4) 000020' 
(3) 000022' 

(3) 000026' 

635 000030' 

(4) 000030' 
636 

637 
638 

639 000030' 
(6) 000030' 
(9) 000036' 

640 000040' 

(3) 000040' 

(4) 000042' 
(3) 000044' 

(3) 000050' 

641 000052' 

(4) 000052' 

642 000056' 
(4) 000056' 
643 

644 
645 
646 
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RELCTL ROUTINE 

.SBTTL RELCTL ROUTINE 



ROUTINE RELCTL <TABL> 
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SEQ 0908 



032760 
001405 

010546 
01 0045 
004767 
012605 



026727 
001007 

010546 
010045 
004767 
012605 



000001 000014 



OOOOOOG 



OOOOOOG 000001 



OOOOOOG 



005067 OOOOOOG 



RELCTL: 



SAVE REGISTERS 



PUSH RO 



MOV 



SET RO TO THE START OF THE DATA TABLE 
LET RO := TABL(R5) 

SHUT OFF THE SYSTEM CLOCK IF IT EXISTS, 
IF #CLKPRES SETIN DT.CFO(RO) THEN 
CALL. CLKOFF IN <R0> 

ENDIF 

; + 

; SERVICE ANY FINAL KEYBOARD COMMANDS 
IF DX.KFL EC) #1 THEN 

CALL CMDPRC IN <R0> 

LET DX.KFL :» #0 
ENDIF 



MOV 



50002$ 



CMP 
BNE 

MOV 
MOV 
JSR 
MOV 

CLR 



50003$: 



RO,-(SP) 



TA3L(R5) ,R0 



BIT 


#CLKPRES,DT.CFO( 


BEQ 


50002$ 


MOV 


R5,-(SP) 


MOV 


R0,-(R5) 


JSR 


PC, CLKOFF 


MOV 


(SP)+,R5 



DX.KFL, #1 
50003$ 

R5,-(SP) 
R0,-(R5) 
PC, CMDPRC 
(SP)+,R5 

DX.KFL 



; WAIT FOR THE TYPE-QUEUE TO EMPTY 
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SEQ 0909 



647 
648 
649 
(3) 
650 
(3) 
(4) 
(3) 
(3) 
651 
(3) 
(6) 
652 
653 
654 
655 
656 
657 
658 
(3) 
(5) 
(4) 
(3) 
(3) 
659 
660 
661 
662 
663 
664 
665 
(6) 
(9) 
666 
(3) 
(4) 
(3) 
(3) 
667 
(4) 
668 
669 
670 
671 
672 
673 
674 
(3) 
(4) 
(3) 
(3) 
675 
676 
677 
678 
679 



000056' 
000056' 
000056' 
000056' 
000060' 
000062' 
000066' 
000070' 
000070' 
000076' 



000100' 
000100' 
000102' 
000106' 
0001 10' 
000114' 



0001 16' 
0001 16' 
000124' 
000126' 
000126' 
000130' 
000132' 
000136' 
000140' 
000140' 



000140' 
000140' 
000142' 
000144' 
000150' 



010546 
010045 
004767 
01 2605 

026727 
001367 



010546 
012745 
010045 
004767 
012605 



032760 
001405 

010546 
010045 
004767 
012605 



010546 
010045 
004767 
012605 



REPEAT 



50004$: 



CALL MSGDEQ IN <R0> 



OOOOOOG 



OOOOOOG 177775 



UNTIL MD.COD EQ #MSGNUL 



RELOCATE 



CALL PRRLOC IN <R0,#0> 



MOV 
MOV 
JSR 
MOV 

CMP 
BNE 



000000 



OOOOOOG 



MOV 
MOV 
MOV 
JSR 
MOV 



000001 000014 



OOOOOOG 



TURN THE SYSTEM CLOCK BACK ON IF IT EXISTS. 



IF tfCLKPRES SETIN DT.CFO(RO) THEN 



CALL CLKON IN <R0> 



END IF 



BIT 
BEQ 

MOV 
MOV 
JSR 
MOV 



50005$: 



SET THE WRITE BUFFER LIMITS AND INITIALIZE THE WRITE BUFFER POINTER 



CALL WBFLIM IN <R0> 



OOOOOOG 



MOV 
MOV 
JSR 
MOV 



IF THE UNIBUS MAP EXISTS, LOAD THE MAP REGISTERS. 



R5,-(SP) 
R0 f -(R5) 

PC, MSGDEQ 
(SP)+,R5 

MD.COD,#MSGNUL 
50004$ 



R5,-(SP) 
#0,-(R5) 
R0,-(R5) 
PC, PRRLOC 
(SP)+,R5 



#CLKPRES,DT.CF0( 
50005$ 

R5,-(SP) 
R0,-(R5) 
PC, CLKON 
(SP)+,R5 



R5,-(SP) 
R0,-(R5) 
PC, WBFLIM 
(SP)+,R5 
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680 
681 
(6) 
(9) 
682 
(3) 
(4) 
(3) 
(3) 
683 
(4) 
684 
685 
686 
687 
688 
689 
690 
691 
(6) 
(9) 
692 
(3) 
(4) 
(3) 
(3) 
693 
(6) 
(9) 
694 
(6) 
695 
(4) 
696 
(4) 
697 
698 
699 
700 
701 
702 
703 
(3) 
704 
705 
706 
707 
708 
709 
710 
711 
(6) 
712 
713 
714 
715 



000152' 
000152' 
000160' 
000162' 
000162' 
000164' 
000166' 
000172' 
000174' 
000174' 



000174' 
000174* 
000202' 
000204' 
000204' 
000206' 
000210' 
000214' 
000216' 
000216' 
000224' 
000226' 
000226' 
000234' 
000234' 
000234' 
000234' 



000234 
000234 



000240' 
000240' 



032760 
001405 

010546 
010045 
004767 
012605 



026027 
001014 

01 0546 
010045 
004767 
012605 

032760 
001403 



001000 000014 



OOOOOOG 



000042 000200 



OOOOOOG 



000010 000014 



052760 040000 000012 



004767 OOOOOOG 



042760 010000 000010 



IF #ADDR22 SETIN DT.CFO(RO) THEN 



CALL. UNIMAP IN <R0> 



BIT 

BEO 

MOV 
MOV 
dSR 
MOV 



ENDIF 



50006$: 



IF THIS RELOCATION WAS TO THE LOWEST PART OF MEMORY, WRITE THE 
WORST-CASE UNIBUS PATTERNS INTO ALL OF FREE MEMORY, 



IF DT.ADDR(RO) EQ #200 THEN 
CALL WSTBUS IN <R0> 

IF 0AUTO SETIN DT.CFO(RO) THEN 

LET DT.STi(RO) := DT.ST1(R0) SET. BY #MEMPAS 



CMP 
BNE 

MOV 
MOV 
JSR 
MOV 

BIT 

BEO 

BIS 



ENDIF 



ENDIF 



50010$: 
50007$: 



INITIALIZE THE QUEUES AND KEYBOARD, 



CALL DX.INI 



JSR 



CLEAR THE RELOCATION TIME INDICATOR IN STATUS INDICATOR WORD 



LET DT.STO(RO) := DT.STO(RO) CLR.BY #RELTIME 



; + 



BIC 



SEQ 0910 



#ADDR22,DT.CF0(R 
50006$ 

R5,-(SP) 
R0,-(R5) 
PC, UNIMAP 
(SP)+,R5 



DT . ADDR(RO) ,#200 
50007$ 

R5,-(SP) 
R0,-(R5) 
PC, WSTBUS 
(SP)+,R5 

#AUTO,DT.CFO(RO) 
50010$ 

#MEMPA5,DT.ST1(R 



PC, DX.INI 



#RELTIME,DT.ST0( 



; RESTORE REGISTERS 
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RELCTL ROUTINE 



SEQ 0911 



716 






717 






718 


000246' 




(2) 


000246' 


012600 


719 






720 






721 


000250' 




(3) 


000250' 




(3) 


000250' 




(2) 


000250' 


000207 


722 






723 




000001 



POP RO 



ENDRTN 



.END 



50000S: 
50001$: 



MOV 



RTS 



(SP)H-.RO 



PC 
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RELCTL.MAC 28-JUL-78 09:26 
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SYMBOL TABLE 



ACSR = 


000102 


ACT3IT= 


004000 


ADDR22= 


001000 G 


ADR 


000006 


APTFER= 


000004 


APTPR£= 


000200 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 G 


AUTOST= 


020000 


AWA5 = 


0001 10 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 - 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT 12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 a 


000040 


BITS = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 - 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKOFF= 


****** Q 


CLKON = 


****** Q 


CLKPRE= 


000001 G 


CMDPRC= 


****** Q 


CONFIG= 


000056 


CQOVF = 


000001 



CR 


000015 


CSRA = 


000100 


CSRC = 


000102 


CTRLC = 


000003 


CTRLO = 


00 0017 


CTRLU = 


000025 


DCEVNT= 


000011 


DEFRTN= 


000400 


DIAGMC= 


000000 


DROPMO= 


100000 


DSEVNT= 


000014 


DT.ADD= 


000042 G 


DT.AP = 


000100 


DT.APK= 


000076 


DT.BLS= 


000034 


DT.CFO= 


000014 G 


DT.CF1= 


000016 


DT.ERR= 


000020 


DT.ESI= 


000044 


DT.EVN= 


000000 


DT.EXS= 


000060 


DT.FCH= 


000037 


DT.FCN= 


000036 


DT.HMX= 


000104 


DT.KBE= 


000024 


DT.KBP= 


000026 


DT.KBR= 


000022 


DT.KBU= 


000030 


DT.MLS= 


000032 


DT.MTI= 


0001 10 


DT.OFF= 


000070 


DT.PAS= 


000074 


DT.PC = 


000002 


DT.PFL= 


000062 


DT.PSW= 


000004 


DT.PTA= 


000064 


DT.RCS= 


000102 


DT.REL= 


000040 


DT.SCT= 


000066 


DT.SMX= 


000106 


DT.SP = 


000006 


DT.SSI= 


000046 


DT.STO= 


000010 G 


DT.ST1= 


00 0012 G 


DT.SWR= 


000056 


DT.SYP= 


000072 


DT.WBU= 


000050 


DT.WHL= 


000054 


DT.WLL= 


000052 


DVID1 = 


000014 


DX.INI= 


****** Q 


DX.KFL= 


****** Q 


ECCMEM= 


000100 
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ECCSTA= 


000010 


MD.COD= 


****** Q 


ENBEOP= 


010000 


MED 


076600 


ENBNUL= 


000001 


MEMPAS--= 


040000 G 


ENDLST= 


000000 


MODEXH= 


004000 


EOPBIT= 


000001 


MODHOL== 


002000 


ERRTYP= 


000106 


MODSEL= 


001000 


EVNTBE= 


000200 


MSGCKD= 


000010 


EVNTHD= 


000200 


MSGCKS= 


00001 1 


EVNTKT= 


000203 


MSGDEQ= 


****** Q 


EVNTPE= 


000202 


MSGDER:= 


000005 


EVNTRE= 


000201 


MSGDRP= 


000017 


FATERR= 


100000 


MSGECH= 


177777 


HRDCNT= 


000044 


MSGEOP= 


000013 


HRDPAS= 


000050 


MSGHDR= 


000004 


ICONT = 


000036 


MSGHNG= 


000C22 


ICOUNT= 


000040 


MSGHRD= 


000007 


IDNUM = 


000122 


MSGMAP= 


000021 


IE 


000100 G 


MSGNUL- 


177775 G 


INDPAR= 


000C40 


MSGPOP= 


000002 


INHDRP= 


040000 


MSGPRM= 


17 7776 


INHEPR= 


020000 


MSGRES= 


000001 


INHREL= 


001000 


MSGSFT= 


000006 


INHRRE= 


000400 


MSGSKE= 


000003 


INIT = 


000030 


MSGSMB= 


000015 


INTR = 


000120 


MSGSMH= 


000014 


IOMOD = 


100000 


MSGSMS= 


000016 


IOMODPa 


102000 


MSGSTD= 


000000 


IOMODR= 


112000 


MSGSYS= 


000012 


IOMODX= 


1 10000 


MSGVEC= 


000020 


JACK = 


035060 


NBKMOD= 


001000 


KIPAR0= 


1 72340 


NCPUOP= 


000020 


KIPAR1= 


172342 


NOAPTY= 


000002 


KIPAR2= 


172344 


NULL = 


000000 


KIPAR3= 


172346 


OWEN = 


024020 


KIPAR4= 


172350 


PAERR = 


000010 


KIPAR5= 


172352 


PARPRE= 


002000 


KIPAR6= 


172354 


PARSTA= 


000100 


KIPAR7^ 


172356 


PASCNT= 


000034 


KIPDR0= 


172300 


PDPLSI= 


020000 


KIPDR1= 


172302 


PDP60 = 


004000 


KIPDR2= 


172304 


PDP70 = 


010000 


KIPDR3= 


172306 


PRIO = 


000000 


KIPDR4= 


172310 


PRI1 


000040 


KIPDR5= 


172312 


PRI4 = 


000200 


KIPDR6= 


172314 


PRI5 = 


000240 


KIPDR7= 


172316 


PRI6 = 


000300 


KTERRO= 


000040 


PRI7 = 


000340 


KTPRES= 


000400 


PRRLOC= 


****** Q 


KTSTAT= 


000020 


PRO 


000000 


KTXTND= 


040000 


PR4 


000200 


LF 


000012 


PR5 


000240 


LPSTAT= 


000001 


PR6 = 


000300 


MAPSTA= 


000200 


PR7 


000340 



SEQ 0912 



PS = 

PSW 

RANNU'M= 

RBUFEA= 

RBUFPA= 

RBUFS2= 

RBUFVA= 

RCSR = 

RDSERV= 

RDWHMIs 

RELCTL 

RELERR= 

RELMOD= 

RELTIM= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBOUT= 

RUNMOD= 

R5VALU= 

SAM 

SBADR = 

SBKrv10D= 

SBKSEL= 

SC.ADR= 

SC.ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SOFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 - 

SVR2 = 

SVR3 = 

SVR4 = 



177776 
177776 
000054 
000130 
000126 
000132 
000124 

* * * * * * Q 

000101 
000022 

OOOOOORG 

000020 

020000 

010000 G 

000056 

000060 

031060 

002000 

0001 12 

000177 

1 00 000 

001740 

075464 

000102 

000000 

010000 

000006 

000014 

000016 

000002 

000004 

000000 

000010 

000012 

177777 

000042 

000046 

000040 

000032 

002200 

177572 

177574 

177576 

172516 

000026 

064757 

000027 

000001 

000062 

000064 

000066 

000070 

000072 
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SVR5 = 


000074 




UIPDR5= 


177612 


SVR6 = 


000076 




UIPDR6= 


177614 


SYSCNT= 


000052 




UIPDR7= 


177616 


SYSERR= 


000100 




UNIMAP= 


****** 


TABL = 


000000 




WASADR= 


000104 


TMPIO a 


000002 




WBFLIM= 


****** 


TQOVF = 


000002 




WBSTAT= 


000040 


UIPAR0= 


177640 




WBUFEA= 


000136 


UIPAR1 = 


177642 




WBUFPA= 


000134 


UIPAR2= 


177644 




WBUFRQ= 


000140 


UIPAR3= 


177646 




WBUFS2= 


000142 


UIPAR4= 


177650 




WDFR = 


0001 16 


UIPAR5* 


177652 




WDTO = 


0001 14 


UIPAR6= 


177654 




WSTBUS= 


****** 


UIPAR7= 


177656 




WTINRE= 


000352 


UIPDRO= 


177600 




WTWHMI= 


000222 


UIPDR1= 


177602 




XFLAG = 


000005 


UIPDR2= 


177604 




XOFF = 


000023 


UIPDR3= 


177606 




XON 


000021 


UIPDR4= 


177610 




$BGNLE= 


177777 


. ABS. 


000000 
000252 


000 
001 
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$ERFLG= 
$F$AND= 
$F$BAD= 
$F$BLA= 
$F$CAS= 
$F$DEC= 
$F$DO = 
$F$FAL= 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
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000400 $F$UNT 
000310 $F$WHI 

000401 $F$YES 
000170 $IFLEV 
000150 $ISK0 
000220 $ISK1 
000340 $LOCTA 
000405 $LSTIN 
000400 $LSTTA= 
000110 $NESTL= 
000210 $NSKO 
000200 $NSK1 = 
000160 $NSK2 

000403 $SAVLE= 
000320 $TAGLE= 
000350 $TAGNU= 
000300 $TEMP 
000140 $TSKO = 
000330 $TSK1 

000404 $$ARGC 



SEQ 0913 



000130 
000120 
000402 
177777 
000001 
000001 
177777 
000001 
000001 
177777 
000300 
000110 
000110 
177777 
177777 
05001 1 
000300 
050007 
050010 
000002 



$$BYTE= 

$$CASE= 
$$DST = 
$$ELOC= 
$$ERFL= 
$$FLAG= 
$$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG= 



000403 

000000 

000000 

000402 

000000 

000001 

000000 

000224R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000252R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ : RE LCTL.DSKZ: RE LCTL=SPMAC/ML, EQUATE, RELCTL 
RUN-TIME: 13 4 .3 SECONDS 
RUN-TIME RATIO: 32/18=1.7 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:31 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0914 

3 COMMON EQUATE MODULE 

529 COMMON DEFINITIONS AND REFERENCES FOR RONOF 

532 000000' .PRINT ;SPMAC: VERSION 1.1 

563 KROTON <& KROTOF - PROCESS THE ' ROTON ' AND 'ROTOFF' KEYBOARD COMMANDS 

617 KROTON - KROTOF ROUTINE 



RONOF PROCESS THE ' ROTON ' AND 'ROTOFF' KEYBOARD COMMANDS 
RONOF. MAC 28-JUL-78 15:35 COMMON EQUATE MODULE 
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508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 



SEQ 0915 



TITLE RONOF PROCESS THE 'ROTON' AND 'ROTOFF' KEYBOARD COMMANDS 
IDENT /V0.0/ 



MODULE PACKAGE NAME: 
RONOF 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE CONSISTS OF TWO MODULES: 

1. KROTON - PROCESS THE KEYBOARD COMMAND 'ROTON' 

2. KROTOF - PROCESS THE KEYBOARD COMMAND 'ROTOFF' 

VERSION: 
0.0 



EDIT 



BY 



DATE 



REASON 



557 



558 
559 
560 
561 



000000' 
000000' 



000001 
000001 
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529 
530 
531 
532 

(1) 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 



000000' 
000006' 
000014' 
000022' 
000030" 
000032' 
000040' 
000046' 
000054' 
000062' 
000065' 



051127 
052502 
051040 
047511 
000045 
051 127 
052502 
051040 
04751 1 
022506 
000 



0521 1 1 
043106 
052117 
0201 16 

052111 
043106 
052117 
0201 16 
000 



ROTOFF' KEYBOARD COMMANDS MACY1 1 30A(1052) 20-SEP-78 
COMMON DEFINITIONS AND REFERENCES FOR RONOF 

•SBTTL COMMON DEFINITIONS AND REFERENCES FOR RONOF 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LST1N=1 

SLSTTAG = 1 



REFERENCED BY OTHER MODULES: 
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SEQ 0916 



020105 
051 105 
052101 
0471 17 

020105 
051105 
052101 
043117 



;' ROTON' MODULE ENTRY POINT 
'■ROTOFF' MODULE ENTRY POINT 



; ILLEGAL ARGUMENT MESSAGE 
;CHECK AN ARGUMENT 



GLOBL KROTON 

GLOBL KROTOF 

GLOBAL REFERENCES: 

GLOBL CM.ARG 

GLOBL ARGCHK 

GLOBL SAVREG 

GLOBL RESREG 

LOCAL STORAGE: 

RO.MGN: .ASCIZ /WRITE BUFFER ROTATION 0N%/ 



RO.MGF: . ASCIZ /WRITE BUFFER ROTATION OFF%/ 



ro.flg: .byte 
!even 



;1 IF ROTOF, IF ROTON 
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563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
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KROTON & KROTOF - PROCESS THE 'ROTON' AND 'ROTOFF' KEYBOARD COMMANDS 

.SBTTL KROTON & KROTOF - PROCESS THE 'ROTON' AND 'ROTOFF' KEYBOARD COMMANDS 
.IDENT /VO.O/ 

++ 
MODULE NAME: 

KROTON - KROTOF 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PROCESSES THE 'ROTON' AND 'ROTOFF' KEYBOARD COMMANDS 

IT WILL FIRST VERIFY THAT NO ARGUMENT APPEARS 

IN THE COMMAND. DECODE BUFFER. IF AN ARGUMENT IS IN THE 

BUFFER, AN ERROR MESSAGE IS ISSUED. OTHERWISE, 

THE WRITE BUFFER ROTATION BIT IN THE STATUS 

INDICATOR IS SET IF 'ROTON' AND CLEARED IF 'ROTOFF'. 

INPUTS: 

1 . ADDRESS OF DTA3LE 

2. COMMAND DECODE BUFFER POINTER 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.KBRSP 
DT.STO 

PATHOLOGICAL CONNECTIONS: 
CM.ARG 

SUBORDINATE ROUTINES CALLED: 

ARGCHK - CHECK FOR UNWANTED ARGUMENTS 

SAVREG 

RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL KROTON IN <DTADR , BU FPTR> 
CALL KROTOF IN <DTADR , BUFPTR> 
WHERE: DTADR = ADDRESS OF DTABLE 

BUFPTR = COMMAND DECODE BUFFER POINTER 

VERSION: 
0.0 



SEQ 0917 



EDIT 



DATE 



BY 



REASON 
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617 








618 








619 








S20 








521 


000066' 






(2) 


000066' 






622 








623 








624 








625 








626 








627 


000066' 






(6) 


000066' 


105267 


177773 


628 


000072' 






(2) 


000072' 


000402 




629 








630 








631 


000074' 






(2) 


000074' 






632 








633 








634 








635 








636 








637 








638 


000074' 






(4) 


000074' 


105067 


177765 


639 








640 


000100' 






(2) 


000100' 






641 








642 








643 








644 








645 


000100' 






(3) 


000100' 


004767 


000000G 


646 


000104' 






(4) 


000104' 


016500 


000000 


647 


0001 10' 






(4) 


0001 10' 


016501 


000002 


648 








649 








650 








651 








652 








653 








654 


0001 14' 






(4) 


0001 14' 


162705 


000002 


(3) 


000120' 


010546 




(4) 


000122' 


01 0145 




(3) 


000124' 


004767 


OOOOOOG 


(3) 


000130' 


01 2605 




(4) 


000132' 


012501 




655 








656 


000134' 






(6) 


000134' 


103404 
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KROTON - KROTOF ROUTINE 

.SBTTL KROTON - KROTOF ROUTINE 



SEQ 0918 



INLINE <KROTOF:> 



; + 



KROTOF: 



\ INDICATE IT'S 'ROTOFF' 

LET RO.FLG : B= RO.FLG + #1 
INLINE <BR GUNCH> 

ROUTINE KROTON <DTADR , BUFPTR> 



I.NCB RO.FLG 
BR GUNCH 



KROTON: 



; + 

; INDICATE 'ROTON' COMMAND 
» — ' 

LET RO.FLG . : B* #0 
INLINE <GUNCH:> 

; + 

; SAVE REGISTERS AND SAVE DTABLE ADDRESS AND DECODE BUFFER POINTER 



CLRB RO.FLG 



GUNCH : 



CALL SAVREG 

LET RO := DTADR(R5) 

LET R1 := BUFPTR(R5) 

; + 

; MAKE SURE NO ADDITIONAL ARGUMENTS ARE IN DECODE BUFFER 

i ~" 

CALL ARGCHK IN <R1> OUT <R1> 



JSR PC, SAVREG 
MOV DTADR(R5),R0 
MOV BUFPTR(R5),R1 



SUB 


#1*2,R5 


MOV 


R5,-(SP) 


MOV 


R1 ,-(R5) 


JSR 


PC, ARGCHK 


MOV 


(SP)+ t R5 


MOV 


(R5)+, R1 



IF. NO. ERROR THEN 



BCS 



50002$ 
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SEQ 0919 



657 
658 
659 
660 
661 
662 
663 
(4) 
664 
665 
(4) 
(3) 
666 
667 
668 
669 
670 
671 
672 
(6) 

(9) 
673 
(6) 
674 
(4) 
675 
676 
(4) 
(3) 
677 
678 
679 
(6) 
680 
(4) 
681 
(4) 
682 
(4) 
683 
684 
685 
686 
687 
638 
689 
(3) 
690 
691 
(3) 
(3) 
(2) 
692 



000136" 
000136' 

000144' 
000144' 
000146' 



000146' 
000146' 
000152' 
000154' 
000154' 
000162' 
000162' 

000170' 
000170' 
000172' 



000172' 
000172' 
000200' 
000200' 
000206' 
000206' 
000206' 
000206' 



000206' 
000206" 

000212' 
000212' 
000212' 
000212' 



THERE IS NO <CR> YET SO IT'S A BAD COMMAND. 
MESSAGE AND BEAT IT 



STUFF ERROR 



LET DT.KBRSP(RO) 



#CM.ARG 



012760 OOOOOOG 000022 



000420 



ELSE 



MOV 



BR 



50002$: 



IT'S A <CR> SO GO PROCESS SET THE WBSTAT BIT 

IN DT.STO IF 'ROTON' AND CLEAR IT IF ' ROTOF ' 



IFB RO.FLG EQ #0 THEN 



105767 
001007 



177713 



052760 000040 000010 
012760 000000' 000022 



000406 



042760 000040 000010 



012760 000032' 000022 



LET DT.STO(RO) := DT.STO(RO) SET. BY #W3STAT 
LET DT.KBRSP(RO) := #RQ.MGN 



ELSE 



50004$ 



LET DT.STO(RO) := DT.STO(RO) CLR.BY #WSSTAT 
LET DT.KBRSP(RO) : = #RO.MGF 



TSTB 

BNE 

BIS 
MOV 

BR 

BIC 
MOV 



ENDIF 



ENDIF 



50005$: 
50003$: 



004767 OOOOOOG 



000207 
0C0001 



CLEAN UP AND LEAVE 
CALL RESREG 
ENDRTN 

.END 



50000$: 
50001$: 



USR 



RTS 



#CM.ARG,DT.KBRSP 



50003$ 



RO. FLG 
50004$ 

#WB5TAT,DT.ST0(R 

#RO.MGN,DT.KBRSP 

50005$ 



#WB3TAT,DT.ST0(R 
#RO.MGF,DT.KBRSP 



PC, RESREG 



PC 



RONOF PROCESS THE ' ROTON ' AND 'ROTOFF' KEYBOARD COMMANDS 
RONOF. MAC 28-JUL-78 15:35 SYMBOL TABLE. 



ACSR = 
ACTBIT= 
ADDR22= 
ADR 

APTFER= 
APTPRE= 
ARGCHK= 
ASB 

ASSEMB= 
ASTAT = 
AUTO = 
AUTOST= 
AWAS = 
BITO « 
BITOO = 
BIT01 = 
BIT02 = 
BIT03 = 
BIT04 = 
BIT05 = 
BIT06 = 
BIT07 = 
BIT08 = 
BIT09 = 
BIT1 = 
BIT10 = 
BIT11 = 
BIT12 = 
BIT13 = 
BIT14 = 
BIT15 = 
BIT2 = 
BIT3 = 
BIT4 = 
BIT5 = 
BIT6 = 
BIT7 = 
BIT8 b 
BIT9 = 
BKDEF = 
BKMOD = 
BKMODE= 
BKSLSH= 
BUFPTR= 
CAPRES= 
CASTAT= 
CDERCT= 
CDWDCT= 
CKTIM = 
CLKPRE= 
CM.ARG= 
CONFIG= 
CQOVF = 



000102 
004000 
001000 
000006 
000004 
000200 
* * * * * * 

000106 
000010 
000104 
000010 
020000 
0001 10 
000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 
100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
000020 
040000 
000134 
000002 
000004 
000004 
000146 
000144 
100000 
000001 

000056 
000001 



CR . = 
CSRA = 
CSRC = 
CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMQ= 
DSEVNT= 
DTADR = 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CF0= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.ST0= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 



000015 
000100 
000102 
000003 
000017 
000025 
00001 1 
000400 
000000 
100000 
000014 
000000 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 



MANDS 


MACY1 1 


30A(1052) 20~. 


5EP-78 18:31 


PAGE 20 




SEO 0920 


ENBEOP= 


010000 


LPSTAT= 


000001 


PSW 


177776 




ENBNUL= 


000001 


MAPSTA--= 


000200 


RANNUM= 


000054 




ENDLST= 


000000 


MED 


076600 


R3UFEA= 


000130 




EOPBIT= 


000001 


MEMPA5= 


04000 


RBUFPA= 


000126 




ERRTYP= 


000105 


MODEXH^ 


004000 


RBUFSZ= 


000132 




EVNTBE= 


000200 


MODHOL= 


002000 


RBUFVA = 


000124 




EVNTHD= 


000200 


MODSEL= 


001000 


RDSERV= 


000101 




EVNTKT= 


000203 


MSGCKD= 


000010 


RDWHMI= 


000022 




EVNTPE= 


000202 


MSGCKS= 


00001 1 


RELERR= 


000020 




EVNTR£= 


000201 


MSGDER= 


000005 


RELMOD= 


020000 




FATERR= 


100000 


MSGDRP= 


000017 


RELTIM= 


010000 




GUNCH 


000100R 


MSGECH- 


177777 


RESREG= 


* * * * * * Q 




HRDCNT= 


000044 


MSGEOp= 


000013 


RES1 = 


000056 




HRDPAS= 


000050 


MSGHDR" 


000G04 


RES2 = 


000060 




ICQNT = 


000036 


MSGHNG= 


000022 


RICHAR= 


031060 




ICOUNT= 


000040 


MSGHRD= 


000007 


RO. FLG 


000065R 




IDNUM = 


000122 


MSGMAP= 


000021 


R3.MGF 


000032R 




IE 


000100 


MSGNUL= 


177775 


RQ.MGN ' 


OOOOOOR 




INDPAR= 


000040 


MSGPOP= 


000002 


RPTDAT= 


002000 




INHDRP= 


040000 


MSGPRM= 


177776 


RSTRT = 


0001 12 




INHEPR= 


020000 


MSGRES= 


000001 


RUBOUT= 


000177 




INHREL= 


001000 


MSGSFT= 


000006 


RUNMOD= 


100000 




INHRRE= 


000400 


MSGSKE= 


000003 


R5VALU= 


001740 




I N I T = 


000030 


MSGSMB* 


000015 


SAM 


0754 64 




INTR = 


000120 


MSGSMH= 


000014 


SAVREG= 


****** Q 




IOMOD = 


100000 


MSGSMS= 


000016 


SBADR = 


000102 




IOMODP= 


102000 


MSGSTD= 


000000 


SBKMOD= 


000000 




IOMODR= 


1 12000 


MSGSYS= 


000012 


SBKSEL= 


010000 




IOMODX= 


1 100C0 


MSGVEC= 


000020 


SC.ADR- 


000006 




JACK = 


035060 


NBKMOD= 


001000 


SC.ALC= 


000014 




KIPARO= 


172340 


NCPUQP= 


000020 


SC.APC= 


000016 




KIPAR1= 


172342 


NQAPTY= 


000002 


SC.CKL= 


000002 




KIPAR2= 


172344 


NULL = 


000000 


SC.CKP= 


000004 




KIPAR3= 


172346 


OWEN = 


024020 


SC.CLQ= 


000000 




KIPAR4= 


172350 


PAERR = 


000010 


SC.HLD= 


000010 




KIPAR5= 


172352 


PARPRE= 


002000 


SC.SCA= 


000012 




KIPAR6= 


172354 


PARSTA= 


000100 


SENDLS= 


177777 




KIPAR7= 


172356 


PASCNT= 


000034 


SOFCNT= 


000042 




KIPDRO= 


1 72300 


PDPLSI= 


020000 


SOFPAS= 


000046 




KIPDR1= 


172302 


PDP60 = 


004000 


SPACE = 


000040 




KIPDR2= 


172304 


PDP70 = 


010000 


SPOINT= 


000032 




KIPDR3= 


172306 


PRIO = 


000000 


SPVALU= 


002200 




KIPDR4= 


172310 


PRI1 


000040 


SRO 


177572 




KIPDR5= 


172312 


PRI4 = 


000200 


SRI s 


177574 




KIPDR6= 


172314 


PRI5 = 


000240 


SR2 


177576 




KIPDR7= 


172316 


PRIG = 


000300 


SR3 


172516 




KROTOF 


000066RG 


PRI7 = 


000340 


STAT = 


000026 




KROTON 


000074RG 


PRO 


000000 


STATBI= 


064757 




KTERRO= 


000040 


PR4 


000200 


STAT1 - 


000027 




KTPRES= 


000400 


PR5 


000240 


SUSPND= 


000001 




KTSTAT= 


000020 


PR6 


000300 


SVRO = 


000062 




KTXTND= 


040000 


PR7 = 


000340 


SVR1 = 


000064 




LF 


000012 


PS 


177776 


SVR2 = 


000066 





RONOF PROCESS THE ' ROTON ' AND 'ROTOFF' KEYBOARD COMMANDS 
RONOF. MAC 28-JUL-78 15:35 SYMBOL TABLE 

$F$BAD= 
$F$BLA = 
$F$CAS= 
$F$DEC= 
$F$DO = 
$F$FAL= 
$F$GOO= 
$F$IF = 
$F$INC = 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR ■■ 
$F$RTI= 
$F$RTN= 
$F$SEL = 
$F$THE = 
$F$TRU = 
$F$UNT = 
$F$WHI= 
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SEQ 0921 



SVR3 = 


000070 




UIPDR4= 


177610 


SVR4 = 


000072 




UIPDR5= 


177612 


SVR5 = 


000074 




UIPDR6= 


177614 


SVR6 = 


000076 




UIPDR7= 


177616 


SYSCNT= 


000052 




WASADR= 


00 0104 


SYSERR= 


000100 




WBSTAT= 


000040 


TMPIO = 


000002 




. WBUFEA= 


000136 


TQOVF = 


000002 




■ WBUFPA= 


000134 


UIPAR0= 


177640 




WBUFRQ= 


000140 


UIPAR1= 


177642 




WBUFSZ= 


000142 


UIPAR2= 


177644 




WDFR = 


0001 16 


UIPAR3= 


177646 




WDTO = 


000114 


UIPAR4= 


177650 




WTINRE= 


000352 


UIPAR5= 


177652 




WTWHMI= 


000222 


UIPAR6= 


177654 




XFLAG = 


000005 


UIPAR7= 


177656 




XOFF = 


000023 


UIPDR0= 


177600 




XON 


000021 


UIPDR1= 


177602 




$BGNLE= 


177777 


UIPDR2= 


177604 




$ERFLG= 


000400 


UIPDR3= 


177606 




$F$AND= 


000310 


. ABS. 


000000 
000214 


000 
001 







000401 
000170 
000150 
000220 
000340 
000405 
000400 
0001 10 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 



$F$YES= 
$IFLEV= 
$ISK0 = 
$ISK1 = 
$LOCTA= 
$LSTIN= 
$LSTTA= 
$NESTL= 
$NSK0 = 
$NSK1 = 
$NSK2 = 
$SAVLE= 
$TAGLE= 
$TAGNU= 
$TEMP = 
$TSK0 = 
$TSK1 = 
$$ARGC= 
$$BYTE= 
$$CASE= 



000402 
177777 
000001 
000001 
177777 
000001 
000001 
177777 
000300 
000110 
000110 
177777 
177777 
050006 
000300 
050003 
050005 
000004 
000402 
000000 



$$DST = 
$$ELOC = 
$$ERFL = 
$$FLAG = 
$$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$SRTN2 = 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2 = 
$$TO : 
$$$TAG= 



000000 

000402 

000000 

000001 

000000 

000152R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000214R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ: RONOF . DSKZ : RONOF=SPMAC/ML , EQUATE , RONOF 
RUN-TIME: 12 2 .4 SECONDS 
RUN-TIME RATIO: 57/16=3.5 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:32 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0922 

3 COMMON EQUATE MODULE 
526 SAVREG SAVE REGISTER RO THRU R4 

568 COMMON DEFINITIONS AND REFERENCES 

571 000000' .PRINT ;SPMAC: VERSION 1.1 

581 SAVE REGISTER'S RO THRU R4 ROUTINE 

607 RESREG RESTORE GENERAL REGISTERS RO THRU R4 

648 COMMON DEFINITIONS AND REFERENCES 

657 RESTORE GENERAL REGISTERS RO THRU R4 ROUTINE 



SAVRES BINDER FOR SAVREG AND RESREG 
SAVRES.MAC 28-JUL-78 09:27 
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COMMON EQUATE MODULE 



SEQ 0923 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 



.TITLE SAVRES BINDER FOR SAVREG AND RESREG 
.IDENT /VO.O/ 



MODULE PACKAGE NAME: 
SAVRES 

FUNCTIONAL DESCRIPTION: 

BINDER FOR THE FOLLOWING MODULES: 
SAVREG - SAVE REGISTERS 
RESREG - RESTORE REGISTERS 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



SAVRES BINDER FOR SAVREG AND RESREG 
SAVRES.MAC 28-JUL-78 09:27 

526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
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SAVREG SAVE REGISTER RO THRU R4 

.SBTTL SAVREG SAVE REGISTER RO THRU R4 
.IDENT /V0.0/ 

++ 
MODULE NAME: 
SAVREG 

FUNCTIONAL DESCRIPTION: 

THIS MODULE WILL SAVE GENERAL PURPOSE REGISTERS RO THRU R4 
ON THE R6 STACK AND RETURNS TO CALLER 

INPUTS: 

NONE 

IMPLICIT INPUTS: 
NONE. 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
NONE 

FUNCTIONAL. SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 
CALL SAVREG 

VERSION: 
0.0 



SEQ 0924 



EDIT 



DATE 



BY 



REASON 



SAVRES BINDER FOR SAVREG AND RESREG 
SAVRES.MAC 28-JUL-78 09:27 
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SAVREG SAVE REGISTER RO THRU R4 



PAGE 19-2 



SEO 0925 



567 






568 






569 






570 






571 


000000' 




(1) 


000000' 




572 




000001 


573 




000001 


574 






575 






573 






577 






578 






579 







.SBTTL COMMON DEFINITIONS AND REFERENCES 

•MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

SLSTIN = 1 

SLSTTAG a 1 

J lis*************** 

; REFERENCED BY OTHER MODULES 



,GLOBL SAVREG 



{MODULE ENTRY POINT 



000000' 
000000' 



SAVRES BINDER FOR SAVREG AND RESREG 
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581 
582 
583 
584 
(2) 
585 
586 
587 
588 
589 
590 
591 
592 
(6) 
593 
(4) 
594 
(4) 
595 
(4) 
596 
(4) 
597 
(4) 
598 
(4) 
599 
600 
601 
602 
603 
604 
(3) 
(3) 
(2) 
605 



000000' 
000000' 
000004' 
000004' 
000010' 
000010' 
000014' 
000014' 
000020' 
000020' 
000024' 
000024' 
000030' 
000030* 



162706 
016616 
010466 
010366 
010266 
010166 
010066 



000012 
000012 
000002 
000004 
000006 
000010 
000012 



000034' 
000034' 
000034' 
000034' 000207 
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SAVE REGISTER'S RO THRU R4 ROUTINE 

.SBTTL SAVE REGISTER'S RO THRU R4 ROUTINE 



ROUTINE SAVREG 



SEQ 0926 



SAVREG: 



FIRST ALLOCATE 10 BYTES ON THE STACK POINTER BY SETTING STACK 
POINTER TO SP + 12, THEN LOAD RETURN ADDRESS INTO NEW STACK POINTER 
NOW SAVE REGISTERS 



LET SP *.= SP - #12 
LET (SP) := +12(SP) 



LET 2(SP) := R4 

LET 4(SP) := R3 

LET 6(SP) := R2 

LET 10(SP) := R1 

LET 12(SP) := RO 

RETURN TO CALLER 
ENDRTN 



SUB 


#12, SP 


MOV 


+12(SP) ,(SP) 


MOV 


R4,2(SP) 


MOV 


R3,4(SP) 


MOV 


R2,6(SP) 


MOV 


R1 ,10(SP) 


MOV 


RO, 12(SP) 



50000$: 
50001$: 



RTS 



PC 
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607 
608 
609 
310 
611 
612 
613 
614 
615 
616 
817 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
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RESREG RESTORE GENERAL REGISTERS RO THRU R4 

.SBTTL RESREG RESTORE GENERAL REGISTERS RO THRU R4 
.IDENT /V0.0/ 



MODULE NAME: 
RESREG 

FUNCTIONAL DESCRIPTION: 

THIS MODULE WILL RESTORE GENERAL REGISTERS RO THRU R4 FROM THE 
R6 STACK AND RETURN TO CALLER. 

INPUTS: 

NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 

NONE- 
FUNCTIONAL SIDE EFFECTS: 

NONE 

CALLING SEQUENCE: 
CALL RESREG 

VERSION: 
0.0 



SEQ 0927 



EDI - 



DATE 



BY 



REASON 



SAVRES BINDER FOR SAVREG AND RESREG 
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COMMON DEFINITIONS AND REFERENCES 



SEQ 0928 



643 
649 
650 
651 
652 
653 
654 
655 



.SBTTL COMMON DEFINITIONS AND REFERENCES 



)( I **M<s|o|j*!f:*s)ss(;;>)t:>|sN«>t*# 



REFERENCED BY OTHER MODULES 



,GLOBL RESREG 



;MODULE ENTRY POINT 



SAVRES BINDER FOR SAVREG AND RESREG 
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658 
659 


000036' 






(2) 


000036' 






660 








661 








662 








663 








664 








665 








666 


000036' 






(4) 


000036' 


016604 


000002 


667 


000042' 






(4) 


000042' 


016603 


000004 


668 


000046' 






(4) 


000046' 


0i6602 


000006 


669 


000052' 






(4) 


000052' 


016601 


000010 


670 


000056' 






(4) 


000056' 


016600 


000012 


671 


000062' 






(4) 


000062' 


01 1666 


000012 


672 


000066' 






(6) 


000066' 


062706 


000012 


673 








674 








675 








676 








677 








678 


000072' 






(3) 


000072' 






(3) 


000072' 






(2) 


000072' 


000207 




679 








680 




000001 
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RESTORE GENERAL REGISTERS RO THRU R4 ROUTINE 

.SBTTL RESTORE GENERAL REGISTERS RO THRU R4 ROUTINE 

ROUTINE RESREG 



SEQ 0929 



RESREG : 



RESTORE REGISTERS RO THRU R4 FROM R6 STACK, THEN CLEAN UP STACK FOR 
RETURN TO CALLER 



LET R4 := 2(SP) 

LET R3 := 4(SP) 

LET R2 := 6(SP) 

LET R1 := 10(SP) 

LET RO := 12(SP) 

LET 12(SP) := (SP) 

LET SP := SP + #12 

RETURN TO CALLER 



MOV 


2(SP) ,R4 


MOV 


4(SP) , R3 


MOV 


6(SP) ,R2 


MOV 


10(SP) ,R1 


MOV 


12(SP) , RO 


MOV 


(SP) ,12(SP) 


ADD 


#12, SP 



ENDRTN 



END 



50000$: 
50001$: 



RTS 



PC 
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SYMBOL TABLE 



20-SEP-78 18:32 PAGE 20 



SEQ 0930 



ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTQST= 


020000 


AWAS = 


0001 10 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQOVF = 


000001 


CR 


000015 


CSRA = 


000100 


CSRC = 


000102 



CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO= 
DSEVNT= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CFO= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT„EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 
ENDLST= 
EOPBIT= 



000003 
00 0017 
000025 
000011 
000400 
000000 
100000 
000014 
000042 
000100 
000076 
000034 
00 0014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
000110 
000070 
0000 74 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 
000000 
000001 



ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT = 

INTR = 

IOMOD = 

IOMQDP= 

IOMODR= 

IOMODX= 

JACK = 

KIPARO= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND^ 

LF 

LPSTAT= 

MAPSTA= 

MED 

MEMPAS= 

MODEXH= 

MODHOL= 

MODSEL= 



000106 
000200 
000200 
000203 
000202 
000201 
100000 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000030 
000120 
100000 
102000 
1 12000 
1 10000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 
000001 
000200 
076600 
040000 
004000 
002000 
001000 



MSGCKD: 

MSGCKS= 

MSGDER= 

MSGDRP = 

MSGECbh 

MSGEOP= 

MSGHDR: 

MSGHNG= 

MSGHRD= 

MSGMAP= 

MSGNUL = 

MSGPOP= 

MSGPRM= 

MSGRES= 

MSGSFT= 

MSGSKE = 

MSGSMB= 

MSGSMH= 

MSGSMS= 

MSGSTD= 

MSGSYS= 

MSGVEC= 

NBKMOD= 

NCPUOP= 

NOAP.TY = 

NULL = 

OWEN = 

PAERR = 

PARPRE= 

PARSTA= 

PASCNT= 

PDPLSI= 

PDP60 = 

PDP70 = 

PRIO = 

PRI1 = 

PRI4 = 

PRI5 = 

PRI6 = 

PRI7 = 

PRO 

PR4 

PR5 

PR6 

PR7 

PS 

PSW 

RANNUM= 

RBUFEA= 

RBUFPA= 

RBUFSZ= 

RBUFVA= 

RDSERV= 



000010 
00001 1 
000005 
000017 
177777 
000013 
000004 
000022 
000007 
000021 
177775 
000002 
177776 
000001 
000006 
000003 
000015 
000014 
000015 
000000 
000012 
000020 
001000 
000020 
000002 
000000 
024020 
000010 
002000 
000100 
000034 
020000 
004000 
010000 
000000 
000040 
000200 
000240 
000300 
000340 
000000 
000200 
000240 
000300 
000340 
177776 
177776 
000054 
000130 
000126 
000132 
000124 
000101 



RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RESREG 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBOUT= 

RUNMOD= 

R5VALU= 

SAM 

SAVREG 

S8ADR = 

SBKMOD= 

SBKSEL= 

SC.ADR= 

SC.ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SOFCNT= 

50FPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SRI 

SR2 

SR3 

STAT b 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 

SVR6 = 

SYSCNT= 

SYSERR= 

TMPIO = 

TQOVF = 

UIPARO= 

UIPAR1= 



000022 

000020 

020000 

010000 

000036RG 

000056 

000060 

031060 

002000 

0001 12 

000177 

100000 

001740 

075464 

OOOOOORG 

000102 

000000 

010000 

000005 

000014 

000016 

000002 

000004 

000000 

000010 

000012 

177777 

000042 

000 046 

000040 

000032 

002200 

177572 

177574 

177576 

172516 

000026 

064757 

000027 

000001 

000062 

000064 

000066 

000070 

000072 

000074 

000076 

000052 

000100 

000002 

000002 

177640 

177642 



SAVRES 


BINDER FOR 


SAVREG 


AND RESREG MACY11 


30A(1052) 20-SEP-78 13 
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SAVRES. 


VIAC 28- 


JUL-78 


09:27 


SYMBOL 


TABLE 








UIPAR2= 


177644 




WBUFPA= 


000134 


$F$DO = 


000340 


$IFLEV= 


177777 


UIPAR3= 


177646 




WBUFRQ= 


000140 


$F$FAL= 


000405 


$LOCTA== 


177777 


UIPAR4= 


177650 




WBUFS2= 


000142 


$F$GOO= 


000400 


$LSTIN= 


000001 


UIPAR5= 


177652 




WDFR = 


000116 


$F$IF = 


0001 10 


$LSTTA--= 


00.0001 


UIPAR6= 


177654 




WDTO = 


0001 14 


$F$INC= 


000210 


$NESTL= 


177777 


UIPAR7= 


177656 




WTINRE= 


000352 


$F$LOO= 


000200 


$NSK0 = 


000300 


UIPDR0= 


177600 




WTWHMI= 


000222 


$F$NAM= 


000160 


$SAVLE= 


177777 


UIPDR1= 


177602 




XFLAG = 


000005 


$F$NO = 


000403 


$TAGLE--= 


177777 


UIPDR2= 


. 177604 




XOFF = 


000023 


$F$OR = 


000320 


$TAGNU= 


050002 


UIPDR3= 


177606 




XON 


000021 


$F$RTI= 


000350 


$TEMP = 


000300 


UIPDR4= 


177610 




$BGNLE= 


177777 


$F$RTN= 


000300 


$$ARGC= 


000000 


UIPDR5= 


177612 




$ERFLG= 


000400 


$F$SEL= 


000140 


$$BYTE= 


000000 


UIPDR6= 


177614 




$F$AND= 


000310 


$F$THE= 


000330 


$$CASE= 


000000 


UIPDR7= 


177616 




$F$BAD= 


000401 


$F$TRU= 


000404 


$$DST = 


000000 


WASADR= 


000104 




$F$BLA= 


000170 


$F$UNT= 


000130 


$$ELOC= 


000000 


WBSTAT= 


000040 




$F$CAS= 


000150 


$F$WHI= 


000120 


$$ERFL= 


000000 


WBUFEA= 


000136 




$F$DEC= 


000220 


$F$YES= 


000402 


$$FLAG= 


000000 


. ABS. 


000000 
000074 


000 
001 















SEQ 0931 



$$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$STGS1= 
$$TGS2= 
$$TO = 
$$$TAG= 



000000 
000000 
0-00000 
177777 
000000 
050000 
050001 
000000 
000000 
000 000 
000000 
000000 
050000 
000074R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ: SAVRES f DSKZ:SAVRES=SPMAC/ML, EQUATE, SAVRES 
RUN-TIME: 12 2 .4 SECONDS 
RUN-TIME RATIO: 69/15=4.5 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:33 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0932 

3 COMMON EQUATE MODULE 

527 COMMON DEFINITIONS AND REFERENCES FOR SELDES 

530 000000' .PRINT ;SPMAC: VERSION 1.1 

563 KSEL PROCESS THE 'SEL' KEYBOARD COMMAND 

618 KSEL ROUTINE 

630 KDES PROCESS THE 'DES' KEYBOARD COMMAND 

584 KDES ROUTINE 

696 PRSEDE ROUTINE 



SELDES PROCESS THE KEYBOARD COMMANDS ' SEL' AND 'DES' MACY1 1 30A(1052) 
SELDES.MAC 10-AUG-78 17:09 COMMON EQUATE MODULE 



20-SEP-78 18:33 PAGE 19 



SEQ 0933 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 



TITLE SELDES 
IDENT /VO.O/ 



PROCESS THE KEYBOARD COMMANDS 'SEL' AND 'DES' 



++ 
MODULE PACKAGE NAME: 
SELDES 

FUNCTIONAL DESCRIPTION: 

THIS PACKAGE CONTAINS TWO ROUTINES: 

1. KSEL - PROCESS THE KEYBOARD COMMAND 'SEL 

2. KDES - PROCESS THE KEYBOARD COMMAND 'DES 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



SELDES PROCESS THE KEYBOARD COMMANDS 'SEL' AND 'DES' MACY1 1 30A(1052) 20-SEP-78 18:33 PAGE 19-1 
SELDES. MAC 10-AUG-78 17:09 COMMON DEFINITIONS AND REFERENCES FOR SELDES 



SEO 0934 



527 
528 
529 
530 
(D 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 



000000' 
000000' 



000001 
000001 



000000' oooooo 



.SBTTL COMMON DEFINITIONS AND REFERENCES FOR SELDES 

•MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 
$LSTTAG=1 

Jit******));** + **### 

REFERENCED BY OTHER MODULES: 



GLOBL KSEL. 
GLOBL KDES 

GLOBAL REFERENCES: 

GLOBL NAMCHK 

GLOBL SAVREG 

GLOBL RESREG 

GLOBL CM.BADNAME 

GLOBL CM.ARG 

GLOBL ARGCHK 

LOCAL STORAGE: 
SE.FLG: .WORD 



;SELECT A MODULE 
{DESELCT A MODULE 



MODULE NAME VERIFICATION ROUTINE 

SAVE REGISTERS 

RESTORE REGISTERS 

ADDRESS OF BAD MODULE NAME MESSAGE 

ADDRESS OF INVALID ARGUMENT MESSAGE 

ARGCHK ROUTINE 



JWHEN- A 1 - SELECT, WHEN A 0, DESELECT 



SELDES PROCESS THE KEYBOARD COMMANDS 'SEL' AND ' DES ' MACY1 1 30A(10S2) 20-SEP-78 18:33 PAGE 19-2 
SELDES.MAC 10-AUG-78 17=09 KSEL PROCESS THE 'SEL 1 KEYBOARD COMMAND 



SEQ 0935 



563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 



SBTTL KSEL PROCESS THE 'SEL' KEYBOARD COMMAND 
IDENT /V.0.0/ 

++ 
MODULE NAME: 
KSEL 

FUNCTIONAL. DESCRIPTION: 

THIS ROUTINE PROCESSES THE. 'SEL' KEYBOARD COMMAND. 

IT SHALL DETERMINE IF A MODULE NAME HAS BEEN INCLUDED IN 

THE COMMAND STRING. IF THERE IS NO MODULE NAME, ALL MODULES' 

STATUS WORDS WILL HAVE THE SELECT BIT SET. IF THERE IS A 

MODULE NAME IN THE COMMAND STRING, THE NAME MUST FIRST BE VERIFIED 

AND IF VALID, THE STATUS WORD IN THE MODULE WILL BE UPDATED(SELECT 

BIT SET) . 

INPUTS: 

1 . DTABLE ADDRESS 

2. COMMAND DECODE BUFFER POINTER 

IMPLICIT INPUTS: 
DT.MLST 
DT.STO 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.KBRSP 
DT.ST1 
DT.STO 

PATHOLOGICAL CONNECTIONS: 
CM.ARG 
CM.BADNAME 

SUBORDINATE ROUTINES CALLED: 
SAVREG 
RESREG 

FUNCTIONAL SIDE EFFECTS: 

NONE- 
CALLING SEQUENCE: 

CALL KSEL IN <DTADR , CMDBUF> 

WHERE DTADR ■ ADDRESS OF DTABLE 

CMDBUF = COMMAND DECODE BUFFER POINTER 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



SELDES 
SELDES 

618 
619 
620 
(2) 
621 
622 
(4) 
623 
624 
(2) 
625 
626 
(3) 
(3) 
(2) 
627 
628 



PROCESS THE KEYBOARD COMMANDS ' SEL 1 AND ' DES 
,MAC 10-AUG-78 17:09 KSEL ROUTINE 



MACY11 30A(10S2) 20-SEP-78 18:33 PAGE 19-3 



SEO 0936 



000002' 
000002' 

000002' 
000002' 012767 

000010' 
000010' 000403 

000012' 
000012' 
000012' 
000012' 000207 



000001 177770 



.SBTTL KSEL ROUTINE 
ROUTINE KSEL. <DTADR f CMDBUF> 



KSEL: 



LET SE.FLG 



INLINE <BR 



ENDRTN 



#1 



PRSEDE> 



50000$: 
50001$: 



MOV 



BR 



RTS 



#1 t SE.FLG 



PRSEDE. 



PC 



SELDES PROCESS THE KEYBOARD COMMANDS 'SEL' AND ' DES' MACY11 30A(1052) 20-SEP-7! 
SELDES.MAC 10-AUG-78 17:09 KDES PROCESS THE 'DES' KEYBOARD COMMAND 



18:33 PAGE 19-4 



SEQ 0937 



630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
846 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 



SBTTL KDES PROCESS THE 'DES' KEYBOARD COMMAND 
IDENT /VO.O/ 

++ 
MODULE NAME: 
KDES 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE PROCESSES THE 'DES' KEYBOARD COMMAND. 

IT SHALL DETERMINE IF A MODULE NAME HAS BEEN INCLUDED IN 

THE COMMAND STRING. IF THERE IS NO MODULE NAME, ALL MODULES' 

STATUS WORDS WILL HAVE THE SELECT BIT CLEARED. IF THERE IS A 

MODULE NAME IN THE COMMAND STRING, THE NAME MUST FIRST BE VERIFIED 

AND IF VALID, THE STATUS WORD IN THE MODULE WILL BE UPDATED(SELECT 

BIT CLEARED). 

INPUTS: 

1 . DTABLE ADDRESS 

2. COMMAND DECODE BUFFER POINTER 

IMPLICIT INPUTS: 
DT.MLST 
DT.STO 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.KBRSP 
DT.ST1 
DT.STO 

PATHOLOGICAL CONNECTIONS: 
CM.ARG 
CM.BADNAME 

SUBORDINATE ROUTINES CALLED: 
SAVREG 
RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL KDES IN <DTADR , CMDBUF> 
WHERE DTADR = ADDRESS OF DTABLE 

CMDBUF = COMMAND DECODE BUFFER POINTER 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



SELDES PROCESS THE KEYBOARD COMMANDS 'SEL' AND 'DES' MACY1 1 30A(1052) 20-SEP-78 18:33 PAGE 19-5 

KDES ROUTINE 

.SBTTL KDES ROUTINE 

ROUTINE KDES <DTADR ,CMDBUF> 

KDES: 



SET THE FLAG TO DESELECT AND CALL THE COMMON ROUTINE 
LET SE.FLG ;: = #0 



SELDES. 


MAC 10-AUG-78 17:09 


684 




685 




686 


000014' 


(2) 


000014' 


687 




688 




689 




690 




691 




692 


000014' 


(4) 


000014' 005067 177760 


693 




694 





SEQ 0938 



CLR 



SE. FLG 



SELDES PROCESS THE KEYBOARD COMMANDS 
SELDES.MAC 10-AUG-78 17:09 



696 








697 








698 


000020' 






(2) 


000020' 






699 








700 








701 








702 








703 








704 


000020' 






(3) 


000020' 


004767 


OOOOOOG 


705 


000024' 






(4) 


000024' 


016500 


000000 


706 








707 








708 








709 








710 








711 


000030' 






(4) 


000030' 


016001 


000032 


712 


000034' 






(4) 


000034' 


016502 


000002 


713 








714 








715 








716 








717 








718 








719 








720 








721 








722 








723 








724 


000040' 






(4) 


000040' 


162705 


000002 


(3) 


000044' 


01 0546 




(4) 


000046' 


010245 




(3) 


000050' 


004767 


OOOOOOG 


(3) 


000054' 


012605 




(4) 


000056' 


01 2502 




725 








726 


000060' 






(6) 


000060* 


103047 




727 








728 








729 








730 








731 








732 








733 








734 








735 








736 








737 








738 








739 


000062' 







SEL' AND 'DES' MACY1 1 30A(1052) 20-SEP-78 18:33 PAGE 19-6 
PRSEDE ROUTINE 

.SBTTL PRSEDE ROUTINE 

INLINE <PRSEDE:> 



SAVE REGISTERS AND SAVE DTABLE ADDRESS 

CALL SAVREG 

LET RO := DTADR(R5) 

GET ADDRESS OF MODULE LIST AND SAVE DECODE BUFFER POINTER 



SEQ 0939 



PRSEDE: 



JSR 
MOV 



PC, SAVREG 
DTADR(R5) ,R0 



LET R1 := DT.MLST(RO) 
LET R2 := CMDBUF(R5) 



ADVANCE DECODE BUFFER PTR TO FIRST NON SPACE CHARACTER. 
IF IT'S A <CR>, SELECT ALL MODULES - IF NOT A <CR> 
GO VERIFY THE MODULE NAME 



CALL ARGCHK IN <R2> OUT <R2> 



MOV 
MOV 



DT.MLST(RO) t R1 
CMDBUF(R5) , R2 



SUB 


#1*2, R5 


MOV 


R5,-(SP) 


MOV 


R2,-(R5) 


JSR 


PC, ARGCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+ r R2 



IF. ERROR THEN 



ITS A CR SO SELECT - DESELECT THEM ALL 



IF WE ARE SELECTING, SET BIT 14. 

IF WE ARE DESELECTING, CLEAR BIT 14, 



IF SE.FLG GT #0 THEN 



BCC 



50002$ 



SELDES PROCESS THE KEYBOARD COMMANDS 'SEL 1 AND ' DES' 
SELDES.MAC 10-AUG-78 17:09 PRSEDE ROUTINE 



MACY11 30A(1052) 2&-SEP-78 13:33 PAGE 19-7 



SEQ 0940 



(6) 
(9) 
740 
(4) 
(6) 
(9) 
741 
742 
743 
744 
745 
746 
747 
•(4) 
748 
749 
(6) 
750 
(4) 
(6) 
751 
(6) 
(9) 
752 
(6) 
753 
(4) 
754 
755 
(4) 
(3) 
756 
(6) 
(9) 
757 
(6) 
758 
(4) 
759 
760 
(4) 
(3) 
761 
762 
(6) 
763 
(4) 
(6) 
(9) 
764 
765 
766 
767 
768 
769 
770 



000062' 005767 

000066' 003431 
000070' 
000070' 

000070' 005711 

000072' 001417 



000074 
000074 

000076 
000076 
000104 
000104 
0001 10 
0001 14 
0001 14 
000120 
000122 
000122 
000130 
000130 

000130 
000130 
000132 
000132 
000132 
000140 
000142 
000142 
000150 
000150 

000150 
000150 
000152 

000152 
000152 
000160 
000160 
000160 
000162 



177712 



WHILE (R1 ) NE #0 DO 



50004$: 



TST 
BLE 



TST 

BEQ 



SE. FLG 
50003$ 



(RD 
500 05$ 



GET A MODULE HEADER ADDRESS FROM MODULE LIST, UPDATE 
STATUS WORD, ADVANCE TO GET NEXT MODULE HEADER ADDRESS. 



LET R2 := (R1) + 



012102 



052762 040000 000026 

016204 000026 

042704 064757 

020427 000000 
001003 

052760 010000 000012 



000757 



032760 100000 000010 
001403 

052760 001000 000010 



000412 



052760 100000 000012 



00571 1 
001405 



MOV 



(R1 )+,R2 



LET STAT(R2) := STAT(R2) SET . BY #BIT14 
LET R4 := STAT(R2) CLR.BY #STATBITS 

IF R4 EQ #SBKMOD THEN 



BIS #BIT14,STAT(R2) 



MOV 
BIC 



STAT(R2) ,R4 
#STAT8ITS,R4 



CMP R4,#SBKM0D 
BNE 50006$ 
LET DT.ST1(R0) := DT.ST1(R0) SET. BY #SBKSEL 

BIS #SBKSEL f DT.ST1(R 



ENDIF 
ENDDO 
IF #RUNMODE SETIN DT.STO(RO) THEN 



50006$: 








BR 


50004$ 


50005$: 








BIT 


#RUNMQDE,DT.STO( 




BEQ 


50007$ 



ENDIF 



LET DT.STO(RO) := DT.STO(RO) SET. BY #MODSEL 

BIS 

50007$: 



ELSE 



50003$: 

LET DT.ST1(R0) := DT.ST1(R0) SET. BY #CKTIM 

WHILE (R1 ) NE #0 DO 

50011$: 



GET A MODULE HEADER ADDRESS FROM MODULE- LIST, UPDATE 
STATUS WORD, ADVANCE TO GET NEXT MODULE HEADER ADDRESS., 



BR 



BIS 



TST 

BEQ 



#MQDSEL,DT.STO(R 



50010$ 



#CKTIM,DT.ST1 (RO 



(RD 
50012$ 



000164 1 



LET R2 := (R1)+ 
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(4) 


000164' 


012102 




771 


000166' 






(6) 


000166' 


042762 


044000 000026 


772 








773 


000174' 






(4) 


000174' 


000771 




(3) 


000176' 






774 








775 


000176' 






(4) 


000176' 






776 








777 








778 


000176' 




E 


(4) 


000176' 


000472 




(3) 


000200' 






779 








780 








781 








782 








783 








784 


000200' 






(4) 


000200' 


162705 


000004 


(3) 


000204' 


010546 




(5) 


000206' 


010245 




(4) 


000210' 


010045 




(3) 


000212' 


004767 


OOOOOOG 


(3) 


000216' 


012605 




(4) 


000220' 


012503 




(4) 


000222' 


012502 




785 








786 








787 








788 








789 








790 


000224' 






(6) 


000224' 


103454 




791 








792 








793 








794 








795 








796 








797 








798 


000226' 






(4) 


000226' 


162705 


000002 


(3) 


000232' 


01 0546 




(4) 


000234' 


010245 




(3) 


000236' 


004767 


OOOOOOG 


(3) 


000242' 


012605 




(4) 


000244' 


012502 




799 


000246' 






(6) 


000246' 


103037 




800 








801 








802 








803 









MOV 



LET STAT(R2) 



STAT(R2) CLR.BY #BIT1 4 ! ACTBIT 

BIC 



END DO 



BR 



ENDIF 



ELSE 



50012$: 
50010$: 

50002$: 



BR 



THERE IS A MODULE NAME, SO GO CHECK IT OUT 



CALL NAMCHK IN <R0,R2> OUT <R3,R2> 



SEE IF NAME O.K. IF IT WAS, THE MODULE HEADER ADDRESS 
WILL BE IN R3. 

IF. NO. ERROR THEN 



CALL ARGCHK AGAIN TO SEE IF ANY 

MORE ARGUMENTS (IF SO, THEY ARE ILLEGAL) 



BCS 



CALL ARGCHK IN <R2> OUT <R2> 



IF. ERROR THEN 



IT'S A CR, SO ALL IS WF.Lu, SO IF SELECTING - SET BIT 14 
AND IF DESELECTING - CLEAR BIT 14 



BCC 



SEQ 0941 

(R1 ) + ,R2 
#BIT14!ACTBIT,ST 

50011$ 



50013$ 



SUB 


#2*2, R5 


MOV 


R5,-(SP) 


MOV 


R2,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, NAMCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R3 


MOV 


(R5)+,R2 



50014$ 



SUB 


#1*2, R5 


MOV 


R5,-(SP) 


MOV 


R2,-(R5) 


JSR 


PC, ARGCHK 


MOV 


(SP)+,R5 


MOV 


(R5)+,R2 



50015$ 
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SEQ 0942 



804 








; 


805 










806 










807 










808 


000250' 








(6) 


000250' 


005767 


177524 




(9) 


000254' 


003425 






809 


000256' 








(6) 


000256* 


052763 


040000 


000026 


810 


000264' 








(6) 


000264' 


032760 


100000 


000010 


(9) 


000272' 


001403 






811 


000274' 








(6) 


000274' 


052760 


001000 


000010 


812 


000302' 








(4) 


000302' 








813 


000302' 








(4) 


000302' 


016304 


C00025 




(6) 


000306' 


042704 


064757 




814 


000312' 








(6) 


000312' 


020427 


000000 




(9) 


000316' 


001003 






815 


000320' 








(6) 


000320' 


052760 


010000 


000012 


816 


000326' 








(4) 


000326' 








817 


000326' 








(4) 


000326' 


000406 






(3) 


000330' 








818 










819 










820 










821 










822 










823 










824 


000330' 








(6) 


000330' 


052760 


100000 


000012 


825 


000336' 








(6) 


000336' 


042763 


044000 


000026 


826 


000344' 








(4) 


000344' 








827 


000344' 








(4) 


000344' 


000403 






(3) 


000346' 








828 










829 










830 










831 










832 










833 


000346' 








(4) 


000346* 


012760 


OOOOOOG 


000022 


834 


000354' 








(4) 


000354' 








835 


000354 ' 








(4) 


000354* 


000403 






(3) 


000356' 









IF SE.FLG GT #0 THEN 

TST SE.FLG 
BLE 50016$ 
LET STAT(R3) := STAT(R3) SET. BY #BIT14 

BIS #BIT14,STAT(R3) 
IF #RUNMODE SETIN DT.STO(RO) THEN 

BIT #RUNMODE,DTiST0( 
BEQ 50017$ 
LET DT.STO(RO) := DT.STO(RC) SET. BY #MODSEL 

BIS #M0DSEL,DT.ST0(R 
ENDIF 

50017$: 
LET R4 := STAT(R3) CLR.BY #STATBITS 

MOV STAT(R3),R4 
BIC #STATBITS,R4 
IF R4 EO #SBKMOD THEN 

CMP R4,#SBKM0D 
BNE 50020$ 
LET DT.ST1(R0) := DT.ST1(R0) SET. BY 0SBKSEL 

BIS #SBKSEL,DT.ST1 (R 
ENDIF 

50020$: 



ELSE 



IT'S A DESELECT DO IT 



BR 



50021$ 



50016$: 



LET DT.STKRO) := DT.ST1(R0) SET . BY #CKTIM 

BIS #CKTiM,DT.ST1 (RO 
LET STAT(R3) '.= STAT(R3) CLR.BY #BIT1 4 ! ACT BIT 



ENDIF 



ELSE 



50021$: 
50015$: 



BIC 



BR 



#BIT14!ACTBIT,ST 



50022$ 



BAD ! THERE ARE ADDITIONAL ARGUMENTS BEYOND THE MODULE NAME 
SO STUFF THE BAD ARG MESSAGE AND GET OUT 



LET DT.KBRSP(RO) 



#CM.ARG 



ENDIF 



ELSE 



50022$: 
50014$; 



MOV 



ER 



#CM.ARG,DT.KBRSP 



50023$ 



012760 000000G 000022 
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836 
837 
838 
839 
840 
841 

842 000356' 
(4) 000356' 

843 000364' 
(4) 000364' 
844 

845 000364* 
(4) 000364' 
846 
847 
848 
849 
850 
851 
(3) 
852 
853 
(3) 
(3) 

(2) 000370' 000207 
854 
855 000001 
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000364' 

000364' 004767 OOOOOOG 



000370' 
000370' 
000370' 
000370' 



SEQ 0943 



THERE WAS AN ERROR IN SYNTAX OF MODULE NAME 
SO STUFF THE INVALID MODULE NAME ERROR MSG 



LET DT.KBRSP(RO) 



#CM.BADNAME 



MOV 



#CM.BADNAME r DT.K 



ENDIF 



ENDIF 

CLEAN UP 
CALL RESREG 
ENDRTN 

.END 



50023$: 



50013$: 



50000$: 
50001$: 



JSR 



RTS 



PC, RESREG 



PC 
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SEQ 0944 



ACSR = 


000102 


CQOVF = 


000001 


ACTBIT= 


004000 


CR 


000015 


ADDR22= 


001000 


CSRA = 


000100 


ADR 


000006 


CSRC = 


000102 


APTFER= 


000004 


CTRLC = 


000003 


APTPRE= 


000200 


CTRLO = 


000017 


ARGCHK= 


****** Q 


CTRLU = 


000025 


ASB 


000106 


DCEVNT= 


00001 1 


ASSEMB= 


000010 


DEFRTN= 


000400 


ASTAT = 


000104 


DIAGMC= 


000000 


AUTO = 


000010 


DROPMO= 


100000 


AUTOST= 


020000 


DSEVNT= 


000014 


AWAS = 


0001 10 


DTADR = 


000000 


BITO = 


000001 


DT.ADD= 


000042 


BITOO = 


000001 


DT.AP = 


000100 


BIT01 = 


000002 


DT.APK* 


000076 


BIT02 = 


000004 


DT.BLS= 


000034 


BIT03 = 


000010 


DT.CFO= 


000014 


BIT04 = 


000020 


DT.CF1= 


000016 


BIT05 = 


000040 


DT.ERR= 


000020 


BIT06 = 


000100 


DT.ESI= 


000044 


; BIT07 = 


000200 


DT.EVN= 


000000 


B.IT08 = 


000400 


DT.EXS= 


000060 


BIT09 = 


001000 


DT.FCH= 


000037 


BIT1 = 


000002 


DT.FCN= 


000036 


BIT10 = 


002000 


DT.HMX= 


000104 


BIT 11 = 


004000 


DT.KBE= 


000024 


BIT12 = 


010000 


DT.KBP* 


000026 


BIT13 = 


020000 


DT.KBR= 


000022 


BIT14 = 


040000 


DT.KBU= 


000030 


. BIT15 * 


100000 


DT.MLS= 


000032 


3IT2 = 


000004 


DT.MTI= 


0001 10 


BIT3 = 


000010 


DT.OFF= 


000070 


BIT4 = 


000020 


DT.PAS= 


000074 


BIT5 = 


000040 


DT.PC = 


000002 


BIT6 = 


000100 


DT.PFL= 


000062 


BIT7 = 


000200 


DT„PSW= 


000004 


BIT8 = 


000400 


DT.PTA= 


000064 


BIT9 = 


001000 


DT.RCS= 


000102 


BKDEF = 


000002 


DT.REL= 


000040 


BKMOD = 


000020 


DT.SCT= 


000066 


BKMODE= 


040000 


DT.SMX= 


000106 


BKSLSH= 


000134 


DT.SP = 


000006 


CAPRES= 


000004 


DT.SSI= 


000046 


CASTAT= 


000004 


DT.STO= 


000010 


CDERCT= 


000146 


DT.ST1= 


000012 


CDWDCT= 


000144 


DT.SWR= 


000056 


CKTIM = 


100000 


DT.SYP= 


000072 


CLKPRE= 


000001 


DT.WBU= 


000050 


CMDBUF= 


000002 


DT.WHL= 


000054 


CM.ARG= 


****** G 


DT.WLL= 


000052 


CM.BAD= 


****** Q 


DVID1 = 


000014 


CONFIG* 


000056 


ECCMEM= 


000100 



ECCSTA= 

ENBEOP= 

ENBNUL= 

ENDLST= 

EQPBIT= 

ERRTYP= 

EVNTBE- 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL- 

INHRRE= 

IN IT = 

INTR = 

IOMOD = 

IOMODP= 

IOMODR=> 

IOMODX=« 

JACK = 

KDES 

KIPARO= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KSEL 

KTERRO= 

KTPRES* 

KTSTAT= 

KTXTND= 

LF 



000010 

010000 

000001 

000000 

000001 

000105 

000200 

000200 

000203 

000202 

000201 

100000 

000044 

000050 

000036 

000040 

000122 

000100 

000040 

040000 

020000 

001000 

000400 

000030 

00 0120 

100000 

102000 

i 12000 

1 10000 

035060 

000014RG 

172340 

172342 

172344 

172346 

172350 

172352 

172354 

172356 

172300 

172302 

172304 

172306 

172310 

172312 

172314 

172316 

000002RG 

000040 

000400 

000020 

040000 

000012 



LPSTAT= 

MAPSTA=: 

MED 

MEMPAS= 

MODEXH=-- 

MODHOL== 

MODSEL= 

MSGCKD= 

MSGCKS= 

MSGDER= 

MSGDRP 

MSGECH 

JYISGEOP 

MSGHDR 

MSGHN'G 

MSGHRD 

MSGMAP 

MSGNUL 

MSGPQP 

MSGPRM 

MSGRES 

MSGSFT 

MSGSKE 

MSG5MB 

MSGSMH 

MSGSMS 

MSGSTD 

MSGSYS= 

MSGVEC= 

NAMCHK= 

NBKMOD= 

NCPUOP= 

NOAPTY= 

NULL = 

OWEN = 

PAER.R = 

PARPRE= 

PARSTA= 

PASCNT= 

PDPLSI= 

PDP60 = 

PDP70 = 

PRIO = 

PRI1 = 

PRI4 = 

PRI5 = 

PRI6 = 

PRI7 = 

PRSEDE 

PRO 

PR4 

PR5 

PR6 



000001 
000200 
076600 
040000 
004000 
002000 
001000 
000010 
00001 1 
000005 
000017 
177777 
000013 
000004 
000022 
000007 
000021 
177 775 
000002 
177776 
000001 
000006 
000C03 
000015 
000014 
000016 
000000 
000012 
000020 

00 l 000 

000020 

000002 

000000 

024020 

000010 

002000 

000100 

000034 

020000 

004000 

010000 

000000 

000040 

000200 

000240 

000300 

000340 

000020R 

000000 

000200 

000240 

000300 



PR7 

PS 

PSW 

RANNUM= 

RBUFEA= 

RBUFPA= 

RBUFSZ= 

RBUFVA= 

RDSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RESREG= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBOUT= 

RUNMOD= 

R5VALU= 

SAM 

SAVREG= 

S8ADR = 

SBKMOD= 

SBKSEL= 

SC.ADR= 

SC.ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD« 

SC.SCA= 

SENDLS= 

SE.FLG 

SOFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 «= 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 * 

SVR2 = 



000340 
177776 
177776 
000054 
000130 
000126 
000132 
000124 
000101 
000022 
000020 
020000 
010000 
****** ( 

000056 
000060 
031060 
002000 
000112 
000177 
100000 
001740 
075464 
****** ( 

000102 

000000 

010000 

000006 

000014 

000016 

000002 

000004 

OOOCOO 

000010 

000012 

177777 

OOOOOOR 

000042 

000046 

000040 

000032 

002200 

177572 

177 574 

177576 

172516 

000026 

064757 

000027 

000001 

000062 

000064 

000066 
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SEQ 0945 



SVR3 = 


000070 




UIPDR6= 


177614 


SVR4 = 


000072 




UIPDR7= 


177616 


SVR5 = 


000074 




WASADR= 


000104 


SVR6 = 


000076 




WBSTAT= 


000040 


SYSCNT= 


000052 




WBUFEA= 


000136 


SYSERR= 


000100 




WBUFPA= 


000134 


TMPIO = 


000002 




WBUFRQ= 


000140 


TQOVF = 


000002 




WBUFSZ= 


000142 


UIPAR0= 


177640 




WDFR = 


0001 16 


UIPAR1= 


177642 




WDTO = 


0001 14 


UIPAR2= 


177644 




WTINRE= 


000352 


UIPAR3= 


177646 




WTWHMI= 


000222 


UIPAR4= 


177650 




XFLAG = 


000005 


UIPAR5= 


177652 




XOFF = 


000023 


UIPAR6= 


177654 




XON 


000021 


UIPAR7= 


177656 




$BGNLE= 


177777 


UIPDR0= 


177600 




$ERFLG= 


000400 


UIPDR1= 


177602 




$F$AND= 


000310 


UIPDR2= 


177604 




$F$BAD= 


000401 


UIPDR3= 


177606 




$F$BLA= 


000170 


UIPDR4= 


177610 




$F$CAS= 


000150 


UIPDR5= 


177612 




$F$DEC= 


000220 


. ABS. 


000000 
000372 


000 
001 







$F$DO = 
$F$FAL= 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 
$IFLEV= 
$ISK0 = 
$ISK1 = 
$ISK2 = 
SISK3 = 



000340 
000405 
000400 
000110 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 
000001 
000001 
000001 
000001 



$ISK4 = 
$LOCTA= 
$LSTIN= 
$LSTTA= 
$NESTL= 
$NSKO = 
$NSK1 - 
$NSK2 = 
$NSK3 = 
$NSK4 = 
$NSK5 = 
$SAVLE= 
$SSKO = 
$TAGLE= 
$TAGNU= 
$TEMP = 
$TSKO = 
$TSK1 = 
$TSK2 = 
$TSK3 = 
$TSK4 = 
$$ARGC= 



000001 
177777 
000001 
000001 
177777 
000300 
000110 
000110 
00011 
000110 
000110 
177777 
050012 
177777 
050024 
000300 
050013 
050023 
050022 
050021 
050020 
000004 



$$BYTE= 

$$CASE= 
$$DST = 
$$ELOC= 
$$ERFL= 
$$FLAG= 
$$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG= 



000403 

000000 

000000 

000402 

000000 

000001 

000000 

00031 6R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000372R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ: SELDES f DSKZ:5ELDES=SPMAC/ML, EQUATE, SELDES 
RUN-TIME: 17 8 .4 SECONDS 
RUN-TIME RATIO: 91/26=3.4 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:35 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 0946 

3 COMMON EQUATE MODULE 
555 COMMON DEFINITIONS AND REFERENCES 

558 000000' .PRINT ;SPMAC: VERSION 1.1 

577 STRAP ROUTINE 



STRAP (FIELD SOFTWARE TRAP) 
STRAP. MAC 28-JUL-78 09:27 

508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
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COMMON EQUATE MODULE 

.TITLE STRAP (FIELD SOFTWARE TRAP) 
. IDENT /VO.O/ 



++ 
MODULE NAME: 
STRAP 

FUNCTIONAL DESCRIPTION: 



SEQ 0947 



THIS ROUTINE IS ENTERED BY ANY ONE OF SEVERAL SOFTWARE TRAPS 

(I.E. MSGN, GWBUFF, ETC.)FROM DECX/11 OPTION MODULES. 

AN EVENT CODE IS GENERATED AND 

PUSHED ONTO THE STACK. 

THERE IS ONE ENTRY POINT FOR A SOFTWARE TRAP 

THRU LOC. 34. 



INPUTS: 

NONE. 

IMPLICIT INPUTS: 

SOFTWARE TRAP INSTRUCTION (THRU LOCATION 34) 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
EVENT CODE 

PATHOLOGICAL CONNECTIONS: 
NONE. 

SUBORDINATE MODULES CALLED: 
NONE. 

FUNCTIONAL SIDE EFFECTS: 

NONE. 

CALLING SEQUENCE: 

CALLED BY A 1044XX TRAP INSTRUCTION 

XX = THE CODE FOR THE PARTICULAR TRAP INSTRUCTION 



VERSION: 



0.0 



EDIT 



BY 



DATE 



REASON 



STRAP (FIELD. SOFTWARE TRAP) 
STRAP. MAC 28-JUL-78 09:27 



555 
556 
557 
558 
(D 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 



000000' 
000000' 



000001 
000001 



000000' 000000 
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COMMON DEFINITIONS AND REFERENCES 

.SBTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 
STRUCT 
.PRINT ;SPMAC: VERSION 1.1 
$LSTIN = 1 
$LSTTAG = 1 



REFERENCED BY OTHER MODULES 



SEQ 0948 



GLOBL STINT 
GLOBL ST. EXT 



LOCAL STORAGE: 
ST. EXT: .WORD 



JENTRY ADDRESS OF FIELD SOFTWARE TRAP ROUTINE 
JADDRESS TO EXIT THROUGH 



;ADDRESS TO EXIT THIS MODULE THRU 



STRAP (FIELD SOFTWARE TRAP) 
STRAP. MAC 28-JUL-78 09:27 



577 








578 








579 








580 








581 








582 








583 








584 


000002* 






(2) 


000002' 






585 








586 








587 








588 








589 








590 


000002' 






(2) 


000002' 


010046 




591 


000004' 






(4) 


000004' 


016600 


000002 


592 


000010' 






(4) 


000010' 


014000 




593 








594 








595 








596 








597 








598 








599 


000012' 






(6) 


000012' 


042700 


177400 


600 


000016' 






(2) 


000016' 


010046 




601 


000020' 






(4) 


000020' 


016600 


000002 


602 


000024' 






(4) 


000024' 


012616 




603 


000026' 


000177 


177746 


604 








605 




000001 
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STRAP ROUTINE 

.SBTTL STRAP ROUTINE 



ENTER HERE FOR SOFTWARE TRAP 
INLINE <STIMT:> 



SEO 0949 



STINT: 



SAVE REGISTER AND RETRIEVE PC+2 FROM STACK AND DETERMINE ACTUAL TRAP ADDRESS 



PUSH 


RO 




LET 


RO 


:= 2(SP) 


LET 


RO 


:= -(RO) 



MOV 


RO,-(SP) 


MOV 


2(SP) ,R0 


MOV 


-(RO) ,R0 



IDENTIFY TRAP AND SAVE EVENT CODE ON STACK, RESTORE REGISTER 
AND CLEAN UP STACK AND EXIT ROUTINE 



LET 


RO := RO CLR. 


PUSH 


RO 


LET 


RO := 2(SP) 


LET 


(SP) := (SP)+ 


JMP 


@ST..EXT 


.END 





BIC 


#177400, RO 


MOV 


RO,-(SP) 


MOV 


2(SP) ,R0 


MOV 


(SP)+,(SP) 



STRAP (FIELD SOFTWARE TRAP) 
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SYMBOL TABLE 



ACSR » 


000102 


ACT3IT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFE-Rs 


000004 


APTPRE= 


000200 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


0001 10 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQOVF = 


000001 


CR 


000015 


CSRA = 


000100 


CSRC = 


000102 



CTR.LC = 
CTRLO • = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPM0= 
DSEVNT= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CFO= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXSs. 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTIa 
DT.DFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS* 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 
ENDLST= 
EOPBIT* 



000003 
000017 
000025 
00001 1 
000400 
000000 
100000 
000014 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
000110 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 
000000 
000001 



ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT= 

HRDPAS= 

ICONT = 

IC0UNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT = 

INTR = 

IOMOD = 

I0M0DP= 

IOMODR= 

IOMODX= 

JACK = 

KIPAR0= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDR0= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPSTAT= 

MAPSTA= 

MED 

MEMPAS= 

MODEXH= 

MODHOL= 

MODSEL* 
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000106 
000200 
000200 
000203 
000202 
000201 
100000 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000030 
000120 
100000 
102000 
1 12000 
1 10000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 
000001 
000200 
076600 
040000 
004.000 
002000 
001000 



SEQ 0950 



MSGCK'D* 

MSGCKS* 

MSGDER= 

MSGDRP= 

MSGECH= 

MSGEOP= 

MSGHDR= 

MSGHNG= 

MSGHR'D= 

MSGMAP= 

MSGNUL= 

MSGPOP= 

MSGPRM= 

MSGRES= 

MSGSFT= 

MSGSKE= 

MSGSMBs 

MSGSMH= 

MSGSMS= 

MSGSTD= 

MSG-SYS = 

MSGVEC= 

NBKMOD= 

NCPUOP= 

NOAPTY= 

NULL = 

OWEN = 

PAERR = 

PARPRE= 

*PARSTA = 

PAS.CNT = 

PDPLSI= 

PDP60 = 

PDP70 = 

PRIO = 

PRI1 = 

PRI4 = 

PRI5 = 

PRI6 = 

PRI7 = 

PRO 

PR4 = 

PR5 

PR6 

PR7 

PS 

PSW 

RANNUM* 

RBUFEA= 

RBUFPA= 

RBUFSZ= 

RBUFVA= 

RDSERV= 



000010 
00001 1 
000005 
000017 
177777 
000013 
000004 
000022 
000007 
000021 
177775 
000002 
177776 
000001 
000006 
000003 
000015 
000014 
000016 
000000 
000012 
000020 
001000 
000020 
000002 
000000 
024020 
000010 
002000 
000100 
000034 
020000 
004000 
010000 
000000 
000040 
000200 
000240 
000300 
000340 
000000 
000200 
000240 
000300 
000340 
177776 
177776 
000054 
000130 
000126 
000132 
000124 
000101 



ROWHMI= 

R£LERR= 

RELMOD= 

RELTIM'= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBOUT= 

RUNMOD= 

R5VALU= 

SAM = 

SBADR = 

SBKMOD= 

SBKSEL= 

SC.ADR= 

SC.ALC= 

SC. APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SOFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

STINT 

ST. EXT 

SUSPND= 

SVRO = 

SVR1 = 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 

SVR6 = 

SYSCNT* 

SYSERR 

TMPIO = 

TOOVF = 

UIPARO 

UIPAR1=: 



000022 
000020 
020000 
010000 
000056 
000060 
031060 
002000 
0001 12 
000177 
100000 
001 740 
075464 
000102 
000000 
010000 
000006 
000014 
000016 
000002 
000004 
0.00000 
000010 
000012 
177 777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064 757 
000027 
000002RG 
OOOOOORG 
000001 
000062 
000064 
000066 
.000070 
000072 
000074 
000076 
00005.2 
000100 
000002 
000002 
177640 
177642 
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SEQ 0951 



UIPAR2= 


177644 




WBUFPA= 


000134 


UIPAR3= 


177646 




WBUFRQ= 


000140 


UIPAR4= 


177650 




WBUFSZ= 


000142 


UIPAR5= 


177652 




WDFR = 


0001 16 


UIPAR6= 


177654 




WDTO = 


000114 


UIPAR7= 


177656 




WTINRE= 


000352 


UIPDR0= 


177600 




WTWHMI= 


000222 


UIPQR1= 


177602 




XFLAG = 


000005 


UIPDR2= 


177604 




XOFF = 


000023 


UIPDR3= 


177606 




XON 


000021 


UIPDR4= 


177610 




SBGNLE* 


177777 


UIPDR5= 


177612 




$ERFLG= 


000400 


UIPDR6= 


177614 




$F$AND= 


000310 


UIPDR7= 


177616 




$F$BAD= 


000401 


WASADRa 


000104 




$F$BLA= 


000170 


WBSTAT= 


000040 




$F$GAS= 


000150 


WBUFEA= 


000136 




$F$DEC= 


000220 


. ABS. 


000000 
000032 


000 
001 







$F$DO = 
$F$FAL= 
$F$GOO= 
$F$IF « 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR » 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 



000340 
000405 
000400 
0001 10 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 



$IFLEV= 
$LOCTA- 
$LSTIN= 
$LSTTA= 

$NESTL= 
$SAVLE== 
$TAGLE= 
$TAGNU== 
$TEMP a 
$$ARGC= 
$$BYTE== 
$$CASE== 
$$DST = 
$$ELOC= 
$$ERFL== 
$$FLAG= 
$$FROM-~ 



177777 
177777 
000001 
000001 
177777 
177777 
177777 
050000 
000402 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



$$LOC = 
$$LOCN=- 
$$REG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC - 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG= 



000000 
000000 
177777 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
050000 
000032R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ : STRAP, DSKZ:STRAP=SPMAC/ML, EQUATE, STRAP 
RUN-TIME*. 11 1 .3 SECONDS 
RUN-TIME RATIO: 64/13=4.8 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 
EQUATE. MAC 13-SEP-78 16:13 



18:36 

TABLE OF CONTENTS 



SEQ 0S52 



3 COMMON EQUATE MODULE 

534 CLKCHK - SYSTEM CLOCK CHECK 

600 COMMON DEFINITIONS AND REFERENCES 

603 000000' .PRINT ;SPMAC: VERSION 1.1 

627 CHECK FOR SYSTEM CLOCK ROUTINE 

779 CLKOFF - SYSTEM CLOCK-OFF 

826 COMMON DEFINITIONS AND REFERENCES 

833 CLKOFF ROUTINE 

903 CLKON SYSTEM CLOCK-ON 

951 COMMON DEFINITIONS AND REFERENCES 

961 CLKON ROUTINE 

990 PRHMS PROCESS HOURS, MINUTES, AND SECONDS CONVERSION 

1045 COMMON DEFINITIONS AND REFERENCES 

1060 PROCESS HOURS, MINUTES AND SECONDS CONVERSION ROUTINE 

1129 LDTIME - LOAD CONVERTED TIME 
1155 PRPSCNT PROCESS PASS COUNT TIME 

1218 COMMON DEFINITIONS AND REFERENCES 

1233 PROCESS PASS COUNT TIME ROUTINE 

1328 HMS HOURS, MINUTES, AND SECONDS CONVERSION 

1385 COMMON DEFINITIONS AND REFERENCES 

1417 HOURS, MINUTES AND SECONDS CONVERSION ROUTINE 

1547 UPDTIM UPDATE MODULE PASS TIME 

1602 COMMON DEFINITIONS AND REFERENCES 

1616 UPDATE TIME ROUTINE 

1683 CLRTIM CLEAR TIME FROM SYSTEM CLOCK TIME TABLES 

1731 COMMON DEFINITIONS AND REFERENCES 

1740 CLEAR TIME ROUTINE 

1781 CKHUNG CHECK FOR HUNG OPTION MODULES 

183d COMMON DEFINITIONS AND REFERENCES 

1856 CHECK MODULE HUNG ROUTINE 



SYSCLK SYSTEM CLOCK BINDER MODULE 
SYSCLK.MAC 28-JUL-78 09:28 

508 

509 

510" 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 
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SEQ 0953 



TITLE SYSCLK SYSTEM CLOCK BINDER MODULE 
IDENT /VO.O/ 



MODULE PACKAGE NAME: 
SYSCLK 

FUNCTIONAL DESCRIPTION: 

BINDER FOR THE FOLLOWING MODULES: 
CLKCHK 



SYSTEM CLOCK CHECK 
CLKOFF - TURN SYSTEM CLOCK OFF 
CLKON - TURN SYSTEM CLOCK ON 

PRHMS - PROCESS HOURS, MINUTES AND SECONDS CONVERSION 
PRPSCNT - PROCESS PASS COUNT TIME 
HMS - HOURS, MINUTES AND SECONDS CONVERSION 
UPDTIM - UPDATE PASS TIME 
CLRTIM - CLEAR MODULE TIME TABLE 
CKHUNG - CHECK FOR HUNG OPTION MODULE 



VERSION: 
0.0 

EDIT 



DATE 



BY 



REASON 



SYSCLK SYSTEM CLOCK BINDER MODULE 
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533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 .. 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

576 

579 

580 

581 

582 

583 

584 

58,5 

586 

587 

588 
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SEQ 0954 



SBTTL CLKCHK - SYSTEM CLOCK CHECK 
IDENT /VO.O/ 

++ 
MODULE NAME: 
CLKCHK 

FUNCTIONAL DESCRIPTION: 

THIS MODULE DETERMINES IF A CLOCK IS AVAILABLE ON THE SYSTEM. THIS IS 
ACCOMPLISHED BY FIRST CHECKING TO SEE IF A KW11-"L AND/OR A KW11-P CLOCK 
OPTION MODULES ARE PART OF THE RUNTIME EXERCISER AND SECONDLY, 
WHETHER THE CLOCK HARDWARE IS PART OF THE SYSTEM CONFIGURATION. 

ONCE A CLOCK HAS BEEN DETERMINED TO BE AVAI LABLE THEN THE APPROPRIATE 
CLOCK CODE IS SET IN THE SYSTEM CLOCK INDICATOR WORD, THIS INDICATES 
THE TYPE OF SYSTEM CLOCK, AND ALSO SYSTEM CLOCK PRESENT BIT IN CONFIGURA- 
TION WORD AND FINALLY THE SYSTEM CLOCK MODULE BEGIN ADDRESS 
IS PLACED IN THE SYSTEM CLOCK WORD. IF THERE IS NOT A SYSTEM CLOCK 
AVAILABLE THEN THE ABOVE WORDS WILL REFLECT THE NO CLOCK CONDITION. 

NOTE: IF THE KW11--L IS AVAILABLE IT WILL BE USED AS THE SYSTEM 
CLOCK EVEN IF A KW11-P IS PRESENT. 

THIS MODULE WILL BE A ONE TIME ONLY ROUTINE CALLED AT INITIALIZATION 
OF DEC/X11 . 



INPUTS: 



ADDRESS OF DTABLE 



IMPLICIT INPUTS: 
DT.CFO 
DT.SCT 
SC.CLO 
SC.CKL 
SC.CLP 
SC . SCA 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.CFO 
SC.CLO 
SC.SCA 



CONFIGURATION WORD LOCATED IN DTABLE 

SCTAB ADDRESS 

SYSTEM CLOCK WORD 

ADDRESS OF POINTER TO KW11-L HEADER ADDRESS 

ADDRESS OF POINTER TO KW11-P HEADER ADDRESS 

SYSTEM CLOCK ADDRESS 



- CONFIGURATION WORD LOCATED IN DTABLE 

- SYSTEM CLOCK WORD 

- SYSTEM CLOCK ADDRESS 



PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 



SAVREG 
ENQTQ 
HRDADRCHK 
RESREG 

FUNCTIONAL SIDE EFFECTS: 



SAVE REGISTERS 
TYPE-QUEUE ENQUEUER 
HARDWARE ADDRESS CHECK 
RESTORE REGISTERS 
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589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
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CLKCHK - SYSTEM CLOCK CHECK 

NONE 



CALLING SEQUENCE: 

CALL CLKCHK IN <A> 

As ADDRESS OF DTABLE 



SEQ 0955 



EDIT 



DATE 



BY 



REASON 



000000 
000000 



000001 
000001 



SYSCLK SYSTEM CLOCK BINDER MODULE 
SYSCLK.MAC 28-JUL-78 09:28 



600 
601 
602 
603 

(1) 
504 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 



000000' 
000006' 
000014' 
000022' 
000030' 



054523 
041440 
047040 
040526 
042514 



052123 
047514 
052117 
046111 
000045 



046505 
045503 
040440 
041101 
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COMMON DEFINITIONS AND REFERENCES 

•SBTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

SLSTIN =1 

SLSTTAG =1 



REFERENCED BY OTHER MODULES 



SEQ 0956 



.GLOBL CLKCHK 

J si!*************** 

; GLOBAL REFERENCES 

.'globl SAVREG 

.GLOBL HRDADRCHK 

.GLOBL ENQTQ 

.GLOBL RESREG 

: LOCAL STORAGE 



CC.CM1: .ASCIZ /SYSTEM CLOCK NOT AVAILABLE // 



JMODULE ENTRY POINT 



;SAVE REGISTERS 
{HARDWARE ADDRESS CHECK 
; ENQUEUE INTO TYPE QUEUE 
;RESTORE REGISTERS 



625 



EVEN 
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627 
628 
629 
(2) 
630 
631 
632 
633 
634 
635 
636 
637 
(3) 
638 
(4) 
639 
(4) 
640 
641 
642 
643 
644 
645 
(4) 
646 
(4) 
647 
648 
649 
650 
651 
652 
653 
(6) 
(9) 
654 
655 
656 
657 
658 
659 
(4) 
660 
661 
662 
663 
664 
665 
666 
(4) 
667 
668 
669 
670 
671 
672 



000034 1 
000034' 



000034' 
000034' 
000040' 
000040' 
000044' 
000044' 



004767 OOOOOOG 



016502 000000 



016203 000066 



000050* 

000050' 005063 000000 

000054' 

000054' 005063 000012 



000060' 

000060' 005763 
000064' 001423 



000066' 
000066' 017300 



000072' 
000072' 016001 



000076' 



000002 



000002 



000006 



CLKCHK: 
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CHECK FOR SYSTEM CLOCK ROUTINE 

.SBTTL CHECK FOR SYSTEM CLOCK ROUTINE 

ROUTINE CLKCHK <DTA> 



SAVE REGISTERS ON STACK AND RETRIEVE 

ADDRESS OF DTABLE FROM R5 STACK AND ADDRESS OF SCTAB 

FROM DTABLE 



CALL SAVREG 

LET R2 := DTA(R5) 

LET R3 := DT.SCT(R2) 

INITIALIZE SYSTEM CLOCK WORD AND SYSTEM CLOCK ADDRESS WORD 

LET SC.CL0(R3) := #0 
LET SC.SCA(R3) := #0 



DETERMINE IF KW11-L OPTION MODULE 
IS PART OF THE RUNTIME EXERCISER 



IF SC.CKL(R3) NE #0 THEN 



GET KW11-L OPTION MODULE HEADER ADDRESS 



LET RO := @SC.CKL(R3) 



GET KW11-L HARDWARE CSR ADDRESS FROM KW11-L 
OPTION MODULE'S HEADER 



LET R1 := ADR(RO) 



CHECK TO SEE IF KW11-L HARDWARE IS AVAILABLE 



CALL HRDADRCHK IN <R1> 



SEQ 0957 



JSR 
MOV 
MOV 



CLR 
CLR 



TST 

BEQ 



MOV 



MOV 



PC, SAVREG 
DTA(R5) ,R2 
DT.SCT(R2),R3 



SC.CL0(R3) 
SC.SCA(R3) 



SC.CKL(R3) 

50002$ 



@SC.CKL(R3) ,R0 



ADR(RO) ,R1 
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SEQ 0958 



(3) 
(4) 
(3) 
(3) 
673 
674 
675 
676 
677 
678 
679 
680 
(6) 
681 
(4) 
682 
683 
684 
685 
686 
687 
688 
(6) 
689 
(4) 
690 
691 
692 
693 
694 
695 
(2) 
696 
697 
698 
(4) 
699 
(4) 
700 
701 
702 
703 
704 
705 
706 
707 
(6) 
(9) 
708 
709 
710 
711 
712 
713 
(4) 
714 



000076' 010546 

000100' 010145 

000102' 004767 OOOOOOG 

000106* 012605 



MOV 
MOV 
JSR 
MOV 



R5,-(SP) 
R1 f -(R5) 
PC, HRDADRCHK 
(SP)+,R5 



0001 10' 

000110' 103411 
000112' 
000112' 012763 



IF KW11L IS AVAILABLE THEN INDICATE KW11-L IS SYSTEM CLOCK 
IN SYSTEM CLOCK WORD. BITOO SET MEANS KW11-L IS 
SYSTEM CLOCK. 



IF. NO. ERROR THEN 

LET SC.CL0(R3) := #BITOO 



000001 000000 



BCS 
MOV 



50003$ 
#BIT00 f SC.CLO(R3 



SET SYSTEM CLOCK PRESENT BIT IN CONFIGURATION WORD IN DTABLE 
AND SAVE SYSTEM CLOCK ADDRESS 



000120' 

000120' 052762 
000126' 
000126' 010063 



000132' 
000132' 000461 



000001 000014 



000012 



LET DT.CF0(R2) := DT.CF0(R2) SET. BY #CLKPRES 
LET SC.SCA(R3) : = RO 

RETURN 

INLINE <BR 100$> 



BIS 

MOV 



#CLKPRES,DT.CFO( 
R0,SC.SCA(R3) 



BR 100$ 



000134' 
000134' 
000134' 
000134' 



ENDIF 



ENDIF 



50003$. 
50002$; 



000134' 

000134' 005763 
000140' 001441 



000004 



DETERMINE IF KW11-P OPTION MODULE IS 
PART OF THE RUN TIME EXERCISER 



IF SC.CKP(R3) NE #0 THEN 



GET KW11-P OPTION MODULE HEADER ADDRESS 



TST 
BEQ 



SC.CKP(R3) 

50004$ 



000142' 

000142' 017300 000004 



LET RO := @SC.CKP(R3) 



MOV 



@SC.CKP(R3) ,R0 
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715 








716 








717 








713 








719 








720 


000146' 






(4) 


000146' 


016001 


000006 


721 








722 








723 








724 








725 








726 








727 


000152' 






(3) 


000152' 


010546 




(4) 


000154' 


010145 




(3) 


000156' 


004767 


OOOOOOG 


(3) 


000162' 


012605 




728 








729 








730 








731 








732 








733 








734 


000164' 






(6) 


000164' 


103411 




735 








736 


000166' 






(4) 


000166' 


0(2763 


000002 000000 


737 








738 








739 








740 








741 








742 








743 


000174' 






(6) 


000174' 


052762 


000001 000014 


744 


000202 ; 






(4) 


000202' 


010063 


000012 


745 








746 


000206' 






(4) 


000206' 


000415 




(3) 


000210' 






747 








748 








749 








750 








751 








752 








753 


000210" 






(3) 


000210' 


01 0546 




(8) 


000212' 


012745 


000000 


(7) 


000216' 


012745 


000000 


(6) 


000222' 


01 2745 


000000 ' 


(5) 


000226' 


012745 


000000 


(4) 


000232' 


010245 
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GET KW11-P HARDWARE CSR ADDRESS 
FROM KW11-P OPTION MODULE'S HEADER 



SEQ 0959 



LET R1 := ADR(RO) 



CHECK TO SEE IF KW11-P HARDWARE 
IS AVAILABLE 



CALL HRDADRCHK IN <R1> 



MOV 



MOV 
MOV 
JSR 
MOV 



IF ADDRESS WAS AVAILABLE THEN INDICATE KW11-P IS SYSTEM CLOCK 
IN SYSTEM CLOCK WORD 



IF. NO. ERROR THEN 

LET SC.CL0(R3) : = #BIT01 



BC5 



MOV 



SET SYSTEM CLOCK PRESENT BIT IN CONFIGURATION WORD IN DTABLE 
AND SAVE SYSTEM CLOCK ADDRESS 



LET DT.CF0(R2) : 
LET SC.SCA(R3) : 



DT.CF0(R2) SET. BY #CLKPRES 
RO 



ELSE 



BIS 
MOV 

BR 



50005$: 



OUTPUT MESSAGE INDICATING NO SYSTEM CLOCK 



CALL ENQTQ IN <R2 , #MSGSTD , #CC . CM1 , #0 f MO 



ADR(RO) ,R1 



R5,-(SP) 
R1 ,-(R5) 
PC, HRDADRCHK 
(SP)+,R5 



50005$ 



#BIT01 ,SC.CL0(R3 



#CLKPRES,DT.CF0( 
R0,SC.SCA(R3.) 

50006$ 



MOV 


R5,-(SP) 




MOV 


#0,-(R5) 




MOV 


#0,-(R5) 




MOV 


#CC.CM1 ,- 


"(R5) 


IV. OV 


#MSGSTD,- 


•(R5) 


MOV 


R2,-(R5) 
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(3) 
(3) 
754 
(4) 
755 
(4) 
(3) 
756 
757 
758 
759 
760 
761 
(3) 
(8) 
(7) 
(6) 
(5) 
(4) 
(3) 
(3) 
762 
(4) 
763 
764 
(2) 
765 
766 
767 
768 
769 
(3) 
770 
771 
772 
773 
774 
775 
(3) 
(3) 
(2) 
776 
777 



000234' 
000240* 
000242' 
000242' 
000242' 
000242' 
000244' 



000244' 
000244' 
000246' 
000252' 
000256' 
000282' 
000266' 
000270' 
000274' 
000276' 
000276' 

000276' 
000276' 



004767 
012605 



000415 



010546 
012745 
01 2745 
012745 
012745 
010245 
004767 
012605 



OOOOOOG 



000000 
000000 
000000' 
000000 

OOOOOOG 



ENDIF 



ELSE 









SEQ 0960 




JSR 
MOV 


PC.ENQTQ 
(SP)+,R5 




50006$: 








50004$: 


BR 


50007$ 





OUTPUT MESSAGE INDICATING SYSTEM CLOCK IS NOT AVAILABLE 



CALL. ENQTQ IN <R2 , #0 f #CC . CM1 , #0 , #0> 



000276' 

000276' 004767 OOOOOOG 



000302' 
000302' 
000302' 
000302' 000207 



ENDIF 



INLINE <100$:> 



RESTORE REGISTERS 



CALL RESREG 



RETURN TO CALLER 



ENDRTN 





MOV 


R5,-(SP) 






MOV 


#0,-(R5) 






MOV 


#.0 f -(R5) 






MOV 


0CC.CM1 ,- 


(R5) 




MOV 


#0,-(R5) 






MOV 


R2,-(R5) 






JSR 


PC.ENQTQ 






MOV 


(SP)+,R5 




50007$: 









100$: 



JSR 



PC, RESREG 



50000$: 
50001$: 



RTS 



PC 
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779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
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SEQ 0961 



SYSTEM CLOCK-OFF 



.S3TTL CLKOFF ■ 
.IDENT /V0.0/ 

++ 
MODULE NAME: 
CLKOFF 



FUNCTIONAL DESCRIPTION 
THIS MODULE WILL 
WILL SAVE THE CLOCK 
CONTENTS. PLUS TURN 



SHUT OFF THE SYSTEM CLOCK (IF AVAILABLE). THE ROUTINE 
S CONTROL STATUS REGISTER (CSR) ADDRESS AND IT'S 
THE CLOCK OFF BY CLEARING THE INTERRUPT ENABLE BIT 



INPUTS: 

DTABLE - ADDRESS OF DATA TABLE 

IMPLICIT INPUTS: 

DT.SCT - ADDRESS OF SYSTEM CLOCK TABLE 
DT.CLO - SYSTEM CLOCK WORD 
SC.CKL " POINTER TO KW1 1 L OPTION MODULE 
SC.CKP - POINTER TO KW1 1 P OPTION MODULE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

SC.ADR - SAVE LOCATION FOR CLOCK CSR ADDRESS 
SC.HLD - SAVE LOCATION FOR CONTENTS OF CLOCK'S 
CSR 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
NONE 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL CLKOFF IN <A> 

A= ADDRESS OF DTABLE 



EDIT 



DATE 



BY 



REASON 
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SYSCLK.MAC 28-JUL-78 09:28 COMMON DEFINITIONS AND REFERENCES SEQ 0962 

826 .SBTTL COMMON DEFINITIONS AND REFERENCES 

827 

328 j**************** 

829 ; REFERENCED BY OTHER MODULES 

830 ; 

831 .GLOBL CLKOFF ;MODULE ENTRY POINT 



000304 1 
000304 ' 



000304' 
000304' 
000306' 
000310' 
000310' 
000314' 
000314' 



01 0046 
010146 

016501 000000 

016101 000066 
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833 
834 
835 
836 
(2) 
837 
833 
839 
840 
841 
842 
843 
844 
(2) 
(3) 
845 
(4) 
846 
(4) 
847 
848 
849 
850 
851 
852 
853 
854 
(6) 
(9) 
855 
(4) 
856 
857 
(4) 
(3) 
858 
859 
860 
861 
862 
863 
864 
(4) 
8S5 
(4) 
866 
867 
868 
869 
870 
871 
872 
873 
(4) 
874 
875 



000320' 
000320' 
000326' 
000330' 
000330' 



032761 
001403 



000001 000000 



017100 000002 



000334' 

000334' 000402 
000336' 



000336' 
000336' 
000342' 
000342' 



017100 000004 



000342' 

000342' 016061 000006 000006 
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CLKOFF ROUTINE 

.SBTTL CLKOFF ROUTINE 



ROUTINE CLKOFF <DTA> 



CLKOFF: 



SAVE REGISTERS ON STACK AND RETRIEVE ADDRESS OF DTABLE AND 
GET ADDRESS OF SYSTEM CLOCK TABLE (SCTAB) 



PUSH R0,R1 



LET R1 := DTA(R5) 
LET R1 := DT.SCT(R1) 



IF KW11-L IS SYSTEM CLOCK THEN GET THE KW11-L 
OPTION MODULE HEADER ADDRESS 



IF #BIT00 SETIN SC.CLQ(R1) THEN 



MOV 
MOV 

MOV 

MOV 



LET RO := @SC.CKL(R1 ) 



ELSE 



BIT 
BEQ 

MOV 



BR 



>0002$: 



KW11-P IS SYSTEM CLOCK , GET THE KW11-P 
OPTION MODULE HEADER ADDRESS 



LET RO := @SC.CKP(R1 ) 



MOV 



ENDIF 



50003$: 



GET SYSTEM CLOCK CSR ADDRESS AND SAVE IN 
SC.ADR. RO CONTAINS THE OPTION 
MODULE HEADER ADDRESS. 



LET SC. ADR(R1) : * ADR(RO) 



MOV 



SEQ 0953 



RO.-(SP) 
R1 ,-(SP) 

DTA(R5) ,R1 

DT.SCT(R1 ) ,R1 



#BIT00,SC.CLO(R1 

50002$ 

@SC.CKL(R1 ) ,R0 



50003$ 



@SC.CKP(R1 ) ,R0 



ADR(RO) ,SC.ADR(R 



; + 



SYSCLK 
SYSCLK, 

876 
877 
878 
879 
880 
(4) 
881 
882 
883 
384 
885 
886 
(4) 
887 
888 
889 
890 
891 
(2) 
(3) 
892 
893 
894 
895 
896 
897 
(3) 
(3) 
(2) 
898 
899 
900 
901 
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000350 1 

000350' 017161 000006 000010 



000356' 

000356' 005071 000006 



000362' 

000362' 012601 
000364' 012600 



000366' 
000366' 
000366' 
000366' 000207 
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GET CONTENTS OF SYSTEM CLOCK CSR AND SAVE 
IN SC.HLD 



LET SC.HLD(R1) := @SC.ADR(R1) 



TURN SYSTEM CLOCK OFF BY CLEARING 
IT'S CSR 



SEQ 0964 



MOV 



@SC.ADR(R1 ) ,SC.H 



LET @SC.ADR(R1 ) := #0 

+ 
RESTORE REGISTERS 



POP 



R1 ,R0 



CLR 



MOV 
MOV 



<s>SCADR(R1 ) 



(SPJ+.R1 
(SP)+,RO 



RETURN TO CALLING MODULE 



ENDRTN 



50000$: 
50001$: 



RTS 



PC 
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903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
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CLKON SYSTEM CLOCK-ON 

.SBTTL CLKON SYSTEM CLOCK-ON 
.IDENT /V0.0/ 

++ 
MODULE NAME: 
CLKON 

FUNCTIONAL DESCRIPTION: 

THIS MODULE WILL TURN ON THE SYSTEM CLOCK. THIS WILL BE ACCOMPLISHED 
BY RESTORING THE CONTENTS OF THE CSR TO IT'S VALUE AT THE TIME 
THE CLOCK WAS TURNED OFF. THE CONTENTS OF THE CSR IS DEPENDENT UPON 
THE SYSTEM CLOCK IN USE. THE KW11-L WILL ONLY SET THE INTERRUPT 
ENABLE BIT WHILE THE KW11-P WILL ALSO SET THE APPROPRIATE MODE AND 
FREQUENCY BITS. 



SEQ 0965 



INPUTS: 

DTABLE 



DATA TABLE ADDRESS 



IMPLICIT INPUTS: 

DT.SCT - ADDRESS OF SYSTEM CLOCK TABLE 
SC.ADR - STORAGE FOR CLOCK CSR ADDRESS 
SC.HLD - STORAGE FOR CONTENTS OF CSR 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS". 
NONE 

SUBORDINATE ROUTINES CALLED: 
NONE 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL CLKON IN<A> 

As DTABLE ADDRESS 



EDIT 



DATE 



BY 



REASON 
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SYSCLK.MAC 28-JUL-78 09:28 COMMON DEFINITIONS AND REFERENCES SEQ 0966 

951 .SBTTL COMMON DEFINITIONS AND REFERENCES 

952 

953 

954 ; * # **** ** * # * * ** * * 

955 ; REFERENCED BY OTHER MODULES 

956 ; 

957 .GLOBL CLKON ;MCDULE ENTRY POINT 
958 

959 



000370 
000370 
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961 
962 
963 
964 
(2) 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
(2) 
976 
(4) 
977 
(4) 
978 
(4) 
979 
980 
981 
982 
983 
984 
985 
(2) 
986 
987 
(3) 
(3) 
(2) 
988 
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SEO 0967 



000370' 
000370* 
000372' 
000372 1 
000376' 
000376' 
000402' 
000402' 



010046 



016500 000000 
016000 000066 
016070 000010 000006 



000410' 
000410' 012600 

000412' 
000412' 
000412' 
000412' 000207 



SBTTL CLKON 



ROUTINE 



ROUTINE CLKON <DTA> 



CLKON: 



SAVE RO AND RETRIEVE DTABLE FROM R5 AND GET SCTAB INTO RO 
GET THE SYSTEM CLOCK CSR ADDRESS AND 
RESTORE ITS CONTENTS, THIS WILL TURN THE 
CLOCK ON. RO CONTAINS THE ADDRESS OF SCTAB. 



PUSH RO 

LET RO := DTA(R5) 

LET RO := DT.SCT(RO) 

LET ©SC.ADR(RO) := SC.HLD(RO) 

RESTORE REGISTER AND RETURN TO CALLER 
POP RO 
ENDRTN 



MOV 
MOV 
MOV 
MOV 



RO,-(SP) 
DTA(R5) ,R0 
DT.SCT(RO) ,R0 
SC.HLD(RO) ,@SC.A 



50000$: 
50001$: 



MOV 



RTS 



(SP)+,R0 



PC 
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990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
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PRHMS PROCESS HOURS, MINUTES, AND SECONDS CONVERSION 

.SBTTL PRHMS PROCESS HOURS, MINUTES, AND SECONDS CONVERSION 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
PRHMS 

FUNCTIONAL DESCRIPTION: 

THIS MODULE WHEN CALLED WILL GET THE TOTAL RUNTIME IN SECONDS 
FROM THE SYSTEM CLOCK OPTION MODULE (KW11-L OR KW11-P) HAVE IT 
CONVERTED TO HOURS, MINUTES AND SECONDS, AND RETURNS 
THE CONVERTED TIME TO THE CALLER. 

INPUTS: 

ADDRESS OF DTABLE 

ADDRESS OF CONVERTED TIME STORAGE 

IMPLICIT INPUTS: 
DT.SCT 
SC.CLO 
SC.CKL 
SC.CKP 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
HOURS \ 

MINUTES IN STORAGE SPECIFIED 

SECONDS / 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 

SAVREG - SAVE REGISTERS 

HMS - CONVERSION TO HRS, MINS AND SECS 

RESREG - RESTORE REGISTERS 

LDTIME - LOAD RESULTANT TIME 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL PRHMS IN <A,B> 

A = ADDRESS OF DTABLE 

B » ADDRESS OF CONVERTED TIME 

VERSION: 
0.0 



SEQ 0968 



EDIT 



DATE 



BY 



REASON 
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1044 

1045 .SBTTL COMMON DEFINITIONS AND REFERENCES 

1046 

1047 j**************** 

1048 ; REFERENCED BY OTHER MODULES 
1 049 

1050 .GLOBL PRHMS {MODULE ENTRY POINT 

1051 

1052 j +#******#**#***# 

1053 ; GLOBAL REFERENCES 
1054 

1055 .GLOBL SAVREG ;SAVE REGISTERS 

1056 .GLOBL HMS ;HOURS, MINUTES AND SECONDS CONVERSION 

1057 .GLOBL RESREG ; RESTORE REGISTERS 



010046 
010146 

016500 000000 

016000 000066 
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1059 
1060 
1061 
1062 

1063 000414' 
(2) 000414' 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 

1072 000414' 

(2) 000414' 

(3) 000416' 

1073 000420' 

(4) 000420' 

1074 000424' 
(4) 000424' 

1075 
1076 
1077 
1078 
1079 
1080 
1081 

(6) 

(9) 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 

(4) 000440' 016001 000002 

(6) 000444' 062701 000002 
1090 
1091 
1092 000450' 

(4) 000450' 000404 

(3) 000452' 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 000452' 

(4) 000452' 016001 000004 
(6) 000456' 062701 000002 

1101 



000430' 

000430' 032760 
000436' 001405 



000001 000000 



000440' 

000440' 016001 
000444' 062701 
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.SBTTL PROCESS HOURS, MINUTES AND SECONDS CONVERSION ROUTINE 



SEQ 0970 



ROUTINE PRHMS <DTA,RESULT> 



PRHMS: 



SAVE REGISTERS ON STACK, RETRIEVE ADDRESS OF DTABLE FROM 
R5 STACK AND DETERMINE ADDRESS OF SCTAB. 



PUSH R0.R1 



LET RO := DTA(R5) 
LET RO := DT.SCT(RO) 



DETERMINE IF KW11-L IS SYSTEM CLOCK BY CHECKING IF 
BIT IS SET IN SC.CLO WORD OF SCTAB 



IF 0BITOO SETIN SC.CLO(RO) THEN 



GET ADDRESS OF KW11-L ELAPSED TIME TABLE. TIME TABLE IS THE 
ADDRESS FOLLOWING THE LOCATION CONTAINED IN SC.CKL. THE TABLE 
CONTAINS ELAPSED TIME AND EXTENDED ELAPSED TIME. 



LET R1 := SC.CKL(RO) + #2 



MOV 


RO,-(SP)' 


MOV 


R1,-(SP) 


MOV 


DTA(R5) ,RQ 


MOV 


DT.SCT(RO) ,R0 



BIT 
BEQ 



#BITO0,SC.CLO(RO 
50002$ 



ELSE 



MOV 
ADD 



BR 



SC.CKL(RO) ,R1 

#2,R1 



50003$ 



50002$: 



MUST BE A KW11-P CLOCK. GET ADDRESS OF KW11-P ELAPSED TIME TABLE. 
THE TABLE IS THE ADDRESS FOLLOWING THE LOCATION CONTAINED IN SC.CKP. 
THE TABLE CONTAINS ELAPSED TIME AND EXTENDED ELAPSED TIME. 



LET R1 := SC.CKP(RO) + #2 



MOV 
ADD 



SC.CKP(RO) ,R1 

#2, R1 
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SEO 0971 



1102 








1 103 


000462' 






(4) 


000462' 






1104 








1105 








1106 








1 107 








1108 








1109 








1110 


000462' 






(4) 


0C0462' 


162705 


000002 


(3) 


000466' 


010546 




(5) 


000470' 


016145 


000002 


(4) 


000474' 


01 1145 




(3) 


000476' 


004767 


000302 


(3) 


000502' 


012605 




(4) 


000504' 


012501 




1111 








1 112 








1113 








1 1 14 








1115 








11 16 








1117 


000506' 






(4) 


000506' 


016500 


000002 


1118 


000512' 






(3) 


000512' 


010546 




(5) 


000514' 


010045 




(4) 


000516* 


010145 




(3) 


000520' 


004767 


000010 


(3) 


000524' 


012605 




11 19 








1120 








1121 








1122 








1123 








1124 


000526' 






(2) 


000526' 


012601 




(3) 


000530' 


012600 




1125 








1126 


000532' 






(3) 


000532' 






(3) 


000532' 






(2) 


000532' 


000207 




1127 









ENDIF 



CALL HMS TO CONVERT TIME TO DECIMAL ASCII HOURS, 
MINUTES AND SECONDS. 



CALL HMS IN <(R1),2(R1)> OUT <R1> 



50003$: 



SUB 


#1*2, R5 


MOV 


R5 T -(SP) 


MOV 


2(R1 ) ,-(R5) 


MOV 


(R1),-(R5) 


JSR 


" PC, HMS 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 



LOAD RESULT ADDRESS INTO R1 AND NOW LOAD UP THE TIME 

LET RO := RESULT(R5) 
CALL LDTIME IN <R1 ,R0> 



MOV 

MOV 
MOV 
MOV 
JSR 
MOV 



RESTORE REGISTERS AND RETURN 



POP R1 ,R0 



ENDRTN 



50000$: 
50001$: 



MOV 
MOV 



RTS 



RESULT(RS) ,R0 

R5,-(SP) 
R0,-(R5) 
R1 ,-(R5) 

PC, LDTIME 
(SP)+,R5 



(SP)+,R1 
(SP)+,R0 



PC 
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1129 






1130 






1131 


000534' 




(2) 


000534' 




1132 






1133 






1 134 






1 135 






1136 






1137 






1138 






1139 


000534' 




(2) 


000534' 


010046 


(3) 


000536' 


010146 


1 140 


000540' 




(4) 


000540' 


016500 000002 


1 141 


000544' 




(4) 


000544' 


016501 000000 


1142 


000550' 




(4) 


000550' 


1 12120 


1143 


000552' 




(4) 


000552' 


112120 


1144 


000554' 




(4) 


000554' 


112120 


1145 


000556' 




(4) 


000556' 


112720 000072 


1146 


000562' 




(4) 


000562' 


112120 


1147 


000564' 




(4) 


000564' 


1 12120 


1148 


000566' 




(4) 


000566' 


112720 000072 


1149 


000572' 




(4) 


000572' 


112120 


1150 


000574' 




(4) 


000574' 


111110 


1151 


000576' 




(2) 


000576' 


012601 


(3) 


000600' 


012600 


1152 


000602' 




(3) 


000602' 




(3) 


000602' 




(2) 


000602' 


000207 
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LDTIME - LOAD CONVERTED TIME 

.SBTTL LDTIME - LOAD CONVERTED TIME 

ROUTINE LDTIME <ADR,RESULT> 



SEQ 0972 



LDTIME: 



GET CALLING MODULE CONVERTED TIME STORAGE ADDRESS, THEN LOAD UP THE 
STORAGE WITH THE CONVERTED TIME AND INCLUDE COLONS(t) IN APPROPRIATE 
LOCATIONS., ADR(R5) WILL CONTAIN THE STORAGE ADDRESS WHILE RESULT(R5) CONTAINS 
THE RESULT ADDRESS 



PUSH R0.R1 



LET RO := RESULT(R5) 

LET R1 := ADR(R5) 

LET (R0)+ :B= (R1)+ 

LET (R0) + :B = (R1) + 

LET (R0)+ :B = (R1) + 

LET (R0)+ :B= #' : 

LET (R0)+ :B= (R1)+ 

LET (R0)+ :B= (R1)+ 

LET (R0)+ :B= #' : 

LET (R0)+ :B* (R1)+ 

LET (RO) :B--: (R1) 

POP R1 ,R0 

ENDRTN 



MOV 
MOV 


R0,-(SP) 
R1 ,-(SP) 


MOV 


RESULT(R5) , RO 


MOV 


ADR(R5) ,R1 


MOVB 


(R1 )+,(R0)+ 


MQVB 


(R1 )+, (R0)+ 


MOVB 


(R1 )+, (R0)+ 


MOVB 


#' : , (R0) + 


MOVB 


(R1 )+, (R0) + 


MOVB 


(R1 )+, (R0)+ 


MOVB 


#' : , (R0)+ 


MOVB 


(R1 )+, (R0)+ 


MOVB 


(R1 ),(R0) 


MOV 
MOV 


(SP)+,R1 
(SP)+,RO 


50000$: 
50001$: 





RTS 



PC 
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1154 
1155 
1 156 
1157 
1 158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1 183 
1 184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1 193 
1 194 
1195 
1196 
1197 
1 198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
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PROCESS PASS COUNT TIME 



SEQ 0973 



SBTTL PRPSCNT 
,IDENT /VO.O/ 

++ 
MODULE NAME: 
PRPSCNT 

FUNCTIONAL DESCRIPTION: 

THIS MODULE WILL BE CALLED IF SYSTEM CLOCK IS AVAILABLE. 

THE PASS COUNT TIME IS DETERMINED BY FIRST SEARCHING THE MODULE TIME TABLE 
(IN CLOCK OPTION MODULE) AND THEN SUBSTRACTING PASS COUNT TIME 
FROM THE SYSTEM ELAPSED TIME. THEN THE PASS COUNT TIME WILL BE CON- 
VERTED TO HOURS, MINUTES AND SECONDS, AND THEN WILL RETURN CONVERTED TIME TO 
CALLING MODULE. 

NOTE - THIS MODULE WILL RETURN THE CONVERTED TIME IN THE 
FOLLOWING FORMAT: 
HHH:MM:SS 
THE COLON (:) WILL BE GENERATED BY THIS MODULE. 

INPUTS: 

DTABLE ADDRESS 

ADDRESS OF MODULE DOING END OF PASS 

ADDRESS OF STORAGE FOR CONVERTED TIME 

IMPLICIT INPUTS: 

DT.SCT 

DT.MLST 

SC.CLO 

SC.CKL ■ 

SC.CKP 
OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

CONVERTED TIME IN HOURS, MINUTES AND SECONDS 
HHH:WIM:SS 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
SAVREG - SAVE REGISTERS 
HMS - CONVERT TIME 
RESREG - RESTORE REGISTERS 
LDTIME - LOAD RESULTANT TIME 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL IN <A,B,C> 

A - ADDRESS OF DTABLE 

B - ADDRESS OF MODULE DOING END OF PASS 

C - ADDRESS OF CONVERTED TIME STORAGE 
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PRPSCNT PROCESS PASS COUNT TIME 
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SEQ 0974 



1210 
1211 
1212 
1213 
1214 



VERSION: 
0.0 

EDIT 



DATE 



BY 



REASON 
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PRPSCNT PROCESS PASS COUNT TIME 



SEQ 0975 



1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 



SBTTL COMMON DEFINITIONS AND REFERENCES 



; REFERENCED BY OTHER MODULES 
!gLOBL PRPSCNT 

; GLOBAL REFERENCES 

!globl HMS 

.GLOBL SAVREG 
.GLOBL RESREG 



;MODULE ENTRY POINT 



; HOURS MINUTES AND SECONDS CONVERSION 

;SAVE REGISTERS 

; RESTORE REGISTERS 



000604' 

000604' 004767 000000G 



000610* 

000610' 016501 
000614 1 

000614' 016100 
000620' 
000620' 016101 



000000 
000032 
000066 
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1232 
1233 
1234 
1235 
1236 000604' 

(2) 000604' 
1237 

1238 
1239 
1240 
1241 
1242 
1243 
1244 

(3) 
1245 
1246 

(4) 
1247 

(4) 
1248 

(4) 
1249 
1250 
1251 
1252 
1253 
1254 
1255 

(6) 

(9) 
1256 
1257 
1258 
1259 
1260 

1261 000634 
(4) 000634 

1262 000640 
(4) 000640 

(3) 000642 
1263 

1264 
1265 
1266 
1267 
1268 
1269 

1270 000642 

(4) 000642 

1271 000646 
(4) 000646 

1272 
1273 
1274 
1275 



000624' 

000624' 032761 
000632' 001403 



000001 000000 



016101 000002 



000402 



016101 000004 
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COMMON DEFINITIONS AND REFERENCES 



SBTTL PROCESS PASS COUNT TIME ROUTINE 



ROUTINE PRPSCNT <DTA , BGNADR , RESULT> 



SEQ 0976 



PRPSCNT 



SAVE REGISTERS, RETRIEVE ADDRESS OF DTABLE FROM R5 STACK, THEN 
DETERMINE PTR TO MODULE LIST AND ADDRESS OF SCTAB 



CALL SAVREG 



LET R1 := DTA(R5) 

LET RO :s DT.MLST(RI) 

LET R1 := DT.SCT(R1) 



DETERMINE IF KW11-L IS SYSTEM CLOCK BY CHECKING IF BIT IS SET IN SC.CLO 
WORD OF SCTAB 



JSR 


PC, SAVREG 


MOV 


DTA(R5) ,R1 


MOV 


DT.MLST(R1 ) ,R0 


MOV 


DT.SCT(R1 ) ,R1 



IF #BIT00 SETIN SC.CL0(R1) THEN 



GET ADDRESS OF KW1i-L ELAPSED TIME TABLE 



BIT 
BEQ 



#BIT00,SC.CLO(R1 
50002$ 



LET R1 := SC.CKL(R1 ) 



ELSE 



MOV 
BR 



SC.CKL(R1 ) ,R1 
50003$ 



>0002$: 



MUST BE A KW11-P CLOCK GET ADDRESS OF KW11-P ELAPSED TIME 
TABLE 



LET R1 := SC.CKP(R1 ) 



MOV 



SC.CKP(R1 ) ,R1 



ENDIF 



50003$: 



GET R2 TO POINT TO MODULE TIME TABLE AND R1 TO POINT TO 
R.T'.E ELAPSED TIME 
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1276 

1277 

1278 

(4) 

(6) 

1279 

(6) 

1280 

1281 

1282 

1283 

1284 

1285 

(4) 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

(4) 

(6) 

(9) 

1294 

(6) 

1295 

(6) 

1296 

(4) 

(3) 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

(4) 

(6) 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

(4) 

(3) 

(5) 

(4) 

(3) 

(3) 

(4) 

1311 



000646' 
000646' 
000650' 
000654' 
000654' 



000660' 
000660' 



01 0102 
062702 



000664' 
000664' 
000664' 
000666' 
000670' 
000670' 
000674' 
000674' 
000700' 
000700' 
000702' 



000702' 

000702' 011101 
000704' 161201 



000706' 
000706' 
000712' 
000714' 
000720' 
000722' 
000726' 
000730' 



162705 
010546 
01 2745 
010145 
004767 
012605 
012501 
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PROCESS PASS COUNT TIME ROUTINE 



LET R2 := R1 + #6 



SEQ 0977 



000006 



062701 000002 



LET R1 := R1 + #2 



GET ADDRESS OF MODULE TO BE UPDATED FROM R5 STACK 



MOV 
ADD 

ADD 



LET R3 := BGNADR(R5) 



016503 000002 



MOV 



021003 
001405 

062700 000002 

062702 000Q04 

000771 



SEARCH MODULE LIST UNTIL MODULE LIST POINTER POINTS TO ADDRESS 
IN R3, IF NOT EQUAL INCREMENT MODULE LIST POINTER AND MODULE 
TIME POINTER 



WHILE (RO) NE R3 DO 

LET RO := RO + #2 
LET R2 := R2 + #4 
ENDDO 



50005$: 



GET ELAPSED TIME AND SUBTRACT MODULES ELAPSED TIME TO DETERMINE 
MODULE'S PASS TIME 



LET R1 := (R1) - (R2) 



NOW CALL HMS TO CONVERT THE PASS TIME, EXTENDED TIME WILL 
BE 0. 



CALL HMS IN <R1,#0> OUT <R1> 



MOV 
SUB 



000002 



000000 



000056 



R1 ,R2 

#6,R2 

#2 t R1 



BGNADR(R5) , R3 



50004$: 








CMP 


(RO) ,R3 




BEQ 


50005$ 




ADD 


#2,R0 




ADD 


#4,R2 




BR 


50004$ 



(R1 ) ,R1 
(R2),R1 



SUB 


#1*2 ,R5 


MOV 


R5,-(SP) 


MOV 


#0,-(R5) 


MOV 


R1 t -(R5) 


JSR 


PC, HMS 


MOV 


(SP)+,R5 


MOV 


(R5)+,R1 
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1312 








1313 








1314 








1315 








1316 


000732' 






(4) 


000732' 


016500 


000004 


1317 


000736' 






(3) 


000736' 


01 0546 




(5) 


000740' 


010045 




(4) 


000742' 


010145 




(3) 


000744' 


004767 


177564 


(3) 


000750' 


012605 




1318 








1319 








1320 








1321 








1322 








1323 


000752' 






(3) 


000752' 


004767 


OOOOOOG 


1324 








1325 


000756' 






(3) 


000756' 






(3) 


000756' 






(2) 


000756' 


00 0207 




1326 
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PROCESS PASS COUNT TIME ROUTINE 



LOAD THE RESULT CONVERSION STORAGE AND ALSO LOAD THE. TIME 

LET RO := RESULT(R5) 
CALL LDTIME IN <R1 ,R0> 



MOV 

MOV 
MOV 
MOV 
JSR 
MOV 



RESTORE REGISTERS AND RETURN TO CALLER 



CALL RESREG 



ENDRTN 



50000$: 
50001$: 



JSR 



RTS 



SEQ 0978 



RESULT (R5) , RO 

R5,-(SP) 
R0,-(R5) 
R1 ,-(R5) 

PC, LDTIME 
(SP)+,R5 



PC, RESREG 



PC 
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1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
137b 
1379 
1380 
1381 
1382 
1383 
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.SBTTL HMS HOURS, MINUTES, AND SECONDS CONVERSION 
.IDENT /V0.0/ 

++ 
MODULE NAME: 
HMS 



SEQ 0979 



FUNCTIONAL DESCRIPTION: 

THIS MODULE WILL CONVERT THE GIVEN Til 



IE IN SECONDS INTO 



DECIMAL ASCII HOURS, MINUTES, AND SECONDS. THEN LOAD THE INFORMATION 
INTO A TABLE AND THE ADDRESS OF THIS TABLE IS RETURNED TO THE CALLER 
CONVERTED TIME TABLE: 

3 BYTES DEFINED FOR HOURS 

2 BYTES DEFINED FOR MINUTES 

2 BYTES DEFINED FOR SECONDS 



NOTE 



MAXIMUM NUMBER OF HOURS THAT WILL BE CONVERTED WILL 
BE 999 DECIMAL. 



INPUTS: 

ELAPSED TIME 
EXTENDED ELAPSED TIME 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

ADDRESS OF CONVERTED TIME TABLE 

IMPLICIT OUTPUTS: 
HOURS \ 

MINUTES —CONVERTED TIME TABLE 
SECONDS / 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
SAVREG - SAVE REGISTERS 
BDACNV - CONVERSION TO DECIMAL ASCII 
RESREG " RESTORE REGISTERS 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL HMS IN <A , B> OUT <C> 
A - ELAPSED TIME 
B - EXTENDED ELAPSED TIME 
C - ADDRESS OF CONVERTED TIME TABLE 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 

1402 000760' 

1403 000760' 000003 

1404 000763' 000002 

1405 000765' 000002 

1406 000770' 

1407 000770' 

1408 000770' 000000 

1409 000772' 000000 

1410 000774' 000000 
1411 

1412 000776' 000005 

1413 001004' 
1414 
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.SBTTL COMMON DEFINITIONS AND REFERENCES 
; REFERENCED BY OTHER MODULES 



SEQ 0980 



.GLOBL HMS 

; GLOBAL REFERENCES 

Iglobl SAVREG 
.GLOBL BDACNV 
.GLOBL RESREG 



• jiofc****));***:*: ##*))< 


; LOCAL STORAGE 


HM.CTT 




HM.HRS 


.BLKB 3 


HM.MIN 


•BLKB 2 


HM.SEC 


.BLKB 2 


.EVEN 




HM.CTE 




HM.THR 


.WORD 


HM.TMI 


.WORD 


HM.TSE 


.WORD 


HM.CNV 


.BLKB 5 


.EVEN 





;MODULE ENTRY POINT 



;SAVE REGISTERS 

JBINARY TO DECIMAL ASCII CONVERSION 

;REST0RE REGISTERS 



{CONVERTED TIME TABLE 
; HOURS 

MINUTES 
; SECONDS 

;END OF CONVERTED TIME TABLE 
; TOTAL TIME IN HOURS STORAGE 
;TOTAL TIME IN MINUTES STORAGE 
-.TOTAL TIME IN SECONDS STORAGE 

; STORAGE FOR BDACNV CALL 
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SEQ 0981 



1416 








1417 








1418 








1419 








1420 


001004' 






(2) 


001004' 






1421 








1422 








1423 








1424 








1425 








1426 








1427 


001004' 






(3) 


001004' 


004767 


OOOOOOG 


1428 


001010' 






(4) 


001010' 


016500 


000000 


1429 


001014' 






(4) 


001014 1 


016501 


000002 


1430 


001020' 






(4) 


001020' 


005067 


177744 


1431 


001024' 






(4) 


001024' 


005067 


177742 


1432 


001030' 






(4) 


001030' 


005067 


177740 


1433 








1434 








1435 








1436 








1437 








1438 


001034' 






(4) 


001034' 






(6) 


001034' 


005701 




(9) 


001036' 


001417 




1439 








1440 








1441 








1442 








1443 








1444 








1445 








1446 


001040' 






(6) 


001040' 


020027 


007020 


(9) 


001044' 


103007 




1447 


001046' 






(6) 


001046' 


062767 


000022 177714 


1448 


001054' 






(6) 


001054' 


062700 


001340 


1449 


001060' 






(6) 


001060' 


005301 




1450 


001062' 






(4) 


001062' 


000404 




(3) 


001064' 






1451 


001064' 






(6) 


001064' 


005267 


177700 


1452 


001070' 






(6) 


001070' 


162700 


007020 



•SBTTL HOURS, MINUTES AND SECONDS CONVERSION ROUTINE 



ROUTINE HMS <TIME , XTIME , ADRCT> 



HMS : 



SAVE REGISTERS ON STACK, RETRIEVE TIME (RO) AND EXTENDED TIME (R1) FROM STACK, 
INITIALIZE LOCAL STORAGE 



CALL SAVREG 
LET RO := TIME(R5) 
LET R1 := XTIME(R5) 
LET HM.THR := #0 
LET HM.TMI : = #0 
LET HM.TSE :* #0 



JSR 


PC, SAVREG 


MOV 


TIME(R5) ,R0 


MOV 


XTIME(R5) ,R1 


CLR 


HM.THR 


CLR 


HM.TMI 


CLR 


HM.TSE 



PROCESS (EXTENDED TIME BITS) INTO HOURS 



WHILE R1 NE #0 DO 



50002$: 



TST 
BEQ 



18 HRS, 12 MIN AND 16 SEC REQUIRED FOR EXTIME TO BE INCREMENTED 
IF TIME IS LESS THAN 1 HOUR THEN ADD 18 HOURS TO HOURS AND 
ADD 12 MINUTES 16 SECONDS TO RO (TIME) 



IF RO LO #"03600 THEN 

LET HM.THR : = HM.THR + #"D18 
LET RO := RO + #"D736 
LET R1 := R1 - #1 
ELSE 

LET HM.THR : = HM.THR + #1 
LET RO := RO - #~D3600 



Ri 
50003$ 





CMP 


R0,/TD3600 




BHIS 


50004$ 




ADD 


#~D 18, HM.THR 




ADD 


#~D736,R0 




DEC 


R1 




BR 


50005$ 


50004$: 








INC 


HM.THR 




SUB 


#"D3600,R0 
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1453 


001074' 






(4) 


001074' 






1454 


001074' 






(4) 


001074' 


000757 




(3) 


001076' 






1455 








1456 








1457 








1458 








1459 








1460 


001076' 






(4) 


001076' 






(6) 


001076' 


020027 


007020 


(9) 


001102' 


103405 




1461 


001104' 






(6) 


001104' 


005267 


177660 


1462 


0011 10' 






(6) 


0011 10' 


162700 


007020 


1463 


0011 14' 






(4) 


0011 14' 


000770 




(3) 


0011 16' 






1,464 








1465 








1466 








1467 








1468 








1469 


0011 16' 






(4) 


0011 16' 






(6) 


0011 16' 


020027 


000074 


(9) 


001122* 


103405 




1470 


001124' 






16) 


001124' 


005267 


177642 


1471 


001 130' 






(6) 


001130' 


162700 


000074 


1472 


001134' 






(4) 


001134' 


000770 




(3) 


001136' 






147.3 








1474 








1475 








1476 








1477 








1478 


001136' 






(4) 


001136' 


010067 


177632 


1479 








1480 








1481 








1482 








1483 








1484 


001142' 






(3) 


001142' 


010546 




(5) 


001144' 


012745 


000776' 


(4) 


001150' 


016745 


177614 


(3) 


001154' 


004767 


OOOOOOG 


(3) 


001160' 


012605 




1485 
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SEQ 0982 



ENDIF 



ENDDO 



50005$ 



50003$: 



BR 



PROCESS REMAINING HOURS CONTAINED IN RO (TIME) 



WHILE RO HIS /TD3600 DO 



50006S: 



LET HM.THR := HM.THR + #1 
LET RO := RO - #"D3600 



ENDDO 



CMP 
BLO 

INC 

SUB 

BR 



50007$: 



PROCESS MINUTES FROM REMAINING RO (TIME) 
WHILE RO HIS #"D60 DO 

LET HM.TMI := HM.TMI + #1 
LET RO := RO - jTD60 
ENDDO 

TIME LEFT STICK IN HM.TSE 
LET HM.TSE := RO 

CONVERT HOURS TO DECIMAL ASCII 
CALL BDACNV IN <HM . THR , #KM . CNV> 



5001 OS 



50011$: 



MOV 



50002$ 



R0,/TD3600 
50007$ 

HM.THR 

jrD3600.R0 

50006$ 



CMP 


R0,*rD60 


BLO 


5001 1$ 


INC 


HM.TMI 


SUB 


iTD60,R0 


BR 


50010$ 



RO, HM.TSE 



MOV 


R5,-(SP) 


MOV 


#HM.CNV,-(R5) 


MOV 


HM.THR, -(R5) 


JSR 


PC, BDACNV 


MOV 


(SP)+,R5 



012703 000760 



112223 
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1486 
1487 
1488 
1489 
1490 

1491 001162' 

(4) 001162' 012702 000776' 

(6) 001166' 062702 0000C2 

1492 001172' 
(4) 001172' 

1493 001176' 
(4) 001176' 

1494 001200' 
(4) 001200' 112223 

1495 001202' 

(4) 001202' 112223 
1496 
1497 
1498 
1499 
1500 
1501 001204' 

(3) 001204' 010546 

(5) 001206' 012745 000776' 

(4) 001212' 016745 177554 
(3) 001216' 004767 OOOOOOG 

(3) 001222' 012605 
1502 
1503 
1504 
1505 
1506 
1507 
1506 001224' . 

(4) 001224' 012702 000776' 

(6) 001230' 062702 000003 

1509 001234' 
(4) 001234' 

1510 001240' 
(4) 001240' 

1511 001242' 

(4) 001242' 112223 
1512 
1513 
1514 
1515 
1516 
1517 001244' 

(3) 001244' 010546 

(5) 001246' 012745 000776' 

(4) 001252' 016745 177516 
(3) 001256' 004767 OOOOOOG 
(3) 001262' 012605 

1518 
1519 
1520 



012703 000763 



112223 
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HOURS, MINUTES AND SECONDS CONVERSION ROUTINE 

INITIALIZE R2 TO POINT TO HM.CNV TABLE + 2 AND R3 TO POINT TO HM.HRS. 

THEN MOVE LOWEST THREE BYTES IN HM.CNV TABLE INTO HM.HRS STORAGE IN HM.CTT 



LET R2 := 0HM.CNV + #2 

LET R3 := #HM.HRS 

LET (R3)+ :B^ (R2) + 

LET (R3)+ :B= (R2)+ 

LET (R3)+ :B= (R2)+ 

CONVERT MINUTES TO DECIMAL ASCII 
CALL BDACNV IN <HM . TMI , #HM. CNV> 



SEQ 0983 



MOV 


#HM.CNV,R2 


ADD 


#2,R2 


MOV 


0HM.HRS, R3 


MOVB 


(R2)+, (R3) + 


MOVB 


(R2) + ,.(R3) + 


MOVB 


(R2)+, (R3)+ 



MOV 


R5,-(SP) 


MOV 


#HM.CNV,-(R5) 


MOV 


HM.TMI ,-(R5) 


JSR 


PC, BDACNV 


MOV 


(SP)+,R5 



INITIALIZE R2 TO POINT TO HM.CNV TABLE + 3, R3 TO POINT TO HM.MIN, 
MOVE 2 ENTRIES IN HM.CNV TABLE INTO HM.MIN STORAGE IN HM.CTT. 



LET R2 := #HM.CNV + #3 

LET R3 := #HM.MIN 
LET (R3)+ :B= (R2)+ 
LET (R3)+ :B= (R2)+ 

FINALLY CONVERT SECONDS TO DECIMAL ASCII 
CALL BDACNV IN <HM. TSE , #HM . CNV> 



MGV 


#HM.CNV,R2 


ADD 


#3,R2 


MOV 


#HM.MIN,R3 


MOVB 


(R2)+,(R3)+ 


MOVB 


(R2)+, (R3)+ 



MOV 


R5,-(SP) 


MOV 


#HM.CNV,-(R5) 


MOV 


HM.TSE,-(R5) 


JSR 


PC, BDACNV 


MOV 


(SP)+ t R5 



; INITIALIZE R2 TO POINT TO END OF HM.CNV TABLE + 3, R3 TO POINT 



001264' 

001264' 

001270' 

001274' 

001274' 012703 

001300' 

001300 1 

001302 1 

001302 1 



012702 
062702 



112223 



112223 



000776 
000003 

000765 
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1521 
1522 
1523 
1524 
1525 

(4) 

(6) 
1526 

(4) 
1527 

(4) 
1528 

(4) 
1529 
1530 
1531 
1532 
1533 
1534 
1535 

(4) 
1536 
1537 
1538 
1539 
1540 
1541 

(3) 
1542 
1543 

(3) 
(3) 
(2) 

1544 
1545 



001304' 

001304' 012765 000760' 000004 



001312' 
001312' 004767 

001316' 
001316' 
001316' 
001316' 000207 



000000G 
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HOURS, MINUTES AND SECONDS CONVERSION ROUTINE 

TO HM.SEC. MOVE 2 ENTRIES IN HM.CNV TABLE INTO HM.SEC 
STORAGE IN HM-. CTT 



LET R2 := #HM.CNV + #3 

LET R3 := 0HM.SEC 

LET (R3)+ :B= (R2)+ 

LET (R3)+ :B= (R2)+ 



LOAD HM.CTT ADDRESS (CONVERTED TIME TABLE) ON R5 STACK FOR 
CALLER 



SEO 0984 



MOV 


rHM.CNV.R2 


ADD 


#3,R2 


MOV 


#HM.SEC,R3 


MOVB 


(R2)+, (R3)+ 


MQVB 


(R2)+, (R3) + 



LET ADRCT(R5) := 0HM.CTT 



RESTORE REGISTERS AND RETURN TO CALLER 



CALL RESREG 



ENDRTN 



MOV 



#HM.CTT,ADRCT(R5 



50000$: 
50001$: 



J3R 



RTS 



PC, RESREG 



PC 
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1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
15B0 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
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PAGE 20-6 



SEQ 0985 



SBTTL UPDTIM UPDATE MODULE PASS TIME 
I DENT /VO.O/ 

++ 
MODULE NAME: 
UPDTIM 

FUNCTIONAL. DESCRIPTION: 

THIS MODULE WILL ONLY BE CALLED IF THERE IS A SYSTEM CLOCK AVAILABLE 
(KW11-L OR KW11-P OPTION MODULE). UPON BEING CALLED IT WILL SEARCH THE MODULE 
LIST UNTIL THE MODULE IS FOUND THAT REQUIRES THE MODULE TIME TO BE. UPDATED. 
THE UPDATE IS DONE BY MOVING THE TOTAL ELAPSED TIME AND EXTENDED TIME 
INTO THE APPROPRIATE STORAGE LOCATIONS (CONTAINED IN SYSTEM CLOCK MODULE; 
KW11-L OR KW11-P) FOR THE MODULE BEING UPDATED. 



INPUTS: 



DTABLE ADDRESS 

MODULE BEGIN ADDRESS TO BE UPDATED 



OFFSET TO MODULE LIST ADDR. IN DTABLE 
OFFSET TO SCTAB ADDR. IN DTABLE 



IMPLICIT INPUTS: 
DT.MLST 
DT.SCT 
SC.CLO 
SC.CKL 
SC.CKP 



OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 

SAVREG - SAVE REGISTERS 
RESREG - RESTORE REGISTERS 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL UPDTIM IN <A T B> 

A - DTABLE ADDRESS 

B - MODULE BEGIN ADDR. TO BE UPDATED 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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SYSCLK.MAC 28-UUL-78 09:28 UPDTIM UPDATE MODULE PASS TIME SEQ 0986 

1600 

1601 

1602 .SBTTL COMMON DEFINITIONS AND REFERENCES 

1603 

1604 j*************** 

1605 ; REFERENCED BY OTHER MODULES 

1606 ; 

1607 .GLOBL UPDTIM ;MODULE ENTRY POINT 
1608 

1609 ; *************** 

1610 ; GLOBAL REFERENCES 

1611 ; 

1612 .GLOBL SAVREG ;SAVE REGISTERS 

1613 .GLOBL RESREG ;RESTORE REGISTERS 



001320' 
001320' 



004767 000000G 



016500 000000 



016001 000032 



016002 000066 
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1615 
1616 
1617 
1618 

(2) 
1819 
1620 
1321 
1622 
1623 
1824 
1625 
1626 

(3) 
162 7 

(4) 
1528 

(4) 
1629 

(4) 
1630 
1631 
1632 
1633 
1634 
1635 

(6) 

(9) 
1636 

(4) 
1637 

(4) 

(3) 
1638 

(4) 
1639 

(4) 
1640 
1641 
1642 
1643 
1644 
1645 
1646 

(4) 

(6) 
1647 

(6) 
1648 
1649 
1650 
1651 
1652 
1653 

(4) 
1654 



001320' 
001320' 
001324' 
001324' 
001330' 
001330' 
001334' 
001334' 



001340' 
001340' 
001346' 
001350' 
001350' 
001354' 
001354' 
001356' 
001356' 
001356' 
001362* 
001362' 



032762 
001403 



000001 000000 



016202 000002 



000402 



016202 000004 



001362' 
001362' 
001364 1 
001370' 
001370* 



001374' 
001374* 



010203 
062703 



000006 



062702 000002 
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COMMON DEFINITIONS AND REFERENCES 



.SBTTL UPDATE TIME ROUTINE 
ROUTINE UPDTIME <DTA,UPDMOD> 



SEQ 0987 



UPDTIME: 



SAVE REGISTERS, GET POINTERS TO MODULE LIST, R.T.E TIME AND 
MODULE TIME TABLE 



CALL SAVREG 
LET RO := DTA(R5) 
LET R1 := DT.MLST(RO) 
LET R2 := DT.SCT(RO) 



DETERMINE IF SYSTEM CLOCK IS KW11L OR KW11P AND 
GET ADDRESS WITHIN MODULE (CLOCK) 



JSR 
MOV 
MOV 
MOV 



IF #BITOQ SETIN SC.CL0(R2) THEN 



ELSE 



ENDIF 



LET R2 := SC.CKL(R2) 



LET R2 := SC.CKP(R2) 



50002$: 



50003$: 



BIT 
BEQ 

MOV 

BR 

MOV 



GET R3 TO POINT TO MODULE TIME TABLE AND R2 
TO POINT TO R.T.E. ELAPSED TIME 



LET R3 := R2 + #6 



LET R2 := R2 + #2 



GET ADDRESS OF MODULE TO BE UPDATED FROM R5 STACK 



MOV 
ADD 

ADD 



LET RO := UPDM0D(R5) 



PC, SAVREG 
DTA(R5) ,R0 
DT.MLST(RO) »R1 
DT.SCT(RO) ,R2 



#BIT00,SC.CL0(R2 
50002$ 

SC.CKL(R2) ,R2 

50003$ 

SC.CKP(R2) ,R2 



R2,R3 
#6,R3 

#2,R2 



016500 000002 



MOV 



UPDMOD(RS) ,R0 



001400 1 
001400' 
001400' 
001402' 
001404' 
001404' 
001410' 
001410' 
001414' 
001414' 
001416* 



021100 
001405 

062701 000002 

062703 000004 

000771 
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1655 

1656 

1657 

1658 

1659 

1660 

(4) 

(6) 

(9) 

1661 

(6) 

1662 

(6) 

1663 

(4) 

(3) 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

(4) 

1671 

(4) 

1672 

1673 

1674 

1675 

1676 

1677 

(3) 

1678 

1679 

(3) 

(3) 

(2) 

1680 

1681 



001416' 

001416' 011213 
001420' 
001420' 016263 



000002 000002 



001426' 

001426' 004767 OOOOOOG 

001432' 
001432' 
001432' 
001432' 000207 
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18:36 PAGE 20-9 



SEARCH MODULE LIST UNTIL MODULE LIST POINTER POINTS TO ADDRESS 
IN RO 



WHILE (R1 ) NE RO DO 



LET R1 := R1 + #2 
LET R3 := R3 + #4 



ENDDO 



HAVE FOUND MODULE UPDATE MODULE TIME TO REFLECT 
R.T.E ELAPSED TIME 



LET (R3) 
LET 2(R3) 



R2) 
2(R2) 



MOV 
MOV 



RESTORE STACK AND RETURN 



CALL RESREG 



ENDRTN 



iOOOOS: 
i0001$: 



JSR 



RTS 



SEQ 0988 



50004$: 


CMP 
BEQ 


(R1 ) ,R0 
50005$ 




ADD 


#2,R1 




ADD 


#4,R3 


50005$: 


BR 


50004$ 



(R2), (R3) 

2(R2) ,2(R3) 



PC f RESREG 



PC 
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1683 
1684 
1685 
1686 
1687 
1588 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
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CLRTIM CLEAR TIME FROM SYSTEM CLOCK TIME TABLES 

.SBTTL CLRTIM CLEAR TIME FROM SYSTEM CLOCK TIME TABLES 
.IDENT /V0.0/ 



++ 
MODULE NAME: 
CLRTIM 



SEQ 0989 



FUNCTIONAL DESCRIPTION: 

THIS MODULE WILL CALL THE APPROPRIATE ROUTINE CONTAINED IN THE SYSTEM 
CLOCK MODULE (KW11L OR KW i 1 P OPTION MODULE) WHICH WILL. CLEAR OUT THE R.T.E 
AND EXTENDED ELAPSED TIME WORDS AND ALSO THE MODULE TIME TABLE. 

INPUTS: 

DTABLE ADDRESS 

IMPLICIT INPUTS: 

DT.SCT - SYSTEM CLOCK TABLE ADDRESS 

SC.CLO 

SC.ALC 

SC.APC 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
NONE 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL CLRTIM IN <A> 

A - DTABLE ADDRESS 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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CLRTIM CLEAR TIME FROM SYSTEM CLOCK TIME TABLES 



SEQ 0990 



1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 



SBTTL COMMON DEFINITIONS AND REFERENCES 



sli*!);**))!*****)!':***)^ 



REFERENCED BY OTHER MODULES 



GLOBL CLRTIM 



;MODULE ENTRY POINT 



001434' 
001434' 



001434' 
001434' 
C01436' 
001436' 
001442' 
001442' 



010046 



016500 000000 



016000 000066 



001446' 

001446' 032760 
001454' 001403 



000001 000000 
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1739 
1740 
1741 
1742 

(2) 
1743 
1744 
1745 
1746 
1747 
1748 

(2) 
1749 

(4) 
1750 

(4) 
1751 
1752 
1753 
1754 
1755 
1756 
1757 

(6) 

(9) 
1758 
1759 

(3) 
1760 
1761 

(4) 

(3) 
1762 
1763 
1764 
1765 
1766 
1767 

(3) 
1768 
1769 

(4) 
1770 
1771 
1772 
1773 
1774 
1775 

(2) 
1776 
1777 

(3) 

(3) 

(2) 
1778 
1779 



001456' 
001456' 

0014G2' 
001462' 
001464' 



001464' 
001464' 

001470' 
001470' 



001470' 
001470' 



004770 000014 



000402 



004770 000016 



012600 



001472' 
001472' 
001472' 
001472' 000207 
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COMMON DEFINITIONS AND REFERENCES 



.SBTTL CLEAR TIME ROUTINE 
ROUTINE CLRTIM <DTA> 

SAVE REGISTER, GET ADDRESS OF SCTAB 

PUSH RO 

LET RO := DTA(R5) 

LET RO := DT.SCT(RO) 



DETERMINE IF KW1 1 L IS SYSTEM CLOCK, IF IT IS 
GO CLEAR KW11L CLOCK TIME TABLES. 



IF #BITOO SETIN SC.CLO(RO) THEN 



CALL. @SC.ALC(RO) 



ELSE 



JEO 0991 



CLRTIM: 



MOV R0,-(3P) 
MOV DTA(R5),R0 
MOV DT.SCT(RO) , RO 





BIT 
BEQ 


#BIT00,SC.CL0(R0 
50002$ 




JSR 


PC,@SC.ALC(RO) 


50002$: 


BR 


50003$ 



MUST BE KW11P. GO CLEAR KW1 1 P TIME TABLES 



CALL @SC.APC(RO) 



JSR 



PC,@SC.APC(RO) 



ENDIF 



50003$: 



RESTORE REGISTER AND RETURN 



POP RO 



ENDRTN 



50000$: 
50001$: 



MOV 



RTS 



(SP)+,RO 



PC 
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11781 
1(782 
1783 

1784 
1785 
1786 



787 
788 
789 



1790 



791 



1792 



1793 
1794 
1795 
Il796 
11797 
1J798 



799 
800 
1801 
1802 
1803 
1804 
1805 
1806 
1.807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
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CKHUNG CHECK FOR HUNG OPTION MODULES SEQ 0992 

.SBTTL CKHUNG CHECK FOR HUNG OPTION MODULES 
.IDENT /V0.0/ 

++ 
MODULE NAME: 
CKHUNG 

FUNCTIONAL DESCRIPTION: 

THIS MODULE WILL CHECK TO SEE IF ANY IOMOD, IQMODP, IOMODR OR IOMODX 

HAVE NOT COMPLETED AN END OF PASS IN A SPECIFIED PERIOD OF TIME., 

THE CRITERIA WILL BE CHECKED BY COMPARING THE TIME OF THE MODULES LAST 

END OF PASS AGAINST THE CURRENT ELAPSED TIME OF THE SYSTEM RUN. THE MODULE TIME 

IS CONTAINED IN A TABLE WHICH CONTAINS TWO ENTRIES PER MODULE (TIME AND EXTENDED 

TIME WORDS), THIS TABLE IS LOCATED IN EITHER THE KW11-L OR KW11--P 

OPTION MODULE DEPENDING ON WHICH IS THE SYSTEM CLOCK. IF A MODULE 

IS DETERMINED TO BE HUNG THEN THE MODULE IS DROPPED WITH AN APPROPRIATE 

MESSAGE OUTPUTTED. 

INPUTS: 

NONE 

IMPLICIT INPUTS: 
DT.MTIME 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

NONE- 
PATHOLOGICAL CONNECTIONS: 

DTABLE 

SUBORDINATE ROUTINES CALLED: 

SAVREG SAVE REGISTERS 

ENQTQ ENQUEUE TYPE QUEUE ROUTINE 

RESREG RESTORE REGISTERS 

DUNCHK CHECK TO SEE IF ALL MODULES DROPPED 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 
CALL CKHUNG 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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1B32 
1B33 

1B34 
1B35 
1B36 
1837 
1B38 
1B39 
1640 
l|B41 
1842 
1p43 
1844 



1B45 



846 
847 
848 
849 



1850 



851 
852 
853 



001474' 000000 
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C.KHUNG CHECK FOR HUNG OPTION MODULES 



.SBTTL COMMON DEFINITIONS AND REFERENCES 

■ **************** 

; REFERENCED BY OTHER MODULES 



SEQ 0993 



•GLOBL CKHUNG 

• **lt:#i((*j|<j|!S|<******* 

• GLOBAL REFERENCES 

!globl SAVREG 

.GLOBL ENQTO 

.GLOBL RESREG 

.GLOBL DUNCHK 

.GLOBL DTABLE 

j jit*************** 
; LOCAL STORAGE 

CK.TEMP: .WORD 



; MODULE ENTRY POINT 



SAVE REGISTERS 

ENQUEUE TYPE QUEUE ROUTINE 

RESTORE REGISTERS 

CHECK TO SEE IF ALL MODULES ARE DROPPED 

ADDRESS OF DATA TABLE 



;TEMP STORAGE FOR TIME COMPARSIONS 



SYSCLK SYSTEM CLOCK BINDER MODULE 
SYSCLK.MAC 28-JUL-78 09:28 



855 
855 
857 
858 
859 
(2) 
860 
861 
862 
863 
J364 
!865 
|866 
l(3) 
867 
(4) 
868 
(4) 
869 
870 
871 
872 
873 
874 
875 
876 
(6) 
(9) 
877 
878 
879 
880 
881 
882 
(4) 
883 
884 
385 



887 
888 
(4) 
(3) 
889 
(4) 
890 
891 
(4) 
892 
893 
894 
895 
896 
897 
89C 
899 



001476' 
001476' 



001476' 
001476' 
001502' 
001502' 
001506' 
001506' 



004767 OOOOOOG 



012700 OOOOOOG 



016001 000066 



001512' 

001512' 032761 
001520' 001403 



000001 000000 



001522' 
001522' 



001526' 
001526* 
001530' 
001530' 
001530' 

001534' 
001534' 



016101 000002 



000402 



016101 000004 
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COMMON DEFINITIONS AND REFERENCES 



.SBTTL CHECK MODULE HUNG ROUTINE 
ROUTINE CKHUNG 

SAVE REGISTERS, GET ADDRESSO OF DTABLE AND SCTAB 

CALL SAVREG 

LET RO := 0DTABLE 

LET R1 := DT.SCT(RO) 



DETERMINE IF KW11L IS SYSTEM CLOCK 



IF #BITOO SETIN SCCL0(R1) THEN 



SET R1 EQUAL TO KW1 1 L LABEL IN OPTION MODULE 



LET R1 := SC.CKL(R1 ) 



SET R1 EQUAL TO KW11P LABEL IN OPTION MODULE 



ELSE 



LET R1 := SC.CKP(R1 ) 



ENDIF 



SEQ 0994 



CKHUNG: 



JSR 


PC, SAVREG 


MOV 


#DTABLE,RO 


MOV 


DT.SCT(RO) ,R1 



BIT 
BEQ 



#BIT00,SC.CLO(R1 
50002$ 



MOV 



SC.CKL(R1 ) ,R1 



50002$: 



50003$: 



BR 



MOV 



500 03$ 
SC.CKP(R1 ) ,R1 



POINT R3 TO FIRST ENTRY IN MODULE LIST, 

R2 POINTS TO FIRST ENTRY IN MOD TIME, AND R1 TO R.T.E TIME WORD. 



SYSCLK SYSTEM CLOCK BINDER MODULE 
SYSCLK.MAC 28-JUL-78 09:28 



1900 


001534' 






(4) 


001534' 


016003 


000032 


1901 


001540' 






(4) 


001540' 


010102 




(6) 


001542' 


062702 


000006 


1902 


001546' 






(6) 


001546' 


062701 


000002 


1903 








1904 








1905 








1906 








1907 








1908 


001552' 






(4) 


001552' 






(6) 


001552' 


021327 


000000 


(9) 


001556' 


001500 




1909 








1910 








1911 








1912 








1913 








11914 








1915 


001560' 






(4) 


001560' 


01 1304 




1916 








1917 








1918 








1919 








1920 








1921 


001562 1 






(4) 


001562' 


016404 


000026 


(6) 


001566' 


042704 


064757 


1922 


001572' 






(6.) 


001572' 


022704 


000020 


(9) 


001576' 


001463 




(6) 


001600' 


022704 


001000 


(9) 


001604' 


001460 




(6) 


001606' 


022704 


000000 


(9) 


001612' 


001455 




1923 








1924 








1925 








1926 








1927 








1928 


001614' 






(4) 


001614' 


01 1304 




1929 








1930 


001616' 






(6) 


001616' 


032764 


004000 000026 


(9) 


001624' 


001450 




(6) 


001626' 


032764 


020000 000026 


(9) 


001634' 


001044 




1931 








1932 








1933 








1934 
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CHECK MODULE HUNG ROUTINE 

LET R3 := DT.MLST(RO) 

LET R2 := R1 + #6 

LET R1 := R1 + #2 



WHILE R3 IS NOT AT END OF MODULE LIST 



SEQ 0995 



MOV 

MOV 
ADD 

ADD 



WHILE (R3) NE #ENDLST DO 



IF MODULE NOT BKMOD.NBKMOD OR SBKMOD THEN 
DETERMINE IF MODULE IS ACTIVE AND NOT DROPPED 



50004$: 



CMP 
BEG 



LET R4 := (R3) 



MASK OUT UNWANTED BITS 



LET R4 := STAT(R4) CLR.BY #STATBIT 



IF SBKMOD NE R4 AND 0NBKMOD NE R4 AND #SBKMOD NE R4 THEN 



GET MODULE HEADER ADDRESS 



LET R4 := (R3) 



MOV 



DT.MLST(RO) »R3 

R1.R2 
#6,R2 

#2,R1 



(R3) ,#ENDLST 
50005$ 



MOV (R3),R4 



MOV 


STAT(R4) f R4 


BIC 


#STATBIT,R4 


CMP 


#BKM0D,R4 


BEO 


50006$ 


CMP 


#NBKMQD,R4 


BEO 


50006$ 


CMP 


#SBKM0D,R4 


BEQ 


50006$ 



(R3) ,R4 



IF #ACTBIT SETIN STAT(R4) AND #BIT13 NOTSETIN STAT(R4) THEN 

BIT #ACTBIT,STAT(R4) 

BEO 50007$ 

BIT #BIT13,STAT(R4) 

BNE 50007$ 



; + 

; DETERMINE WHETHER THE DIFFERENCE OF MODULE TIME AND RTE. TIME 



SYSCLK SYSTEM CLOCK BINDER MODULE 
SYSCLK.MAC 28-JUL-78 09:28 



1935 






t 


1936 






; 


1937 


001636' 






(4) 


001636' 


01 1 167 


177632 


(6) 


001642' 


161267 


177626 


1-938 


001646' 






(6) 


001646' 


026760 


177622 000110 


(9) 


001654' 


101434 




1939 








1940 








1941 








1942 








1943 








1944 








1945 


001656' 






(3) 


001656' 


010546 




(8) 


001660' 


012745 


000000 


(7) 


001664' 


01 0445 




(6) 


001666' 


012745 


000000 


L (5) 


001672' 


01 2745 


000022 


(4} 


001676' 


012745 


OOOOOOG 


(3) 


001702' 


004767 


OOOOOOG 


(3) 


001706' 


012605 




1946 








1947 








1948 








1949 








1950 








1951 








1952 


001710' 






(6) 


001710' 


052764 


020000 000026 


1953 


001716' 






(6) 


001716' 


042764 


004000 000026 


1954 








1955 








1956 








1957 








1958 








1959 


001724' 






(6) 


001724' 


052760 


100000 000012 


1960 








1961 








1962 








1963 








1964 








1965 








1966 


001732' 






(3) 


001732' 


01 0546 




(5) 


001734' 


01 0445 




(4) 


001736' 


010045 




(3) 


001740' 


004767 


OOOOOOG 


(3) 


001744' 


012605 




1967 


001746' 






(4) 


001746' 






1968 


001746' 






(4) 


001746' 
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CHECK MODULE HUNG ROUTINE 

; IS GREATER THAN THE MAXIMUM ALLOWABLE TIME BETWEEN PASSES 

LET CK.TEMP := (R1 ) - (R2) 

IF CK.TEMP HI DT.MTIME(RO) THEN 



SEQ 0996 



MOV (R1), CK.TEMP 

SUB (R2), CK.TEMP 

CMP CK.TEMP.DT.MTIME 

BLOS 50010$ 



THEN LOAD MESSAGE WITH MODULE HUNG AND OUTPUT MESSAGE AND DROP 
MODULE 

CALL ENOTO IN <#DTABLE, #MSGHNG, #0 , R4, #0> 



MOV 


R5,-(SP) 




MOV 


#0,-(R5) 




MOV 


R4,-(R5) 




MOV 


#0,-(R5) 




MOV 


#MSGHNG r - 


■(R5) 


MOV 


0DTABLE,- 


(R5) 


JSR 


PC , ENOTQ 




MOV 


(SP)+,R5 





CLEAR THE ACTIVE BIT AND SET THE DROPPED BIT IN THE MODULES STATUS WORD 

LET STAT(R4) :~ STAT(R4) SET. BY #BIT13 

BIS #BIT13,STAT(R4) 

LET STAT(R4) := STAT(R4) CLR.3Y #ACTBIT 

BIC #ACTBIT,STAT(R4) 

p 
NOW SET BIT TO TELL MONITOR THAT A MODULE HAS BEEN DROPPED 



LET DT.ST1 (RO) 



DT.STKRO) SET. BY #CKTIM 

BIS #CKTIM,DT.ST1 (RO 



NOW GO SEE IF ANY MODULES ARE STILL RUNNING IF NOT DUNCHK 
WILL DROP THE EXERCISOR. 



CALL DUNCHK IN <R0,R4> 



ENDIF 



ENDIF 





MOV 


R5„-(SP) 




MOV 


R4,~(R5) 




MOV 


R0,-(R5) 




JSR 


PC, DUNCHK 




MOV 


(SP)+,R5 


50010$: 






50007$: 







SYSCLK SYSTEM CLOCK BINDER MODULE 
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1969 


001746' 






(4) 


001746' 






1970 








1971 








1972 








1973 








1974 








1975 


001746' 






(6) 


001746' 


062703 


000002 


1976 


001752' 






(6) 


001752' 


062702 


000004 


1977 


001756' 






(4) 


001756' 


000675 




(3) 


001760' 






1978 








1979 








1980 








1981 








1982 








1983 


001760' 






( 3 ) 


001760' 


004767 


OOOOOOG 


1984 








1985 


001764' 






(3) 


001764' 






(3) 


001764' 






(2) 


001764' 


000207 




1986 








1987 




000001 
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CHECK MODULE HUNG ROUTINE 

ENDIF 



UPDATE MODULE LIST POINTER AND MODULE TIME POINTER 



SEQ 0997 



50006$: 



LET R3 := R3 + #2 
LET R2 := R2 + #4 



ENDDO 



ADD 
ADD 
BR 



#2, R3 
#4,R2 
50004$ 



50005$: 



RESTORE REGISTERS AND RETURN 



CALL RESREG 



ENDRTN 



END 



50000$: 
50001$: 



JSR 



RTS 



PC, RESREG 



PC 



SYSCLK 


SYSTEM CLOCK 


BINDER MODULE 


MACY11 


30A(1052) 20-SEP-78 18:36 


PAGE 21 




SYSCLK.f 


WAC 28-JUL 


-78 09:28 


SYMBOL 


TABLE 








ACS.R = 


000102 


CLKCHK 


000034RG 


DT.SWR= 


000056 


KIPAR3- 


172346 


ACTBIT= 


004000 


CLKOFF 


000304RG 


DT.SYP= 


000072 


KIPAR4== 


172350 


ADDR22= 


001000 


CLKON 


000370RG 


DT.WBU= 


000050 


KIPAR5== 


172352 


ADR 


000000 


CLKPRE= 


000001 


DT.WHL= 


000051 


KIPAR6== 


172354 


ADRCT ■= 


000004 


CLRTIM 


001434RG 


DT.WLL= 


000052 


KIPAR7= 


172356 


APTFER= 


000004 


CONFlG= 


000056 


DUNCHK= 


****** Q 


KlPDRO--= 


172300 


APTPRE* 


000200 


CQOVF = 


000001 


DVID1 = 


000014 


KIPDR1= 


172302 


ASB 


000106 


CR 


000015 


ECCMEM= 


000100 


KIPDR2= 


172304 


ASSEMB= 


000010 


CSRA = 


000100 


ECCSTA= 


000010 


KIPDR3= 


172306 


ASTAT = 


000104 


CSRC = 


000102 


ENBEOP= 


010000 


KIPDR4= 


172310 


AUTO = 


000010 


CTRLC = 


000003 


ENBNUL= 


000001 


KIPDR5= 


172312 


AUTOST= 


020000 


CTRLO = 


000017 


ENDLST= 


000000 


KIPDR6= 


172314 


AW AS = 


0001 10 


CTRLU = 


000025 


ENQTQ = 


****** G 


KIPDR7= 


172316 


BDACNV= 


****** Q 


DCEVNT= 


00001 1 


EOPBIT= 


000001 


KTERRO= 


000040 


BGNADR= 


000002 


DEFRTN= 


000400 


ERRTYP= 


00010S 


KTPRES^ 


000400 


BITO = 


000001 


DIAGMC= 


000000 


EVNTBE= 


000200 


KTSTAT= 


000G20 


BITOO = 


000001 


DROPMO= 


100000 


EVNTHD= 


000200 


<KTXTND = 


040000 


BIT01 s 


000002 


DSEVNT= 


000014 


EVNTKT= 


000203 


iDTIME 


000 534 R 


BIT02 = 


000004 


DTA 


000000 


EVNTPE= 


000202 


LF 


000012 


BIT03 = 


000010 


DTABLE= 


****** Q 


EVNTRE= 


000201 


LPSTAT= 


000001 


BIT04 = 


000020 


DT. ADD= 


000042 


FATERR= 


100000 


•MAPSTA= 


000200 


BIT05 = 


000040 


DT.AP = 


000100 


HMS 


001004RG 


MED 


076600 


BIT06 = 


000100 


DT.APK= 


000076 


HM.CNV 


000776R 


MEMPAS= 


040000 


BIT07 = 


000200 


DT.BLS= 


000034 


HM.CTE 


000770R 


MCDEXH= 


004000 


BIT08 = 


000400 


DT.CF0= 


000014 


HM.CTT 


000760R 


MODHOL= 


002000 


BIT09 = 


001000 


DT,CF1= 


000016 


HM.HRS 


000760R 


MODSEL= 


001000 


BIT1 = 


000002 


DT.ERR= 


000020 


HM.MIN 


000763R 


MSGCKD= 


000010 


BIT10 = 


002000 


DT.ESI= 


000044 


HM.SEC 


000765R 


MSGCK.S = 


00001 1 


BIT 1 1 = 


004000 


DT.EVN= 


000000 


HM.THR 


000770R 


MS'GDER = 


000005 


BIT12 = 


010000 


DT.EXS= 


000060 


HM.TMI 


000772R 


MSGDRP= 


000017 


BIT13 = 


020000 


DT.FCH= 


000037 


HM.TS-E' 


000774R 


MSGECH= 


177777 


BIT14 = 


040000 


DT.FCN= 


000036 


HRDADR= 


****** G 


MSGEOP= 


000013 


BIT15 = 


100000 


DT.HMX= 


000104 


HPDCNT- 


000044 


MSGHDR= 


000004. 


BIT2 = 


000004 


DT.KBE= 


000024 


HRDPAS= 


000050 


MSGHNG= 


000022 


BIT3 = 


000010 


DT.KBP= 


000026 


ICONT = 


00003S 


MSGHRD= 


000007 


BIT4 = 


000020 


DT.KBR= 


000022 


ICOUNT= 


000040 


MSGMAP= 


000021 


BIT5 = 


000040 


DT.KBU= 


000030 


IDNUM = 


000122 


MSGNUL= 


177775 


BIT6 = 


000100 


DT.MLS= 


000032 


IE 


000100 


MSGPOP* 


000002 


BIT7 = 


000200 


DT.MTI= 


0001 10 


INDPAR= 


000040 


MSGPRM= 


177776 


BIT8 = 


000400 


DT.OFF= 


000070 


INHDRP= 


040000 


MSGRES= 


000 001 


BIT9 = 


001000 


DT.PAS= 


000074 


INHEPR= 


020000 


MSGSFT= 


000006 


BKDEF = 


000002 


DT.PC = 


000002 


INHREL= 


001000 


MSGSKE= 


000003 


BKMOD = 


000020 


DT.PFL= 


000062 


INHRRE= 


000400 


MSGSMB= 


000015 


BKMODE= 


040000 


DT.PSW= 


000004 


INIT = 


000030 


MSGSMH= 


000014 


BKSLSH= 


000134 


DT.PTA= 


000064 


INTR = 


000120 


MSGSMS= 


000016 


CAPRES= 


000004 


DT.RCS= 


000102 


IOMOD = 


100000 


^VlSGSTD = 


000000 


CASTAT= 


000004 


DT.REL= 


000040 


IOMODP= 


102000 


i1VISGSYS = 


000012 


CC.CM1 


OOOOOOR 


DT.SCT= 


000066 


IOMODR= 


1 12000 


/ MSGVEC= 


000020 


CDERCT= 


000146 


DT.SMX= 


000106 


10M0DX* 


1 10000 


'. NBKMOD= 


001000 


CDWDCT= 


000144 


DT.SP = 


000006 


JACK = 


035060 


NCPUOP= 


000020 


CKHUNG 


001476RG 


DT.SSI= 


000046 


KIPARO= 


172340 


NOAPTY= 


000002 


CKTIM = 


100000 


DT.STO= 


000010 


KIPAR1= 


172342 


NULL = 


OCOOOO 


CK . TEM 


001474R 


DT.ST1= 


000012 


KIPAR2= 


172344 


OWEN = 


024020 







SEQ 0998 


PAERR = 


000010 




PARPRE= 


002000 




PARSTA= 


000100 




PASCNT= 


000034 




PDPLSI= 


020000 




PDP60 = 


004000 




PDP70 = 


010000 




PRHMS 


000414RG 




PRIO = 


000000 




PRI1 = 


000040 




PRI4 = 


000200 




PR I 5 = 


000240 




PRI6 = 


00 030 




PRI7 = 


000340 




PRPSCN 


000604 RG 




PRO 


000000 




PR4 


000200 




PR5 


000240 




PR6 


000300 




PR7 


000340 




PS 


177776 




PSW 


177776 




RANNUM= 


000054 




RBUFEA= 


000130 




RBUFPA= 


000126 




RBUFSZ= 


000132 




RBUFVA= 


000124 




RDSERV= 


000101 




RDWHMI= 


000022 




RELERR= 


000020 




RELMOD= 


020000 




RELTIM= 


010000 




RESREG= 


****** Q 




RESULT= 


000004 




RES1 = 


000056 




RES2 = 


000060 




RICHAR= 


031060 




RPTDAT= 


002000 




RSTRT = 


0001 12 




RUBOUT= 


000177 




RUNMODat 


100000 




R5VALU= 


001740 




SAM 


075464 




SAVREG= 


****** Q 




SBADR = 


000102 




SBKMOD= 


000000 




SBKSEL= 


010000 




SC.ADR= 


000006 




SC.ALC= 


000014 




SC.APC= 


000016 




SC.CKL= 


000002 




SC.CKP=: 


000004 




SC.CLO 


000000 





SYSCLK : 


SYSTEM CLOCK BINDER MODULE 


MACY11 


30A(1052) 20-SEP-7S 


SYSCLK.I 


VIAC 28- 


-JUL-78 


09:28 


' SYMBOL 


TABLE 




SC.HLD= 


000010 




TMPIO = 


000002 


WDFR = 


0001 16 


SCSCA = 


000012 




TQOVF = 


000002 


WDTO = 


0001 14 


SENDLS= 


177777 




UIPARO= 


177640 


WTINRE* 


000352 


SOFCNT= 


000042 




UIPAR1= 


177642 


WTWHMI- 


000222 


SOFPAS= 


000046 




UIPAR2= 


177644 


XFLAG = 


000005 


SPACE = 


000040 




UIPAR3= 


177646 


XOFF - 


000023 


SP0INT= 


000032 




UIPAR4= 


177650 


XON - 


000021 


SPVALU= 


002200 




UIPAR5= 


177652 


XTIME = 


000002 


SRO 


177572 




UIPAR6= 


177654 


$BGNLE= 


177777 


SR1 


177574 




UIPAR7= 


177656 


$F.RFLG = 


000400 


SR2 


177576 




UIPDRO= 


177600 


$F$AND= 


00C310 


SR3 


172516 




UIPDR1= 


177602 


$F$BAD= 


000401 


STAT = 


000026 




UIPDR2= 


177604 


$F$BLA= 


000170 


STATBI= 


064757 




UIPDR3= 


177606 


$F$CAS= 


000150 


STAT1 = 


000027 




UIPDR4= 


177610 


$F$DEC= 


000220 


SUSPND= 


000001 




UIPDR5= 


177612 


$F$DO = 


000340 


SVRO = 


000062 




UIPDR6= 


177614 


$F$FAL= 


000405 


SVR1 


000064 




UIPDR7= 


177616 


$F$GOO= 


000400 


SVR2 = 


000066 




UPDMOD= 


000002 


$F$IF = 


0001 10 


SVR3 = 


000070 




UPDTIM 


001320RG 


$F$INC= 


000210 


SVR4 = 


000072 




WASADR= 


000104 


$F$LOO= 


000200 


SVR5 r 


000074 




WBSTAT= 


000040 


$F$NAM= 


000160 


SVR6 = 


000076 




WBUFEA= 


000136 


$F$NO = 


000403 


SYSCNT= 


000052 




WBUFPA= 


000134 


$F$OR = 


000320 


SYSERR= 


000100 




WBUFRQ= 


000140 


$F$RTI= 


000350 


TIME = 


000000 




WBUFSZ= 


000142 


$F$RTN= 


000300 


. ABS. 


000000 
001766 


000 
001 
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SEQ 0999 



$F$SEL== 000140 

$F$THE== 000330 

$F$TRU== 000404 

$F$UNT= 000130 

$F$WHI- 000120 

$F$YES== 000402 

$IFLEV== 17777 7 

$ISKO == 000001 

$ISK1 = 000001 

$ISK2 == 000001 

$LOCTA= 177777 

$LSTIN= 000001 

$LSTTA= 000001 

$NESTL:= 177777 

$NSK0 = 000300 

$T4SK1 - 000120 

$NSK2 = 000110 

$NSK3 = 000110 

$NSK4 = 000110 

$SAVLE= 177777 

$SSKO = 050005 

$TAGLE= 177777 

$TAGNU= 050011 

$TEMP = 000300 

$TSKO = 050004 

$TSK1 = 050005 



$TSK2 = 

$TSK3 = 
$TSK4 = 
$$ARGC= 
$$BYTE= 
$$CASE= 
$$DST = 
$$ELOC= 
$$ERFL= 
$$FLAG= 
$$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$SRETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG= 



05000S 

050007 

050010 

000000 

000403 

000000 

000000 

000402 

000000 

000001 

000000 

001654R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

00176SR 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ:SYSCLK r DSKZ:SYSCLK=SPMAC/ML, EQUATE, SYSCLK 
RUN-TIME: 34 25 .4 SECONDS 
RUN-TIME RATIO: 181/61=2.9 
CORE USED: 14K (27 PAGES) 



•MAIN. MACY11 30A(1052) 20-SEP-78 18:39 

EQUATE. MAC 13-SEP-78 16: 13 TABLE OF CONTENTS SEQ 1000 

3 COMMON EQUATE MODULE 

536 COMMON DEFINITIONS & REFERENCES 

539 OOOOOO 1 .PRINT ;SPMAC: VERSION 1.1 

575 TQINI (FUNCTIONAL DESCRIPTION) 

617 TQINI (CODE) 

634 ENQTQ (FUNCTIONAL DESCRIPTION) 

686 ENQTQ (CODE) 

757 DEQTQ (MODULE FUNCTIONAL DESCRIPTION) 

808 DEQTQ (CODE) 



TYPQUE (TYPE QUEUE MODULES) 
TYPQUE.MAC 28-JUL-78 09:28 

508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 



MACY11 30A(1052) 20-SEP-78 18:39 
COMMON EQUATE MODULE 
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SEQ 1001 



TITLE TYPQUE (TYPE QUEUE MODULES) 
IDENT /VO.O/ 

++ 
MODULE PACKAGE NAME: 
TYPQUE 

FUNCTIONAL DESCRIPTION: 

THIS MODULE PACKAGE CONTAINS THREE ROUTINES. THE FIRST ONE INITIALIZES 
THE TYPE QUEUE AND THE OTHER TWO ACTUALLY DO THE 
ENQUEING AND DEQUEING OF ITEMS FROM THE TYPE QUEUE. 
THE DESCRIPTION IS GIVEN UNDER THE RESPECTIVE MODULES. 
THESE MODULES ARE: 

1. TQINI - INITIALIZES THE TYPE QUEUE 

2. ENQTQ - ENQUES ITEMS ON THE TYPE QUEUE 

3. DEQTQ - DEQUES ITEMS FROM THE TYPE QUEUE. 

THE QUEUE POINTERS ARE CONTAINED 
IN THIS MODULE FOR USE BY THE ABOVE NAMED MODULES LOCALLY. 

VERSION: 
0.0 

EDIT DATE BY REASON 



TYPQUE (TYPE QUEUE MODULES) 
TYPQUE.MAC 28-JUL-78 09:28 

536 
537 
538 

539 000000' 
(1) 000000' 

540 000001 

541 000001 
542 

543 
:544 
^545 
I546 
^547 

548 

549 

550 
1551 

552 
I553 
I 554 

555 

556 

557 
:558 
^559 

560 
1561 
i562 
:563 

I564 000000' 000000 
!565 000002' 000000 
|566 000004' 000000G 
I 567 000006' OOOOOOG 
; 568 000010' 000000 
I 569 000012' OOOOOOG 

570 000014' OOOOOOG 
i571 000016' OOOOOOG 
i 572 

573 
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COMMON DEFINITIONS & REFERENCES 

.SBTTL COMMON DEFINITIONS & REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 

; REFERENCED BY OTHER MODULES: 



SEQ 1002 



.GLOBL TQ.CT 

.GLOBL TQ.INP 

.GLOBL TQ.OTP 

.GLOBL TQINI 

.GLOBL ENQTQ 

•GLOBL DEQTQ 

; GL03AL REFERENCES 

!globl GETPSW 

.GLOBL OV.TQ 

.GLOBL OV.HITQ 

.GLOBL OV.TQSIZ 



J*****!)!**** :|t*H«*** 


; LOCAL 


STORAGE 


TQ.VEC: 





TQ.PSW: 





TQ. INP: 


#OV.TQ 


TQ.OTP: 


#OV.TQ 


TQ.CT: 





TQ.HI: 


#OV.HITQ 


TQ.MAX: 


#OV.TQSIZ 


TQ.ITQ: 


#OV.TQ 



TQ COUNT 

TQ IN PTR 

TQ OUT PTR 

ROUTINE TO INIT TYPE QUEUE 

ROUTINE TO PUT ITEMS ON TQ 

ROUTINE TO DEQUE ITEMS. 



;GET CALLER'S PSW ROUTINE 
;TYPE QUEUE BUFFER 



SAVE L0C.4 

LOC. TO SAVE CALLER'S PS WORD 

CNQUE POINTER 

DEQUE POINTER 

CURRENT ENTRY COUNT 

QUEUE'S HIGH ADDRESS 

MAX NO. OF ENTRIES ALLOWED 



TYPQUE (TYPE QUEUE MODULES) 
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575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
598 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
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TQINI (FUNCTIONAL DESCRIPTION) 

.SBTTL TQINI (FUNCTIONAL DESCRIPTION) 

++ 
MODULE NAME: 
TQINI 

FUNCTIONAL DESCRIPTION: 

THIS MODULE INITIALIZES THE TYPE QUEUE. IT RESETS THE ENQUE 
AND DEQUE POINTERS TO THE START OF THE QUEUE, AND SETS THE 
COUNT TO ZERO 

INPUTS: 

NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
NONE 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 
CALL TQINI 

VERSION: 
0.0 



SEQ 1003 



EDIT 



DATE 



BY 



REASON 



TYPQUE 
TYPQUE, 

617 

618 

619 

620 

(2) 

621 

622 

623 

624 

625 

626 

627 

628 

(4) 

629 

i(4) 

I630 

(4) 

631 

!(3) 

!(3) 

!'(2) 

;632 
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MAC 28-JUL-78 09:28 TQINI (CODE) 

.SBTTL TQINI (CODE) 



000020 
000020 



000020' 

000020' 016767 
000026' 

000026' 016767 
000034' 

000034' 005067 
000040' 
000040' 
000040' 
000040' 000207 



177772 
177764 
177750 



177756 
177752 



ROUTINE TQINI 



INITIALIZE IN AND OUT POINTERS AND COUNT 



TQINI: 



LET TQ.INP := TQ.ITQ 
LET TQ.OTP := TQ.ITQ 



LET TQ.CT 
ENDRTN 



#0 



RTS 



SEQ 1004 





MOV 


TQ 


ITQ 


TQ 


INP 




MOV 


TQ. 


ITQ 


TQ 


OTP 




CLR 


TQ. 


CT 






50000$: 












50001$: 













PC 



TYPQUE (TYPE QUEUE MODULES) 
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634 
635 
636 
637 
638 
639 
640 
641 
542 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
670 
679 
680 
681 
682 
683 
684 



MACY11 30A{1052) 20--SEP-78 18:39 PAGE 19-4 
ENQTQ (FUNCTIONAL DESCRIPTION) 

.SBTTL ENQTQ (FUNCTIONAL DESCRIPTION) 



MODULE NAME: 
ENQTO 



SEQ 1005 



FUNCTIONAL DESCRIPTION: 

THIS MODULE HANDLES QUEUEING OF ITEMS ONTO THE TYPE 
QUEUE. 



INPUTS: 
1 

2, 
3, 
4 
5, 



DATA TABLE ADDRESS 
MESSAGE TYPE CODE 
MESSAGE ADDRESS 
MODULE'S HEADER ADDRESS 
RETURN ADDRESS 



IMPLICIT INPUTS: 
DT.ERR 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

ERROR WORD (DT.ERR) 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 
1 . GETPSW 



GET CALLER'S PS WORD 



FUNCTIONAL SIDE EFFECTS: 

ENQUEING IS DONE AT PRIORITY LEVEL 7 WHICH 
SERVES AS A LOCKING MECHANISM. 

CALLING SEQUENCE: 

CALL ENQTQ IN <DTADR , TYPCOD ,MSGADR , HDRADR ,RETADR> 

WHERE DTADR = DATA TABLE ADDRESS 
TYPCOD = TYPE CODE 
MSGADR = MESSAGE ADDRESS 
HDRADR = HEADER ADDRESS 
RETADR = RETURN ADDRESS 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



TYPQUE (TYPE QUEUE MODULES) 
TYPQUE.MAC 28-JUL-78 09:28 



MACY11 



30A(1052) 20-SEP-78 
ENQTQ (CODE) 
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SEQ 1005 



686 
687 
688 
(2) 
689 
690 
691 
692 
693 
694 
(2) 
695 
696 
697 
69S 
699 
700 
701 
702 
703 
704 
(6) 
(9) 
705 
(4) 
706 
(6) 
707 
(2) 
708 
(2) 
(4) 
709 
(4) 
710 
711 
712 
713 
71.4 
715 
716 
(4) 
(3) 
(4) 
717 
(2) 

7ie 

(2) 
719 
(2) 
720 
721 
722 
723 
724 
725 



000042' 
000042' 



000042' 
000042' 



000044' 
000044' 
000052' 
000054' 
000054' 
000060' 
000060' 
000066' 
000066' 
000070' 
000070' 
000072' 
000074' 
000074' 



000074' 
000074' 
000100' 
000104' 
0001 10' 
0001 10' 
000114' 
0001 14' 
000120' 
000120' 



010046 



026767 
002410 



177740 177742 



016500 000000 



052760 100002 000020 



012600 

000261 
000447 



162705 
004767 
012567 



000002 

OOOOOOG 

177672 



012746 000340 



012746 000122' 



000002 



.SBTTL ENQTQ (CODE) 

ROUTINE ENQTQ <DT , C0DE,M5G,HDR , RET> 

SAVE REGISTER 
PUSH RO 



IF THE COUNT IS EQUAL TO MAX. COUNT, 

THE QUEUE IS FULL AND WE CANNOT MAKE 

FURTHER ENTRIES INTO THE QUEUE. SAVE DTABLE ADDR AND SET 

ERROR FLAG IN THE STATUS INDICATOR 

AND RETURN WITH ERROR. 



IF TQ.CT GE TQ.MAX THEN 

LET RO := DT(R5) 

LET DT.ERR(RO) := DT.ERR(RO) SET. BY #TQOVF ! FATERR 

POP RO 

RETURN ERROR 



ENQTQ: 



MOV 



RO,-(SP) 



CMP 
BLT 


TQ.CT, TQ.MAX 
50002$ 


MOV 


DT(R5),R0 


BIS 


#TQQVF!FATERR,DT 


MOV 


(SP)+,RO 


SEC 
BR 


50001$ 



ENDIF 



50002$: 



SAVE CALLER'S PRIORITY AND 
CHANGE PRIORITY LEVEL TO 7 



CALL GETPSW OUT <TQ.PSW> 

PUSH #PR7 
PUSH #1$ 
INLINE <RTI> 



IF QUEUE'S ENQUE POINTER IS EQUAL 
TO QUEUE'S HIGH ADDRESS, RE- 
INITIALIZE THE POINTER TO THE 
START ADDRESS OF THE QUEUE. 



SUB 
USR 
MOV 

MOV 

MOV 

RTI 



#1*2, R5 
PC, GETPSW 
(R5)+,TQ.PSW 

#PR7,-(SP) 

#1$,-(SP) 



TYPQUE (TYPE QUEUE MODULES) 
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726 








727 








728 


000122' 






(2) 


000122' 






729 


000122' 






(6) 


000122' 


026767 


177656 177662 


(9) 


000130' 


001003 




730 


000132' 






(4) 


000132' 


012767 


OOOOOOG 177644 


731 


000140' 






(4) 


000140' 






732 








733 








734 








735 








736 








737 








738 


000140' 






(4) 


000140' 


0167C0 


177640 


739 


000144' 






(4) 


000144' 


016520 


000002 


740 


000150' 






(4) 


000150' 


016520 


000004 


741 


000154' 






(4) 


000154' 


016520 


000006 


742 


000160' 






(4) 


000160' 


016520 


000010 


743 


000164' 






(4) 


000164' 


010067 


177614 


744 


000170' 






(6) 


000170' 


005267 


177614 


745 








746 








747 








748 








749 








750 


000174' 






(2) 


000174' 


016746 


177602 


751 


000200' 






(2) 


000200' 


012746 


000206' 


752 


000204' 






(2) 


000204' 


000002 




753 


000206' 






(2) 


000206' 






754 


000206' 






(2) 


000206' 


012600 




755 


000210' 






(3) 


000210' 






(2) 


000210' 


000241 




(3) 


000212' 






(2) 


000212' 


000207 





MACY11 30A(1052) 20-SEP-78 
ENQTQ (CODE) 



INLINE <1$:> 
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SEQ 1007 



IF TO- INP EQ TQ.HI THEN 



LET TQ.INP := #OV.TQ 



1$: 

CMP 
BNE 

MOV 



ENDIF 



50003$: 



; + 



NOW ENQUE THE ENTRIES 



LET RO := TQ.INP 



LET 



(R0)+ : 
(R0)+ : 
(R0)+ : 
(R0)+ : 
LET TQ.INP 
LET TQ.CT : 



LET 



LET 



LET 



C0DE(R5) 
MSG(R5) 
HDR(R5) 
RET(R5) 
= RO 
TQ.CT + #1 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
INC 



; + 



RESTORE CALLER'S PS WORD AND RETURN 



PUSH TQ.PSW 
PUSH #2$ 



INLINE <RTI> 



INLINE <2$:> 
POP RO 



ENDRTN 



TO. INP, TQ.HI 
50003$ 

#OV.TQ,TQ. INP 



TQ. INP, RO 
C0DE(R5), (R0)+ 
MSG(R5) , (R0)+ 
HDR(R5) , (R0) + 
RET(R5) , (R0)+ 
RO, TQ. INP 
TQ.CT 





MOV 


TQ. PSW,-(SP 




MOV 


#2$ f -(SP) 




RTI 






2$: 






MOV 


(SP)+,RO 


50000$: 
50001$: 


CLC 





RTS 



PC 



TYPQUE (TYPE QUEUE MODULES) 
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757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 000214' 

802 

803 

804 

805 

806 
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.SBTTL DEQTQ (MODULE FUNCTIONAL DESCRIPTION) 



++ 
MODULE NAME: 
DEQTQ 



SEQ 1008 



FUNCTIONAL DESCRIPTION: 

THIS MODULE HANDLES DEQUEUEING OF ITEMS FROM THE TYPE 
QUEUE. 

INPUTS: 

NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

1 . MESSAGE TYPE CODE 

2. MESSAGE ADDRESS 

3. MODULE'S HEADER ADDRESS 

4. RETURN ADDRESS 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE ROUTINES CALLED: 

GETPSW ;GET CALLER'S PS WORD 

FUNCTIONAL SIDE EFFECTS: 

DEQUEING IS DONE AT PRIORITY LEVEL 7 WHICH 
SERVES AS A LOCKING MECHANISM. 

CALLING SEQUENCE: 

CALL DEQTQ OUT <CODE , MSGADR , HDRADR , RETADR> 

WHERE CODE = TYPE CODE 

MSGADR = MESSAGE ADDRESS 
HDRADR = HEADER ADDRESS 
RETADR = RETURN ADDRESS 



VERSION: 



0.0 
EDIT 



DATE 



BY 



REASON 



TYPQUE (TYPE 
TYPQUE.MAC 



QUEUE MODULES) 
28-JUL-78 09:28 



MACY1 1 



30A(1052) 20-SEP-78 
DEQTQ (CODE) 
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SEQ 1009 



808 
809 
810 
(2) 
811 
812 
813 
814 
815 
816 
817 
(6) 
(9) 
818 
(2) 
(4) 
819 
(4) 
820 
.821 
822 
823 
.824 
825 
826 
(4) 
(3) 
(4) 
827 
(2) 
828 
(2) 
829 
(2) 
830 
831 
832 
833 
834 
835 
836 
837 
(2) 
838 
(6) 
(9) 
839 
(4) 
840 
(4) 
841 
842 
843 
844 
845 
846 



000214' 
000214' 



000214' 
000214' 
000220' 
000222' 
000222' 
000224' 
000226' 
00022S' 



000226' 
000226' 
000232' 
000236' 
000242' 
000242' 
000246' 
000246' 
000252' 
000252' 



000254' 
000254' 
000254' 
000254' 
000262' 
000264' 
000264' 
000272' 
000272' 



005767 
003002 

000261 
000450 



177570 



162705 
004767 
012567 

012746 
012746 
000002 



000002 

OOOOOOG 

177540 

000340 

000254' 



177526 177530 
012767 OOOOOOG 177514 



026767 
001003 



.SBTTL DEQTQ (CODE) 

ROUTINE DEQTQ <CODE t MSG, HDR , RET> 



IF THE COUNT IS EQUAL TO ZERO, QUEUE 
IS EMPTY. RETURN WITH ERROR. 



DEQTQ: 



IF TQ.CT LE #0 THEN 



RETURN. ERROR 



TST 
BGT 

SEC 
BR 



TQ.CT 
50002$ 



50001$ 



ENDIF 



SAVE CALLER'S PRIORITY AND 
CHANGE PRIORITY TO 7 



CALL GETPSW OUT <TQ.PSW> 

PUSH #PR7 
PUSH #3$ 
INLINE <RTI> 

+ 
IF THE DEQUE POINTER IS AT HIGH 
ADDRESS, RE-INITIALIZE IT TO THE 
START ADDRESS OF THE QUEUE. 

INLINE <3$:> 

IF TQ.OTP EQ TQ.HI THEN 

LET TQ.OTP := #0V . TQ 
ENDIF 

NOW DEQUE THE ENTRIES. 

; + 



50002$; 



SUB 
JSR 
MOV 

MOV 

MOV 

RTI 



#1*2, R5 
PC, GETPSW 
(R5)+,TQ.PSW 

#PR7,-(SP) 

#3$,-(SP) 



3$: 

CMP 
BNE 

MOV 



TQ.OTP, TQ.HI 
50003$ 

0OV.TQ, TQ.OTP 



50003$: 



TYPQUE (TYPE QUEUE MODULES) 
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B47 








848 








849 








850 


000272' 






(2), 


000272' 


010046 




851 


000274' 






(4) 


000274' 


016700 


177506 


852 


000300' 






(4) 


000300' 


012065 


000000 


853 


000304' 






(4) 


000304' 


012065 


000002 


854 


000310' 






(4) 


000310' 


012065 


000004 


855 


000314' 






(4) 


000314' 


012065 


000006 


856 


000320' 






(4) 


000320' 


010067 


177462 


857 








858 








859 








860 








861 








862 


000324' 






(6) 


000324' 


005367 


177460 


863 








:864 








865 








866 








867 








868 


000330' 






(2) 


000330' 


016746 


177446 


869 


000334' 






(2) 


000334' 


012746 


000342 


870 


000340' 






(2) 


000340' 


000002 




871 


000342' 






(2) 


000342' 






872 


000342' 






(2) 


000342' 


012600 




873 


000344" 






(3) 


000344' 






(2) 


000344' 


000241 




(3) 


000346' 






(2) 


000346' 


000207 




874 




000001 





MACY11 30A(10S2) 20-SEP-78 
DEQTQ (CODE) 

; SAVE REGISTERS 



PUSH RO 

LET RO := TQ.OTP 

LET C0DE(R5) := (R0) + 
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SEQ 1010 



LET MSG(R5) 
LET HDR(R5) 
LET RET(R5) 



= (R0)+ 
= (R0)+ 
= (R0)+ 



LET TQ.OTP := RO 

DECREMENT COUNT 
LET TQ.CT := TQ.CT - #1 

RESTORE CALLER'S PS WORD AND RETURN 

PUSH TQ.PSW 
PUSH #4$ 
INLINE <RTI> 
INLINE <4$:> 
POP RO 
ENDRTN 



END 



50000$: 
50001$: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



DEC 



CLC 



RTS 



RO,-(SP) 

TQ.OTP.RO 

(R0)+,CODE(R5) 

(R0)+,MSG(R5) 

(R0)+,HDR(R5) 

(R0)+,RET(R5) 

RO, TQ.OTP 



TQ.CT 



MOV 


TQ. PSW,-(SP) 


MOV 


#4$,-(SP) 


RTI 




4$: 




MOV 


(SP)+,RO 



PC 



TYPQUE 


(TYPE QUEUE 


MODULES) MACY11 30A 


TYPQUE. 


VIAC 28-JUL-78 09:28 


SY 


ACSR = 


000102 


CSRC = 


000102 


ACTBIT= 


004000 


CTRLC = 


000003 


ADDR22= 


001000 


CTRLO = 


000017 


ADR 


000006 


CTRLU = 


000025 


APTFER= 


000004 


DCEVNT= 


000011 


APTPRE= 


000200 


DEFRTN= 


000400 


ASB 


000106 


DEQTQ 


000214RG 


ASSEMB= 


000010 


DIAGMC= 


000000 


ASTAT = 


000104 


DROPMO= 


100000 


AUTO = 


000010 


DSEVNT= 


000014 


AUTOST= 


020000 


DT 


000000 


AWAS = 


0001 10 


DT.ADD= 


000042 


BITO = 


000001 


DT.AP = 


000100 


BITOO = 


000001 


DT. APK = 


000076 


BIT.01 = 


000002 


DT.BLS= 


000034 


BIT02 = 


000004 


DT.CFO= 


000014 


BIT03 = 


000010 


DT.CF1= 


000016 


BIT04 = 


000020 


DT.ERR= 


000020 


BIT05 = 


000040 


DT . ES I = 


000044 


BIT06 = 


000100 


DT.EVN= 


000000 


BIT07 = 


000200 


DT.EXS= 


000060 


BIT08 = 


000400 


DT.FCH= 


000037 


BIT09 = 


001000 


DT.FCN= 


000036 


BIT1 = 


000002 


DT.HMX= 


000104 


BIT10 = 


002000 


DT.KBE= 


000024 


BIT11 = 


004000 


DT.KBP= 


000026 


BIT12 = 


010000 


DT.KBR= 


000022 


BIT13 = 


020000 


DT.KBU= 


000030 


BIT14 = 


040000 


DT.MLS= 


000032 


BIT15 = 


100000 


DT.MTI= 


0001 10 


BIT2 = 


000004 


DT.OFF= 


000070 


BIT3 = 


000010 


DT,PAS= 


000074 


BIT4 = 


000020 


DT.PC = 


000002 


BIT5 = 


000040 


DT.PFL= 


000062 


BIT6 = 


000100 


DT.PSW= 


000004 


BIT7 = 


000200 


DT.PTA= 


000064 


BIT8 = 


000400 


DT.RCS= 


000102 


BIT9 = 


001000 


DT.REL= 


000040 


BKDEF = 


000002 


DT.SCT= 


000066 


BKMOD = 


000020 


DT.SMX= 


000106 


BKMODE= 


040000 


DT.SP = 


000006 


BKSLSH= 


000134 


DT.SSI= 


000046 


CAPRES= 


000004 


DT.STO= 


000010 


CASTAT= 


000004 


DT.ST1= 


000012 


CDERCT= 


000146 


DT.SWR= 


000056 


CDWDCT= 


000144 


DT.SYP= 


000072 


CKTIM = 


100000 


DT.WBU= 


000050 


CLKPRE= 


000001 


DT.WHL= 


000054 


CODE = 


000000 


DT.WLL= 


000052 


CONFIG= 


000056 


DVID1 = 


000014 


CQOVF = 


000001 


ECCMEMi 


000100 


CR 


000015 


ECCSTA= 


000010 


CSRA = 


000100 


ENBEOP= 


010000 



!) 20-SEP-78 
TABLE 

ENBNUL= 

ENDLST= 

ENQTQ 

EOPBIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

GETPSW= 

HDR 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL* 

INHRRE= 

INIT = 

INTR = 

IOMOD = 

IOMODP= 

IOMODR= 

IOMODX= 

JACK = 

KIPAR0= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

K1PAR7= 

KIPDR0= 

KIPDR1= 

KIPDR2- 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPSTAT= 
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000001 

000000 

000042RG 

000001 

000106 

000200 

000200 

000203 

000202 

000201 

1000C0 

000004 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000030 
000120 
100000 
102000 
1 12000 
110000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 
000001 



SEQ 1011 



MAPSTA= 


000200 


MED 


076600 


MEMPAS= 


040000 


MODEXH--: 


004000 


MODHOL= 


002000 


MODSELs 


001000 


MSG 


000002 


MSGCKD= 


000010 


MSGCKS= 


00001 1 


MSGDER= 


000005 


MSGDRP= 


000017 


MSGECH= 


177777 


MSGEOP= 


000013 


MSGHDR= 


000004 


MSGHNG= 


000022 


MSGHRD= 


000007 


MSGMAP= 


000021 


MSGNUL= 


177775 


MSGPOP= 


000002 


MSGPRM= 


177776 


MSGRES= 


000001 


MSGSFT= 


000006 


MSGSKE= 


000003 


MSGSMB= 


00001 5 


MSGSMH= 


000014 


MSGSMS= 


000016 


MSGSTD= 


000000 


MSGSYS= 


000012 


MSGVEC= 


000020 


NBKMOD= 


001000 


NCPUOP= 


000020 


NOAPTY= 


000002 


NULL = 


000000 


OV.HIT= 


****** (3 


OV.TQ = 


****** Q 


OV.TQS= 


* * * ** * . Q 


OWEN = 


024020 


PAERR = 


000010 


PARPRE= 


002000 


PARSTA= 


000100 


PASCNT= 


000034 


PDPLSI= 


020000 


PDP60 = 


004000 


PDP70 = 


010000 


PRIO = 


000000 


PRI1 = 


000040 


PRI4 = 


000200 


PRI5 = 


000240 


PRI6 = 


000300 


PRI7 = 


000340 


PRO 


000000 


PR4 


000200 


PR5 


000240 



PR 6 


000300 


PR 7 


000340 


PS 


177776 


PSW. 


177776 


RANNUM= 


000054 


RBUFEA* 


000130 


RBUFPA= 


000126 


R3UFSZ= 


000132 


R8UFVA = 


000124 


RDSERV= 


000101 


RDWHMI= 


000022 


RELERR= 


000020 


R£LMOD= 


020000 


R£LTIM= 


010000 


RES1 = 


000056 


RES2 = 


000060 


RET 


000006 


RICHAR= 


031 060 


RPTDAT= 


002000 


RSTRT = 


0001 12 


RUBQUT= 


000177 


RUNMOD= 


100000 


R5VALU= 


001740 


SAM 


075464 


SBADR = 


000102 


SBKMOD= 


000000 


SBKSEL= 


010000 


SC.ADR= 


000006 


SC.ALC= 


000014 


SC.APC= 


000013 


SC.CKL= 


000002 


SC.CKP= 


000004 


SC.CLO--= 


000000 


SC.HLD= 


000010 


SC.SCA= 


000012 


SENDLS= 


177777 


SQFCNT= 


000042 


SOFPAS= 


000046 


SPACE = 


000040 


SPOINT= 


000032 


SPVALU= 


002200 


SRO 


177572 


SR1 


177 574 


SR2 ' = 


177576 


SR3 


172516 


STAT = 


000026 


STATBI= 


064757 


STAT1 = 


000027 


SUSPND= 


000001 


SVRO = 


000062 


SVR1 = 


000064 


SVR2 = 


000066 


SVR3 = 


000070 



TYPQUE (TYPE QUEUE MODULES) 
TYPQUE. MAC 28-JUL-78 09:28 
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SEQ 1012 



SVR4 = 


000072 


UIPAR5= 


177652 


SVR5 = 


000074 


UIPAR6= 


177654 


SVR6 = 


000076 


UIPAR7= 


177656 


SYSCNT= 


000052 


UIPDR0= 


177600 


SYSERR= 


000100 


UIPDR1= 


177602 


TMPIO = 


000002 


UIPDR2= 


177604 


TQINI 


000020RG 


UIPDR3= 


177606 


TQOVF = 


000002 


UIPDR4= 


177610 


TO-CT 


000010RG 


UIPDR5= 


177612 


TQ.HI 


000012R 


UIPDR6= 


177614 


TQ. INP 


000004RG 


UIPDR7= 


177616 


TQ.ITQ 


000016R 


VERSIO 


000214R 


TQ. MAX 


000014R 


WASADR= 


00 0104 


TQ.OTP 


000006RG 


WBSTAT= 


000040 


TQ.PSW 


000002R 


WBUFEA= 


000136 


TQ.VEC 


OOOOOOR 


WBUFPA= 


000134 


UIPARO= 


177640 


WBUFRQ= 


000140 


UIPAR1= 


177642 


WBUFS2= 


000142 


UIPAR2= 


177644 


WDFR = 


0001 16 


UIPAR3= 


177646 


WDTO = 


0001 14 


UIPAR4= 


177650 


WTINRE= 


000352 


. ABS. 


000000 000 
000350 001 





WTWHMI= 

XFLAG = 

XOFF = 

XON 

$BGNLE= 

$ERFLG= 

$F$AND= 

$F$BAD= 

$F$BLA= 

$F$CAS= 

$F$DEC= 

$F$DO = 

$F-$FAL = 

$F$GOO= 

$F$IF = 

$F$INC= 

$F$LOO= 

$F$NAM= 

$F$NO = 

$F$OR = 

$F$RTI= 



000222 
000005 
000023 
000021 
177777 
000400 
000310 
000401 
000170 
000150 
000220 
000340 
000405 
000400 
0001 10 
000210 
000200 
000160 
000403 
000320 
000350 



$F$RTN 

$F$SEL 

$F$THE 

$F$TRU 

$F$UNT 

$F$WHI 

$FSYES 

SIFLEV 

$ISKO 

SLOCTA 

SLSTIN 

SLSTTA 

$NESTL 

$NSKO 

$NSK1 

$SAVLE 

STAGLE 

$TAGNU 

$TEMP 

$TSKO 

$$ARGC 



000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 
000001 
177777 
000001 
000001 
177777 
000300 
000110 
177777 
17777 7 
050004 
000300 
050003 
000010 



$$BYTE= 
$$CASE= 
$$DST = 
$$ELOC= 
$$ERFL= 
$$FLAG= 
$$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
»TAG= 



000403 

000000 

000000 

000402 

000000 

000001 

000001 

000262R 

000000 

177777 

000001 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000350R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ:TYPQUE,DSKZ:TYPQUE=SPMAC/ML, EQUATE, TYPQUE 
RUN-TIME: 15 5 .3 SECONDS 
RUN-TIME RATIO: 52/20=2.5 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:40 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 1013 

3 COMMON EQUATE MODULE 

554 COMMON DEFINITIONS AND REFERENCES 

556 000000' .PRINT ;SPMAC: VERSION 1.1 

583 UNIMAP ROUTINE 



UNIMAP - LOAD UNIBUS MAP 

UN I MA P. MAC 15-AUG-78 15:01 

508 

509 

510 

511 

512 . 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 
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COMMON EQUATE MODULE 

.TITLE UNIMAP - LOAD UNIBUS MAP 
.IDENT /VO.O/ 



++ 
MODULE NAME: 
UNIMAP 

FUNCTIONAL DESCRIPTION: 

LOADS THE UNIBUS MAP SO THAT THE WRITE BUFFER CAN BE 
ADDRESSED BY UNIBUS DEVICES WHEN 22-BIT ADDRESSING 
SPACE IS IN USE. 

INPUTS: 

DATA TABLE 



IMPLICIT INPUTS: 
DT.WLLMT 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
B'L.BTMBNK 
BL.TOPBNK 

SUBORDINATE MODULES CALLED: 
SAVREG 
RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL UNIMAP IN <A> 

A=ADDRESS OF DATA TABLE 

VERSION: 
0.0 



SEQ 1014 



; CURRENT 124K BANK OF BOTTOM OF EXERCISER 
;CURRENT 124K BANK OF TOP OF EXERCISER 



;SAVE REGISTERS 
;RESTORE REGISTERS 



EDIT 



BY 



DATE 



REASON 
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554 
555 
556 
d) 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 



000000 
000000 



000001 
000001 



170200 
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COMMON DEFINITIONS AND REFERENCES 

.SBTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT jSPMAC: VERSION 1.1 

$I_STIN=1 

$LSTTAG*1 



REFERENCED BY OTHER MODULES 
GLOBL UNIMAP 

GLOBAL REFERENCES 

GLOBL SAVREG 

GLOBL RESREG 

GLOBL BL.BTMBNK 

GLOBL BL.TOPBNK 

LOCAL EQUATES 
MAPREG=1 70200 



SEQ 1015 



{MODULE ENTRY POINT 



;SAVE REGISTERS 

;RESTORE REGISTERS 

; CURRENT 124K BANK OF BOTTOM OF RTE 

; CURRENT 124K BANK OF TOP OF RTE 



; LOWEST ADDRESS OF UNIBUS MAP 



UNIMAP - LOAD 
UNIMAP.MAC 



UNIBUS 
15-AUG- 



MAP 

■78 15:01 



583 
584 
585 
(2) 
586 
587 
588 
589 
590 
591 
(3) 
592 
593 
594 
595 
596 
597 
598 
(4) 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
(6) 

(9) 
610 
(6) 
(9) 
(6) 
(9) 
611 
(2) 
612 
(4) 
613 
(4) 
614 
(4) 
615 
616 
(4) 
(3) 
617 
618 
619 
620 
621 
622 
623 



000000 
000000 



000000' 
000000' 004767 
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UNIMAP ROUTINE 

.5BTTL UNIMAP ROUTINE 

ROUTINE UNIMAP <TABL> 



SAVE REGISTERS 
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SEO 1016 



UNIMAP: 



000000G 



000004' 
000004' 016500 



000000 



000010' 
000010' 
000016' 
000020' 
000020' 
000026' 
000030' 
000036' 
000040' 
000040' 
000042' 
000042' 
000042' 
000042' 
000044' 
000044' 



026027 
001014 

026027 
001005 
026767 
001401 

000403 



005001 
005002 



000052 000200 

000046 010000 
OOOOOOG OOOOOOG 



000046' 

000046' 000417 
000050' 



CALL SAVREG 



SET RO TO THE START OF THE DATA TABLE 



JSR 



PC, SAVREG 



LET RO := TABL(R5) 



MOV 



TABL(R5) ,R0 



IF THE WRITE BUFFER LOW LIMIT IS 4K, IMPLYING THE CURRENT BANK IS THE 

LOWEST 124K BANK OF MEMORY, THEN START 

MAPPING FROM ADDRESS 0. HOWEVER, IF THIS IS A 128K SYSTEM 

AND IF THE EXERCISER IS CROSSING THE 1 24K BOUNDARY, BEGIN MAPPING 

FROM THE LOW BUFFER LIMIT. 



IF DT.WLLMT(RO) EQ #200 THEN 



IF DT.SSIZ(RO) EO #10000 AND BL.TOPBNK NE BL.BTMBNK THEN 



INLINE <BR 1$> 
ENDIF 

LET R1 :* #0 
LET R2 :* #0 



CMP 
BNE 
1 

CMP 
BNE 
CMP 
BEQ 

BR 1$ 



50003$: 



ELSE 



CLR 
CLR 

BR 



DT.WLLMT(RO) ,#20 
50002$ 

DT.SSIZ(RO) ,#100 
50003$ 

BL.TOPBNK, BL.BTM 
50003$ 



R1 
R2 



50004$ 



50002$: 



ELSE CONVERT THE WRITE BUFFER LOW LIMIT TO 22 BITS. (THE LOW 16 BITS 
WILL BE IN R1 , AND THE HIGH 6 BITS WILL BE IN R2. ) 
GET THE UPPER SIX BITS INTO THE UPPER SIX BITS OF Rl 
THEN SWAP THEM INTO THE lOWER BYTE OF R2 
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624 








625 








626 








527 


000050' 






(2) 


000050' 






628 


000050' 






(4) 


000050' 


016001 


000052 


(7) 


000054' 


006301 




(7) 


000056' 


006301 




(7) 


000060' 


006301 




(7) 


000062' 


006301 




(7) 


000064' 


006301 




(7) 


000066' 


006301 




629 


000070' 






(6) 


000070' 


016002 


000052 


(6) 


000074' 


000302 




630 


000076' 






(7) 


000076' 


006202 




(7) 


000100' 


006202 




631 


000102' 






(6) 


000102" 


042702 


177400 


632 


000106' 






(4) 


000106' 






633 








634 








635 








636 








637 








638 








639 








640 


000106' 






(4) 


000106' 


012703 


170200 


641 


0001 12' 






(4) 


000112' 


012704 


000037 


642 








643 








644 








645 








646 








647 


0001 16' 






(4) 


000116' 






(6) 


0001 16' 


005704 




(9) 


000120' 


001407 




648 








649 








650 








651 








652 








653 


000122' 






(4) 


000122' 


010123 




654 


000124' 






(4) 


000124' 


010223 




655 


000126' 






(6) 


000126' 


062701 


020000 


656 


000132' 






(6) 


000132' 


005502 
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; THEN LINE THEM UP IN BITS THRU 5 AND MASK OUT UPPER 10 BITS 



INLINE <1$:> 

LET R1 := DT.WLLMT(RO) SHIFT #+6 



SEQ 1017 



LET R2 := SWAP DT.WLLMT(RO) 



LET R2 := R2 SHIFT #~2 



LET R2 := R2 CLR.BY #177400 



MOV 


DT.WLLMT(RO) 


R1 


ASL 


R1 




ASL 


R1 




ASL 


R1 




ASL 


R1 




ASL 


R1 




ASL 


R1 




MOV 


DT.WLLMT(RO) 


R2 


SWAB 


R2 




ASR 


R2 




ASR 


R2 




BIC 


#1 77400, R2 





ENDIF 



50004$: 



NOW MAP, BY SETTIN R3 TO LOWEST MAP REGISTER AND R4 TO MAXIMUM 
NUMBER OF REGISTER. 



LET R3 := #MAPREG 
LET R4 := #~D31 

WHILE REGISTERS REMAIN CONTINUE TO MAP 
WHILE R4 NE #0 DO 



LOAD REGISTERS AND THEN UPDATE POINTERS 

LET (R3)+ := R1 

LET (R3)+ := R2 

LET R1 := R1 + #20000 

LET R2 := R2 + CARRY 



MOV 
MOV 



50005$: 



TST 
BEQ 



#MAPREG,R3 
#"031 ,R4 



R4 
50006$ 



MOV 


R1 , (R3) + 


MOV 


R2, (R3)+ 


ADD 


#20000, R1 


ADC 


R2 
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657 
(6) 
658 
(4) 
(3) 
659 
660 
661 
662 
663 
664 
665 
(3) 
666 
667 
(3) 
(3) 
(2) 
668 
669 



000134' 
000134' 
000136' 
000136' 
000140' 



000140' 
000140' 

000144' 
000144' 
000144' 
000144' 



005304 



000767 



004767 OOOOOOG 



000207 



LET R4 := R4 - #1 



ENDDO 



DEC 
BR 



50006$: 



RESTORE REGISTERS 



CALL RESREG 



000001 



ENDRTN 



.END 



50000$ 
50001$: 



JSR 



RTS 



SEQ 1018 



R4 
50005$ 



PC, RESREG 



PC 



UNIMA.P - LOAD UNIBUS MAP 

UN I MAP. MAC 15-AUG-78 15:01 
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ACSR = 


000102 


CSRA = 


000100 


ACTBIT= 


004000 . 


CSRC ■ 


000102 


ADDR22= 


001000 


CTRLC = 


000003 


ADR 


000006 


CTRLO = 


000017 


APTFER= 


000004 


CTRLU = 


000025 


APTPRE= 


000200 


DCEVNT= 


00001 1 


ASB 


000106 


DEFRTN= 


000400 


ASSEMB= 


000010 


DIAGMC= 


000000 


ASTAT = 


000104 


DROPMO= 


100000 


AUTO = 


000010 


DSEVNT= 


000014 


AUTOST= 


020000 


DT.ADD= 


000042 


AWA.S = 


0001 10 


DT.AP = 


000100 


BITO = 


000001 


DT.APK= 


000076 


BITOO = 


000001 


DT.BLS= 


000034 


BIT01 = 


000002 


DT.CFO= 


000014 


BIT02 = 


000004 


DT.CF1= 


000016 


BIT03 = 


000010 


DT.ERR= 


000020 


BIT04 = 


000020 


DT.EST = 


000044 


BIT05 = 


000040 


DT.EVN= 


000000 


BIT06 = 


000100 


DT.EXS= 


000060 


BIT07 = 


000200 


DT.FCH= 


000037 


BIT08 = 


000400 


DT.FCN= 


000036 


BIT09 * 


001000 


DT.HMX= 


000104 


BIT1 = 


000002 


DT.KBE= 


000024 


BIT10 = 


002000 


DT.KBP= 


000026 


BIT11 = 


004000 


DT.KBR= 


000022 


BIT12 = 


010000 


DT.KBU= 


000030 


BIT13 = 


020000 


DT.MLS= 


000032 


BIT14 = 


040000 


DT.MTI= 


0001 10 


BIT15 = 


100000 


DT.OFF= 


000070 


BIT2 = 


000004 


DT.PAS= 


000074 


BIT3 = 


000010 


DT.PC = 


000002 


BIT4 = 


000020 


DT.PFL= 


000062 


BIT5 = 


000040 


DT.PSW= 


000004 


BIT6 = 


000100 


DT.PTA= 


000064 


BIT7 = 


000200 


CT.RCS= 


000102 


BIT8 = 


000400 


DT.REL= 


000040 


BIT9 = 


001000 


DT.SCT= 


000066 


BKDEF = 


000002 


DT.SMX= 


000106 


BKMOD = 


000020 


DT.SP = 


000006 


BKMODE= 


040000 


DT.SSI= 


000046 


BKSLSH= 


000134 


DT.STO= 


000010 


BL.BTM= 


****** Q 


DT.ST1= 


000012 


BL.TOP= 


****** Q 


DT.SWR= 


000056 


CAPRES= 


000004 


DT.SYP= 


000072 


CASTAT= 


000004 


DT.WBU= 


000050 


CDERCT= 


000146 


DT.WHL= 


000054 


CDWDCT= 


000144 


DT.WLL= 


000052 


CKTIM = 


100000 


DVID1 = 


000014 


CLKPRE= 


000001 


ECCMEM= 


000100 


CONFIG= 


000056 


ECCSTA= 


000010 


CQOVF = 


000001 


ENBEOP= 


010000 


CR 


000015 


ENBNUL= 


000001 
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ENDLST= 


000000 


MODEXH* 


004000 


EOPBIT= 


000001 


MODHOL= 


002000 


ERRTYP= 


000106 


MODSEL= 


001000 


EVNTBE= 


000200 


MSGCKD= 


000010 


EVNTHD= 


000200 


MSGCKS= 


00001 1 


EVNTKT= 


000203 


MSGDER= 


000C05 


EVNTPE= 


000202 


MSGDRP* 


000017 


EVNTRE= 


000201 


MSGECH= 


177777 


FATERR= 


100000 


MSGE0P= 


000013 


HRDCNT= 


000044 


MSGHDR= 


000004 


HRDPAS= 


000050 


MSGHNG= 


000022 


ICONT = 


000036 


MSGHRD= 


000007 


IC0UNT= 


000040 


MSGMAP= 


000021 


IDNUM = 


000122 


MSGNUL= 


177775 


IE 


000100 


MSGPOP= 


000002 


INDPAR= 


000040 


MSGPRM= 


177776 


INHDRP= 


040000 


MSGRES= 


000001 


INHEPR= 


020000 


MSGSFT= 


000006 


INHREL= 


001000 


MSGSKE= 


000003 


INHRRE= 


000400 


MSGSMB- 


000015 


INIT = 


000030 


MSGSMH= 


000014 


INTR = 


000120 


MSGSMS= 


000016 


I0M0D = 


100000 


MSGSTD= 


000000 


I0M0DP= 


102000 


MSGSYS= 


000012 


I0M0DR= 


1 12000 


MSGVEC= 


000020 


I0M0DX= 


1 10000 


N BKMOD = 


001000 


JACK = 


035060 


NCPUOP= 


000020 


KIPAR0= 


172340 


N0APTY= 


000002 


KIPAR1= 


172342 


NULL = 


000000 


KIPAR2= 


172344 


OWEN = 


024020 


KIPAR3= 


172346 


PAERR = 


000010 


KIPAR4= 


172350 


PARPRE= 


002000 


KIPAR5= 


172352 


PARSTA= 


000100 


KIPAR6= 


172354 


PASCNT= 


000034 


KIPAR7= 


172356 


PDPLSI= 


020000 


KIPDR0= 


172300 


PDP60 = 


004000 


KIPDR1= 


172302 


PDP70 = 


010000 


KIPDR2= 


172304 


PRIO = 


000000 


KIPDR3= 


172306 


PRI1 = 


000040 


KIPDR4= 


172310 


PRI4 = 


000200 


KIPDR5= 


172312 


PRI5 = 


000240 


KIPDR6= 


172314 


PRI6 = 


000300 


KIPDR7= 


172316 


PRI7 = 


000340 


KTERR0= 


0C0040 


PRO 


000000 


KTPRES= 


000400 


PR4 


000200 


KTSTAT= 


000020 


PR5 


000240 


KTXTND= 


040000 


PR6 


000300 


LF 


000012 


PR7 


000340 


LPSTAT= 


000001 


PS 


177776 


MAPREG= 


170200 


PSW = 


177776 


MAPSTA= 


000200 


RANNUM= 


000054 


MED 


076600 


RBUFEA= 


000130 


MEMPAS= 


040000 


RBUFPA= 


000126 



SEQ 1019 



RBUFSZ= 

RBUFVA= 

RDSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RESREG= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBQUT= 

RUNMOD= 

R5VALU* 

3AM 

SAVREG= 

SBADR = 

SBKMOD= 

SBK.SE L = 

SC. ADR= 

SC.ALC= 

SC. APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCAa 

SENDLS= 

SGFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 

SVR2 = 

SVR3 = 

SVR4 a 

SVR5 = 

SVR6 = 

SYSCNT= 

SYSERR= 

TABL = 



000132 
000124 
000101 
000022 
000020 
020000 
010000 
****** 

000056 
000060 
031060 
002000 
000112 
000177 
100000 
001740 
075464 

5r Sp 4 1 n* *K ■¥■ 

000102 
000000 
010000 
000006 
000014 
00001"© 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177574 
177576 
172516 
000026 
064757 
000027 
000001 
000062 
000064 
000066 
000070 
000072 
000074 
000076 
000052 
000100 
000000 



UNIMAP 


- LOAD UNIBUS 


MAP 


MACY11 3 


UNIMAP J 


ViAC 15- 


•AUG- 


-78 


15:01 




TMPIO = 


000002 






WASADR= 


000104 


TQOVF = 


000002 






WBSTAT= 


000040 


UIPAR0= 


177640 






WBUFEA= 


000136 


UIPAR1= 


177642 






WBUFPA= 


000134 


UIPAR2= 


177644 






WBUFRQ- 


000140 


UIPAR3= 


177646 






WBUFS2= 


000142 


UIPAR4= 


177650 






WDFR = 


0001 16 


UIPAR5= 


177652 






WDTO = 


0001 14 


UIPAR6= 


177654 






WTINRE= 


000352 


UIPAR7= 


177656 






WTWHMI= 


000222 


UIPDRC= 


177600 






XFLAG = 


000005 


UIPDR1= 


177602 






XOFF = 


000023 


UIPDR2= 


177604 






XON 


000021 


UIPDR3= 


177606 






$BGNLE= 


177777 


UIPDR4= 


177610 






$ERFLG= 


000400 


UIPDR5= 


177612 






$F$AND= 


000310 


UIPDR6= 


177614 






$F$BAD= 


000401 


UIPDR7= 


177616 






$F$BLA= 


000170 


UNIMAP 


OOOOOORG 






$F$CAS= 


000150 


. ABS. 


000000 
000146 


000 
001 
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SEQ 1020 



$F$DEC= 
$F$DO = 
$F$FAL= 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO-^ 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 
$IFLEV= 



000220 
000340 
000405 
000400 
0001 10 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 



$ISKO = 

$ISK1 == 

$LOCTA== 

$LSTIN== 

$LSTTA== 

$NESTL 

$NSKO 

$NSK1 

$NSK2 

$SAVLE 

$SSKO 

$TAGLE 

STAGNU 

$TEMP 

$TSKO 

$TSK1 

$$ARGC 

$$BYTE 

$$CASE 



000001 
000001 
177777 
000001 
000001 
177777 
000300 
000120 
000110 
177777 
050006 
177777 
050007 
000300 
050005 
050C06 
000002 
000403 
000000 



$$DST = 
$$ELOC= 
$$ERFL= 
$$FLAG= 
$$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RETU= 
$3RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG= 



000000 

000402 

000000 

000340 

000000 

000120R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000146R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ : UN I MAP, DSKZ: UN IMAP = SPMAC/ML, EQUATE, UNIMAP 
RUN-TIME: 13 3 .3 SECONDS 
RUN-TIME RATIO: 32/17=1.8 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:40 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 1021 

3 COMMON EQUATE MODULE 
553 COMMON DEFINTIONS AND REFERENCES 

555 000000' .PRINT ;SPMAC: VERSION 1.1 

583 UNIPA ROUTINE 



UNIPA - GET 
UNIPA.MAC 

508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 



PHYSICAL ADDRESS FORM UNIBUS MAP MACY11 30A(1052) 20-SEP-78 18:40 PAGE 19 



28-JUL-78 09:28 



COMMON EQUATE MODULE 

.TITLE UNIPA - GET PHYSICAL ADDRESS FORM UNIBUS MAP 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
UNIPA 

FUNCTIONAL DESCRIPTION: 

DETERMINES 22-BIT PHYSICAL ADDRESS FROM 18-BIT VIRTUAL 
ADDRESS AND PROPER UNIBUS MAP REGISTER. 

INPUTS: 

ADDRESS OF I/O TABLE - CONTAINS 16 BIT PA AND 2 EA BITS 

IMPLICIT INPUTS: 
PA 
EA 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

16 BITS AND EA BITS 

PATHOLOGICAL CONNECTIONS: 
NONE 



SEQ 1022 



SUBORDINATE MODULES CALLED: 
SAVREG 
RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL UNIPA IN <A> 

A=ADDRESS OF I/O TABLE 

VERSION: 
0.0 



;SAVE REGISTERS 

; RESTORE REGISTERS 



EDIT 



BY 



DATE 



REASON 
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UNI PA. MAC 
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553 
554 
555 
(D 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 



000000 
000000 



000001 
000001 



170200 



COMMON DEFINITIONS AND REFERENCES 

.SBTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



REFERENCED BY OTHER MODULES 
GLOBL UNIPA 

GLOBAL REFERENCES 



SEQ 1023 



.GLOBL 


SAVREG 


.GLOBL 


RESREG 


• 3|tHs»|cs|<j^af:^jl;i(i>(c&(i:^;^^C!+:si< 


; LOCAL 


EQUATES 


MAPREG= 


170200 


• #j)!>(::|<)(:Jt<s(<s|<jt:>i<:i:j|<j(<)jca)ij)( 



;MODULE ENTRY POINT 



;SAVE REGISTERS 

; RESTORE REGISTERS 
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SEO 1024 



583 
584 
585 
586 
(2) 
587 
588 
589 
590 
591 
592 
593 
(3) 
594 
595 
596 
597 
598 
599 
600 
(4) 
601 
602 
603 
604 
605 
60S 
607 
608 
(4) 
609 
(4) 
610 
611 
612 
613 
614 
615 
616 
617 
(6) 
(6) 
618 
(7) 
(7) 
(7) 
619 
(6) 
620 
(4) 
(7) 
621 
(6) 
622 
623 
624 



000000 
000000' 



000000' 
000000' 



004767 OOOOOOG 



000004' 
000004' 



016500 000000 



000010 ' 

000010' 012001 
000012' 
000012' 012002 



000014' 
000014' 
000016' 
000020' 
000020' 
000022' 
000024' 
000026' 
000026' 
000032' 
000032' 
000034' 
000036' 
000036' 



010103 
000303 

006203 
006203 
006203 

042703 177743 

01 0204 
006304 

060304 



.SBTTL UNIPA ROUTINE 



ROUTINE UNIPA <ADDR> 



SAVE REGISTERS 



CALL SAVREG 



UNIPA: 



JSR 



PC, SAVREG 



GET THE ADDRESS OF THE I/O TABLE 



LET RO := ADDR(R5) 



MOV 



ADDR(R5) ,R0 



GET THE 18-BIT ADDRESS TO BE CONVERTED. THE LOW 16 BITS WILL 
BE IN R1 AND THE HIGH 2 BITS WILL BE IN R2 (POSITIONS 4 AND 5). 



LET R1 := (R0)+ 
LET R2 := (R0) + 



GET THE HIGH 5 BITS OF THIS ADDRESS TO DETERMINE THE PROPER 
UNIBUS MAP REGISTER. 



LET R3 := SWAP R1 

LET R3 := R3 SHIFT #-3 

LET R3 := R3 CLR.BY #177743 

LET R4 := R2 SHIFT #+1 

LET R4 := R4 + R3 



; + 



MOV 
MOV 



(R0)+„ R1 
(R0)+,R2 



MOV 


R1 „R3 


SWAB 


R3 


ASR 


R3 


ASR 


R3 


ASR 


R3 


BIC 


01 77743 ,R3 


MOV 


R2.R4 


ASL 


R4 



ADD 



R3.R4 
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GET THE CONTENTS OF THE PROPER MAP REGISTER. THE LOW 
16 BITS WILL BE IN R2 AND THE HIGH 6 BITS WILL BE IN R3 

LET R4 := R4 + #MAPREG 
LET R2 := (R4)+ 
LET R3 := (R4) 



ADD THE LOW 12 BITS OF THE 18-BIT VIRTUAL ADDRESS TO THE 
VALUE JUST OBTAINED FROM THE MAP REGISTER. THE RESULT 
IS THE 22-BIT PHYSICAL ADDRESS. 



SEQ 1025 



625 






626 






627 






628 






629 


000040' 




(6) 


000040' 


062704 170200 


630 


000044' 




(4) 


000044' 


012402 


631 


000046' 




(4) 


000046' 


01 1403 


632 






633 






634 






635 






636 






637 






638 






639 






640 


000050' 




(6) 


000050' 


042701 160000 


641 


000054' 




(6) 


000054' 


060102 


642 


000056' 




(6) 


000056' 


005503 


643 






644 






645 






646 






647 






648 






649 






650 


000060' 




(4) 


000060' 


010220 


651 


000062' 




(4) 


000062' 


010310 


652 






653 






654 






655 






656 






657 






658 


000064' 




(3) 


000064' 


004767 000000G 


659 






660 






661 






662 






663 






664 






665 


000070' 




(3) 


000070' 




(3) 


000070' 




(2) 


000070' 


000207 


666 






667 




000001 



ADD 
MOV 
MOV 



LET R1 
LET R2 
LET R3 



= R1 CLR.BY #160000 

= R2 + R1 

= R3 + CARRY 



BIC 
ADD 
ADC 



STORE THE 22-BIT PHYSICAL ADDRESS IN THE I/O TABLE. THE LOW 
16 BITS GO IN FIRST, THEN THE HIGH 6. 



LET (R0)+ := R2 
LET (RO) := R3 



MOV 
MOV 



RESTORE REGISTERS 



CALL RESREG 



COME AGAIN, SOON, 



ENDRTN 



END 



JSR 



50000$: 

50001$: 



RTS 



#MAPREG,R4 
(R4)+,R2 
(R4) ,R3 



#160000, R1 

R1 ,R2 

R3 



R2, (R0)+ 
R3, (RO) 



PC, RESREG 



PC 
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SEQ 1026 



ACSR = 


000102 


ACTBIT= 


004000 


ADDR = 


000000 


ADDR22= 


001000 


ADR = 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ASB = 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


0001 10 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


DIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT 2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQOVF = 


000001 


CR 


000015 


CSRA > 


000100 



CSRC = 
CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO= 
DSEVNT= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CF0= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 
ENDLST= 



000102 
000003 
000017 
000025 
00001 1 
000400 
000000 
100000 
000014 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
00 0104 
000024 
000026 
000022 
000030 
000032 
000110 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 
000000 



EOPBIT= 

ERRTYP= 

EVNTBE* 

EVNTHD* 

EVNTK1> 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT= 

HRDPAS= 

ICONT s- 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT = 

INTR = 

IOMOD = 

IOMODP= 

IOMODR= 

IOMODX= 

JACK = 

KIPARO= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPSTAT= 

MAPREG= 

MAPSTA= 

MED 

MEMPASe 

MODEXH= 



000001 
000105 
000200 
000200 
000203 
000202 
000201 
100000 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000030 
000120 
100000 
102000 
1 12000 
1 10000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 
000001 
170200 
000200 
076600 
040000 
004000 



MODH0L= 


002000 


MODSEL== 


001000 


MSGCKD= 


000010 


MSGCKS= 


00001 1 


MSGDER= 


000005 


MSGDRP= 


000017 


MSGECH= 


177777 


MSGEOP= 


000013 


MSGHDR= 


000004 


MSGHNG= 


000022 


MSGHRD= 


000007 


MSGMAP= 


000021 


MSGNUL- 


177 77 5 


MSGPOP= 


000002 


MSGPRM= 


177776 


MSGRES= 


000001 


MSGSFT= 


000006 


MSGSKE= 


000003 


MSGSMB= 


000015 


MSGSMH= 


000014 


MSGSMS= 


000016 


MSGSTD= 


000000 


MSGSYS= 


000012 


MSGVEC= 


000020 


NBKMOD= 


001000 


NCPUOP= 


000020 


NOAPTY= 


000002 


NULL = 


000000 


OWEN = 


024020 


PAERR = 


000010 


PARPRE= 


002000 


PARSTA= 


000100 


PASCNT= 


000034 


PDPLSI= 


020C00 


PDP60 = 


004000 


PDP70 ~ 


010000 


PRIO = 


000000 


PRI1 = 


000040 


PRI4 = 


000200 


PRI5 = 


000240 


PRI6 * 


000300 


PRI7 = 


000340 


PRO 


000000 


PR4 


000200 


PR5 


000240 


PR6 


000300 


PR7 


000340 


PS 


177776 


PSW 


177776 


RANNUM= 


000054 


RBUFEA= 


000130 


RBUFPA= 


000126 


RBUFS2= 


000132 



RBUFVA= 

RDSERV= 

RDWHMI= 

RELERR= 

RELMOD= 

RELTIM= 

RESREG= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBOUT= 

RUNWlOD = 

R5VALU= 

SAM 

SAVREG= 

SBADR = 

SBKMOD= 

SBKSEL= 

SC.ADR= 

SC.ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SOFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT - 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 

SVR6 = 

SYSCNT= 

SYSERR= 

TMPIO = 

TOOVF = 



000124 
000101 
000022 
000020 
020000 
010000 

>(4 itc %, ;£ ^ ^ 

000056 
000060 
031060 
002000 
0001 12 
000177 
100000 
001740 
075464 
* * ^ * * * 
000102 
000000 
010000 
000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
177 777 
000042 
000046 
000 04 
000032 
002200 
177 572 
177574 
177 576 
172516 
000026 
064 757 
000027 
000001 
000062 
000064 
000066 
00007.0 
000072 
000074 
000076 
000052 
000100 
000002 
000002 
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18:40 PAGE 20-1 



SEQ 1027 



UIPAR0= 


177640 


WASADR= 


000104 


UIPAR1= 


177642 


WBSTAT= 


000040 


UIPAR2= 


177644 


WBUFEA= 


000136 


UIPAR3= 


177646 


WBUFPA= 


000134 


UIPAR4= 


177650 


WBUFRQ= 


060140 


UIPAR5= 


177652 


WBUFSZ= 


000142 


UIPAR6= 


177654 


WDFR = 


0001 16 


UIPAR7= 


177656 


WDTO = 


000114 


UIPDRO= 


177600 


WTINRE= 


000352 


UIPDR1= 


177602 


WTWHMI= 


000222 


UIPDR2= 


177604 


XFLAG = 


000005 


UIPDR3= 


177606 


XOFF = 


000023 


UIPDR4= 


177610 


XON 


000021 


UIPDR5= 


177612 


$BGNLE= 


177777 


UIPDRS= 


177614 


$ERFLG= 


000400 


UIPDR7= 


177616 


$F$AND= 


000310 


UNIPA 


OOOOOORG 


$F$BAD= 


000401 


. AB5. 


000000 000 
000072 001 





$F$BLA= 
$F$CAS= 
$F$DEC= 
$F$DO = 
$F$FAL= 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 



000170 
000150 
000220 
000340 
000405 
000400 
0001 10 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000 I 40 
000330 
000404 



$F$UNT== 

$F$WHI= 

$F$YES= 

SIFLEV 

$LOCTA 

$LSTIN 

$LSTTA 

SNESTL 

SNSKO 

$SAVLE 

STAGLE 

$TAGNU 

$TEMP 

$$ARGC 

$$BYTE 

$$CASE 

$$DST 



000130 
000120 
000402 
177777 
177777 
000001 
000001 
177777 
000300 
177777 
177777 
050002 
000300 
000002 
000000 
000000 
000000 



$$ELOC= 
$$ERFL= 
$$FLAG= 
$$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$STAG= 



000000 
000000 
000000 
000000 
000000 
000000 
177777 
000000 
050000 
050001 
000000 
000000 
000000 
000000 

oooooo 

050000 
000072R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ:UNIPA,DSKZ:UNIPA=SPMAC/ML,EQUATE,UNIPA 
RUN-TIME: 12 2 .3 SECONDS 
RUN-TIME RATIO: 29/15=1.9 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:41 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 1028 

3 COMMON EQUATE MODULE 

558 COMMON DEFINITIONS AND REFERENCES 

560 000000' .PRINT ;SPMAC: VERSION 1.1 

596 WBFLIM ROUTINE 
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WBFLIM.MAC 14-AUG-78 14:36 COMMON EQUATE MODULE 



SEQ 1029 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
538 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 



DETERMINE WRITE BUFFER LIMITS 



.TITLE WBFLIM • 
.IDENT /VO.O/ 

++ 
MODULE NAME: 
WBFLIM 



FUNCTIONAL. DESCRIPTION: 

CALCULATES LOW AND HIGH WRITE BUFFER LIMITS AND 
INITIALIZES THE WRITE BUFFER ADDRESS POINTER 

INPUTS: 

DATA TABLE 

IMPLICIT INPUTS: 
DT.ADDR 
DT.ESIZ 
DT.SSIZ 
DT.STO 



OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
DT.WLLMT 
DT.WHLMT 
DT.WBUF 
DT. OFFSET 

PATHOLOGICAL CONNECTIONS 
NONE 

SUBORDINATE MODULES CALLED: 
SAVREG 
RESREG 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL WBFLIM IN <A> 

A=ADDRESS OF DATA TABLE 

VERSION: 
0.0 



;SAVE REGISTERS 
{RESTORE REGISTERS 



EDIT 



BY 



DATE 



REASON 



WBFLIM - DETERMINE WRITE BUFFER LIMITS 
WBFLIM.MAC 14-AUG-78 14:36 



558 
559 
560 
(D 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 



000000 
000000 



000001 
000001 



020000 
000200 
007600 



000000' 000000 
000002' 000000 
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COMMON DEFINITIONS AND REFERENCES 

•SBTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



SEQ 1030 



****** ********** 

REFERENCED BY OTHER MODULES 

GLOBL WBFLIM 
GLOBL BL.BTMBNK 
GLOBL BL.TOPBNK 

**************** 
GLOBL SAVREG 
GLOBL RESREG 

**************** 

LOCAL EQUATES 

FOURK=20000 

PAR4K=200 

BANK=7600 

********** Hi***** 

LOCAL STORAGE 
BL.TOPBNK: .WORD 
BL.BTMBNK: .WORD 

**************** 



; MODULE ENTRY POINT 



;SAVE REGISTERS 
; RESTORE REGISTER! 



;4K OF MEMORY 

;4K OF MEMORY IN PAR FORMAT 

;PAR FORMAT FOR 1 24K BANK 



CURRENT 124K BANK OF TOP OF 

MOVABLE PORTION OF EXERCISER 

CURRENT 124K BANK OF BOTTOM OF 
MOVABLE PORTION OF EXERCISER 
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596 
597 
598 
(2) 
599 
600 
601 
602 
603 
604 
605 
(3) 
606 
607 
608 
609 
610 
611 
612 
(4) 
613 
614 
615 
616 
617 
618 
619 
620 
621 
(4) 
(6) 
622 
(7) 
(7) 
(7) 
(7) 
(7) 
(7) 
623 
(6) 
624 
(6) 
625 
626 
627 
628 
629 
(6) 
630 
631 
632 
633 
634 
635 
636 
(4) 



000004' 
000004' 



000004' 

000004' 004767 000000G 



000010' 
000010' 



016500 000000 



000014' 
000014' 
000020* 
000024' 
000024' 
000026' 
000030' 
000032' 
000034' 
000036' 
000040' 
000040' 
000044' 
000044' 



000044 
020000 



016001 
162701 

006201 
006201 
006201 
006201 
006201 
006201 



042701 176000 



005201 



000046' 
000046' 066001 



000042 



000052' 
000052 
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WBFLIM ROUTINE 

.SBTTL WBFLIM ROUTINE 

ROUTINE WBFLIM <TABL> 



SAVE REGISTERS 



SEQ 1031 



WBFLIM: 



CALL SAVREG 



SET RO TO THE START OF THE DATA TABLE 



JSR PC, SAVREG 



LET RO := TABL(R5) 



MOV TABL(R5),R0 



FIND THE TOP ADDRESS OF THE MOVABLE PORTION OF THE EXERCISER. 

TO DO THIS, FIND THE SIZE OF THE MOVABLE PORTION BY SUBTRACTING 4K FROM 

EXERCISER SIZE, CONVERT IT TO PAR FORMAT 



LET R1 := DT.ESIZ(RO) - #FOURK 



LET R1 := R1 SHIFT #-6 



LET R1 := R1 CLR.BY #176000 

LET R1 := R1 + #1 

NOW ADD IT TO THE BASE ADDRESS OF THE MOVABLE PORTION 
LET R1 := Rl + DT.ADDR(RO) 

INITIALIZE THE OFFSET VALUE TO ZERO. 
LET DT.OFFSET(RO) := HO 



MOV 


DT.ESIZ(RO) ,R1 


SUB 


#F0URK,R1 


ASR 


R1 


ASR 


R1 


ASR 


R1 


ASR 


R1 


ASR 


R1 


ASR 


R1 


BIC 


#1 76000, R1 


INC 


R1 



ADD 



DT.ADDR(RO) ,R1 



005060 000070 



Cl.R DT.OFFSET(RO) 
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639 








640 








641 








642 








643 


000056' 






(6) 


000056' 


032760 


000020 000010 


(9) 


000064' 


001566 




644 








645 








646 








647 








648 








649 








650 








651 








652 








653 








654 








655 








556 








657 


000066' 






(4) 


000066' 


005002 




658 


000070' 






(4) 


000070' 


012767 


177777 177702 


659 


000076' 






(4) 


000076' 






(6) 


000076' 


020201 




(9) 


C00100' 


103005 




660 


000102' 






(6) 


000102' 


062702 


007600 


661 


000106' 






(6) 


000106' 


005267 


177666 


662 


0001 12' 






(4) 


0001 12' 


000771 




(3) 


0001 14' 






663 








664 


0001 14' 






(4) 


0001 14' 


005002 




665 


0001 16' 






(4) 


0001 16' 


012767 


177777 177656 


666 


000124' 






(4) 


000124' 






(6) 


000124' 


020260 


000042 


(9) 


000130' 


103005 




667 


000132' 






(6) 


000132' 


062702 


007600 


668 


000136' 






(6) 


000136' 


005267 


177640 


669 


000142' 






(4) 


000142' 


000770 




(3) 


000144' 
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WBFLIM ROUTINE 



SEE IF MEMORY MANAGEMENT IS TURNED ON 



IF #KTSTAT SETIN DT.STO(RO) THEN 



MEMORY MANAGEMENT IS ON. 



SEE IF THE MOVABLE PORTION OF THE EXERCISER LIES ACROSS A 124K 
BOUNDARY. TO DO THIS, DETERMINE THE RESPECTIVE BANKS OF THE 
TOP AND BOTTOM OF THE MOVABLE PORTION OF THE EXERCISER. 



LET R2 := #0 

LET BL.TOPBNK := #-1 

WHILE R2 LO R1 DO 

LET R2 := R2 + #'BANK 
LET BL.TOPBNK := BL.TOPBNK + #1 
ENDDO 

LET R2 := #0 

LET BL.BTMBNK := #-1 

WHILE R2 LO DT.ADDR(RO) DO 

LET R2 := R2 + #BANK 

LET BL.BTMBNK := BL.BTMBNK + #1 
ENDDO 



SEQ 1032 



BIT 
BEQ 



#KTSTAT,DT.STO(R 
50002$ 





CLR 


R2 




MOV 


#-1 .BL.TOPBNK 


50003$: 


CYiP 
BHIS 


R2, R1 
50004$ 




ADD 


#BANK V R2 




INC 


BL.TOPBNK 


50004$: 


BR 


50003$ 




CLR 


R2 




MOV 


#-1 .BL.BTMBNK 


50005$: 


CMP 
BHIS 


R2,DT.ADDR(R0) 
50006$ 




ADD 


#BANK,R2 




INC 


BL.BTMBNK 




BR 


50005$ 



50006$; 
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SEQ 1033 



671 










672 










673 










674 










675 


000144' 








(6) 


000144' 


026767 


177630 


177630 


(9) 


000152' 


001441 






676 










677 










678 










679 










680 










681 










682 










683 










684 










685 










686 










687 










688 










689 










690 


000154' 








(4) 


000154' 


016060 


000042 


000052 


691 


000162' 








(4) 


000162' 


016060 


000042 


000054 


(6) 


000170' 


062760 


007600 


000054 


692 


000176' 








(6) 


000176' 


026060 


000054 


000046 


(9) 


000204' 


101420 






693 


000206' 








(4) 


000206' 


015060 


000046 


000054 


694 


000214' 








(4) 


000214' 


016060 


000046 


000052 


(6) 


000222' 


162760 


007600 


000052 


695 


000230' 








(6) 


000230' 


026027 


000052 


000200 


(9) 


000236' 


103003 






696 


000240' 








(4) 


000240' 


012760 


000200 


000052 


697 


000246' 








(4) 


000246' 








698 


000246' 








(4) 


000246' 








699 










700 










701 










702 










703 










704 










705 


000246' 








(4) 


000246' 


016060 


000052 


000070 


706 










707 










708 


000254' 








(4) 


000254' 


000471 






(3) 


000256' 









IF THE BANKS ARE NOT THE SAME, THEN THE EXERCISER IS CROSSING A BOUNDARY, 
IF BL.TOPBNK NE BL.BTMBNK THEN 



CMP 
BEQ 



BL.TOPBNK, BL.BTM 
50007$ 



THE EXERCISER LIES ACROSS A 124K BANK BOUNDARY. IN THIS CASE, THE 

LOW BUFFER LIMIT IS THE BOTTOM OF THE MOVABLE PORTION OF THE EXERCISER, 

AND THE HIGH BUFFER LIMIT IS EITHER 1 24K ABOVE THAT OR THE 

TOP OF MEMORY, WHICHEVER IS LOWER. 

IF, HOWEVER, WE LET THE HIGH LIMIT EQUAL THE TOP OF MEMORY, 

WE RE-DEFINE THE LOW LIMIT TO EITHER 124K BELOW THE HIGH LIMIT, 

OR TO 4K, WHICHEVER IS HIGHER. THIS ASSURES US THAT THERE 

WILL BE A WRITE BUFFER AREA OF 1 24K AND THAT THE BOTTOM 4K OF THE 

EXERCISER WILL BE PROTECTED. 



LET DT.WLLMT(RO) := DT.ADDR(RO) 

LET DT.WHLMT(RO) := DT.ADDR(RO) + #BANK 

IF DT.WHLMT(RO) HI DT.SSIZ(RO) THEN 

LET DT.WHLMT(RO) := DT.SSIZ(RO) 

LET DT.WLLMT(RO) := DT.SSIZ(RO) - #7600 

IF DT.WLLMT(RO) LO #200 THEN 

LET DT.WLLMT(RO) : = #200 



MOV 

MOV 
ADD 

CMP 
BLOS 

MOV 

MOV 
SUB 

CMP 
BHIS 

MOV 



ENDIF 



ENDIF 



50011$: 
50010$: 



ALSO, THE OFFSET FROM THE ACTUAL 1 24K BANK BASE ADDRESS MUSI- 
BE STORED., IT EQUALS, IN THIS CASE, THE LOW BUFFER LIMIT. 



ELSE 



LET DT.OFFSET(RO) := DT.WLLMT(RO) 



MOV 



ER 



DT.ADDR(RO) ,DT.W 

DT.ADDR(RO) ,DT.W 
#BANK,DT.WHLMT(R 

DT.WHLMT(RO) , DT . 
50010$ 

DT.SSIZ(RO) ,DT.W 

DT.SSIZ(RO) ,DT.W 
#7600,DT.WLLMT(R 

DT.WLLMT(RO) ,#20 
50011$ 

#200,DT.WLLMT(R0 



DT.WLLMT(RO) , DT 



50012$ 



50007$: 
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710 








711 








712 








713 








714 








715 








716 








717 








718 








719 








720 


000256 1 






(6) 


000256' 


005767 


177520 


(9) 


000262' 


001004 




721 


000264' 






(4) 


000264' 


012760 


000200 


722 


000272' 






(4) 


000272' 


000413 




(3) 


000274' 






723 


000274' 






(4) 


000274' 


005002 




724 


000276' 






(4) 


000276' 


005060 


000052 


725 


000302' 






(4) 


000302' 






(6) 


000302' 


020267 


177474 


(9) 


000306' 


103005 




726 


000310' 






(6) 


000310' 


062760 


007600 


727 


000316' 






(6) 


000316' 


005202 




728 


000320' 






(4) 


000320' 


000770 




(3) 


000322' 






729 








730 


000322' 






(4) 


000322' 






731 








732 








733 








734 








735 








736 








737 








738 








739 


000322' 






(4) 


000322' 


005002 




740 


000324' 






(4) 


000324' 


012703 


177777 


741 


000330' 






(4) 


000330' 






(6) 


000330' 


020260 


000046 


(9) 


000334' 


103004 




742 


000336' 






(6) 


000336' 


062702 


007600 


743 


000342' 






(6) 


000342' 


005203 
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WBFLIM ROUTINE 



OTHERWISE, THE MOVABLE PORTION OF THE EXERCISER IS WITHIN ONE BANK. 



IF THE CURRENT BANK IS THE LOWEST ONE, THEN THE LOW BUFFER LIMIT 
IS THE TOP OF THE BOTTOM 4K OF THE EXERCISER. OTHERWISE, THE LOW 
BUFFER LIMIT IS THE BOTTOM OF THE CURRENT BANK. 



IF BL.BTMBNK EG #0 THEN 

LET DT.WLLMT(RO) : = #PAR4K 



SEQ 1034 



000052 



ELSE 



000052 



50013$: 
LET R2 := #0 

LET DT.WLLMT(RO) := #0 

WHILE R2 LO BL.BTMBNK DO 

50015$: 

LET DT.WLLMT(RO) := DT.WLLMT(RO) + #BANK 

ADD #BANK,DT.WLLMT(R 
LET R2 := R2 + #1 

INC R2 



TST 


BL.BTMBNK 


BNE 


50013$ 


MOV 


#PAR4K,DT.WLLMT( 


BR 


50014$ 


CLR 


R2 


CLR 


DT.WLLMT(RO) 


CMP 


R2, BL.BTMBNK 


BHIS 


50016$ 



ENDDO 



BR 



50015$ 



ENDIF 



50016$: 



50014$: 



IF THE CURRENT BANK IS THE HIGHEST ONE, THEN THE HIGH BUFFER LIMIT 
IS THE TOP OF MEMORY. OTHERWISE, THE HIGH BUFFER LIMIT IS THE TOP OF 
THE CURRENT BANK. 



LET R2 := ?/0 

LET R3 := #-1 

WHILE R2 LO DT.SSIZ(RO) DO 



LET R2 := R2 + #BANK 
LET R3 := R3 -H #1 





CLR 


R2 




MOV 


#-1 ,R3 


50017$: 


CMP 
BHIS 


R2,DT„SSIZ(R0) 

50020$ 




ADD 


#3ANK,R2 




INC 


R3 
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SEQ 1035 



744 
(4) 
(3) 
745 
746 
(6) 
(9) 
747 
(4) 
748 
(4) 
(3) 
749 
(6) 
(9) 
750 
(4) 
751 
(4) 
(3) 
752 
(4) 
(6) 
753 
(4) 
754 
(4) 



000344' 
000344' 
000346' 

000346' 
000346' 
000352' 
000354' 
000354' 
000362' 
000362' 
000364' 
000364' 
000364' 
000370' 
000372' 
000372' 
000400' 
000400' 
000402' 
000402' 
000402' 
000410' 
000416' 
000416' 
000416' 
000416' 



000771 



026703 
001004 



005767 
001004 



016060 
062760 



177426 



016060 000046 000054 
000415 



ENDDO 

IF BL.TOPBNK EQ R3 THEN 

LET DT.WHLMT(RO) := DT.SSIZ(RO) 
ELSE 



50020$ 



50021$: 



177412 



012760 007600 000054 
000406 



000052 
007600 



000054 
000054 



ENDIF 



ENDIF 



BR 50017$ 

CMP BL.T0PBNK,R3 

BNE 50021$ 

MOV DT.SSIZ(RO) f DT.W 

BR 50022$ 

TST BL.BTMBNK 

BNE 50023$ 

MOV #BANK,DT.WHLMT(R 

BR 50024$ 
50023$: 
LET DT.WHLMT(RO) := DT.WLLMT(RO) + #BANK 

MOV DT.WLLMT(RO) ,DT. 

ADD #BANK,DT.WHLMT(R 

50024$: 

50022$: 



IF BL.BTMBNK EQ #0 THEN 

LET DT.WHLMT(RO) := #BANK 
ELSE 



005767 177360 



000422' 003406 
000424' 

000424' 062760 
000432' 



007600 000070 



005367 177344 



000767 



000415 
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756 

757 

753 

759 

760 000416' 

(4) 000416' 

(6) 000416' 

(9) 

761 

(6) 

762 

(6) 000432' 

763 000436' 

(4) 000436' 

(3) 000440' 
764 

765 

766 000440' 

(4) 000440' 
767 

768 

769 000440' 

(4) 000440' 

(3) 000442' 
770 

771 
772 
7 73 
774 
775 
776 
777 
778 
779 000442' 

(4) 000442' 
780 

781 
782 
783 
784 
785 
786 

787 000446' 
(6) 000446' 
(9) 000454' 

788 000456' 
(4) 000456' 

789 000464' 
(4) 000464' 

(3) 000466' 

790 000466' 

(4) 000466' 

791 000474' 
(4) 000474' 
792 

793 000474' 



010160 000052 



026027 
103404 



000046 001600 



012760 001600 000054 



000403 



016060 000046 000054 



MACY11 30A(1052) 20-SEP-78 18:41 PAGE 19-7 
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DETERMINE THE OFFSET FORM THE BASE OF THE CURRENT 1 24K BANK. 



WHILE BL.BTMBMK GT #0 DO 



500255: 



TST 

BLE 
LET DT.OFFSET(RO) := DT .OFFSET(RO) + #7600 

ADD 
LET BL.BTMBNK := BL.BTMBNK - #1 

DEC 



ENDDO 



BR 



END IF 



ELSE 



50026$ 



50012$: 



50002$ 



BR 



MEMORY MANAGEMENT IS TURNED OFF 



IN THIS CASE, THE LOW BUFFER LIMIT IS THE TOP OF THE EXERCISER. 



LET DT.WLLMT(RO) :» R1 



MOV 



IF TOTAL MEMORY IS GREATER THAN 28K, THEN THE HIGH BUFFER LIMIT 
IS 28K. OTHERWISE, THE HIGH BUFFER LIMIT IS THE TOP OF MEMORY. 



IF DT.SSIZ(RO) HIS #1600 THEN 



ELSli 



ENDIF 



LET DT.WHLMT(RO) := #1600 



LET DT.WHLMT(RO) := DT.SSIZ(RO) 



MOV 



50031$: 



SEO 1036 



BL. BTMBMK 
50026$ 

#7600,DT.OFFSET( 

BL.BTMBNK 

50025$ 



50027$ 



R1 .DT.WLLMT(RO) 





CMP 
BLO 


DT.SSIZ(RO) ,#160 
50030$ 




MOV 


#1600,DT.WHLMT(R 


50030$: 


BR 


50031$ 



DT.SSIZ(RO) ,DT.W 



ENDIF 
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(4) 


000474' 






794 








795 








796 








797 








798 








799 








800 








801 








802 








803 








804 








805 


000474' 






(4) 


000474' 


016002 


000046 


(6) 


000500' 


162702 


000020 


806 


000504' 






(6) 


000504' 


020102 




(9) 


000506' 


103410 




(6) 


000510' 


026027 


000042 000200 


(9) 


000516' 


101404 




807 


000520' 






(4) 


000520' 


016060 


000052 000050 


808 


000526' 






(4) 


000526' 


000402 




(3) 


000530' 






809 


000530' 






(4) 


000530' 


010160 


000050 


810 


000534' 






(4) 


000534' 






811 








812 








813 








814 








815 








816 








817 


000534' 






(3) 


000534' 


004767 


000000G 


818 








819 


000540' 






(3) 


000540' 






(3) 


000540' 






(2) 


000540' 


000207 




820 








821 




000001 
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SEQ 1037 



50027$: 



NOW INITIALIZE THE WRITE BUFFER ADDRESS POINTER. IF THE TOP OF 

THE EXERCISER IS AT AN ADDRESS THAT IS GREATER THAN 

OR EQUAL TO THE HIGH BUFFER LIMIT MINUS 1/2K, AND THE EXERCISER IS NOT 

AT THE BOTTOM OF MEMORY, THEN SET THE POINTER IS THE LOW BUFFER 

LIMIT. OTHERWISE, SET THE POINTER TO THE TOP OF 

THE EXERCISER. 



LET R2 := DT.SSIZ(RO) - #20 



IF R1 HIS R2 AND DT.ADDR(RO) HI #PAR4K THEN 



ELSE 



ENDIF 



LET DT.WBUF(RO) := DT.WLLMT(RO) 



LET DT.WBUF(RO) : = R1 





MOV 
SUB 


DT .SSIZ(RO) ,R2 

#20, R2 




CMP 
BLO 
CMP 
BLOS 


R1 ,R2 
50032$ 

DT.ADDR(RO) ,//PAR 
50032$ 




MOV 


DT.WLLMT(RO) , DT . 


50032$: 


BR 


50033$ 



MOV 



50033$: 



RESTORE REGISTERS AND RETURN 



CALL RESREG 



ENDRTN 



.END 



50000$: 
50001$: 



JSR 



RTS 



R1 , DT.WBUF(RO) 



PC, RESREG 



PC 



WBFLIM - DETERMINE WRITE BUFFER LIMITS 
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MACY11 30A(1052) 
SYMBOL TABLE 



ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


0001 10 


BANK = 


007600 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


C00100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BITT = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


BL.BTM 


000002RG 


BL.TOP 


OOOOOORG 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQOVF = 


000001 



CR 

CSRA = 

CSRC - 

CTRLC = 

CTRLO = 

CTRLU = 

DCEVNT= 

DEFRTN= 

DIAGMC= 

DROPMO= 

DSEVNT= 

DT.ADD= 

DT.AP = 

DT.APK= 

DT.BLS= 

DT.CFO= 

DT.CF1= 

DT.ERR= 

DT.ESI= 

DT.EVN= 

DT.EXS= 

DT.FCH= 

DT.FCN= 

DT.HMX= 

DT.KBE= 

DT.KBP= 

DT.KBR= 

DT.KBU= 

DT.MLS= 

DT.MTI= 

DT.OFF= 

DT.PAS= 

DT.PC = 

DT.PFL= 

DT.PSW= 

DT.PTA= 

DT.RCS= 

DT.REL= 

DT,SCT= 

DT.SMX= 

DT.SP = 

DT.SSI= 

DT,STO= 

DT.ST1= 

DT.SWR= 

DT.SYP= 

DT.WBU= 

DT.WHL= 

DT.WLL= 

DVID1 = 

ECCMEM= 

ECCSTA= 

ENBEOP= 



000015 
000100 
000102 
000003 
000017 
000025 
00001 1 
000400 
000000 
100000 
00 0014 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
C00064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
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ENBNUL= 


000001 


MEMPAS= 


040000 


ENDLST= 


000000 


MODEXH= 


004000 


EQPBIT= 


000001 


MO.DHOL== 


002000 


ERRTYP= 


000106 


MODSEL= 


001000 


EVNTBE= 


000200 


■ MSGCKD= 


000010 


EVNTHD== 


000200 . 


MSGCKS= 


00001 1 


EVNTKT= 


000203 


MSGDER= 


000005 


EVNTPE= 


000202 


MSGDRP- 


000017 


EVNTRE= 


000201 


MSGECH= 


177777 


FATERR= 


100000 


MSGEOP= 


000013 


FOURK = 


020000 


MSGHDR= 


000004 


HRDCNT= 


000044 


MSGHNG= 


000022 


HRDPAS= 


000050 


MSGHRD= 


000007 


ICONT = 


000036 


MSGMAP= 


000021 


ICOUNT= 


000040 


MSGNUL= 


177775 


IDNUM = 


000122 


MSGPOP= 


000002 


IE 


000100 


MSGP.RM = 


177776 


INDPAR= 


000040 


MSGRES= 


000001 


INHDRP= 


040000 


MSGSFT= 


000006 


INHEPR= 


020000 


MSGSKE= 


000003 


INHREL= 


001000 


MSGSMB= 


000015 


INHRRE= 


000400 


MSGSMH= 


000014 


INIT = 


000030 


MSGSMS= 


000016 


INTR - 


000120 


MSGSTD= 


000000 


IOMOD = 


100000 


MSGSYS= 


000012 


IOMODP= 


102000 


MSGVEC= 


000020 


IOMODR= 


1 12000 


NBKMOD= 


001000 


IOMODX= 


1 10000 


NCPUOP= 


000020 


JACK = 


035060 


NGAPTY= 


000002 


KIPAR0= 


172340 


NULL = 


000000 


KIPAR1* 


172342 


OWEN = 


024020 


KIPAR2= 


172344 


PAERR = 


000010 


KIPAR3= 


172346 


PARPRE= 


002000 


KIPAR4= 


172350 


PARSTA= 


000100 


KIPAR5= 


172352 


PAR4K = 


000200 


KIPAR6= 


172354 


PASCNT= 


000034 


KIPAR7= 


172356 


PDPLSI= 


020000 


KIPDR0= 


172300 


PDP60 = 


004000 


KIPDR1= 


172302 


PDP70 = 


010000 


KIPDR2= 


172304 


PRIO = 


000000 


KIPDR3= 


172306 


PRI1 = 


000040 


KIPDR4= 


172310 


PRI4 = 


000200 


KIPDR5= 


172312 


PRI5 = 


000240 


KIPDR6= 


172314 


PRI6 = 


000300 


KIPDR7= 


172316 


PRI7 = 


000340 


KTERRO= 


000040 


PRO 


000000 


KTPRES= 


000400 


PR4 


000200 


KTSTAT= 


000020 


PR5 


000240 


KTXTND= 


040000 


PR6 


000300 


LF 


000012 


PR7 


000340 


LPSTAT= 


000001 


PS 


17 7776 


MAPSTA= 


000200 


PSW 


177776 


MED 


076600 


RANNUM= 


000054 



SEQ 1038 



RBUFEA= 

RBUFPA= 

RBUFS2= 

RBUFVA= 

RDSERV= 

RDWHMI= 

RELERR= 

RELMQD= 

RELTIM= 

RESREG= 

RES1 = 

RES2 = 

RICHARs 

RPTDAT= 

RSTRT = 

RUBOUT= 

RUNi\10D = 

R5VALU= 

SAM 

SAVREG= 

SBADR = 

SBKMOD= 

SBKSEL= 

SC.ADR= 

SC.-ALC = 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SOFCNT= 

SQFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 = 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 

SVR6 = 

SYSCNT= 



000130 
000126 
000132 
000124 
000101 
000022 
000020 
020000 
010000 
****** 

000056 
000060 
031060 
002000 
0001 12 
000177 
100000 
001 740 
075464 

000102 
000000 
010000 
000006 
000014 
00001 6 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000048 
000040 
000032 
002200 
177572 
177574 
177576 
172518 
000026 
064757 
000027 
0000011 
000062 
000064 
000066 
000070 
000072 
000074 
000076 
000052 



WBFLIM ■ 
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WRITE 


BUFFER LIMITS MACY11 
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1 


WBFLIM. f 


VIAC 14-AUG-7B 


14:36 


SYMBOL 


TABLE 








SYSERR= 


000100 




WBFLIM 


000004RG 


$F$FAL= 


000405 


SLOCTA 


:: 177777 


TABL = 


000000 




WBSTAT= 


000040 


$F$GOO= 


000400 


$LSTIN 


= 000001 


TMPIO = 


000002 




WBUFEA= 


000136 


$F$IF a 


0001 10 


SLSTTA 


= 000001 


TQOVF = 


000002 




WBUFPA= 


000134 


$F$INC= 


000210 


$NESTL 


-- 177777 


UIPAR0= 


177640 




WBUFRQ= 


000140 


$F$LOQ= 


000200 


■ $NSK0 


= 000300 


uipAri= 


177642 




WBUFSZ= 


000142 


$F$NAM= 


000160 


$NSK1 


: 000110 


UIPAR2= 


177644 




WDFR = 


0001 16 


$F$NO = 


000403 


$NSK2 


= 000110 


UIPAR3= 


177646 




WDTO = 


0001 14 


$F$OR = 


000320 


$NSK3 


= 000120 


UIPAR4= 


177650 




WTINRE= 


000352 


$F$RTI= 


000350 


$NSK4 


-- 000110 


UIPAR5= 


177652 




WTWHMI= 


000222 


$F$RTN= 


000300 


SSAVLE 


= 177777 


UIPAR6= 


177654 




XFLAG = 


000005 


$F$SEL= 


000140 


$SSK0 


• 050026 


UIPAR7= 


177656 




XOFF = 


000023 


$F$THE= 


000330 


$TAGLE 


= 177777 


UIPDR0= 


177600 




XON 


000021 


$F$TRU= 


000404 


STAGNU 


= 050034 


UIPDR1= 


177602 




$BGNLE= 


177777 


$F$UNT= 


000130 


$TEMP 


= 000300 


UIPDR2= 


177604 




$ERFLG= 


000400 


$F$WHI= 


000120 


$TSK0 


= 050033 


UIPDR3= 


177606 




$F$AND= 


000310 


$F$YES= 


000*02 


$TSK1 


-- 050031 


UIPDR4= 


177610 




$F$BAD= 


000401 


$IFLEV= 


177777 


$TSK2 


= 050025 


UIPDR5= 


177612 




$F$BLA= 


000170 


$ISK0 = 


000001 


$TSK3 


= 050026 


UIPDR6= 


177614 




$F$CAS= 


000150 


$ISK1 = 


000001 


$TSK4 


= 050016 


UIPDR7= 


177616 




$F$DEC= 


000220 


$ISK2 = 


000001 


$$ARGC 


= 000002 


WASADR= 


000104 




$F$DQ = 


000340 


$ISK3 = 


000001 


$$BYTE 


= 000403 


. ABS. 


000000 
000542 


000 
001 















SEQ 1039 



$$CASE= 
$$DST = 
$$EL0C= 
$$ERFL= 
$$FLAG= 
S$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RETU= 
$$.RTN1 = 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$TO = 
$$$TAG= 



000000 

000000 

000402 

000000 

000001 

000000 

000516R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000542R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ:WBFLIM,DSK2:WBFLIM=SPMAC/ML, EQUATE, WBFLIM 
RUN-TIME: 20 10 .3 SECONDS 
RUN-TIME RATIO: 48/31=1.5 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 
EQUATE. MAC 13-SEP-78 16:13 



18:42 

TABLE OF CONTENTS 



SEQ 1040 



3 COMMON EQUATE MODULE 

557 COMMON DEFINITIONS AND REFERENCES 

560 000000' .PRINT ;SPMAC*. VERSION 1.1 

631 WSTBUS ROUTINE 

782 ROUTINE TO CONTROL THE GENERATION OF TWO 16-BIT PATTERN WORDS. 

837 ROUTINE TO PRODUCE A ROTATING PATTERN ALTERNATING WITH A CONSTANT 

868 ROUTINE TO PRODUCE A BLOCK OF TWO ALTERNATING CONSTANT VALUES. 

:909 ROUTINE TO REPORT MEMORY WRITE ERRORS. 



WSTBUS 
WSTBUS, 

508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
I539 
540 
541 
542 
:543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
!553 
554 
555 
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MAC 



28-JUL-78 09:29 



COMMON EQUATE MODULE 

.TITLE WSTBUS - LOAD WORST-CASE UNIBUS PATTERN 
.IDENT /VO.O/ 

++ 

MODULE NAME: 
WSTBUS 

FUNCTIONAL DESCRIPTION: 

ASSUMES EXERCISER IS IN LOWEST MEMORY AND LOADS ALL 
OF FREE MEMORY WITH WORST-CASE UNIBUS PATTERNS. 

INPUTS: 

DATA TABLE ADDRESS 

IMPLICIT INPUTS: 

DT.STO,DT.SSIZ,DT.EXS 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE. 



SEQ 1041 



SUBORDINATE MODULES CALLED: 
SAVREG 
RESREG 
BADMEM 
GPA 

FUNCTIONAL. SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL WSTBUS IN <A> 

A=ADDRESS OF DATA TABLE 

VERSION: 
0.0 



SAVE REGISTERS 
RESTORE REGISTERS 
OUTPUT BAD MEMORY MESSAGE 
GET PHYSICAL ADDRESSES 



EDIT 



BY 



DATE 



REASON 
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SEQ 1042 



557 
553 

559 
560 

(D 

1561 
!562 
:563 
^564 
565 
I56S 
567 
:568 
569 
570 
571 
572 
573 
!574 
^575 

:576 

:577 
:578 
:579 
i580 
!581 
582 
^583 
584 
585 
586 
587 
588 
589 
|590 
1591 
1-592 
593 
594 
:595 
596 
597 
598 
599 
600 
601 
602 
60? 
:604 
605 
606 
607 
608 
609 
610 
611 



000000' 
000000' 



000000' 
000002' 
000004' 
000006' 
000010' 
000012' 
000014' 
000016' 
000020' 



000001 
000001 



000000 
000000 
000000 
000400 
000000 
000000 
000003 
177777 
177776 



.SBTTL COMMON DEFINITIONS AND REFERENCES 

•MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

$LSTIN=1 

$LSTTAG=1 



file***'*********** 

REFERENCED BY OTHER MODULES 
GLOBL WSTBUS 

GLOBAL REFERENCES 

GLOBL SAVREG 

GLOBL RESREG 

GLOBL BADMEM 

GLOBL GPA 

J**************** 
LOCAL STORAGE 



WB.SAV: 
we. DONE: 
WB.CNT: 
WB.MAX: 
WB.ROTCNT: 



•WORD 

.WORD 

.WORD 

.WORD ~D256 

.WORD 



WB.TMP: .WORD 

WB.TBL: .WORD 3 

WB.SD1 : .WORD 177777 

WB.SD2: .WORD 177776 



#********# ****** 



MODULE ENTRY POINT 



SAVE REGISTERS 
RESTORE REGISTERS 
OUTPUT BAD MEMORY MESSAGE 
GET PHYSICAL ADDRESS 



LOCAL STORAGE WORD 

CURRENT PATTERN COMPLETE FLAG 

CURRENT PATTERN WORD COUNT 

PATTERN BLOCK SIZE 

WORD ROTATION COUNTER FOR ROUTINE PAT2 

TEMPORARY STORAGE ON ERROR 

TABLE FOR GPA ROUTINE 

PATTERN SEEDS SELECTED BY THE 

INITALIZATION ROUTINES. THESE 
SEEDS CAN BE CHANGED IF IT IS DESIRED 
TO CHANGE THE PATTERNS THAT ARE 
PRODUCED. 



THE MODULE IS SET UP TO PRODUCE THE FOLLOWING PATTERNS: 

1. BUBBLE ALTERNATING WITH ALL 1'S. 

, . . ,177777,177776,177777,177775,177777, . .. 

2. BUBBLE ALTERNATING WITH ALL O'S. 

. . . ,000000,177776,000000,177775,000000, . . . 

3. TWO ALTERNATING CONSTANTS. ONE CONSTANT IS ALL 1'S, AND ONE 
CONSTANT HAS A BUBBLE WHICH SHIFTS AFTER EACH BLOCK. 



WSTBUS - LOAD 
WSTBUS.MAC 



WORST-CASE UNIBUS PATTERN 
28-JUL-78 09:29 



MACY11 

COMMON 



30A(1052) 20-SEP-78 18:4: 
DEFINITIONS AND REFERENCES 



PAGE 19-2 



SEQ 1043 



S12 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 



177777, 177776, 177777, 1777 76, . 
177777,177775,177777,177775, . 



4. TWO ALTERNATING CONSTANTS. ONE CONSTANT IS ALL O'S, AND 
ONE CONSTANT HAS A BUBBLE WHICH SHIFTS AFTER EACH BLOCK. 



000000,177776,000000,177776, . 
000000,177775,000000,177775, . 
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SEQ 1044 



631 
632 
633 
(2) 
634 
635 
636 
637 
638 
639 
(3) 
640 
641 
642 
643 
644 
645 
646 
(4) 
647 
648 
649 
650 
651 
652 
653 
654 
(4) 
655 
(4) 
656 
(4) 
657 
658 
659 
660 
661 
662 
663 
(6) 
(9) 
664 
665 
666 
667 
668 
669 
670 
671 
672 
(2) 
673 
(4) 
(7) 
(7) 
(7) 



000022' 
000022' 



000022' 

000022' 004767 OOOOOOG 



000026' 

000026' 016500 000000 



000032' 
000032' 
000040' 
000040' 
000044' 
000044' 



012767 



005067 



005067 



000001 
177740 
177740 



177742 



000050' 

000050' 032760 
000056' 001452 



000020 000010 



OC0060' 
000060' 
000064' 
000064' 
000070' 
000072' 
000074' 



013746 172354 



016001 
006201 
006201 
006201 



000044 



.SBTTL WSTBUS ROUTINE 
ROUTINE WSTBUS <TABL> 

SAVE REGISTERS 
CALL SAVREG 

SET RO TO THE START OF THE DATA TABLE 



WSTBUS: 



JSR 



PC, SAVREG 



LET RO := TABL(R5) 



INITIALIZE THE DONE FLAG, THE PATTERN WORD COUNT, AND 
THE ROTATION COUNTER. 



LET WB.DONE := #1 
LET WB.CNT := #0 
LET WB.ROTCNT : = #0 

SEE IF MEMORY MANAGEMENT IS IN OPERATION, 
IF #KTSTAT SETIN DT.STO(RO) THEN 



SAVE THE CONTENTS OF KIPAR6 AND THEN SET IT UP FOR USE AS THE 
MEMORY LOCATION POINTER BY POINTING IT TO THE 4K BANK THAT 
CONTAINS THE TOP OF THE EXERCISER. 



PUSH @#KIPAR6 

LET R1 := DT.ESIZ(RO) SHIFT #-6 



MOV 



TABL(R5) ,R0 



MOV 


#1 


WB.DONE 


CLR 


WB 


CNT 


CLR 


WB 


ROTCNT 



BIT 
BEQ 



#KTSTAT,DT.STO(R 
50002$ 



MOV 



@#KIPAR6,-(SP) 



MOV 


DT 


ESIZ(RO) ,R1 


ASR 


R1 




ASR 


R1 




ASR 


R1 
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LET ®#KIPAR6 := R1 CLR.BY #176177 



SEQ 1045 



(7) 


000076' 


006201 




(7) 


000100' 


006201 




(7) 


000102' 


006201 




674 


000104' 






(4) 


000104' 


010137 


172354 


(6) 


0001 10' 


042737 


176177 172354 


$75 








676 








677 








678 








679 








680 








£81 








682 


0001 16' 






[4) 


0001 16' 


016001 


000044 


£6) 


000122' 


042701 


160000 


$83 


000126' 






(6) 


000126' 


052701 


140000 


$84 


000132' 






j(6) 


000132' 


062701 


000002 


685 








$86 








087 








$88 








689 








690 








$91 


000136' 






!(4) 


000136' 






!(6) 


000136' 


023760 


172354 000046 


!(9) 


000144' 


103014 




692 








693 








694 








695 








696 

CQ7 








698 


000146' 






i(4) 


000146' 






!(6) 


000146' 


020127 


157776 


i(9) 


000152' 


103003 




699 


000154' 






!(3) 


000154' 


004767 


000142 


700 


000160' 






(4) 


000160' 


000772 




(3) 


000162' 






701 


000162' 






(4) 


000162' 


012701 


140000 


702 


000166' 






(6) 


000166' 


062737 


000200 172354 


703 








704 


000174' 






(4) 


000174' 


000760 




(3) 


000176' 






705 








706 








707 






1 



ASR R1 

ASR R1 

ASR R1 

MOV R1 ,@#KIPAR6 

BIC #176177, @#KIPAR6 



SET R1 TO SELECT KIPAR6 AND POINT TO THE FIRST WORD ABOVE 
THE TOP OF THE EXERCISER. 



LET R1 := DT.ESIZ(RO) CLR.BY #160000 



LET R1 := R1 SET. BY #140000 
LET R1 := R1 + #2 



WHILE NOT AT THE TOP OF MEMORY... 



WHILE @#KIPAR6 LO DT.SSIZ(RO) DO 



MOV 


DT.ESIZ 


,R0),R1 


BIC 


#160000 


R1 


BIS 


#140000 


R1 


ADD 


#2,R1 





50003$: 



CMP 
BHIS 



GENERATE PATTERN WORDS, TWO AT A TIME, AND WRITE THEM INTO MEMORY, 
ADJUSTING THE PAR- AND REGISTER- CONTENTS AS NECESSARY. 



WHILE R1 LO #157776 DO 



CALL GENPAT 



ENDDO 



LET R1 := #140000 

LET @#KIPAR6 := @#KIPAR6 + #200 



ENDDO 



BR 



50004$: 



(6WKIPAR6, DT.SSIZ 
50004$ 



50005$: 


CMP 
BHIS 


R1 ,#157776 
50006$ 




JSR 


PC, GENPAT 


50006$: 


BR 


50005$ 




MOV 


#1 40000, R1 




ADD 


#200,@#KIPAR6 



50003$ 



; + 
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RESTORE KIPAR6 TO ITS ORIGINAL VALUE. 



POP @#KIPAR6 



708 






1 


709 






1 


710 








711 


000176' 






(2) 


000176' 


012637 


172354 


712 








713 








714 








715 








716 








717 








718 


000202' 




E 


(4) 


000202' 


000444 




(3) 


000204' 






719 








720 








721 








722 








723 








724 








725 








726 








727 


000204' 






:(6) 


000204' 


026027 


000046 001600 


U9) 


000212' 


103404 




728 


000214' 






(4) 


000214' 


012767 


160000 177556 


729 


000222' 






(4) 


000222' 


00 0417 




(3) 


000224' 






:730 


000224' 






(4) 


000224' 


016067 


000046 177546 


(7) 


000232' 


006367 


177542 


(7) 


000236' 


006367 


177536 


(7) 


000242' 


006367 


177532 


(7) 


000246' 


006367 


177526 


(7) 


000252' 


006367 


• 177522 


(7) 


000256' 


006367 


177516 


731 


000262' 






(4) 


000262' 






732 








733 








734 








735 








736 








737 








738 








739 


000262' 






(6) 


000262' 


162767 


000002 177510 


740 








741 








742 








743 








744 








745 


000270' 






(4) 


000270' 


016001 


000044 



MOV 



ELSE MEMORY MANAGEMENT IS OFF. 



ELSE 



BR 



i0002$: 



USE WB.SAV AS THE HIGH MEMORY LIMIT. BECAUSE OF 
ADDRESSING LIMITATIONS WITHOUT KT , IF TOTAL MEMORY 
IS GREATER THAN OR EQUAL TO 28K THEN THE HIGH LIMIT IS 
28K. OTHERWISE, THE HIGH LIMIT IS THE TOP OF MEMORY. 



IF DT.SSIZ(RO) HIS #1600 THEN 



ELSE 



LET WB.SAV := #160000 



LET WB.SAV := DT.SSIZ(RO) SHIFT #+6 



50010$: 



ENDIF 



50011$: 



SUBTRACT 2 FROM THE HIGH LIMIT, SO WE CAN WRITE TWO WORDS AT 
A TIME INTO MEMORY WITHOUT TRAPPING OUT AT THE TOP OF CORE. 



LET WB.SAV := WB.SAV 



#2 



SUB 



SET UP R1 AS THE MEMORY ADDRESS POINTER 
LET R1 := DT.ESIZ(RO) + #2 



SEQ 1046 



(SP)+,@#KIPAR6 



50007$ 



CMP 


DT.SSIZ(RO) ,#160 


BLO 


50010$ 


MOV 


#160000, WB.SAV 


BR 


50011$ 


MOV 


DT.SSIZ(RO) ,WB.S 


ASL 


WB.SAV 


ASL 


WB.SAV 


ASL 


WB.SAV 


ASL 


WB.SAV 


ASL 


WB.SAV 


ASL 


WB.SAV 



#2, WB.SAV 



MOV 



DT.ESIZ(RO) ,R1 
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SEQ 1047 



IS) 


000274 1 


062701 


000002 


746 








747 








748 








749 








750 








751 








752 


000300' 






(4) 


000300' 






(6) 


000300' 


020167 


177474 


(9) 


000304' 


103003 




753 








754 








755 








756 








757 








758 








759 


000306' 






(3) 


000306' 


004767 


000010 


760 








761 








762 


000312' 






(4) 


000312' 


000772 




(3) 


000314' 






763 


000314' 






(4) 


000314' 






764 








765 








766 








767 








768 








769 








770 


000314' 






(3> 


000314' 


004767 


OOOOOOG 


771 








772 








773 


000320' 






(3) 


000320' 






(3) 


000320' 






(2) 


000320' 


000207 




774 








775 









ADD 



#2,R1 



WHILE NOT AT TOP OF MEMORY. 



WHILE R1 LO WB.SAV DO 



50012$: 



CMP 
BHIS 



R1 , WB.SAV 
50013$ 



CALL THE PATTERN GENERATION ROUTINE, 



CALL GENPAT 



ENDDO 



JSR 



BR 



PC, GENPAT 



50012$ 



ENDIF 



50013$: 
50007$: 



RESTORE REGISTERS AND RETURN, 



CALL RESREG 



ENDRTN 



50000$: 
50001$: 



JSR 



RTS 



PC, RESREG 



PC 
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iEO 1048 



777 
773 
779 
780 
781 
782 
783 
784 
!(2) 
785 
786 
787 
788 
789 
790 
791 
792 
793 
j(6) 
(9) 
I794 
!(4) 
795 
!(6) 
!(9) 
796 
l(4) 
I797 
(4) 
(3) 
798 
(4) 
799 
(4) 
800 
801 
(6) 
802 
(4) 
803 

(4) 
804 
805 
(4) 
806 
807 
808 
809 
810 
811 
812 
813 
(3) 
814 
815 
816 



000322' 
000322' 



000322' 
000322' 
000330' 
000332' 
000332' 
000336' 
000336' 
000342' 
000344' 
000344' 
000350' 
000350' 
000352' 
000352' 
000352' 
000356' 
000356' 

000356' 
000356' 
000362' 
000362' 
000366' 
000366' 

000372' 
000372' 



000372' 
000372' 



026727 
001020 



177454 000001 



005067 177444 



020227 
001003 



000432' 



012702 000502 
000402 

012702 000432 

005167 177434 

016703 177430 

016704 177426 



*** SUBROUTINES *** 

.SBTTL ROUTINE TO CONTROL THE GENERATION OF TWO 16-BIT PATTERN WORDS. 

ROUTINE GENPAT 

GENPAT: 



IF WE HAVE COMPLETED ONE PATTERN, CLEAR THE DONE FLAG AND SET UP 

TO GET THE NEXT PATTERN ROUTINE. THEN RE-INITIALIZE THE PATTERN WORDS 

(R3 AND R4) BY COMPLEMENTING ONE SEED AND LEAVING THE OTHER CONSTANT. 



IF WB.DONE EO #1 THEN 

LET WB.DONE := #0 
IF R2 EO #PAT1 THEN 

LET R2 := #PAT2 
ELSE 

LET R2 := #PAT1 
ENDIF 

LET WB.SD1 := COMP WB.SD1 
LET R3 := WB.SD1 
LET R4 := WB.SD2 

ENDIF 





CMP 


WB.D0NIE,#1 




BNE 


50002$ 




CLR 


WB.DONE 




CMP 


R2,#PAT1 




BNE 


50003$ 




MOV 


#PAT2,R2 




BR 


50004$ 


50003$: 








MOV 


#PAT1 f R2 


50004$: 








COM 


WB.SD1I 




MOV 


WB.SD1 , R3 




MOV 


WB.SD2.R4 



50002$: 



CALL THE PROPER PATTERN ROUTINE, 
R2 = PAT1 OR PAT2 



CALL (R2) 



004712 



JSR 



PC, (R2) 



; + 
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SEQ 1049 



817 
818 
819 
820 
B21 
!(4) 
822 
(6) 
(9) 
823 
i(4) 
B24 
O) 
825 
(4) 
826 
(4) 
827 
!(6) 
:(9) 
B28 
H) 
829 
:(3) 
B30 
(4) 
831 
832 
833 
i(3) 
<3) 
<2) 
834 



000374' 
000374' 
000376' 
000376' 
000400' 
000402' 
000402' 
000406' 
000406' 
000412' 
000412' 
000412' 
000412' 
000414' 
000414' 
000416' 
000420' 
000420' 
000424' 
000424' 
000430' 
000430' 



000430' 
000430' 
000430' 
000430' 000207 



MOVE THE TWO PATTERN WORDS INTO MEMORY. AFTER EACH MOVE, CHECK FOR A 
WRITE ERROR. IF AN ERROR IS FOUND, GO REPORT IT. 



01 031 1 

022103 
001404 

010367 177404 

004767 000160 

010411 

022104 
001404 

010467 177366 

004767 000142 



LET (R1) := R3 

IF (R1 )+ NE R3 THEN 

LET WB.TMP := R3 

CALL ERROR 
ENDIF 

LET (R1 ) := R4 
IF (R1 )+ NE R4 THEN 

LET WB.TMP *.= R4 
CALL ERROR 
ENDIF 

ENDRTN 



MOV 



50000$: 
50001$: 



R3, (R1 ) 





CMP 
BEQ 


(R1 )+,R3 
50005$ 




MOV 


R3, WB.TMP 




JSR 


PC, ERROR 


50005$: 








MOV 


R4, (R1 ) 




CMP 
BEQ 


(R1 )+,R4 
50006$ 




MOV 


R4, WB.TMP 




JSR 


PC, ERROR 


50006$: 







RTS 



PC 



000432 1 
000432 1 
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836 
837 
838 
B39 
(2) 
840 
iB41 
B42 
843 
844 
B45 
B46 
!847 
!(6) 
!(9) 
I848 
(2) 
I849 
(4) 
i(3) 
I850 
!(2) 
!851 
l(4) 
;852 
(7) 
:853 
854 
855 
856 
857 
858 
859 
(6) 
860 
(6) 
(9) 
861 
(4) 
862 
(4) 
863 
(4) 
864 
865 
(3) 
(3) 
(2) 
866 
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.SBTTL ROUTINE TO PRODUCE A ROTATING PATTERN ALTERNATING WITH A CONSTANT. 

ROUTINE PAT1 

PAT1 : 



>EQ 1050 



000432' 
000432' 
000436' 
C00440' 
000440' 
000442' 
000442' 
000444' 
000444' 
000444' 
000446' 
000446' 
000446' 
000446' 



000450' 
000450' 
000456' 
000456' 
000464' 
000466' 
000466' 
000472' 
000472' 
000500' 
000500' 



032704 
001402 

000261 

000401 



000241 



006104 



100000 



062767 000002 177326 



026767 
002405 



177322 177322 



005067 177312 

012767 000001 177302 



000500' 
000500' 
000500' 
000500' 000207 



CALCULATE A NEW SECOND PATTERN WORD. (THE FIRST PATTERN WORD IS 
CONSTANT.) 

IF #BIT15 SETIN R4 THEN 



INLINE <SEC> 



ELSE 



BIT 


#BIT15 


R4 


BEQ 


50002$ 




sec; 






BR 


500 03$ 





INLINE <CLC> 
ENDIF 
LET R4 := R4 ROTATE #+1 



50002$: 



50003$: 



CLC 



ROL 



ADD TWO TO THE PATTERN COUNT AND SEE IF WE HAVE REACHED THE MAXIMUM, 
IF YES, THEN CLEAR THE COUNT AND SET THE DONE FLAG. 



LET WB.CNT : = WB.CNT + #2 



IF WB.CNT GE WB.MAX THEN 

LET WB.CNT := #0 
LET WB.DONE := #1 
ENDIF 

ENDRTN 



50004$: 



50000$: 
50001$: 



RTS 



R4 



ADD 


#2, WB.CNT 


CMP 


WB.CNT, WB.MAX 


BLT 


50004$ 


CLR 


WB.CNT 


MOV 


#1 , WB.DONE 



PC 
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.SBTTL ROUTINE TO PRODUCE A BLOCK OF TWO ALTERNATING CONSTANT VALUES, 



AFTER A BLOCK IS COMPLETE, ONE OF THE WORDS IS CHANGED (THE OTHER 

ALWAYS REMAINS CONSTANT) AND ANOTHER BLOCK IS PRODUCED. A 

ROTATING PATTERN IS USED IN THE WORD THAT IS CHANGED. THE PATTERN IS 

COMPLETE WHEN THE CHANGING WORD HAS ROTATED ALL THE WAY AROUND 

TO THE STARTING POINT. 



SEQ 1051 



B68 








B69 








B70 








B71 








B72 








B73 








874 








B75 








B76 








877 








878 








B79 


000502 






!(2) 


000502 






B80 








B81 








882 








883 








884 








I885 








886 








I887 








!888 








i889 


000502 






(6) 


000502 


062767 


000002 177274 


;890 


000510 






(6) 


000510 


026767 


177270 177270 


i<9) 


000516 


002424 




891 


000520 






:(4) 


000520 


005067 


177260 


892 


000524 






(6) 


000524 


032704 


100000 


(9) 


000530 


001402 




893 


000532 






(2) 


000532 


000261 




894 


000534 






(4) 


000534 


000401 




(3) 


000536 






895 


000536 






(2) 


000536 


000241 




896 


000540 






(4) 


000540 






897 


000540 






(7) 


00Q540 


006104 




898 


000542 






(6) 


000542 


005267 


177242 


899 


000546 






(6) 


000546 


026727 


177236 000020 


(9) 


000554 


001005 




900 


000556 






(4) 


000556 


005067 


177226 


901 


000562 






(4) 


000562 


012767 


000001 177212 


902 


000570 






(4) 


000570 






903 


000570 






(4) 


000570 







ROUTINE PAT2: 



PAT2: 



ADD TWO TCI THE PATTERN WGRD COUNT. 

IF THE PATTERN WORD COUNT HAS REACHED THE MAXIMUM, THEN ROTATE THE 

CHANGING WORD. IF THE WORD HAS ROTATED COMPLETELY, THEN 

SET THE DONE FLAG. 



LET WB.CNT := WB.CNT + #2 
IF WB.CNT GE WB.MAX THEN 



LET WB.CNT := #0 

IF #BIT15 SETIN R4 THEN 



INLINE <SEC> 



ELSE 



ADD 


#2,WB.CNT 




CMP 


WB.CNT.WB. 


MAX 


BLT 


50002$ 




CLR 


WB.CNT 




BIT 


#BIT15,R4 




BEQ 


50003$ 




SF.C 






BR 


50004$ 





50003$ 



INLINE <CLC> 
ENDIF 

LET R4 := R4 ROTATE #+1 
LET WB.ROTCNT := WB.ROTCNT + #1 
IF WB.ROTCNT EO #~D16 THEN 

LET WB.ROTCNT : = #0 
LET WB.DGNE := #1 
ENDIF 



CLC 



ENDIF 



50004$: 








ROL 


R4 




INC 


WB.ROTCNT 




CMP 


WB.ROTCNT, #"D16 




BNE 


50005$ 




CLR 


WB.ROTCNT 




MOV 


#1 ,WB„DONE 


50005$: 






50002$: 
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SEQ 1052 



904 000570' 

(3) 000570' 

(3) 000570' 

(2) 000570' 
905 
906' 



ENDRTN 



000207 



50000$: 
50001$: 



RTS 



PC 
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SEQ 1053 



908 








909 








910 








911 








912 








913 








914 








915 








916 








917 








918 








919 








920 


000572' 






(2) 


000572' 






921 








922 


000572' 






(2) 


000572' 


005741 




923 


000574' 






(4) 


000574' 


01 0167 


177214 


924 


000600' 






(3) 


000600' 


01 0546 




(5) 


000602' 


01 2745 


000014' 


(4) 


000606' 


01 0045 




(3) 


000610' 


004767 


000000G 


(3) 


000614' 


012605 




925 


000616' 






(3) 


000616' 


010546 




(7) 


000620' 


01 1 145 




(6) 


000622' 


016745 


177164 


(5) 


000626' 


01 2745 


000016' 


(4) 


000632' 


010045 




(3) 


000634' 


004767 


OOOOOOG 


(3) 


000640' 


012605 




926 


000642' 






(2) 


000642' 


005721 




927 


000644' 






(3) 


000644' 






(3) 


000644' 






(2) 


000644' 


000207 




928 








929 








930 




000001 





SBTTL ROUTINE TO REPORT MEMORY WRITE ERRORS, 



THIS ROUTINE PROCESSES BAD MEMORY TRANSFERS. IT POINTS TO THE 3AD 
ADDRESS, PUTS THAT ADDRESS IN A TABLE, AND CALLS GPA TO 

CONVERT THAT ADDRESS FROM VIRTUAL TO PHYSICAL. THEN BADMEM IS CALLED 
TO OUTPUT A MESSAGE. FINALLY, THE ADDRESS POINTER IS RESTORED TO 
THE NEXT MEMORY LOCATION. 



ROUTINE ERROR 

INLINE <TST "(R1 )> 

LET WB.TBL := R1 

CALL GPA IN <R0,#WB.TBL> 



CALL BADMEM IN <R0 , #WB . TBL+2, WB. TMP , (R1)> 



ERROR; 



TST 


~(R1) 


MOV 


R1 , WB.TBL 


MOV 


R5,-(SP) 


MOV 


#WB.TBL,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, GPA 


MOV 


(SP)+,R5 


MOV 


R5,-(SP) 


MOV 


(R1 ),-(R5) 


MOV 


WB.TMP,-(R5) 


MOV 


#WB.TBL+2,-(R5) 


MOV 


R0,-(R5) 


JSR 


PC, BADMEM 


MOV 


(SP)+,R5 



INLINE <TST 
ENDRTN 



.END 



(R1 )+> 



50000$: 
50001$: 



TST 



RTS 



(R1 ) + 



PC 
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ACSR = 


000102 


ACT3IT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


0001 10 


BADMEM= 


****** 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT 12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100O00 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BITS = 


000400 


BIT9 . = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQOVF = 


000001 


CR 


000015 


CSRA = 


000100 



CS'RC = 
CTRLC s 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO= 
DSEVNT= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CFO= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL* 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 
ENDLST= 



000102 
000003 
000017 
000025 
000011 
000400 
000000 
100000 
000014 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
01 0000 
000001 
000000 
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EQPBIT= 


000001 


MEMPAS= 


040000 


ERROR 


000572R 


MODEXhN 


004000 


ERRTYP= 


000106 


MODH0L= 


002000 


EVNTBE= 


000200 


MODSEL== 


001000 


EVNTHD= 


000200 


MSGCKD= 


000010 


EVNTKT= 


000203 


MSGCKS--= 


00001 1 


EVNTPE= 


000202 


MSGDER' = 


000005 


EVNTRE= 


000201 


MSGDRP= 


000017 


FATERR= 


100000 


MSGECH= 


177777 


GENPAT 


000322R 


MSGEOP= 


000013 


GPA 


****** Q 


MSGHDR= 


000004 


HRDCNT= 


000044 


MSGHNG= 


000022 


HRDPAS= 


000050 


MSGHRD= 


000007 


ICONT a 


000036 


MSGMAP= 


000021 


ICOUNT= 


000040 


MSGNUL= 


177775 


IDNUM - 


000122 


MSGPOP= 


000002 


IE 


000100 


MSGPRM= 


177776 


INDPAR= 


000040 


MSGRES= 


000001 


INHDRP= 


040000 


MSGSFT* 


000006 


INHEPR= 


020000 


MSGSKE= 


000003 


INHREL= 


001000 


MSGSWIB= 


000015 


INHRRE= 


000400 


MSGSMH= 


000014- 


INIT = 


000030 


MSGSMS= 


000016 


INTR = 


000120 


MSGSTD= 


000000 


IOMOD = 


100000 


MSGSYS= 


000012 


IOMODP= 


102000 


MSGVEC= 


000020 


IOMODR-- 


1 12000 


NBKMOD= 


001000 


IOMODX= 


1 10000 


NCPUOP= 


000020 


JACK = 


035060 


NOAPTY= 


000002 


KIPAR0= 


172340 


NULL = 


000000 


KIPAR1= 


172342 


OWEN = 


024020 


KIPAR2= 


172344 


PAERR = 


000010 


KIPAR3= 


172346 


PARPRE= 


002000 


KIPAR4= 


172350 


PARSTA= 


000100 


KIPAR5= 


172352 


PASCNT= 


000034 


KIPAR6= 


172354 


PAT1 


000432R 


KIPAR7= 


172356 


PAT2 


000502R 


KIPDRO= 


172300 


PDPLSI= 


020000 


KIPDR1= 


172302 


PDP60 = 


004000 


KIPDR2= 


172304 


PDP70 = 


010000 


KIPDR3= 


172306 


PRIO = 


000000 


KIPDR4= 


172310 


PRI1 


000040 


KIPDR5- 


172312 


PRI4 = 


000200 


KIPDR6= 


172314 


PRI5 = 


000240 


KIPDR7= 


172316 


PRI6 = 


000300 


KTERRO= 


000040 


PRI7 = 


000340 


KTPRES= 


000400 


PRO 


000000 


KTSTAT= 


000020 


PR4 


000200 


KTXTND= 


040000 


PR5 


000240 


LF 


000012 


PR6 


000300 


LPSTAT= 


000001' 


PR7 


000340 


MAPSTA= 


000200 


PS 


177776 


MED 


076600 


PSW' = 


177776 



SEO 1054 



RANNUM= 

RBUFEA= 

RBUFPA= 

RBUFS2= 

RBUFVA= 

RPSERV= 

RDWHMI= 

RELERR= 

RELW!OD = 

RELTIM=. 

RESREG= 

RES1 = 

RES2 = 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBOUT= 

RUNWlOD= 

R5VALU= 

SAM 

SAVREG= 

SBADR = 

SBKrvlOD = 

SBKSEL= 

SC.ADR= 

SC.ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SOFCNT= 

SOFPAS= 

SPACE = 

SPOINT= 

SPVALU= 

SRO 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 

SVR6 = 



000054 
000130 
000126 
000132 
000124 
000101 
000022 
000020 
020000 
010000 
****** 

000056 
000060 
031060 
002000 
0001 12 
000177 
100000 
001740 
075464 
****** 

000102 
000000 
010000 
000006 
000014 
000016 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177572 
177 574 
177576 
172516 
000026 
064757 
000027 
000001 
000062 
000064 
000066 
000070 
000072 
000074 
000075 



WSTBUS - LOAD WORST-CASE UNIBUS PATTERN MACY1 1 30A(1052) 20-SEP-7B 
WSTBUS.MAC 28-JUL-78 09:29 SYMBOL TABLE 



18:42 PAGE 20-1 



;EQ 1055 



SYSCNT= 


000052 


WBSTAT= 


000040 


$BGNLE= 


177777 


SYSERR= 


000100 


WBUFEA= 


000136 


$ERFLG= 


000400 


TABL = 


000000 


WBUFPA= 


000134 


$F$AND= 


000310 


TMPIO = 


000002 


WBUFRQ= 


000140 


$F$BAD= 


000401 


TQOVF = 


000002 


WBUFSZ= 


000142 


$F$BLA= 


000170 


UIPAR0= 


177640 


WB.CNT 


000004R 


$F$CAS= 


000150 


UIPAR1= 


177642 


WB.DON 


000002R 


$F$DEC= 


000220 


UIPAR2= 


177644 


WB.MAX 


000006R 


$F$DO = 


000340 


UIPAR3= 


177646 


WB.ROT 


000010R 


$F$FAL= 


000405 


UIPAR4= 


177650 


WB.SAV 


000000R 


$F$GOO= 


000400 


UIPAR5= 


177652 


WB.SD1 


000016R 


$F$IF = 


0001 10 


UIPAR6= 


177654 


WB.SD2 


000020R 


$F$INC= 


000210 


UIPAR7= 


177656 


WB.TBL 


000014R 


$F$LOO= 


000200 


UIPDR0= 


177600 


WB.TMP 


000012R 


$F$NAM= 


000160 


UIPDR1= 


177602 


WDFR = 


000116 


$F$NO = 


000403 


UIPDR2= 


177604 


WDTO = 


0001 14 


$F$OR = 


000320 


UIPDR3= 


177606 


WSTBUS 


000022RG 


$F$RTI= 


000350 


UIPDR4= 


177610 


WTINRE= 


000352 


$F$RTN= 


000300 


UIPDR5= 


177612 


WTWHMI= 


000222 


$F$SEL= 


000140 


UIPDR6= 


177614 


XFLAG = 


000005 


$F$THE= 


000330 


UIPDR7= 


177616 


XOFF = 


000023 


$F$TRU= 


000404 


WASADR= 


000104 


XON 


000021 


$F$UNT= 


000130 


. ABS. 


000000 000 
000646 001 









$F$WHI 


= 000120 


$F$YES 


= 000402 


SIFLEV 


= 177777 


$ISK0 


= 000001 


$ISK1 


= 000001 


$LOCTA 


= 177777 


SLSTIN 


= 000001 


$LSTTA 


= 000001 


$NESTL 


= 177777 


$NSK0 


= 000300 


$NSK1 


= 000110 


$NSK2 


= 000110 


$NSK3 


= 000120 


$SAVLE 


= 177777 


$SSKO 


= 050013 


$TAGLE 


= 177777 


$TAGNU 


= 050002 


$TEMP 


= 000300 


$TSKO 


= 050002 


$TSK1 


= 050005 


$TSK2 


= 050013 


$TSK3 


= 050005 



$TSK4 = 
$$ARGC= 
$$BYTE= 
$$CASE= 
$$DST = 
$$ELOC= 
$$ERFL= 
$$FLAG= 
$$FROM= 
$SLOC = 
$$LOCN= 
$$REG = 
S$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
S$TO = 
$$$TAG= 



050006 

000000 

000403 

000000 

000000 

000402 

000000 

000001 

000000 

000554R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000004 

050000 

000646R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ : WST BUS, DSKZ:WSTBUS=SPMAC/ML f EQUATE, WSTBUS 
RUN-TIME: 20 10 .4 SECONDS 
RUN-TIME RATIO: 48/31=1.5 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:43 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 1056 

3 COMMON EQUATE MODULE 

COMMON DEFINITIONS AND REFERENCES 

.PRINT ;SPMAC: VERSION 1.1 
KEYBOARD I/O INITIATOR ROUTINE 
KBINI ROUTINE 

KEYBOARD INTERRUPT SERVICE ROUTINE 
ROUTINE KBINT 



521 




KBDRV 


526 


000000' 




581 




KBINI 


623 




KBINI 


662 




KBINT 


710 




KBINT 



KBDRV - KEYBOARD DRIVER ROUTINE MACY11 
KBDRV.MAC 22-AUG-78 08:11 



30A(1052) 20-SEP-78 
COMMON EQUATE MODULE 



18:43 PAGE 19 



SEQ 1057 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 



KBDRV - KEYBOARD DRIVER ROUTINE 
/VO.,0/ 



TITLE 
IDENT 
++ 
MODULE PACKAGE NAME: 
KBDRV 

FUNCTIONAL DECSRIPTION: 

THIS MODULE CONTAINS THE TWO ROUTINES: 
MAKE UP THE KEYBOARD DRIVER. 



KBINI AND KBINT, WHICH TOGETHER 
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SEQ 1058 



521 
522 
523 
524 
525 
526 
d) 
527 
528 
52"9 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 



000000' 
000000' 



000001 
000001 



000000' 000000 

000002' 000000 

000004' 000000 

000006' 000000 

000010' 000000 



.SBTTL KBDRV - COMMON DEFINITIONS AND REFERENCES 



.MCALL STRUCT 
STRUCT 
PRINT ;SPMAC: VERSION 1.1 
SLSTIN = 1 
SLSTTAG = 1 



**************** 



REFERENCED BY OTHER MODULES 



GLOBL 


KB. INP 


GLOBL 


KB.RBP 


GLOBL 


KB.RBF 


GLOBL 


KB.XFLAG 


GLOBL 


KBINT 


GLOBL 


KBINI 



I)!********* * * + * * * 



GLOBAL REFERENCES 



GLOBL 


DTABLE 


GLOBL 


CTRLOF 


GLOBL 


OV.KBBUF 


GLOBL 


OV.KBSIZ 


GLOBL 


OV.HIKB 


GLOBL 


PCTRLC 


GLOBL 


DX.KFL 


GLOBL 


DX.R5 


GLOBL 


DX.SP 


GLOBL 


MD.BSY 



DTABLE ADDRESS 

ENABLE/DISABLE TERMINAL OUTPUT FLAG 

KEYBOARD BUFFER OVERLAY 

KEYBOARD BUFFER SIZE 

HIGH BUFFER ADDRESS 

PROCESS A CTRLC 

MONITOR R5 
MONITOR R6 
MESSAGE BUSY FLAG 



sit********* ****** 



DL11 DEVICE REGISTER DEFINITIONS 



GLOBL 
GLOBL 
GLOBL 



RCSR 
RBUF 
XCSR 



RECEIVER CONTROL AND STATUS REGISTER 
RECEIVER DATA BUFFER REGISTER 
TRANSMITTER CONTROL AND STATUS REGISTER 



* S V ******** ****** 

LOCAL STORAGE - PROGRAM IMPURE STORAGE 



KB.XFLAG: .WORD 
KB.CNT: .WORD 
KB. INP: .WORD 
KB.RBP: .WORD 
KB.RBF: .WORD 



XOFF FLAG WORD INDICATOR 

COUNT OF PREVIOUSLY RUBBED OUT CHARACTERS 
POINTER TO KEYBOARD INPUT BUFFER 
POINTER TO NEXT CHAR TO BE RUBBED OUT 
NUMBER OF RUBOUTS RECEIVED 
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576 000012' OOOOOOG KB.KBSIZ: .WORD OV.KBSIZ {KEYBOARD BUFFER SIZE 

577 000014' OOOOOOG KB.HIKB: .WORD OV.HIKB {KEYBOARD BUFFER HIGH LIMIT 

578 000016' OOOOOOG KB.K3BUF: .WORD OV.KBBUF {KEYBOARD BUFFER ADDRESS 
579 
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SEQ 1060 



581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 



SBTTL KBINI - KEYBOARD I/O INITIATOR ROUTINE 
++ 
ROUTINE NAME: 
KBINI 

FUNCTIONAL DESCRIPTION: 

THE I/O INITIATOR ROUTINE PERFORMS THE NECESSARY 

SET-UP FUNCTIONS, SUCH AS CLEARING THE KEYBOARD BUFFER AND RESETTING 
THE APPROPRIATE POINTERS TO ALLOW THE NEXT KEYBOARD COMMAND TO BE 
ENTERED. A RETURN TO THE CALLING ROUTINE IS THEN EXECUTED. 

INPUTS: 

1 . ADDRESS OF DATA TABLE 

IMPLICIT INPUTS: 

1. ADDRESS OF NEXT CHAR TO BE ECHOED (DATA TABLE + DT.KBECH) 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
KEYBOARD CSR 

SUBORDINATE MODULES CALLED: 
NONE 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL KBINI IN <DTABLE> 

VERSION: 

0.0 



EDIT 



BY 



DATE 



REASON 
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SBTTL KBINI - KBINI ROUTINE 



ROUTINE KBINI <DTA> 



SEQ 1061 



623 






. 


624 








625 








626 


000020' 






(2) 


000020' 






627 








628 








629 








630 








631 








632 








633 


000020' 






(2) 


C00020' 


01 0046 




(3) 


000022' 


010146 




634 


000024' 






(4) 


000024' 


016501 


000000 


635 








636 








637 








638 








639 








640 


000030' 






(4) 


000030' 


016700 


177762 


641 


000034' 






(4) 


000034' 


01 0067 


177744 


642 


000040' 






(4) 


000040' 


010061 


000024 


643 


000044' 






(4) 


000044' 


005067 


177736 


644 


000050' 






(4) 


000050' 


005067 


177734 


645 








646 








647 








648 


000054' 






(4) 


000054' 


016701 


177732 


649 


000060' 






(4) 


000060' 






(6) 


000060' 


005701 




(9) 


000062' 


003403 




650 


000064' 






(4) 


000064' 


105020 




651 


000066' 






(6) 


000066' 


005301 




652 


000070' 






(4) 


000070' 


000773 




(3) 


000072' 






653 








654 








655 








656 








657 








658 


000072' 






(2) 


000072' 


01 2601 




(3) 


000074' 


012600 




659 


000076' 







KBINI: 



DO THE NECESSARY SETUP STUFF, WHICH CONSISTS OF GETTING THE DATA TABLE 
ADDRESS 



PUSH R0.R1 

LET R1 := DTA(R5) 

INITIALIZE THE INPUT, ECHO, AND RUBOUT POINTERS, 
WELL AS THE RUBOUT FLAG 

LET RO := KB.KBBUF 

LET KB.INP := RO 

LET DT.KBECH(R1 ) := RO 

LET KB.RBP := #0 

LET KB.RBF := ttO 

ZERO THE KEYBOARD INPUT BUFFER 
LET R1 := KB.KBSIZ 
WHILE R1 GT #0 DO 

LET (R0)+ :B= #0 
LET R1 := R1 - #1 
ENDDO 



RESTORE THE REGISTERS, ENABLE INTERRUPTS 
AND RETURN TO CALLER 



AS 



POP 



R1 ,R0 



MOV 
MOV 

MOV 



MOV 
MOV 



RO,-(SP) 
R1,-(SP) 

DTA(R5) ,R1 



MOV 


KB 


KBBUF,RO 


MOV 


RO 


KB.INP 


MOV 


RO 


DT.KBECH(RI) 


CLR 


KB 


RBP 


CLR 


KB 


RBF 





MOV 


KB.KBSIZ,R1 


50002$: 


TST 
BLE 


R1 
50003$ 




CLRB 


(R0) + 




DEC 


R1 


50003$: 


BR 


50002$ 



(SP)+,R1 
(SP)+,RO 



LET @RCSR := #<IE> 
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SEO 1062 



(4) 
660 
(3) 
(3) 
(2) 



000076' 
000104' 
000104' 
000104' 
000104' 



012777 000100 OOOOOOG 



000207 



ENDRTN 



50000$: 
50001$: 



MOV 



RTS 



#<IE>,@RCSR 



PC 
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SEQ 1063 



662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
69S 
700 
701 
702 
703 
704 
705 
706 
707 
708 



SBTTL KBINT - KEYBOARD INTERRUPT SERVICE ROUTINE 
++ 
ROUTINE NAME*. 
KBINT 

FUNCTIONAL DESCRIPTION: 

THE INTERRUPT SERVICE ROUTINE IS ENTERED DIRECTLY 
VIA THE HARDWARE INTERRUPT VECTOR AND PERFORMS THE NEC- 
ESSARY FUNCTIONS TO HANDLE THE INTERRUPT. UPON RECEIVING 
A LINE TERMINATOR EVENT, CONTROL IS PASSED TO THE APPROPRIATE 
SERVICE ROUTINE, OR THE EVENT-PENDING FLAG IS SET. 
ALSO, ALL LOWER CASE INPUT IS CONVERTED TO UPPER CASE 

INPUTS: 

NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

EVENT CODE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 

1. CTRLOF ;CONTROL-0 FLAG 

2. DX.KFL 

3. DTABLE 

SUBORDINATE ROUTINES CALLED: 
NONE 

FUNCTIONAL SIDE EFFECTS: 

IF XOFF ("S) IS GENERATED BY KEYBOARD, THE RESULT WILL 
BE TO DISABLE TTDRV UNTIL XON (~Q) IS GENERATED. 

CALLING SEQUENCE: 

ENTERED DIRECTLY VIA THE HARDWARE INTERRUPT MECHANISM 

VERSION: 

0.0 



EDIT 



BY 



DATE 



REASON 
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SEQ 1064 



710 
711 
712 
713 
714 
715 
716 
717 
718 
(2) 
719 
(6) 
720 
(4) 
721 
(6) 
722 
723 
724 
725 
726 
727 
(6) 
(9) 
(6) 
(9) 
728 
(6) 
729 
(4) 
730 
731 
732 
733 
734 
735 
(6) 

(9) 
736 
(4) 
737 
(2) 
738 
(4) 
739 
740 
741 
742 
743 
744 
745 
(6) 
(9) 
746 
(4) 
747 



SBTTL KBINT - ROUTINE KBINT 



DISABLE INTERRUPTS, GET THE CHARACTER ONTO THE STACK 
AND STRIP-OFF THE ASCII PARITY BIT 



000106' IROUTINE KBINT 

000106' 

000106' LET @RCSR := iSRCSR CLR.BY #<IE> 

000106' 042777 000100 000000G 

000114' LET -(SP) :B= @RBUF 

000114' 117746 OOOOOOG 

000120' LET (SP) := (SP) CLR.BY #177600 

000120' 042716 177600 



CONVERT LOWER CASE TO UPPER CASE 



KBINT: 



BIC 

MQVB 

BIC 



000124' 
000124' 
000130' 



121627 
002405 



000132' 121627 

000136' 003002 

000140' 

000140' 

000144' 

000144' 



000141 



000172 



142716 000040 



000144 ' 
000144 1 



121627 000023 



000150' 001005 

000152' 

000152' 012767 000001 

000160' 

000160' 000167 000426 

000164' 

000164' 



177620 



000164' 
000164' 



121627 000021 



000170' 001012 
000172' 

000172' 005067 
000176' 



177602 



IFB (SP) GE #141 ANDB (SP) LE #172 THEN 



LET (SP) :B= (SP) CLR.BY #BIT05 
ENDIF 

IF XOFF(~S) THEN SET XFLAG 

IFB (SP) EQ #<XOFF> THEN 

LET KB. XFLAG := #1 
INL.INE <JMP 2$> 
ENDIF 



IF XONCO) THEN CLEAR XFLAG AD IF MESSAGE IN PROGRESS 
SET TTRANSMITTER INTERRUPT ENABLE 



IFB (SP) EQ #<XON> THEN 

LET KB. XFLAG := #0 
IF MD.BSY NE #0 THEN 



50002$ 



CMPB 
BNE 

MOV 

JMP 2< 



50003$ 



CMPB 
BNE 

CLR 



#<IE>,@RCSR 
@RBUF,-(SP) 
#177600, (SP) 



CMPB 


(SP) ,#141 


BLT 


50002$ 


CMPB 


(SP) ,#172 


BGT 


50002$ 


BICB 


#BIT05, (SP) 



(SP) ,#<XOFF> 
50003$ 

#1 ,KB. XFLAG 



(SP) ,#<XON> 
50004$ 

KB. XFLAG 
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SEQ 1065 



(6) 


000176' 


005767 


0OO000G 


(9) 


000202' 


001403 




748 


000204' 






(6). 


000204' 


052777 


000100 OOOOOOG 


749 


000212" 






(4) 


000212' 






750 


000212' 






(2) 


000212' 


000167 


000374 


751 


000216' 






(4) 


000216' 






752 








753 








754 








755 








756 








757 








758 


000216' 






(6) 


000216' 


121627 


000003 


(9) 


000222' 


001017 




759 


000224' 






i(2) 


000224' 


012746 


000340 


760 


000230' 






(2) 


000230' 


012746 


000236' 


761 


000234' 






(2) 


000234' 


000002 




762 


000236' 






(2) 


000236' 






763 


000236' 






(4) 


000236' 


016705 


OOOOOOG 


764 


000242' 






(4) 


000242' 


016706 


OOOOOOG 


765 


000246' 






(3) 


000246' 


010546 




(4) 


000250' 


012745 


OOOOOOG 


(3) 


000254' 


004767 


OOOOOOG 


(3) 


000260' 


012605 




766 


000262' 






(4) 


000262' 






767 








768 








769 








770 








771 


000262' 






(6) 


000262' 


121627 


000015 


(8) 


000266' 


001403 




(6) 


000270' 


121627 


000012 


(9) 


000274' 


001006 




(6) 


000276' 






772 








773 








774 








775 








776 








777 


000276' 






(6) 


000276' 


005767 


177506 


(9) 


000302' 


001402 





LET @XCSR := @XCSR SET. BY #<IE> 
ENDIF 
INLINE <JMP 2$> 



ENDIF 



50005$: 



50004$: 



IF THE CHARACTER JUST ENTERED IS A CONTROL--C, THEN RAISE THE 
PRIORITY TO 7, SWITCH TO MONITOR STACKS AND DISPATCH 
CONTROL TO PROCESS "CONTROL C" ROUTINE. 

IFB (SP) EQ #<CTRLC> THEN 



PUSH #PRI7 
PUSH #1$ 
INLINE <RTI> 
INLINE <1$:> 

LET R5 := DX.R5 
LET SP := DX.SP 
CALL PCTRLC IN <#DTABLE> 



ENDIF 



50006$ 



TST 
BEQ 

BIS 



JMP 2$ 



MD. BSY 
50005$ 

#<IE>,@XCSR 



CMPB 


(SP) , #<CTRLC> 


BNE 


50006$ 


MOV 


#PRI7,-(SP) 


MOV 


#1$,-(SP) 


RTI 




1$: 




MOV 


DX.R5.R5 


MOV 


DX.SP, SP 


MOV 


R5,-(SP) 


MOV 


#DTABLE,-(R5) 


JSR 


PC, PCTRLC 


MOV 


(SP)+,R5 



IF THE CHARACTER JUST ENTERED IS A CARRIAGE RETURN OR A LINE FEED, THEN 
IFB (SP) EQ #<CR> ORB (SP) EQ #<LF> THEN 



CMPB (SP),#<CR> 

BEQ 50007$ 

CMPB (SP),#<LF> 

BNE 50010$ 



50007$: 



IF THERE HAVE BEEN RUBOUTS, THEN LOAD THE BUFFER WITH RUBOUT CHARACTER 
AND UPDATE INPUT BUFFER POINTER 



IF KB.RBF NE #0 THEN 



TST 
BEQ 



KB. RBF 
50011$ 
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SEQ 1066 



778 


000304" 






(2) 


000304' 


004767 


000432 


779 


000310' 






(4) 


000310' 






780 








781 








782 








783 








784 








785 


000310' 






(2) 


000310' 


000546 




786 


000312' 






(4) 


000312' 






787 








788 








789 








790 








791 








792 








793 


000312' 






(6) 


000312' 


121627 


000025 


(9) 


000316' 


001010 




794 


000320' 






(6) 


000320' 


005767 


177464 


(9) 


000324' 


001402 




795 


000326' 






(2) 


000326' 


004767 


000410 


796 


000332* 






(4) 


000332' 






797 








798 








799 








800 








801 








802 


000332' 






(2) 


000332' 


004767 


000430 


803 








804 








805 








806 








807 








808 


000336' 






(2) 


000336' 


000533 




809 


000340' 






(4) 


000340' 






810 








811 








812 








813 








814 








815 


000340' 






(6) 


000340' 


121627 


000017 


(9) 


000344' 


00101 1 




816 


000346' 






(6) 


000346' 


005767 


000000G 


(9) 


000352' 


001403 





INLINE <JSR PC,22222$> 



JSR PC, 22222$ 



ENDIF 



5001 1$: 



GO LOAD BUFFER 



INLINE <BR 



1 11 1 1$> 



BR 



1 1 1 1 1 $ 



ENDIF 



5001 OS: 



IF THE CHARACTER IS A CONTROL-U, THEN SAVE IT IN THE 

INPUT BUFFER, DEFER SERVICING AND THEN SET THE KEYBOARD FLAG, 



IFB (SP) EQ #<CTRLU> THEN 



IF KB.RBF NE #0 THEN 



CMPB 
BNE 

TST 
BEO 



(SP) ,#<CTRLU> 
50012$ 

KB.RBF 
50013$ 



INLINE <JSR PC,22222$> 



dSR PC, 22222$ 



ENDIF 



5001 3$: 



GO LOAD UP INPUT CHARACTER INTO BUFFER 
INLINE <JSR PC,33333$> 

NOW LOAD UP <CR> AND <LF> AND LEAVE 

INLINE <BR 11111$> 

ENDIF 

+ 
IF THE CHARACTER IS A CONTROL-0 THEN SIMPLY TOGGLE THE 
ENABLE/DISABLE FLAG AND UPDATE THE STACK 

IFB (SP) EQ #<CTRLO> THEN 



USR PC, 33333$ 



BR 11111$ 



50012$: 



IF CTRLOF NE #0 THEN 



CMPB (SP) ,#<CTRLO> 

BNE 50014$ 

TST CTRLOF 

BEQ 50015$ 
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SEQ 1067 



817 


000354' 






(4) 


000354' 


005067 


000000G 


818 


000360' 






(4) 


000360' 


000402 




(3) 


000362' 






819 


000362' 






:<6) 


000362' 


005267 


OOOOOOG 


820 


000366' 






(4) 


000366' 






821 


000366' 




E 


(4) 


000366' 


000511 




(3) 


000370' 






822 








823 








824 








825 








826 


000370' 






(6) 


000370' 


121627 


000177 


(9) 


000374' 


001075 




827 








828 








829 








830 








831 








832 


000376' 






(6) 


000376' 


026767 


177402 177412 


(9) 


000404' 


003465 




833 


000406' 






(B) 


000406' 


005767 


177376 


(8) 


000412' 


001404 




(6) 


000414' 


026767 


177366 177374 


(9) 


000422' 


002456 




(6) 


000424' 






834 








835 








836 








837 


000424' 






(6) 


000424' 


005767 


177360 


(9) 


000430' 


001012 




838 








839 








840 








841 








842 








843 








844 


000432' 






(6) 


000432' 


005267 


177352 


845 


000436' 






(2) 


000436' 


004767 


000324 


846 


000442' 






(4) 


000442' 


016767 


177336 177336 


(6) 


000450' 


162767 


000002 177330 


847 


000456' 






(4) 


000456' 






848 








849 






; 



ELSE 



ENDIF 



LET CTRLOF : = #0 



LET CTRLOF : = CTRLOF + #1 





CLR 


CTRLOF 




BR 


50016$ 


50015$: 








INC 


CTRLOF 



ELSE 



50016$: 



50014$ 



IF THE CHARACTER IS A RUBOUT, DO THE NECESSARY STUFF 



IFB (SP) EQ #<RUBOUT> THEN 



MAKE SURE THERE ARE CHARACTERS TO RUBOUT!!!!!!!!! 



IF KB.INP GT KB.KBBUF THEN 



IF KB.RBF EQ #0 OR K3.RBP GE KB.KBBUFF 



50022$ 



IS IT THE FIRST RUBOUT? 



IF KB.RBF EQ #0 THEN 



FOR THE FIRST RUBOUT, SET UP THE RUBOUT FLAG 
AND RUBOUT POINTER, AND STORE THE RUBOUT CHAR 
IN THE INPUT BUFFER 



BR 



TST 

BNE 



50017$ 



CMPB (SP) ,#<RUBOUT> 
BNE 50020$ 



CMP 


KB. INP 


KB.KBBUF 


BLE 


50021$ 




THEN 






TST 


KB. RBF 




BEQ 


50022$ 




CMP 


KB.RBP 


KB.KBBUFF 


BLT 


50023$ 





KB.RBF 
50024$ 



ENDIF 



LET KB.RBF := KB.RBF + #1 

INC KB.RBF 
INLINE <JSR PC,33333$> 

JSR PC, 33333$ 
LET KB.RBP : = KB. INP -- #2 

MOV KB. INP, KB.RBP 

SUB #2, KB,, RBP 

50024$: 
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SEO 1068 



850 
851 








852 








853 








854 


000456 






(4) 


000456 


117777 


177324 177320 


855 


000464 






(6) 


000464 


026767 


177314 177322 


(9) 


000472 


002002 




856 


000474 






(6) 


000474 


005267 


177304 


857 


000500 






(4) 


000500 






858 


000500 






(6) 


000500 


005367 


177302 


859 








860 


000504 






(6) 


000504 


127727 


177276 000177 


(9) 


000512 


001021 




861 


000514 






(4) 


000514 


005067 


177262 


862 


000520 






(3) 


000520 






863 


000520 






(6) 


000520 


005367 


177262 


864 


000524 






(6) 


000524 


005267 


177252 


865 


000530 






(3) 


000530 


127727 


177252 000177 


(6) 


000536 


001370 




866" 


000540 






(3) 


000540 






867 


000540 






(6) 


000540 


005367 


177242 


868 


000544 






(6) 


000544 


005367 


177232 


869 


000550 






(3) 


000550 


005767 


177226 


(6) 


000554 


001371 




870 


000556 






(4) 


000556 






871 








872 


000556 






(2) 


000556 


000415 




873 








874 


000560 






(4) 


000560 






875 


000560 






(4) 


000560 






876 








877 








878 








879 


000560 






(2) 


000560 


00 4767 


000202 


880 


000564 






(2) 


000564 


000420 





DELETE THE EXISTING CHARACTER, BACK UP THE RUBQUT POINTER, AND IF 
THERE ARE ANY PREVIOUSL/ RUBBED OUT CHARACTERS IN THE BUFFER, 
MOVE THE RUBOUT POINTER PAST THEM. 



LET @KB. INP :B= @KB.RBP 
IF KB. INP LT KB.HIKB THEN 



MOVB 



@>KB.RBP,@KB, INP 



CMP 


KB. INP, KB.HIKB 


BGE 


50025$ 


LET KB. INP := KB. INP + #1 




INC 


KB. INP 


ENDIF 




50025$: 




LET KB.RBP :» KB.RBP - #1 




DEC 


KB.RBP 


IFB @KB.RBP EQ #RUBQUT THEN 




CMPB 


@KB.RBP,#RUBOUT 


BNE 


50026$ 


LET KB.CNT := #0 




CLR 


KB.CNT 


REPEAT 




50027$: 




LET KB.RBP := KB.RBP - 


#1 


DEC 


KB.RBP 


LET KB.CNT : = KB.CNT + 


#1 


INC 


KB.CNT 


UNTILB ©KB.RBP EQ #RUBOUT 




CMPB 


@>KB.RBP,#RUBOUT 


BNE 


50027$ 


REPEAT 




50030$: 




LET KB.RBP := KB.RBP - 


#1 


DEC 


KB.RBP 


LET KB.CNT := KB.CNT - 


#1 


DEC 


KB.CNT 


UNTIL KB.CNT EQ #0 




TST 


KB.CNT 


BNE 


50030$ 


ENDIF 




50026$: 




INLINE <BR 2$> 





BR 2$ 



ENDIF 



ENDIF 



50023$: 
50021$: 



THERE AREN'T ANY CHARACTERS TO RUBOUT, STORE A RUBOUT AND LOAD CRLF 
NOTE: THE LAST ENTRY IN KEYBOARD BUFFER IS OVERWRITTEN BY A <CR> 
INLINE <JSR PC,33333$> 

JSR PC, 
INLINE <BR 11111$> 

BR 1111 



33333$ 
1$ 
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881 








882 


000566' 






(4) 


000566' 


000411 




(3) 


000570' 






883 








884 








885 








886 








887 








888 








889 


000570' 






(6) 


000570' 


005767 


177214 


(9) 


000574' 


001404 




890 


000576' 






(4) 


000576' 


005067 


177206 


891 


000602' 






(2) 


000602' 


004767 


000134 


892 


000606' 






(4) 


000606' 






893 








894 








895 








896 








897 








898 








899 








900 


000606' 






(2) 


000606' 


004767 


000154 


901 


000612' 






(4) 


000612' 






902 


000612' 






(4) 


000612' 






903 








904 








905 








906 








907 


000612' 






(2) 


000612' 






908 


000612' 






(6) 


000612' 


062706 


000002 


909 


000616' 






(4) 


000616' 


012777 


000100 000000G 


910 


000624' 






(3) 


000624' 






(3) 


000624' 






(2) 


000624' 


000002 




911 








912 








913 








914 








915 








916 








917 








918 








919 


000626' 






(2) 


000626 1 
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SEQ 1069 



BR 



50031$ 



50020$: 



IF IT IS NOT THE FIRST RUBOUT CHARACTER THEN CLEAR THE RUBOUT FLAG 
AND LOAD RUBOUT CHARACTER INTO BUFFER 



IF KB.RBF NE #0 THEN 

LET KB.RBF := #0 

INLINE <JSR PC,22222$> 
ENDIF 



IT IS NOT THE FIRST NONRUBOUT CHAR, SO SIMPLY 
STORE THE CHAR IN THE INPUT BUFFER, UPDATE THE 
POINTER AND DO A NICE CLEAN RETURN 



TST 
BEQ 



KB.RBF 
50032$ 



CLR KB.RBF 
JSR PC, 22222$ 



50032$: 



INLINE <JSR PC,33333$> 



JSR PC, 33333$ 



ENDIF 



ENDIF 

+ 
ENABLE INTERRUPTS AND RETURN 



INLINE <2$:> 

LET SP := SP + #2 

LET @RCSR :-■ #<IE> 

ENDRTI 



50031$: 
50017$: 



50000$: 
50001$: 



2$: 
ADD 
MOV 

RTI 



#2,SP 
#<IE>,@RCSR 



LINE TERMINATOR EXIT 

EITHER A <CR> OR <LF> TERMINATOR, OR A CONTROL-U HAS BEEN RECEIVED- 
SET THE FLAG 
AND LOAD <XR> AND <LF> INTO BUFFER, ALONG WITH UPDATING STACK 



INLINE <11 111$:> 



11111$: 
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LET DX.KFL := #1 

PUSH R0,R1 

IF 4(SP) EO #<LF> THEN 

LET RO := *'<LF> 
LET R1 := #<CR> 
ELSE 



LET RO := #<CR> 

LET R1 := #<LF> 
ENDIF 

LET ©KB. INP :B = RO 
IF KB. INP LT KB.HIKB THEN 

LET KB. INP := KB. INP + // 1 
ENDIF 

LET @KB. INP :B= R1 
IF KB. INP LT KB.HIKB THEN 

LET KB. INP := KB. INP + #1 
ENDIF 



920 


000626 






(4) 


000626 


01 2767 


000001 000000 


921 


000634 






(2) 


000634 


010046 




(3) 


000636 


010146 




922 


000640 






(6) 


000640 


026627 


000004 000012 


(9) 


000646 


001005 




923 


000650 






(4) 


000650 


012700 


000012 


924 


000654 






(4) 


000654 


01 2701 


000015 


925 


000660 






:(4) 


000660 


000404 




(3) 


000662 






926 


000662 






(4) 


000662 


012700 


000015 


927 


000666 






(4) 


000666 


012701 


000012 


928 


000672 






(4) 


000672 






929 


000672 






(4) 


000672 


110077 


177106 


930 


000676 






(6) 


000676 


026767 


177102 177110 


(9) 


000704 


002002 




931 


0007C6 






(6) 


000706 


005267 


177072 


932 


000712 






(4) 


000712 






933 


000712 






(4) 


000712 


1 10177 


177066 


934 


000716 






(6) 


000716 


026767 


177062 177070 


(9) 


000724 


002002 




935 


000726 






(6) 


000726 


005267 


177052 


936 


000732 






(4) 


000732 






937 








938 








939 








940 








941 








942 


000732 






(2) 


000732 


012601 




(3) 


000734 


012600 




943 


000736 






(2) 


000736 


005726 




944 


000740 






(2) 


000740 


000002 




945 








946 








947 








948 








949 













SEQ 1070 




MOV 


#1 , DX.KFL 




MOV 


RO,-(SP) 




MOV 


R1 ,-(SP) 




CMP 


4(SP) ,#<LF> 




BNE 


50033$ 




MOV 


#<LF>,RO 




MOV 


#<CR>,R1 




BR 


50034$ 


50033$: 








MOV 


#<CR>,RO 




MOV 


#<LF>,R1 


50034$: 








MOVB 


RO,@KB. INP 




CMP 


KB. INP, KB.HIKB 




BGE 


50035$ 




INC 


KB. INP 



50035$ 



50036$ 



MOVB 


R1 ,@KB 


INP 


CMP 


KB. INP 


KB.HIKB 


BGE 


50036$ 




INC 


KB. INP 





NOW CLEAN UP STACK, RESTORING REGISTERS AND REMOVING INPUT CHARACTER, 



POP R1 ,R0 

INLINE <TST (SP)+> 
INLINE <RTI> 

LOAD RUBOUT INTO BUFFER AND UPDATE POINTER 



MOV (SP)+,R1 
MOV (SP)+ t RO 

TST (SP)+ 

RTI 
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SEQ 1071 



950 










951 


000742' 








(2) 


000742' 








952 


000742' 








(4) 


000742' 


11 2777 


000177 


177034 


953 


000750' 








(6) 


000750' 


026767 


177030 


177036 


(9) 


000756' 


002002 






954 


000760' 








(6) 


000760' 


005267 


177020 




955 


000764' 








H) 


000764' 








956 


000764' 








(2) 


000764' 


000207 






957 










958 










959 










960 










961 










962 


000766' 








(2) 


000766' 








963 


000766' 








(4) 


000766' 


116677 


000002 


177010 


964 


000774' 








(6) 


000774' 


026767 


177004 


177012 


(9) 


001002' 


002002 






965 


001004' 








(6) 


001004' 


005267 


176774 




966 


001010' 








(4) 


001010' 








967 


001010' 








(2) 


001010' 


000207 






968 




000001 







INLINE <22222$:> 



LET @KB.INP :B= #<RUBOUT> 



IF KB.INP LT KB.HIKB THEN 



LET KB.INP 



KB. INP + #1 



ENDIF 



INLINE <RTS PC> 



; + 



LOAD CHARACTER INTO BUFFER 



INLINE <33333$:> 



LET @KB.INP :B= 2(SP) 



IF KB.INP LT KB.HIKB THEN 



LET KB.INP := KB.INP + #1 



ENDIF 



50040$: 



INLINE <RTS PC> 



22222$: 




MOVB 


#<RUBOUT>,@KB.IN 


CMP 


KB. INP, KB.HIKB 


BGE 


50037$ 


INC 


KB. INP 



50037$: 



RTS PC 



33333$: 



MOVf 



CMP 
BGE 

INC 



RTS PC 



2(SP) ,@KB. INP 

KB. INP, KB.HIKB 
50040$ 

KB. INP 



END 
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ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ASB 


000106 


ASSEMB= 


000010 


AST'AT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


0001 10 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 . = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


COOVF = 


000001 


CR 


000015 


CSRA = 


000100 


CSRC = 


000102 



11 


SYMBOL 


TABLE 










SEO 1072 


CTRLC = 


000003 


ECCMEM= 


000100 


KIPDR4-= 


172310 


' " , : PDP60 = 


004000 




CTRLO = 


000017 


ECCSTA= 


000010 


KIPDR5== 


172312 


PDP70 = 


010000 




CTRLOF= 


****** G 


■= ENBEOP = 


010000 


KIPDR6= 


172314 


PRIO = 


oooooo 




CTRLU = 


000025 


ENBNUL= 


000001 


KIPDR7= 


172316 


PRI1 a 


000040 




DCEVNT= 


00001 1 


ENDLST= 


000000 


KTERRO= 


000040 


PRI4 = 


000200 




DEFRTN= 


000400 


EOPBIT= 


000001 


KTPRES^ 


000400 


PRI5 = 


000240 




DIAGMC= 


000000 


ERRTYP= 


000106 


KTSTAT= 


000020 


PRI6 = 


000300 




DROPMO= 


100000 


EVNTBE= 


000200 


KTXTND= 


040 000 


. PR 1 7 = 


000340 




DSEVNT= 


000014 


EVNTHD= 


000200 


LF 


000012 


PRO 


OOOOOO 




DTA 


000000 


EVNTKT= 


000203 


LPSTAT= 


000001 


PR4 


000200 




DTABLE= 


****** Q 


EVNTPE= 


000202 


MAPSTA= 


000200 


PR5 


000240 




DT.ADD= 


000042 


EVNTRE= 


000201 


M.D.BSY = 


* * * * * * Q 


PR6 : = 


000300 




DT.AP = 


000100 


FATERR= 


100000 


MED 


076600 


PR7 = 


000340 




DT.APK= 


000076 


HRDCNT= 


000044 


MEMPAS= 


040000 


PS 


177776 




DT.BLS= 


000034 


HRDPAS= 


000050 


MODEXH= 


004000 


PSW 


177 7 76 




DT.CFO= 


000014 


ICONT = 


000036 


M0D'HOL = 


002000 


RANNUM= 


000054 




DT.CF1= 


000016 


ICOUNT^-- 


000040 


MODSEL= 


001000 


RBUF = 


****** Q 




DT.ERR= 


000020 


IDNUM a 


000122 


MSGCKD= 


000010 


. RBUFEA= 


000130 




DT.ESI= 


000044 


IE 


000100 


MSGCKS= 


00001 1 


RBUFPA= 


000126 




DT.EVN= 


000000 


INDPAR- 


000040 


MSGDER= 


000005 


RBUFSZ= 


000132 




DT.EXS= 


000060 


INHDRP= 


040000 


MSGDRP= 


000017 


RBUFVA= 


000124 




DT.FCH= 


000037 


INHEPR= 


020000 


MSGECH= 


177777 


RCSR = 


****.** Q 




DT.FCN= 


000036 


INHREL= 


001000 


MSGEOP= 


000013 


RDSERV= 


000101 




DT.HMX= 


000104 


INHRRE= 


000400 


MSGHDR= 


000004 


RDWHMI= 


000022 




DT.KBE= 


000024 


INIT = 


000030 


MSGHNG= 


000022 


RELERR= 


000020 




DT.KBP= 


000026 


INTR = 


000120 


MSGHRD= 


000007 


RELMOD= 


020000 




DT.KBR= 


000022 


IOMOD = 


100000 


MSGMAP= 


000021 


RELTIM= 


010000 




DT.KBU= 


000030 


IOIVIODP = 


102000 


MSGNUL= 


177775 


RES1 = 


000056 




DT.MLS= 


000032 


IOMODR= 


1 12000 


MSGPOP= 


000002 


RES2 = 


000060 




DT.MTI= 


0001 10 


IOIVlODX = 


1 10000 


MSGPRM= 


177776 . 


RICHAR= 


031 060 




DT.OFF= 


000070 


JACK b 


035060 


MSGRES= 


000001 


RPTDAT= 


002000 




DT.PAS= 


000074 


KBINI 


000020RG 


MSGSFT= 


000006 


RSTRT = 


000112 




DT.PC = 


000002 


KBINT 


0001 06RG 


MSGSKE= 


000003 


RUBOUT= 


000177 




DT.PFL= 


000062 


KB.CNT 


000002R 


MSGSMB= 


000015 


RUNMOD= 


100000 




DT.PSW= 


000004 


KB.HIK 


000014R 


MSGSMH= 


000014 


R5VALU= 


001740 




DT.PTA= 


000064 


KB. INP 


000004RG 


MSGSMS= 


000016 


SAM 


075464 




DT.RCS= 


000102 


KB.KBB 


000016R 


MSGSTD= 


000000 


S3ADR = 


000102 




DT.REL= 


000040 


KB.KBS 


00001 2R 


MSGSYS= 


000012 


SBKMOD= 


OOOOOO 




DT.SCT= 


000066 


KB.RBF 


000010RG 


MSGVEC= 


000020 


SBKSEL= 


010000 




DT.SMX= 


000106 


KB.RBP 


000006RG 


NBKMOD= 


001000 


SC.ADR= 


000006 




DT.SP = 


000006 


KB.XFL 


OOOOOORG 


NCPUOP= 


000020 


SC.ALC= 


000014 




DT.SSI= 


000046 


KIPAR0= 


172340 


NOAPTY= 


000002 


SC.APC= 


000016 




DT.STO= 


000010 


KIPAR1= 


172342 


NULL = 


000000 


SC.CKL= 


000002 




DT.ST1= 


000012 


KIPAR2= 


172344 


OV.HIK= 


****** Q 


SC.CKP= 


000004 




DT.SWR= 


000056 


KIPAR3= 


172346 


OV.KBB= 


****** Q 


SC.CLO= 


OOOOOO 




DT.SYP= 


000072 


KIPAR4= 


172350 


OV.KBS= 


****** Q 


SC.HLD= 


000010 




DT.WBU= 


000050 


KIPAR5= 


172352 


OWEN = 


024020 


SC.SCA= 


000012 




DT.WHL= 


000054 


KIPAR6= 


172354 


PAERR = 


000010 


SENDLS= 


177777 




DT.WLL= 


000052 


KIPAR7= 


172356 


PARPRE= 


002000 


SOFCNT= 


000042 




DVID1 = 


000014 


KIPDRO= 


172300 


PARSTA= 


000100 


SOFPAS= 


000046 




DX.KFL= 


****** Q 


KIPDR1= 


172302 


PASCNT= 


000034 


SPACE = 


000040 




DX.R5 = 


****** Q 


KIPDR2= 


172304 


PCTRLC= 


****** Q 


SPOINT= 


000032 




DX.SP = 


****** Q 


KIPDR3= 


172306 


PDPLSI= 


020000 


SPVALU= 


002200 
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SEO 1073 



SRO 


177572 




UIPAR6= 


177654 


SR1 


177574 




UIPAR7= 


177656 


SR2 


177576 




UIPDRO= 


177600 


SR3 


172516 




UIPDR1= 


177602 


STAT = 


000026 




UI.PDR2 = 


177604 


STATBI= 


064757 




UIPDR3= 


177606 


STAT1 = 


000027 




UIPDR4= 


177610 


SUSPND= 


000001 




UIPDR5= 


177612 


SVRO = 


000062 




UIPDR6= 


177614 


SVR1 = 


000064 




UIPDR7= 


177616 


SVR2 = 


000066 




WASADR= 


000104 


SVR3 = 


000070 




WBSTAT= 


000040 


SVR4 = 


000072 




WBUFEA= 


000136 


SVR5 = 


000074 




WBUFPA= 


000134 


SVR6 = 


000076 




WBUFRQ= 


000140 


SYSCNT= 


000052 




WBUFSZ= 


000142 


SYSERR= 


000100 




WDFR = 


000116 


TMPIO - 


000002 




WDTO = 


0001 14 


TQOVF = 


000002 




WTINRE= 


000352 


UIPARO= 


177640 




WTWHMI= 


000222 


UIPAR1= 


177642 




XCSR = 


****** 


UIPAR2= 


177644 




XFLAG = 


000005 


UIPAR3= 


177646 




XOFF = 


000023 


UIPAR4= 


177650 




XON 


000021 


UIPAR5= 


177652 




$BGNLE= 


177777 


. ABS. 


000000 
001012 


000 
001 







SERFLG= 
$F$AND= 
$F$BAD= 
$F$BLA= 
$F$CAS= 
$F$DEC= 
$F$DO = 
$F$FAL= 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 
$IFLEV= 
$ISK0 = 



000400 
000310 
Q00401 
000170 
000150 
000220 
000340 
000405 
000400 
0001 10 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 
000001 



$ISK1 ■ 
$ISK2 : 

$ISK3 : 
$ISK4 : 

$LOCTA; 
$LSTIN: 
$LSTTA = 
$NESTL = 
SNSKO : 
$NSK1 : 
$NSK2 = 
$NSK3 : 
$NSK4 = 
$NSK5 : 
$NSK6 ■■ 
$SAVLE: 
$SSKO = 
$TAGLE: 
$TAGNU = 
$TEM'P ■■ 
$TSKO ■■ 
$TSK1 : 
$TSK2 = 
$TSK3 : 
$TSK4 = 



000001 
000001 
000001 
000001 
177777 
000001 
000001 
177777 
000110 
000110 
000110 
000110 
000110 
000110 
000130 
177777 
050003 
177777 
050041 
050040 
050040 
050031 
050032 
050023 
050026 



$TSK5 = 
$$ARGC= 
$$BYTE= 
$$CASE= 
$$DST = 
$$ELDC- 
$SERFL= 
$SFLAG= 
$$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG= 



050030 

000000 

000403 

000000 

000000 

000402 

000000 

000001 

000000 

001002R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

oooooo 

000000 
000001 
050000 
001012R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ: KBDRV. DSKZ:KBDRV=SPMAC/ML, EQUATE, KBDRV 
RUN-TIME: 24 15 .4 SECONDS 
RUN-TIME RATIO: 60/39=1.5 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:44 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 1074 

3 COMMON EQUATE MODULE 

509 LPDRV STRUCTURED HEADER COVER SHEET 

535 MACRO-SPMAC ROUTINE (INTERRUPT SERVICE ROUTINE) 

540 COMMON DEFINITIONS AND REFERENCES 

542 000000' .PRINT jSPMAC VERSION 1.1 

582 LPINI (LINE PRINTER INITIATOR MODULE) 

636 LPINI (CODE) 

668 LPINT (LINE PRINTER INTERRUPT HANDLER) 

716 LPINT (CODE) 
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SEQ 1075 



511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 



TITLE LPDRV (LINE PRINTER OUTPUT DRIVER MODULE) 
IDENT /V0.0/ 

++ 
MODULE NAME: 
LP 

FUNCTIONAL DESCRIPTION*. 

THIS MODULE CONTAINS TWO MODULES - LPINI AND LPINT. 
THE LPINI IS THE INITIALIZATION ROUTINE FOR THE 
OUTPUT INTERRUPT HANDLING ROUTINE - LPINT, 
LPINT ACTUALLY PROCESSES ALL MESSAGES TO THE DEVICE, 

A DESCRIPTION IS GIVEN IN EACH MODULE. 



VERSION: 
0.0 

EDIT 



DATE 



BY 



REASON 
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SEO 1076 



542 


000000' 




546 






547 






548 






549 






550' 






551 






552 






553 






554 






555 






556 






557 




000045 


558 




000134 


559 






560 






561 


000000' 


000000 


562 


000002' 


000000 


563 


000004' 


000000 


564 


000006' 


000000 


565 


000010' 


000000 


566 


000012' 


000000 


567 


000014' 


000000 


568 


000016' 




569 


000016' 


000 


570 


000017' 


000 


571 


000020' 


015 


572 


000021 ' 


012 


573 


000022' 


001 


574 


000023' 


136 


575 


000024' 


125 


576 


000025' 


001 


577 






578 







.PRINT ;SPMAC: 

************** 

GLOBL LPCSR 
GLOBL LPBUF 
GLOBL CTRLOF 

************** 

GLOBL LPINT 
GLOBL LPINI 

LP.PCNT - 
LP.BKSLSH = 



VERSI 
** 
GLOBA 



** 
REFER 



** 
LOCAL 
45 
134 

** 

LOCAL 



ON 1 .1 

****** * * ****** 

L REFERENCES 

; DEVICE REGIST 
;DEVICE REGIST 
;FLAG - OUTPUT 
************** 

ENCED BY OTHER MODULES 

; MODULE ENTRY 
;MODULE ENTRY 
************** 



EQUATES 



STORAGE 



LP 


FCH: 







LP 


PFC: 







LP 


FCF: 







LP 


EXT: 







LP 


PTR: 







LP 


TP: 







LP 


COD: 







LP 


FLG: 






LP 


PCF: 


.BYTE 





LP 


CUF: 


.BYTE 





LP 


PCB: 


.BYTE 


15 






.BYTE 


12 






.BYTE 


1 


LP 


CUB: 


.BYTE 


13 






.BYTE 


12 


LP 


BEN: 


.BYTE 


1 



; CHARACTER - 
; CHARACTER - 

CHARACTER - 
COUNT - 
COUNT, FLAG - 
POINTER - 
POINTER - 
POINTER - 
CODE - 
FLAGS - 
FLAG - 
FLAG - 
+BUFFER - 
+BUFFER 
+BUFFER - 
^BUFFER - 
^BUFFER 
^BUFFER - 
FLAG - 



**************** 

ER - CONTROL & STATUS 
ER - DATA BUFFER 

SUPPRESS 
**************** 

POINT - LP HANDLER 
POINT - LP INITIATOR 
**************** 

'%' PERCENT 
'V BACKSLASH 

FILL 

FILL, PERMANENT 

FILL (FLAG SET NE 0) 

LOCATION TO JUMP OUT INDIRECTLY 

MESSAGE 

TEMPORARY BUFFER 

MESSAGE 

PERCENT AND CONTROLHJ 

PERCENT 

CONTROL-LI 

PERCENT '%' 

ECHO 

TERMINATOR 

CONTROL-LI 

ECHO 

TERMINATOR 



<CR> + 
<LF> + 
<+1> + 

<r># 

<u># 

<+i># 



(LP. BEN) END SPECIAL BUFFER 



.EVEN 
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SEQ 1077 



584 
585 
586 
587 
588 
589 
590 
591 
I592 
I593 
|594 
!595 
I596 
!597 
I598 
I599 
i600 
1601 
;602 
I603 
I604 
!605 
I606 
I607 
I608 
I609 
1610 
161 1 
1612 
i613 
614 
615 
616 
617 
618 
619 
620 
1621 
I622 
|623 
;624 
625 
626 
!627 
;628 
;629 
630 
631 
632 



++ 
MODULE NAME: 
LPINI 

FUNCTIONAL DESCRIPTION: 

THE DEVICE OUTPUT STARTER MODULE (LPINI) SETS UP FOR 
THE DEVICE OUTPUT INTERRUPT HANDLING MODULE (LPINT). 

INPUTS: 

1 . DATA TABLE ADDRESS 

2. MESSAGE ADDRESS 

3. MESSAGE TYPE CODE 

4. RETURN ADDRESS (DRIVER WILL JUMP TO AT END OF MESSAGE). 

IMPLICIT INPUTS: 

1 . FILL CHARACTER 

2. FILL COUNT 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE MODULES CALLED: 
NONE 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL LPINI IN <DTADDR f TYPCOD,MSGADR,RETADR> 

WHERE DTADDR = ADDRESS OF DATA TABLE 
TYPCOD = TYPE CODE 
MSGADR » ADDRESS OF MESSAGE 

RETADR = RETURN ADDRESS THE DRIVER WILL JUMP TO 
AT THE COMPLETION OF THE MESSAGE. 
VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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LPDRV. MAC 



638 
639 
640 
641 
642 
643 
644 
645 
646 
(2) 
647 
(2) 
648 
(4) 
649 

H) 
050 
i(4) 
651 
!(4) 
652 
i(4) 
653 
!(4) 
654 
(2) 
655 
656 
657 
658 
659 
660 
661 
662 
(6) 
663 
i(6) 
;664 
l(3) 
i(3) 
!(2) 



28-JUL-78 09:29 



000026' 

000026' 

000026' 

000026' 010046 

000030' 

000030' 016500 

000034' 

000034' 116067 

000042' 

000042' 116067 

000050' 

000050' 016567 

000056' 

000056' 016567 

000064' 

000064' 016567 

000072' 

000072' 



012600 



000074' 

000074' 042777 
000102' 

000102' 052777 
0001 10' 
0001 10' 
0001 10' 
000110' 000207 



000000 
000037 
000036 
000002 
000004 
000006 



000100 
000100 



177736 
177732 
177736 
177724 
177714 



LPINI (CODE) 



INITIALIZE MESSAGE TYPE, MESSAGE 
ADDRESS, FILL COUNT, AND FILL CHARACTER 
STUFF RETURN ADDRESS AT LP. EXT, 
ENABLE INTERRUPTS AND RETURN. 



ROUTINE LPINI <DTBL f MSGCOD, MSGADR , RETADR> 
PUSH RO 

LET RO := DTBL(R5) 
LET LP.FCH :B= DT.FCH(RO) 
LET LP.PFC :B= DT.FCN(RO) 
LET LP. COD := MSGC0D(R5) 
LET LP.PTR := MSGADR(R5) 
LET LP. EXT := RETADR(R5) 
POP RO 



NOW FIRST CLEAR INTERRUPTS IN CASE THEY WERE STILL ENABLED (BY 
THE LINE PRINTER OPTION MODULE OR SOME OTHER THING 



SEQ 1078 



LPINI: 






MOV 


RO,-(SP) 




MOV 


DTBL(R5) ,R0 




MOVB 


DT.FCH(RO) ,LP 


FC 


MOVB 


DT. FCN(RO) , LP 


PF 


MOV 


MSGC0D(R5) ,LP 


CO 


MOV 


MSGADR (R5) , LP 


PT 


MOV 


RETADR(R5) , LP 


EX 


MOV 


(SP)+,RO 





OOOOOOG 
OOOOOOG 



LET @LPCSR 
LET ©LPCSR 



>LPCSR CLR.BY #IE 
>LPCSR SET. BY #IE 



ENDRTN 



50000$: 
50001$: 



BIC 
BIS 

RTS 



#IE,@LPCSR 
#IE,@LPCSR 

PC 
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SEQ 1079 



670 

671 
672 
673 
674 
^75 
676 
677 
^78 
679 
680 
681 
682 
683 
JB84 
685 
686 
687 
688 
^89 
£90 
|691 
692 
693 
694 
!695 
!696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
7C6 
707 
i708 
:709 
1710 
;711 
1712 



++ 
MODULE NAME: 
LPINT 

FUNCTIONAL DESCRIPTION: 

THIS MODULE HANDLES ALL OUTPUT MESSAGES TO THE DEVICE. 

THERE ARE TWO KINDS OF MESSAGES : 

(1) STANDARD (ERROR MSG, PROMPT MSG, ETC.) 

(2) NON-STANDARD (ECHOING OF INPUT STRINGS, ETC.) 

INPUTS: 

NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 

PATHOLOGICAL CONNECTIONS: 
CONTROL-O FLAG 

SUBORDINATE ROUTINES CALLED: 
NONE 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

THE ROUTINE IS ENTERED VIA HARDWARE INTERRUPT 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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SEQ 1080 



718 

W 

719 
720 
721 
722 
(6) 
723 
724 
725 
726 
727 
728 
729 
730 
(6) 
(9) 
731 
(4) 
732 
(6) 
733 
(4) 
(3) 
734 
735 
736 
737 
738 
739 
740 
(6) 
(9) 
(6) 

(9) 
741 
(4) 
742 
(4) 
743 
(4) 
744 
745 
746 
747 
748 
749 
750 
(6) 
(9) 
751 
(6) 
(9) 
752 
(2) 
753 



0001 12' 
0001 12' 



0001 12' 
0001 12' 



000120' 
000120' 
000124' 
000126' 
000126' 
000134' 
000134' 
000140' 
000140' 
000142' 



000142' 
000142' 
000146' 
000150' 
000156' 
000160' 
000160' 
000164' 
000164' 
000172' 
000172' 



000172' 
000172' 
000200' 
000202' 
000202' 
000210' 
000212' 
000212' 
000214' 



005767 
001406 



000524 



005767 
001411 
127767 
001005 



127727 
001007 

026727 
001001 

022626 



IROUTINE 



LPINT 



LPINT: 



042777 000100 OOOOOOG 



177660 



112777 000000 OOOOOOG 



005367 177644 



177650 



177634 177647 



005067 177632 



016767 177622 177616 



177612 000000 



177606 000002 



DISABLE INTERRUPTS. 
LET ©LPCSR := ©LPCSR CLR.BY #IE 

+ 

IS FILL COUNT-FLAG NOT EQUAL TO ZERO ? 

TRUE - OUTPUT THE FILLER-CHARACTER 
DECREMENT FILL COUNT-FLAG 
SET INTERRUPTS, RETURN 

FALSE - CONTINUE. 

IF LP.FCF NE #0 THEN 

LET @LPBUF :B= #NULL 
LET LP.FCF := LP.FCF - #1 
ELSE 



IS OUTPUT OF <~U> OR <%> BUFFER COMPLETED ? 
TRUE - RESET <"U> AND <%> FLAGS 

RESTORE MESSAGE POINTER 
FALSE - NO ACTION 

IF LP.FLG NE #0 ANDB@LP.PTR EQ LP. BEN THEN 



LET LP.FLG := #0 

LET LP.PTR := LP.TP 

END IF 

+ 
IS INPUT CHARACTER A' NULL ? 
TRUE - THIS IS THE END OF THE MESSAGE 

RETURN BY ' JMP @>LP.EXT'. 
FALSE - NO ACTION 

IFB @LP.PTR EO #NULL THEN 

IF LP. COD EO #MSGPOP THEN 

INLINE <CMP (SP)+,(SP)+> 
ENDIF 



BIC 



TST 
BEO 

MOVB 

DEC 

BR 



50002$: 



TST 
BEO 
CMPB 
BNE 

CLR 

MOV 



50004$: 



CMPB 
BNE 

CMP 
BNE 



#IE,@LPCSR 



LP.FCF 
50002$ 

#NULL,@LPBUF 

LP.FCF 

50003$ 



LP. FLG 
50004$ 

©LP.PTR, LP. BEN 
50004$ 

LP.FLG 

LP.TP, LP.PTR 



@LP.PTR,#NULL 
50005$ 

LP.COD,#MSGPOP 
50006$ 



CMP (SP)+,(SP)+ 



LPDRV 
LPDRV 

(4) 
754 
(2) 
755 
(4) 
?56 
757 
758 
759 
?60 
|6) 
(9) 
761 
762 
J763 
764 
765 
766 
767 
768 
|(6) 

769 
(4) 
770 
(4) 
(6) 
771 
(4) 
772 
(4) 
773 
774 
775 
776 
777 
778 
!(6) 
!(9) 
f779 
!(4) 
780 
!(4) 

i(3) 

781 

:(4) 

782 
!(4) 
783 
784 
785 
786 
787 

:(4) 
'(3) 
788 
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000214' 
000214' 
000214' 
000220' 
000220' 



000220' 

000220' 005767 
C00224' 002033 



000226' 
000226' 
000234' 
000236' 
000236' 
000244' 
000244' 
000252' 
000256' 
000256' 
000264' 
000264' 



000264' 
000264' 
000272' 
000274' 
000274' 
000302' 
000302' 
000304' 
000304' 
000304' 
000312' 
000312' 



000312' 
000312' 
000314' 



127727 
001013 



016767 
005267 



127727 
001004 



000426 
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50006$: 
INLINE <JMP @LP. EXT; LEAVE, FINISHED MESSAGE> 



000177 177566 



SEQ 1081 



JMP @LP. EXT; LEAVE, FINISH 



50005$: 



177570 



177556 000025 



112767 000001 177553 



177540 
177534 



177540 



ENDIF 

+ 
NON-STANDARD MESSAGE CODE HANDLING 
SPECIAL CONDITIONS- CONTROL U.RUBQUT 

IF LP. COD LT #0 THEN 



IS INPUT CHARACTER IS A <"U> CONTROL U ? 

TRUE - SET "U-FLAG 

SAVE REST OF MESSAGE POINTER 
POINT TO "U-BUFFER 

FALSE - NO ACTION 

IFB ©LP.PTR EQ #CTRLU THEN 



LET LP. CUT' :B= #1 

LET LP.TP := LP.PTR: + #1 

LET LP.PTR := #LP.CUB 



TST 
BGE 



012767 000023' 177524 



CMPB 
BNE 

MOVB 

MOV 
INC 

MOV 



177520 000177 



112777 000134 OOOOOOG 



000403 



117777 177500 OOOOOOG 



ENDIF 

+ 

IS INPUT CHARACTER IS A RUBOUT ? 
TRUE - OUTPUT BACKSLASH 
FALSE - OUTPUT CHARACTER 

IFB ©LP.PTR EQ #RUBOUT THEN 

LET ©LPBUF :B= 0LP.BKSLSH 
ELSE 

LET ©LPBUF :B= ©LP.PTR 
ENDIF 



STANDARD MESSAGE CODE HANDLING 
SPECIAL CONDITIONS- PERCENT , SURPRESS 



50010$ 



50011$: 



50012$ 



MOVB 



ELSE 



BR 



50007$: 



LP. COD 
50007$ 



@LP.PTR,#CTRLU 
50010$ 

#1 , LP.CUF 

LP.PTR, LP.TP 
LP.TP 

#LP. CUB, LP.PTR 



CMPB 


@LP.PTR,#RUBOUT 


BNE 


50011$ 


MOVB 


#LP.BKSLSH,@LPBU 


BR 


50012$ 



©LP.PTR, @LPBUF 



50013$ 



; + 
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789 
790 
791 
792 
793 
794 
795 
<6) 
■ ! (9) 
796 
|(4) 
797 
l(4) 
i(6) 
798 
!(4) 
f799 
!(4) 

boo 

801 
|802 
|803 
:804 
;805 
!(6) 
!(9) 
i806 
|(4) 
:807 
!(4) 
I808 
!(4) 
809 
810 
811 
812 
813 
814 
(6) 
(9) 
815 
(4) 
816 
(4) 
817 
818 
819 
820 
(6) 
821 
(4) 
822 
823 
824 
825 
826 



000314' 

000314' 127727 
000322' 001013 
000324' 

000324' 112767 
000332' 

000332' 016767 
000340' 005267 
000344' 
000344' 
000352' 
000352' 



177470 000045 



000001 177464 

177452 177452 
177446 



012767 000020' 177436 



000352' 
000352' 026727 



000360' 
000362' 
000362' 
000370' 
000370' 
000370' 
000370' 



000370' 
000370' 
000376' 
000400' 
000400' 
000406' 
000406' 



001403 



127767 
001003 



000406' 

000406' 005267 
000412' 
000412' 



000412' 



OOOOOOG 000001 



117777 177422 OOOOOOG 



177414 177402 
016767 177376 177376 



177376 



IS INPUT CHARACTER IS A <%> PERCENT ? 
TRUE - SET %-FLAG 

SAVE REST OF MESSAGE POINTER 

POINT TO %-BUFFER 
FALSE - NO ACTION 

IFB ©LP.PTR EQ #LP.PCNT THEN 



LET LP.PCF :B= #1 

LET LP.TP := LP.PTR + #1 

LET LP.PTR := #LP.PCB 



ENDIF 

+ 
IS MESSAGE SURPRESS FLAG NOT SET ? 
TRUE - OUTPUT CHARACTER 
FALSE - NO ACTION 

IF CTRLOF NE #1 THEN 



LET ©LPBUF :B= ©LP.PTR 



ENDIF 



ENDIF 



IS INPUT CHARACTER THE "FILL-CHARACTER" ? 
TRUE - PRESET FILL COUNT-FLAG 
FALSE - NO ACTION 

IFB ©LP.PTR EQ LP.FCH THEN 



LET LP.FCF := LP.PFC 

ENDIF 

+ 
INCREMENT MESSAGE CHARACTER POINTER 

LET LP.PTR ;= LP.PTR + #1 



ENDIF 



ENABLE INTERRUPTS. BUT FIRST RAISE PRIORITY TO 4 



PUSH #PRI4 



50014$: 



50015$: 
50013$: 



50016$: 



50003$: 



MOV 



CMP 
BEO 

MOVE 



CMPE 
BNE 

MOV 



INC 



SEQ 1082 



CMPB 


©LP.PTR,#LP„PCNT 


BNE 


50014$ 


MOVB 


#1 , LP.PCF 


MOV 


LP.PTR, LP.TP 


INC 


LP.TP 



#LP.PCB, LP.PTR 



CTRLOF, #1 
50015$ 

©LP.PTR, ©LPBUF 



©LP.PTR, LP.FCH 
50016$ 

LP.PFC, LP.FCF 



LP.PTR 
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;(2) 000412' 012746 000200 M0V #PRI4,-(SP) 

B27 000416' PUSH #1000$ 

! (2) 000416' 012746 000424' M0V #1000$, -(SP) 

B28 000422' INLINE <RTI> 

(2) 000422' 000002 RTI 

829 000424' INLINE <100Q$:> 

(2) 000424' 1000$: 
B30 000424' LET @LPCSR := @LPCSR SET. BY #IE 
(6) 000424' 052777 000100 OOOOOOG BIS #IE,@LPCSR 

831 000432' ENDRTI nnnn< . 

(3) 000432' ™S?^ : 
(3) 000432' 50001$: 
(2) 000432' 000002 RTI 

832 000001 -END 
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ACSR = 


000102 


ACTBIT= 


004000 


ADDf*22 = 


001000 


ADRj 


000006 


APTfER= 


000004 


APTpRE= 


000200 


ASBj 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTp = 


000010 


AUTDST= 


020000 


AWA& = 


0001 10 


BITD = 


000001 


BITbO = 


000001 


BITD1 = 


000002 


BIT&2 = 


000004 


BITI03 = 


000010 


BIT|04 = 


000020 


BIT|05 = 


000040 


BITJ06 = 


000100 


BITJ07 = 


000200 


BITJ08 = 


000400 


BIT|09 = 


001000 


BITJ1 = 


000002 


BITl'10 = 


002000 


B I T| 1 1 = 


004000 


BITJ12 = 


010000 


BITJ13 = 


020000 


BIl1l4 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


Blf:4 = 


000020 


BIT 


5 = 


000040 


BIT 


6 s 


000100 


BIT 


7 = 


000200 


BIT 


8 = 


000400 


BIT 


9 . a 


001000 


bk: 


EF = 


000002 


BKMOD = 


000020 


BKI\|ODE = 


040000 


bks!lsh= 


000134 


cap!res= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


cdvIdct = 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQQVF = 


000001 


CR I 


000015 


CSRA = 


000100 


CSB 


C = 


000102 



CTRLC = 
CTRLO = 
CTRLOF= 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO= 
DSEVNT= 
DTBL = 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CFO= 
DT.CF1.= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 



000003 
000017 

!|i * * * * * 

00 0025 
00001 1 
000400 
000000 
100000 
000014 

oooooo 

000042 
000100 
000076 
000034 
000014 
'000016 
000020 
000044 
OOOOOO 
0C0060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 



ENDLST= 

EOPBIT= 

ERRTYP= 

EVNTBEs 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR= 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT - 

INTR = 

IOMOD = 

IOMODP= 

IOMODR= 

IOMOD'X = 

JACK = 

KIPARO= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDRO= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPBUF = 

LPCSR = 

LPINI 

LPINT 

LPSTAT= 



OOOOOO 
000001 
000106 
000200 
000200 
000203 
000202 
000201 
100000 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000030 
000120 
100000 
102000 
112000 
110000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 

* * * if sjc -,jt Q 
**#*>(:* G 

000026RG 
0001 12RG 
000001 



LP. BEN 

LP.BKS== 

LP. COD 

LP. CUB 

LP.CUF 

LP. EXT 

LP. FCF 

LP.FCH 

LP. FLG 

LP.PCB 

LP.PCF 

LP.PCN= 

LP.PFC 

LP.PTR 

LP.TP 

MAPSTA 

MED 

MEMPAS 

MODEXH 

MODHOL 

MODSEL 

MSGADR= 

MSGCKD= 

MSGCKS= 

MSGCOD= 

MSGDER= 

MSGDRP= 

MSGECH= 

MSGEOP= 

MSGHDR= 

MSGHNG= 

MSGHRD= 

MSGMAP= 

MSGNUL= 

MSGPOP= 

MSGPRM= 

MSGRES= 

MSGSFT- 

MSGSKE= 

MSGSMB= 

MSGSMH= 

MSGSMS= 

MSGSTD= 

MSGSYS= 

MSGVEC= 

NBKMOD= 

NCPUOP= 

NOAPTY= 

NULL = 

OWEN = 

PAERR = 

PARPRE= 

PARSTA= 



000025R 

000134 

000014R 

000023R 

000017R 

000006R 

000004R 

OOOOOOR 

00001 6R 

000020R 

000016R 

000045 

000002R 

00001 OR 

00001 2R 

000200 

076600 

040000 

004000 

002000 

001000 

000004 

000010 

00001 1 

000002 

000005 

000017 

177777 

000013 

000004 

000022 

000007 

000021 

177775 

000002 

177776 

000001 

000006 

000003 

000015 

000014 

000016 

OOOOOO 

000012 

000020 

001000 

000020 

000002 

OOOOOO 

024020 

000010 

002000 

000100 







SEO 1084 


PASCNT= 


000034 




PDPLSI= 


020000 




PDP60 - 


004000 




PDP70 = 


010000 




PRIO = 


OOOOOO 




PRI1 = 


000040 




PRI4 = 


000200 




PRI5 = 


000240 




PR 1 6 = 


000300 




PRI7 = 


000340 




PRO 


OOOOOO 




PR4 


000200 




PR5 


000240 




PR6 


000300 




PR7 


000 340 




PS 


177776 




PSW 


177776 




RANNUM= 


000054 




RBUFEA= 


000130 




RBUFPA= 


000126 




RBUFS2= 


000132 




RBUFVA= 


000124 




RDSERV= 


000101 




RDWHMI= 


000022 




RELERR= 


000020 




RELMOD= 


020000 




RELTIM= 


010000 




RES1 = 


000056 




RES2 = 


000060 




RETADR= 


000006 




RICHAR= 


031060 




RPTDAT= 


002000 




RSTRT = 


0001 12 




RUBOUT= 


000177 




RUNMOD= 


100000 




R5VALU= 


001740 




SAM 


075464 




SBADR = 


000102 




SBKMQD= 


OOOOOO 




SBKSEL= 


010000 




SC. ADR= 


000006 




SC.ALC= 


000014 




SC.APC= 


000016 




SC.CKL= 


000002 




SC.CKP= 


000004 




SC.CLO'= 


OOOOOO 




SC.HLD= 


000010 




SC.SCA= 


000012 




SENDLS= 


177777 




SOFCNT= 


000042 




SOFPAS= 


000046 




SPACE = 


000040 




SPOINT= 


000032 
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SEQ 1085 



SPVALU= 


002200 




UIPAR3= 


177646 


SROi = 


177572 




UIPAR4= 


177650 


SR1 


177574 




UIPAR5= 


177652 


SR2 


177576 




UIPAR6= 


177654 


SR3 : 


172516 




UIPAR7= 


177656 


STAT ■ 


000026 




UIPDR0= 


177600 


STATBI= 


064757 




UIPDR1= 


177602 


STAT1 = 


000027 




UIPDR2= 


177604 


SUSPND= 


000001 




UIPDR3= 


177606 


SVRO = 


000062 




UIPDR4= 


177610 


SVR.i s 


000064 




UIPDR5= 


177612 


svr£ = 


000066 




UIPDR6= 


177614 


SVR$ = 


000070 




UIPDR7= 


177616 


SVR4 = 


000072 




WASADR= 


000104 


SVR$ = 


000074 




WBSTAT= 


000040 


SVR$ = 


000076 




WBUFEA= 


000136 


SYSCNT= 


000052 




WBUFPA= 


000134 


sys|rr'= 


000100 




WBUFRO= 


000140 


TMPJO = 


000002 




WBUFSZ= 


000142 


TQOi/F = 


000002 




WDFR = 


000116 


uipMo = 


177640 




WDTO = 


000114 


UIPAR1= 


177642 




WTINRE= 


000352 


UIPJ*R2 = 


177644 




WTWHMI= 


000222 


. A$S. 


000000 
000434 


000 
001 







XFLAG = 
XOFF = 
XON = 
$BGNLE= 
$ERFLG= 
$F$AND= 
$F$BAD= 
$F$BLA= 
$F$CAS= 
$F$DEC= 
$F$DO = 
$F$FAL= 
$F$GOO= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 



000005 
000023 
000021 
177777 
000400 
000310 
000401 
000170 
000150 
000220 
000340 
000405 
000400 
000110 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 



$F$TRU= 
$F$UNT= 
$F$WHI= 
$F$YES= 
SIFLEV 
$ISK0 
$ISK1 
$ISK2 = 
$LOCTA 
$LSTIN= 
$LSTTA= 
$NESTL= 
$NSKO = 
.$NSK1 
SNSK2 
$NSK3 
$SAVLE 
$TAGLE= 
$TAGNU= 
$TEMP 
$TSKO 
$TSK1 
$TSK2 



000404 
000130 
000120 
000402 
177777 
000001 
000001 
000001 
177777 
000001 
000001 
177777 
000350 
000110 
000110 
000110 
177777 
177777 
050017 
000350 
050003 
050016 
050015 



$$ARGC= 
$$BYTE= 
$it>C Ab E = 
$$DST = 
$$ELOC= 
$SERFL= 
$$FLAG= 
$$FROM= 
$$LQC = 
$$LOCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG= 



000000 

000402 

000000 

000000 

000402 

000000 

000001 

000000 

000376R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000434R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ: LPDRV, DSKZ:LPDRV=SPMAC/ML, EQUATE, LPDRV 
RUN-TIME: 16 7 .4 SECONDS 
RUN-TIME RATIO: 40/24=1.6 
COlRE USED: 14K (27 PAGES) 



.MAIN. MACYIt 30A(1052) 20-SEP-78 18:44 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 1086 

3 COMMON EQUATE MODULE 

509 TTDRV STRUCTURED HEADER COVER SHEET 

535 MACRO-SPMAC ROUTINE (INTERRUPT SERVICE ROUTINE) 

540 COMMON DEFINITIONS AND REFERENCES 

542 000000 ' .PRINT ;SPMAC: VERSION 1.1 

583 TTINI (TERMINAL INITIATOR MODULE) 

637 TTINI (CODE) 

661 TTINT (TERMINAL INTERRUPT HANDLER) 

712 TTINT (CODE) 
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51 1 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
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TTDRV STRUCTURED HEADER COVER SHEET 

.TITLE TTDRV (TERMINAL DRIVER MODULE) 
. IDENT /VO.O/ 

++ 
MODULE NAME: 
TTDRV 

FUNCTIONAL. DESCRIPTION: 

THIS MODULE CONTAINS TWO MODULES - TTINI AND TTINT. 
THE TTINI IS THE INITIALIZATION ROUTINE FOR THE 
TERMINAL INTERRUPT HANDLING ROUTINE - TTINT. 
TTINT ACTUALLY PROCESSES ALL MESSAGES TO THE DEVICE, 

A DESCRIPTION IS GIVEN IN EACH MODULE. 



VERSION: 
0.0 

EDIT 



SEQ 1087 



DATE 



BY 



REASON 
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COMMON DEFINITIONS AND REFERENCES 



PAGE 20 



SEQ 1088 



542 


000000' 




546 






547 






548 






549 






550 






551 






552 






553 






554 






555 






556 






557 






558 




000045 


559 




000134 


560 






561 






562 


000000' 


000000 


563 


000002' 


000000 


564 


000004' 


000000 


565 


000006' 


000000 


566 


000010' 


000000 


567 


000012' 


000000 


568 


000014' 


000000 


I569 


000016' 




570 


000016' 


000 


1571 


000017' 


000 


572 


000020' 


015 


:573 


000021 ' 


012 


I574 


000022' 


001 


I575 


000023' 


136 


576 


000024' 


125 


I577 


000025' 


001 


I578 






579 







PRINT ;SPMAC: 

********** * * * * * 

GLOBL XCSR 
GLOBL XBUF 
GLOBL KB.XFLAG 
GLOBL CTRLOF 

*-.)!************* 

GLOBL TTINT 
GLOBL TTINI 

sit************** 

TT.PCNT = 
TT.BKSLSH = 

• :(<************** 



VERSION 1.1 

* ******** 

GLOBAL REFERENCES 

; DEVICE 

•/DEVICE 

;XOFF FLAG WORD 

;FLAG - 

* ******* * 

REFERENCED BY OTHER MODU 
; MODULE 
; MODULE 

******** 



LOCAL 

45 

134 

* 

LOCAL 



********************** 

REGISTER - CONTROL & STATUS 

REGISTER - DATA BUFFER 

OUTPUT SUPPRESS 

* * * *.* ***************** 

LES 

ENTRY POINT - TT HANDLER 

ENTRY POINT - TT INITIATOR 

sic********************* 



EQUATES 



STORAGE 



TT 


FCH: 







TT 


PFC: 







TT 


FCF: 







TT 


EXT: 







TT 


PTR: 







TT 


TP: 







TT 


COD: 







TT 


FLG: 






TT 


PCF: 


.BYTE 





TT 


CUF: 


.BYTE 





TT 


PCB: 


• BYTE 


15 






.BYTE 


12 






.BYTE 


1 


TT 


CUB: 


.BYTE 


136 






.BYTE 


125 


TT 


BEN: 


.BYTE 


1 



;CHARACT 
;CHARACT 

******** 

CHARACT 

COUNT - 

COUNT, 

POINTER 

POINTER 

POINTER 

CODE - 

FLAGS ~ 

FLAG - 

FLAG - 

+BUFFER 

+BUFFER 

+BUFFER 

#BUFFER 

^BUFFER 

^BUFFER 

FLAG - 



'%' PERCENT 
' \' BACKSLASH 



ER - 

ER - 
********************** 



ER - FILL 

FILL, PERMANENT 

FLAG - FILL (FLAG SET NE 0) 

LOCATION TO JUMP OUT INDIRECTLY 

MESSAGE 

TEMPORARY BUFFER 

MESSAGE 

PERCENT AND CONTROL-U 

PERCENT 

CONTROL-U 

PERCENT ,0 /o' <CR>+ 

ECHO <LF>+ 

TERMINATOR <+1>+ 

CONTROL-U <"># 

ECHO <U># 

TERMINATOR <+1># 

(TT.BEN) END SPECIAL BUFFER 



EVEN 
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585 
586 
587 
588 
583 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
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TTINI (TERMINAL INITIATOR MODULE) 



++ 
MODULE NAME: 
TTINI 

FUNCTIONAL DESCRIPTION: 

THE DEVICE OUTPUT STARTER MODULE (TTINI) SETS UP FOR 
THE DEVICE OUTPUT INTERRUPT HANDLING MODULE (TTINT). 

INPUTS: 

1 . DATA TABLE ADDRESS 

2. MESSAGE ADDRESS 

3. MESSAGE TYPE CODE 

4. RETURN ADDRESS (DRIVER WILL JUMP TO AT END OF MESSAGE). 

IMPLICIT INPUTS: 

1 . FILL CHARACTER 

2. FILL COUNT 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
NONE 

PATHOLOGICAL CONNECTIONS: 
NONE 

SUBORDINATE MODULES CALLED: 
NONE 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL TTINI IN <DTADDR , TYPCOD, MSGADR , RETADR> 

WHERE DTADDR = ADDRESS OF DATA TABLE 
TYPCOD = TYPE CODE 
MSGADR - ADDRESS OF MESSAGE 

RETADR - RETURN ADDRESS THE DRIVER WILL JUMP TO 
AT THE COMPLETION OF THE MESSAGE. 
VERSION: 
0.0 



SEQ 1089 



EDIT 



DATE 



BY 



REASON 
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639 
640 
641 
642 
643 
644 
645 
646 

647 000026' 
(2) 000026" 

648 000026' 

(2) 000026' 010046 

649 000030' 

(4) 000030' 016500 

650 000034' 

(4) 000034' 116067 

651 000042' 

(4) 000042' 116067 

652 000050' 

(4) 000050' 016567 

653 000056' 

(4) 000056' 016567 

654 000064' 

(4) 000064' 016567 

655 000072' 

(2) 000072' 012600 

656 000074' 

(6) 000074' 052777 

657 000102' 

(3) 000102' 
(3) 000102' 

(2) 000102' 000207 



MACY11 30A(1052) 
TTINI (CODE) 



20-SEP-78 18:44 PAGE 22 



SEO 1090 



000000 
000037 
000036 
000002 
000004 
000006 



177736 
177732 
177736 
177724 
177714 



000100 OOOOOOG 



INITIALIZE MESSAGE TYPE, MESSAGE 
ADDRESS, FILL COUNT, AND FILL CHARACTER 
STUFF RETURN ADDRESS AT TT.EXT, 
ENABLE INTERRUPTS AND RETURN. 



ROUTINE TTINI <DTBL ,MSGCOD , MSGADR , RETADR> 
PUSH RO 

LET RO := DTBL(R5) 
LET TT.FCH :B= DT.FCH(RO) 
LET TT.PFC :B= DT.FCN(RO) 
LET TT.COD := MSGC0D(R5) 
LET TT.PTR := MSGADR(R5) 
LET TT.EXT := RETADR(R5) 
POP RO 
LET @XCSR := @XCSR SET. BY #IE 

ENDRTN 



TTINI:: 










MOV 


R0,-(SP) 






MOV 


DTBL(R5) t R0 






MOVB 


DT. FCH(RO) ,TT 


FC 




MOVB 


DT. FCN(RO) ,TT 


PF 




MOV 


MSGC0D(R5) ,TT 


CO 




MOV 


MSGADR (R5) ,TT 


PT 




MOV 


RETADR(R5) ,TT 


EX 




MOV 


(SP)+,RO 






BIS 


#IE,@XCSR 




50000$: 








50001$: 









RTS 



PC 
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TTINT (TERMINAL INTERRUPT HANDLER) 



SEQ 1091 



663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
I677 
678 
:679 
680 
681 
682 
683 

:684 

685 
686 
687 
■688 
689 
690 
691 
692 
693 
694 
695 

:696 

697 
698 
699 
:700 
1701 
:702 
703 
704 
705 
706 
707 
708 



++ 
MODULE NAME: 
TTINT 

FUNCTIONAL. DESCRIPTION: 

THIS MODULE HANDLES ALL OUTPUT MESSAGES TO THE DEVICE. 

THERE ARE TWO KINDS OF MESSAGES : 

(1) STANDARD (ERROR MSG, PROMPT WISG, ETC.) 

(2) NON-STANDARD (ECHOING OF INPUT STRINGS, ETC.) 

INPUTS: 

NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 

PATHOLOGICAL CONNECTIONS: 
CONTROL-0 FLAG 
XOFF FLAG WORD 

SUBORDINATE ROUTINES CALLED: 
NONE 

FUNCTIONAL SIDE EFFECTS: 

IF XOFF FLAG IS DETECTED CONTROL IS RETURNED TO THE INTERRUPTED 

CODE IMMEDIATELY WITHOUT RE-ENABLING INTERRUPTS. 

THIS WILL BE DONE BY THE KBDRV MODULE WHEN A XON IS DETECTED. 

CALLING SEQUENCE: 

THE ROUTINE IS ENTERED VIA HARDWARE INTERRUPT 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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714 


000104' 






(2) 


000104' 






715 








716 








717 








718 


. 000104' 






!(6) 


000104' 


042777 


000100 000000G 


719 








720 








721 








722 








723 








724 








725 








726 


0001 12' 






i(6) 


0001 12' 


005767 


OOOOOOG 


!(9) 


0001 16' 


001401 




727 


000120' 






!(2) 


000120' 


000002 




728 


000122' 






(4) 


000122' 






I729 








730 








731 








I732 








(733 








I734 








:735 








:736 








737 


000122' 






(6) 


000122' 


005767 


177656 


(9) 


000126' 


001406 




738 


000130' 






(4) 


000130' 


112777 


000000 OOOOOOG 


739 


000136' 






(6) 


000136' 


005367 


177642 


740 


000142' 






(4) 


000142' 


000524 




(3) 


000144' 






741 








742 








743 








744 








745 








746 








747 


000144' 






(6) 


000144' 


005767 


177646 


(9) 


000150' 


00141 1 




(6) 


000152' 


127767 


177632 177645 


(9) 


000160' 


001005 




748 


000162' 






(4) 


000162' 


005067 


177630 


749 


000166' 






(4) 


000166' 


016767 


177620 177614 


750 


000174' 






(4) 


000174' 
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SEQ 1092 



TTINT 

DISABLE INTERRUPTS. 
LET @XCSR := @XCSR CLR.BY #IE 



IF XOFF FLAG SET 
TRUE - RTI 
ELSE - CONTINUE 



IF KB.XFLAG NE #0 THEN 



INLINE <RTI> 
END IF 



IS FILL COUNT-FLAG NOT EQUAL TO ZERO ? 

TRUE - OUTPUT THE FILLER-CHARACTER 
DECREMENT FILL COUNT-FLAG 
SET INTERRUPTS, RETURN 

FALSE - CONTINUE. 

IF TT.FCF NE #0 THEN 



LET @XBUF :B= #NULL 
LET TT.FCF := TT.FCF - #1 
ELSE 



IS OUTPUT OF <"U> OR <%> BUFFER COMPLETED ? 
TRUE - RESET <"U> AND <%> FLAGS 

RESTORE MESSAGE POINTER 
FALSE - NO ACTION 

IF TT.FLG NE #0 ANDB ©TT.PTR EQ TT.BEN THEN 



LET TT.FLG := #0 
LET TT.PTR := TT.TP 
END IF 



TTINT: 



BIC 



TST 
BEQ 

RTI 



50002$: 



50003$: 



TST 
BEQ 
CMPB 
BNE 

CLR 

MOV 



#IE,@XCSR 



KB.XFLAG 
50002$ 



TST 


TT.FCF 


BEQ 


50003$ 


MOVB 


#NULL,@XBUF 


DEC 


TT.FCF 


BR 


50004$ 



TT. FLG 
50005$ 

©TT.PTR, TT.BEN 
50005$ 

TT.FLG 

TT.TP,, TT.PTR 



50005$: 
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SEO 1093 



751 










752 










753 










754 










755 










756 










757 


000174' 








(6) 


000174' 


127727 


177610 


000000 


(9) 


000202' 


001007 






758 


000204' 








(6) 


000204' 


026727 


177604 


000002 


(9) 


000212' 


001001 






759 


000214' 








(2) 


000214' 


022626 






760 


000216' 








(4) 


000216' 








761 


000216' 








(2) 


000216' 


000177 


177564 




762 


000222' 








(4) 


000222' 








763 










764 










765 










766 










767 


000222' 








(6) 


000222' 


005767 


177566 




(9) 


000226' 


002033 






768 










769 










770 










771 










772 










773 










774 










775 


000230' 








(6) 


000230' 


127727 


177554 


000025 


(9) 


000236' 


001013 






776 


000240' 








(4) 


000240' 


112767 


000001 


177551 


777 


000246' 








(4) 


000246' 


016767 


177536 


177536 


(6) 


000254' 


005267 


177532 




778 


000260' 








(4) 


000260' 


012767 


000023' 


177522 


779 


000266' 








(4) 


000266' 








780 










781 










782 










783 










784 










785 


000266' 








(6) 


000266' 


127727 


177516 


000177 


(9) 


000274' 


001004 






786 


000276' 








(4) 


000276' 


112777 


000134 


OOOOOOG 



IS INPUT CHARACTER A NULL ? 

TRUE - THIS IS THE END OF THE MESSAGE 

RETURN BY ' JMP ©TT.EXT'. 
FALSE - NO ACTION 

IFB ©TT.PTR EQ #NULL THEN 



IF TT.COD EQ #MSGPOP THEN 

INLINE <CMP (SP)+, (SP)+> 

ENDIF 

50007$ 
INLINE <JMP @TT. EXT ,-LEAVE, FINISHED MESSAGE> 



CMPB ©TT.PTR, #NULL 
BNE 50006$ 

CMP TT.COD,#MSGPOP 
BNE 50007$ 

CMP (SP)+,(SP)+ 



JMP ©TT.EXT; LEAVE, FINISH 



;ooo6$ 



ENDIF 

+ 
NON-STANDARD MESSAGE CODE HANDLING 
SPECIAL CONDITIONS- CONTROL U.RUBOUT 

IF TT.COD LT #0 THEN 



IS INPUT CHARACTER IS A <"U> CONTROL U ? 

TRUE - SET "U-FLAG 

SAVE REST OF MESSAGE POINTER 
POINT TO "U-BU.FFER 

FALSE - NO ACTION 

IFB ©TT.PTR EQ 0CTRLU THEN 



LET TT.CUF : B= #1 

LET TT.TP := TT.PTR + #1 



TST 
BGE 



TT.COD 
50010$ 



CMPB 


©TT.PTR, #CTRLU 


BNE 


50011$ 


MOVB 


#1 , TT.CUF 


MOV 


TT.PTR, TT.TP 


INC 


TT.TP 



LET TT.PTR 



0TT.CUB 



MOV 



#TT. CUB, TT.PTR 



ENDIF 

+ 
IS INPUT CHARACTER IS A RUBOUT ? 
TRUE - OUTPUT BACKSLASH 
FALSE - OUTPUT CHARACTER 

IFB ©TT.PTR EQ #RUBOUT THEN 



LET ©XBUF :B= #TT.BKSLSH 



50011$: 



CMPB 
BNE 

MOVB 



©TT.PTR, #RUBOUT 
50012$ 

#TT.BK£LSH,@XBUF 
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787 


000304' 








(4) 


000304' 


000403 






(3) 


000306' 








788 


000306' 








(4) 


000306' 


117777 


177476 


OOOOOOG 


789 


000314' 








(4) 


000314' 








790 










791 










792 










793 










794 


000314' 








(4) 


000314' 


000426 






(3) 


000316' 








795 










796 










797 










798 










799 










800 










801 










802 


000316' 








(6) 


000316' 


127727 


177466 


000045 


(9) 


000324' 


001013 






803 


000326' 








(4) 


000326' 


112767 


000001 


177462 


804 


000334' 








(4) 


000334' 


016767 


177450 


177450 


(6) 


000342' 


005267 


177444 




805 


000346' 








(4) 


000346' 


012767 


000020' 


177434 


806 


000354' 








(4) 


000354' 








807 










808 










809 










810 










811 










812 


000354' 








(6) 


000354' 


026727 


OOOOOOG 


000001 


(9) 


000362' 


001403 






813 


000364' 








(4) 


000364' 


117777 


177420 


OOOOOOG 


814 


000372' 








(4) 


000372' 








815 


000372' 








(4) 


000372' 








816 










817 










818 










819 










820 










821 


000372' 








(6) 


000372' 


127767 


177412 


177400 


(9) 


000400' 


001003 






822 


000402' 









ELSE 



ENDIF 



LET @XBUF :B= @TT.PTR 



50012$' 



50013$: 



BR 



MOVB 



ST 



ANDARD MESSAGE CODE HANDLING 
PECIAL CONDITIONS- PERCENT , SURPRESS 



ELSE 



BR 



50010$ 

IS INPUT CHARACTER IS A <%> PERCENT ? 
TRUE - SET %-FLAG 

SAVE REST OF MESSAGE POINTER 

POINT TO %-BUFFER 
FALSE - NO ACTION 



IFB ©TT.PTR EQ #TT.PCNT THEN 

LET TT.PCF :B= #1 

LET TT.TP := TT . PTR + #1 

LET TT.PTR := #TT.PCB 
ENDIF 

+ 



MOV 



50015$; 



IS MESSAGE SURPRESS FLAG NOT SET ? 
TRUE - OUTPUT CHARACTER 
FALSE - NO ACTION 

IF CTRLOF NE #1 THEN 



LET @XBUF :B= ©TT.PTR 



CMP 
BEO 

MOVB 



ENDIF 



ENDIF 

+ 
IS INPUT CHARACTER THE "FILL-CHARACTER" ? 
TRUE - PRESET FILL COUNT-FLAG 
FALSE - NO ACTION 

IFB ©TT.PTR EQ TT.FCH THEN 

LET TT.FCF :» TT.PFC 



50016$: 
50014$: 



CMPB 
BIME 



SEQ 1094 



50013$ 
©TT.PTR, ©XBUF 



50014$ 



CMPB 


©TT.PTR, #TT.PCNT 


BNE 


50 015$ 


MOVB 


#1 ,TT. PCF 


MOV 


TT.PTR, TT.TP 


INC 


TT.TP 



0TT.PCB, TT.PTR 



CTRLOF , #1 
50016$ 

©TT.PTR, ©XBUF 



©TT.PTR, TT.FCH 
50017$ 
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(4) 
823 
(4) 
824 
825 
826 
827 
(6) 
828 
(4) 
829 
830 
831 
832 
833 
(2) 
834 
(2) 
835 
(2) 
836 
(2) 
837 
(6) 
838 
(3) 
(3) 
(2) 
839 



000402' 
000410' 
000410' 



000410 
000410 
000414 
000414 1 



000414' 
000414' 
000420' 
0C0420' 
000424' 
000424' 
000426' 
000426' 
000426' 
000426' 
000434' 
000434' 
000434' 
000434' 



016767 177374 177374 



005267 177374 



012746 000200 
012746 000426' 



000002 



052777 000100 OOOOOOG 



000002 
000001 
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MOV 



50017$: 



ENDIF 

+ 
ENABLE 



INCREMENT MESSAGE CHARACTER POINTER 



LET TT.PTR := TT.PTR + #1 



INTERRUPTS. BUT FIRST RAISE PRIORITY TO 4 



INC 



50004$: 



PUSH #PRI4 



PUSH #1000$ 



INLINE <RTI> 



INLINE <1000$:> 



LET @XCSR 



ENDRTI 



@XCSR SET. BY ft IE 



50000$: 
50001$: 



MOV 

MOV 

RTI 

1000$ 

BIS 

RTI 



SEO 1095 
TT.PFC.TT.FCF 



TT.PTR 



#PRI4,-(SP) 
#1000$, -(SP) 



#IE,@XCSR 



END 
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MACY11 30A(1052) 
SYMBOL TABLE 



ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ASB; 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


0001 10 


BITO = 


000001 


BITbO = 


000001 


BITD1 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 x 


000020 


BIT05 = 


000040 


BITD6 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT;1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT 13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BITS = 


000010 


BIT4 = 


000020 


BIT5 = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BITO = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKWiODE = 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQQVF = 


000001 


CR 


000015 


CSRA = 


000100 


CSRC = 


000102 



CTRLC = 000003 
CTRLO = 000017 
CTRLOF= ****** 
CTRLU = 000025 
DCEVNT= 000011 
DEFRTN= 000400 
DIAGMC= 000000 
DROPMO= 100000 
DSEVNT= 000014 
DTBL = 000000 
DT.ADD= 000042 
DT.AP = 000100 
DT.APK= 000076 
DT.BLS= 000034 
DT.CFO= 000014 
DT.CF1= 000016 
DT.ERR= 000020 
DT.ESI= 000044 
DT.EVN= 000000 
DT.EXS= 000060 
DT.FCH= 000037 
DT.FCN= 000036 
DT.HMX= 000104 
DT.KBE= 000024 
DT.KBP= 000026 
DT.KBR= 000022 
DT.KBU= 000030 
DT.MLS= 000032 
DT.MTI= 000110 
DT.OFF= 000070 
DT.PAS= 000074 
DT.PC = 000002 
DT.PFL= 000062 
DT.PSW= 000004 
DT.PTA= 000064 
DT.RCS= 000102 
DT.REL= 000040 
DT.SCT= 000066 
DT.SMX= 000106 
DT.SP = 000006 
DT.SSI= 000046 
DT.STO= 000010 
DT.ST1= 000012 
DT.SWR= 000056 
DT.SYP= 000072 
DT.WBU= 000050 
DT.WHL= 000054 
DT.WLL= 000052 
DVID1 = 000014 
ECCMEM= 000100 
ECCSTA= 000010 
ENBEOP= 010000 
ENBNUL= 000001 
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ENDLST= 


000000 


MODEXH== 


004000 


EOPBIT= 


000001 


MODHOL- 


002000 


ERRTYP= 


000106 


MODSEL= 


001000 


EVNTBE= 


000200 


MSGADR= 


000004 


EVNTHD= 


000200 


M5GCKD---- 


000010 


EVNTKT= 


000203 


MSGCKS= 


00001 1 


EVNTPE=. 


000202 


MSGCO'D = 


000002 


EVNTRE= 


000201 


MSGDER== 


000005 


FATERR= 


100000 


MSGDRP= 


000017 


HRDCNT= 


000044 


MSGECH= 


177777 


HRDPAS= 


000050 


MSGEOP==. 


000013 


ICONT = 


000036 


MSGHDR". 


000004 


ICOUNT= 


000040 


■MSGHNG= 


000022 


IDNUM = 


000122 


MSGHRD= 


000007 


IE 


OOOTCO 


MSGMAP--= 


000021 


INDPAR= 


000040 ' 


MSGNUL= 


177775 


INHDRP= 


040000 


MSGPOP^ 


000002 


INHEPR= 


020000 


MSGPRM= 


177776 


INHREL= 


001000 


MSGRES== 


000001 


INHRRE= 


000400 


MSGSFT= 


000006 


INIT = 


000030 


MSGSKE= 


000003 


INTR . = 


000120 


MSGSMB= 


000015 


IOMOD = 


100000 


MSGSWIH= 


000014 


IOMODP= 


10.2000 


MSGSMS= 


000016 


IOM0DR= 


1 12000 


MSGSTD= 


000000 


I0M0DX= 


110000 


MSGSYS= 


000012 


JACK = 


035060 


MSGVEC= 


000020 


KB.XFL= 


# * * * * * G 


N BKMOD = 


001000 


KIPAR0= 


172340 


NCPUOP= 


000020 


KIPAR1= 


172342 


NOAPTY= 


000002 


KIPAR2= 


172344 


NULL = 


000000 


KIPAR3= 


172346 


OWEN = 


024020 


KIPAR4= 


172350 


PAERR = 


000010 


KIPAR5= 


172352 


PARPRE= 


002000 


KIPAR6= 


172354 


PARSTA= 


000 100 


KIPAR7= 


172356 


PASCNT= 


000034 


KIPDRO= 


172300 


PDPLSI= 


020000 


KIPDR1= 


172302 


PDP60 = 


004000 


KIPDR2= 


172304 


PDP70 = 


010000 


KIPDR3= 


172306 


PRIO = 


000000 


KIPDR4= 


172310 


PRI1 = 


000040 


KIPDR5= 


172312 


PRI4 = 


000200 


KIPDR6= 


172314 


PRI5 = 


000240 


KIPDR7= 


172316 


PRI6 = 


000300 


KTERRO= 


000040 


PRI7 '= 


000340 


KTPRES= 


000400 


PRO 


000000 


KTSTAT= 


000020 


PR4 


000200 


KTXTND= 


040000 


PR5 


000240 


LF 


000012 


PR6 


000300 


LPSTAT* 


000001 


PR7 


000340 


MAPSTA= 


000200 


PS 


177776 


MED 


076600 


PSW. = 


177776 


M£MPAS= 


040000 


RANNUM= 


000054 



SEQ 1096 



R3UFEA= 

R3UFPA= 

RBUFSZ= 

RBUFVA= 

RDSERV= 

RDWHMI= 

RELERR= 

R£LMOD= 

RELTIM= 

RES1 = 

RES2 = 

RETADR= 

RICHAR= 

RPTDAT= 

RSTRT = 

RUBOUT= 

RUNMOD= 

RSVALUs 

SAM 

SBADR = 

SBKMOD= 

SBKSEL* 

SC.ADR= 

SC.ALC= 

SC.APC= 

SC.CKL= 

SC.CKP= 

SC.CLO= 

SC.HLD= 

SC.SCA= 

SENDLS= 

SOFCNT= 

SQFPAS= 

SPACE = 

SP0INT= 

SPVALU= 

SRO = 

SR1 

SR2 

SR3 

STAT = 

STATBI= 

STAT1 = 

SUSPND= 

SVRO = 

SVR1 

SVR2 = 

SVR3 = 

SVR4 = 

SVR5 = 

SVR6 = 

SYSCNT= 

SYSERR= 



000130 
000126 
000132 
000124 
000101 
000022 
000020 
020000 
010000 
000056 
000060 
000006 
031060 
002000 
0001 12 
000177 
100000 
001740 
075464 
000102 
000000 
010000 
000006 
000014 
00001 s 
000002 
000004 
000000 
000010 
000012 
177777 
000042 
000046 
000040 
000032 
002200 
177 572 
177574 
177576 
172516 
000026 
064757 
000027 
000001 
000062 
000064 
000066 
000070 
000072 
000074 
000076 
000052 
000100 
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SYMBOL TABLE 



TMP.ID = 

TQOVF = 

TTI'NI 

TTINT 

T T.BEN 

TT.BKS= 

TT.COD 

TT.CUB 

TT.CUF 

TT.EXT. 

TT.iFCF 

TT.FCH 

TT.iFLG 

TT.PCB 

TT.iPCF 

TT,PCN= 

TT.RFC 

TT.PTR 

TT.TP 

UIPARO= 

UIPAR1= 

UIPAR2= 

UIPAR3= 



000002 

000002 

000026RG 

000104RG 

000025R 

000134 

000014R 

0O0023R 

000017R 

000006R 

000004R 

OOOOOOR 

000016R 

000020R 

000016R 

000045 

000002R 

000010R 

000012R 

177640 

177642 

177644 

177646 



UIPAR4= 
UIPAR5 = 
UIPAR6= 
UIPAR7= 
UIPDR0= 
UIPDR1= 
UIPDR2= 
UIPDR3= 
UIPDR4= 
UIPDR5= 
UIPDR6: 
UIPDR7 = 
WASADR: 
WBSTAT= 
WBUFEA= 
WBUFPA= 
WBUFRQ = 
WBUFSZ = 
WDFR = 
WDTO ■■ 
WTINRE = 
WTWHMI= 
XBUF = 



177650 
177652 
177654 
177656 
177600 
177602 
177604 
177606 
177610 
177612 
177614 
177616 
000104 
000040 
000136 
000134 
000140 
000142 
0001 16 
0001 14 
000352 
000222 

%t ^i $t sfc ^e 9H 
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I 


XCSR = 


****** Q 


$F$THE 


= 000330 


XFLAG = 


000005 


$F$TRU 


= 000404 


XOFF a 


000023 


$F$UNT 


= 000130 


XON 


000021 


$F$WHI 


= 000120 


$BGNLE= 


177777 


$F$YES 


= 000402 


$ERFLG= 


000400 


$IFLEV 


= 177777 


$F$AND= 


000310 


$ISKO 


= 000001 


$F$BAD= 


000401 


$ISK1 


= 000001 


$F$BLA= 


000170 


$ISK2 


= 000001 


$F$CAS= 


000150 


$LOCTA 


= 177777 


$F$DEC= 


000220 


$LSTIN 


= 000001 


$F$DO = 


000340 


$LSTTA 


= 000001 


$F$FAL= 


000405 


$NESTL 


- 177777 


$F$GOO= 


000400 


$NSKO 


= 000350 


$F$IF = 


0001 10 


$NSK1 


= 00110 


$F$INC= 


000210 


$NSK2 


= 000110 


$F$LOO= 


000200 


$NSK3 


= 000110 


$F$NAM= 


000160 


$SAVLE 


= 177777 


$F$NO = 


000403 


$TAGLE 


= 177777 


$F$OR = 


000320 


$TAGNU 


= 050020 


$F$RTI= 


000350 


$TEMP 


= C00350 


$F$RTN= 


000300 


$TSKO 


= 050004 


$F$SEL= 


000140 


$TSK1 


= 050017 



SEQ 1097 



$TSK2 = 

$$ARGC= 
$$BYTE= 
$$CASE= 
$$DST = 
$$ELOC= 
$$ERFL= 
$$FLAG= 
$$FRQM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RETU= 
$$RTN1* 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG= 



050016 

000000 

000402 

000000 

000000 

000402 

000000 

000001 

000000 

000400R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

000436R 



ABS. 



000000 
000436 



000 
001 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSK2: TTDRV, DSKZ:TTDRV=SPMAC/ML, EQUATE, TTDRV 
RUN-TIME: 17 7 .3 SECONDS 
RUN-TIME RATIO: 40/24=1.6 
CORE USED: 14K (27 PAGES) 



•MAIN. MACY11 30A(1052) 20-SEP-78 18:45 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 1098 

3 COMMON EQUATE MODULE 

560 COMMON DEFINITIONS AND REFERENCES 

563 000000' .PRINT ;SPMAC: VERSION 1.1 

605 KERNEL - DETERMINE MEMORY SIZE 

670 KERNEL - WRITE GOOD PARITY 

719 KERNEL - SORT MODULE LIST 



SIZPLA - SIZE AND POLL SYSTEM 
SIZPLA. MAC 12-JUN-78 13:01 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550. 

551 

552 

553 

554 

555 

556 

557 



NO SUPPORT OF ANY CPU OPTIONS 
COMMON EQUATE MODULE 
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SEQ 1099 



.TITLE SIZPLA - SIZE AND POLL SYSTEM - NO SUPPORT OF ANY CPU OPTIONS 
.IDENT /V0.0/ 

++ 
MODULE NAME: 
SIZPLA 

FUNCTIONAL DESCRIPTION: 

THIS MODULE WILL SIZE MEMORY TO 28K AND WRITE 

GOOD PARITY IN THAT AREA. THIS ROUTINE WILL NOT CHECK FOR 

ANY CPU OPTIONS AND WILL INDICATE THERE ARE NONE. THE "MODQ" LIST WILL 

BE SORTED TO DEVELOP A BACKGROUND MODULE LIST (QUEUE). 

INPUTS: 

DTABLE ADDRESS 

IMPLICIT INPUTS: 

CONFIGURATION WORD 
EXERCISER SIZE 
SYSTEM SIZE 
MODULE LIST 
BACKGROUND LIST 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 
SYSTEM %IZE 
EXERCISE? SIZE 
CONFIGURATION WORD 

PATHOLOGICAL CONNECTIONS: 

SUBORDINATE ROUTINES CALLED: 
SAVREG - SAVE REGISTERS 
RESREG - 'RESTORE REGISTERS 
HRDADRCHK - ILLEGAL ADDRESS CHECK 

FUNCTIONAL. SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL SIZPOL IN <A> 

A - DTABLE ADDRESS 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 



SIZPLA - SIZE 
SIZPLA.MAC 



AND POLL SYSTEM 
12-JUN-78 13:01 



NO SUPPORT OF ANY CPU OPTIONS 
COMMON EQUATE MODULE 
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SEQ 1100 



559 
560 
561 
562 
563 
(1) 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 



000000' 
000000 ' 



000001 
000001 



004000 
000034 
160000 



..SBTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

•PRINT ;SPMAC: VERSION 1.1 

SLSTIN = 1 

SLSTTAG - 1 



• **************** 

; GLOBAL REFERENCES 

!globl SAVREG 

.GLOBL RESREG 
.GLOBL HRDADRCHK 



********** it;***** 

LOCAL EQUATES 

SS.OKC = 4000 
SS.28 = ~D28 
SS.RFS = 160000 

**************** 
REFERENCED BY OTHER MODULES 

.GLOBL SIZPOL 



; OVERLAY REGION GLOBALS 

;+++++++++++++++++++++++++t++++ 

.GLOBL OV.KBBUF 

.GLOBL OV.HIKB 

.GLOBL OV.KBSIZ 

.GLOBL OV.CQ 

.GLOBL OV.HICQ 

.GLOBL OV.CQSIZ 

.GLOBL OV.TQ 

.GLOBL OV.HITQ 

.GLOBL OV.TQSIZ 



;SARE REGISTERS 

{RESTORE REGISTERS 

; ILLEGAL ADDRESS CHECK 



;ONE K CHUNK 
28 DECIMAL 
RESERVED FOR DIAGNOSTIC USE IN I/O PAGE 



;MODULE ENTRY POINT 



000000' 
000000' 



000000' 

000000' 004767 
000004' 

000004' 016502 
000010' 
000010' 005001 



000000G 



000000 



000012' 
000012' 



016762 000000 000044 
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604 
605 
606 
607 
608 
(2) 
609 
610 
611 
612 
613 
614 
(3) 
615 
(4) 
616 
(4) 
617 
618 
619 
620 
621 
622 
623 
624 
(4) 
625 
626 
627 
628 
629 
630 
631 
632 
(4) 
633 
(4) 
634 
635 
636 
637 
638 
639 
(3) 
640 
(6) 
641 
(6) 
642 
(3) 
(4) 
(3) 
(3) 
643 
(6) 
644 



NO SUPPORT OF ANY CPU OPTIONS MACY11 30A(1052) 
COMMON DEFINITIONS AND REFERENCES 



.SBTTL KERNEL - DETERMINE MEMORY SIZE 

ROUTINE SIZPOL <DTABLE> 

+ 
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SEQ 1101 



000020' 

000020' 005000 
000022' 
000022' 005003 



000024' 
000024' 
000024' 
000024' 
000026' 
000026' 
000032' 
000032' 
000034' 
000036' 
000042' 
000044' 
000044' 
000046' 



005200 



062703 004000 



01 0546 
01 0345 
004767 
012605 



OOOOOOG 



SIZPOL: 



SAVE REGISTERS, GET DTABLE ADDRESS FROM R5 STACK AND CLEAR 
R1 



CALL SAVREG 

LET R2 := DTABLE(R5) 

LET R1 := #0 



NOW TAKE THE CONTENTS OF LOC. (EXERCISER SIZE) 
AND LOAD IT INTO EXERCISER SIZE WORD 



JSR 
MOV 
CLR 



PC, SAVREG 
DTASLE(R5) , R2 
R1 



LET DT.ESIZ(R2) := 



DETERMINE SYSTEM SIZE, WHICH CAN NOT BE GREATER 

THAN 28K. 

SET UP COUNTER OF 1K CHUNKS AND 1K BLOCK POINTER 



LET RO := #0 

LET R3 := #0 

REPEAT UNTIL NON-EXISTENT MEMORY OR 28K IS FOUND 



MOV 



0,DT.ESIZ(R2) 



CLR 
CLR 



RO 
R3 



REPEAT 



103001 



LET RO := RO + #1 

LET R3 := R3 + 0SS.OKC 

CALL. HRDADRCHK IN <R3> 



IF. ERROR THEN 

INLINE <BR 1$> 



50002$: 








INC 


RO 




ADD 


#SS.0KC,R3 




MOV 
MOV 
JSR 
MOV 


R5,-(SP) 

R3,-(R5) 

PC, HRDADRCHK 

(SP)+,R5 



BCC 



50003$ 
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(2) 


000046' 


000403 




645 


000050' 






(4) 


000050' 






646 


000050' 






(3) 


000050' 


020027 


000034 


(6) 


000054' 


001363 




647 








648 








649 








650 








651 








652 


000056' 






(2) 


000056' 






653 


000056' 






(6) 


000056' 


020027 


000034 


(9) 


000062' 


001011 




654 


000064' 






(3) 


000064' 


010546 




(4) 


000066' 


012745 


160000 


(3) 


000072' 


004767 


OOOOOOG 


(3) 


000076' 


012605 




655 


000100' 






(6) 


000100' 


103402 




656 


000102' 






(6) 


000102' 


062703 


010000 


657 


000106' 






(4) 


000106' 






658 


000106' 






(4) 


000106' 






659 








660 








661 








662 








663 








664 








665 








666 


000106' 






(4) 


000106' 


000241 




667 


0001 10' 






(4) 


0001 10' 


010362 


000046 


(7) 


0001 14' 


006062 


000046 


(7) 


000120' 


006062 


000046 


(7) 


000124' 


006062 


000046 


(7) 


000130' 


006062 


000046 


(7) 


000134' 


006062 


000046 


(7) 


000140' 


006062 


000046 


668 









- NO SUPPORT OF ANY CPU OPTIONS MACY11 30A(1052) 
KERNEL - DETERMINE MEMORY SIZE 



ENDIF 
UNTIL RO EQ #SS.28 
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SEQ 1102 



50003$: 



BR 1$ 



CMP 
BNE 



R0,#SS.28 
50002$ 



DETERMINE IF SYSTEM HAS 30K BY LDOKING AT FIRST ADDRESS IN I/O PAGE 

INLINE <1$:> 

1$: 

IF RO EQ #SS.28 THEN 

CALL HRDADRCHK IN <#SS.RFS> 

IF. NO. ERROR THEN 

LET R3 := R3 + #10000 
ENDIF 
ENDIF 



NOW GET MEMORY SIZE IN "PAR" FORMAT BY SHIFTING R3 t 5 TIMES 
TO THE RIGHT, ONCE THIS IS DONE LOAD INTO SYSTEM 
SIZE WORD,. 





CMP 


R0,#SS.28 




BNE 


50004$ 




MOV 


R5,-(SP) 




MQV 


#SS.RFS,-(R5) 




JSR 


PC, HRDADRCHK 




MOV 


(SP)+,R5 




BCS 


50005$ 




ADD 


#10000, R3 


50005$: 






50004$: 







LET CARRY : == #0 

LET DT.SSIZ(R2) := R3 ROTATE -6 



CLC 

MOV R3,DT,.SSIZ(R2) 

ROR DT .. SSIZ(R2) 

ROR DT.SSIZ(R2) 

ROR DT.SSIZ(R2) 

ROR DT.SSIZ(.R2) 

ROR DT.SSIZ(R2) 

ROR DT.SSIZ(R2) 
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SEO 1103 



670 
671 
672 
673 
674 
675 
(4) 
676 
(2) 
677 
(4) 
678 
679 
680 
681 
682 
683 
(2) 
684 
(4) 
685 
(2) 
686 
687 
688 
689 
690 
691 
692 
693 
(2) 
694 
(2) 
695 
(2) 
696 
697 
698 
699 
700 
701 
(6) 
702 
703 
704 
705 
706 
707 
708 
(6) 
(9) 
709 
(6) 
710 
(4) 
711 



000144' LET RO 

000144' 005000 

000146' PUSH @#4 

000146' 013746 000004 

000152' LET @#4 := #2$ 

000152' 012737 000164' 000004 



SBTTL KERNEL - WRITE GOOD PARITY 
+ 
SET UP POINTER TO POINT TO LOC . AND SAVE BUSERR VECTOR 



#0 



CLR RO 

MOV ©#4,-(SP) 

MOV #2$,@>#4 



000160' 
000160' 
000160' 

000160' 011020 
000162' 
000162' 000776 



000164' 

000164' 

000164' 

000164' 022626 

000166' 

000166 1 



012637 000004 



000172' 
000172' 052701 



000020 



000176' 

000176' 005737 
000202' 001402 
000204' 

000204' 052701 
000210' 
000210' 



000042 



000010 



NOW WRITE GOOD PARITY 
INLINE<3$:> 
LET (R0)+ := (RO) 

INLINE <BR 3$> 



WILL TRAP HERE WHEN TOP OF MEMORY IS FOUND 
CLEAN UP STACK AND RESTORE BUSERR 



3$: 

MOV (RO),(RO)+ 

BR 3$ 



INLINE <2$:> 

INLINE <CMP (SP)+,(SP)+> 

POP @#4 

LOAD NCPUQP BIT INTO R1 
LET R1 := R1 SET. BY #NCPUOP 



2$: 

CMP (SP)+,(SP)+ 

MOV (SP)+„@#4 



BIS 



#NCPU0P,R1 



IF AUTOMATIC MODE( ACT , SLIDE t XXDP , ETC. ) , SET AUTO BIT IN CONFIGURATION WQRD 



IF @#42 NE #0 THEN 



LET R1 := R1 SET. BY #AUTO 



TST 

BEG 

BIS 



@#42 
50006$ 

0AUTO.R1 



ENDIF 



50006$: 
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SEQ 1104 



712 
713 
714 
715 
716 
(6) 
717 



000210' 
000210' 050162 



000014 



LOAD UP CONFIGURATION WORD 



LET DT.CF0(R2) := DT.CF0(R2) SET. BY R1 



BIS 



R1 ,DT.CF0(R2) 



005000 

016201 000032 



000000 



021127 
001404 

005200 



062701 000002 
000771 
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719 
720 
721 
722 
723 
724 
725 

726 000214' 
(4) 000214' 

727 000216' 
(4) 000216' 

728 000222' 
(4) 000222' 
(6) 000222' 
(9) 000226' 

729 000230' 
(6) 000230' 

730 000232' 
(6) 000232' 

731 000236' 
(4) 000236' 

(3) 000240' 
732 

733 
734 
735 
736 
737 
738 000240' 

(4) 000240' 
739 

740 
741 
742 
743 

744 000244' 
(4) 000244' 
(6) 000244' 
(9) 000246' 

745 000250' 

(3) 000250' 
746 

747 
748 
749 
750 

751 000250' 

(4) 000250' 

752 000252' 
(6) 000252' 
(9) 000260' 
753 

754 
755 
756 
757 



016201 000032 



005700 
003432 



01 1104 

032764 
001414 



000020 000026 
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.SBTTL KERNEL - SORT MODULE LIST 



COUNT THE MODULES 

LET RO := #0 

LET R1 '•= DT.MLST(R2) 
WHILE (R1 ) NE #ENDLST DO 

LET RO := RO + #1 
LET R1 := R1 + #2 

ENDDO 



START THE SORT OPERATION, AND SORT "BKMODS" TO BOTTOM OF MODQ 
DEVELOPING A " BKMOD QUEUE". 



LET R1 := DT.MLST(R2) 

WORK THRU THE LIST UNTIL THE END IS REACHED 
WHILE RO GT #0 DO 

REPEAT 

IS THE CURRENT ENTRY A BKMOD MODULE? 

LET R4 := (R1 ) 

IF #BKMOD SETIN STAT(R4) THEN 

THE CURRENT ENTRY IS A BKMOD, WHAT ABOUT THE NEXT ENTRY? 



SEQ 1105 





CLR 


RO 




MOV 


DT.MLST(R2) t R1 


50007$: 


CMP 

BEQ 


(R1 ) ,#ENDLST 
50010$ 




INC 


RO 




ADD 


#2,R1 


50010$: 


BR 


50007$ 



LIST 



MOV 



50011$: 



50013$ 



TST 
BLE 



MOV 

BIT 

BEQ 



DT.MLST(R2) ,R1 



RO 
50012$ 



(R1 ) ,R4 

#BKM0D,STAT(R4) 
50014$ 
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SEO 1106 



758 


000262' 






(4) 


000262' 


016103 


000002 


759 








760 








761 








762 








763 








764 


000266' 






(6) 


000266' 


020327 


000000 


(9) 


000272' 


001407 




765 








766 








767 








768 








769 








770 


000274' 






(6) 


000274' 


032763 


000020 000026 


(9) 


000302' 


001003 




771 


000304' 






(4) 


000304' 


01 1161 


000002 


772 


000310' 






(4) 


000310' 


010311 




773 


000312' 






(4) 


000312' 






774 


000312' 






(4) 


000312' 






775 


000312' 






(4) 


000312' 






776 








777 








778 








779 








780 








781 


000312' 






(6) 


000312' 


062701 


000002 


782 


000316' 






(3) 


000316' 


021127 


000000 


(6) 


000322' 


001352 




783 








784 








785 








786 








787 








788 


000324'- 






(6) 


000324' 


005300 




789 


000326' 






(4) 


000326' 


016201 


000032 


790 


000332' 






(4) 


000332' 


000744 




(3) 


000334' 






791 








792 








793 








794 








795 








796 









LET R3 : = 2(R1) 



MOV 



2(R1 ) ,R3 



MAKE 5URE ITS NOT THE END OF THE LIST 



1>F R3 NE 0ENDLST THEN 



CMP 
BEQ 



R3,#ENDLST 
50015$ 



IF ITS NOT A BKMOD, SWAP THEM 



IF #BKMQD NOTSETIN STAT('R3) THEN 

BIT #BKM0D,STAT(R3) 

BNE 50016$ 
LET 2(R1 ) := (R1 ) 

MOV (R1),2(R1) 
LET (R1 ) := R3 

MOV R3,(R1) 



ENDIF 



ENDIF 



ENDIF 



50016$: 
50015$: 
50014$: 



UPDATE THE POINTER AND CONTINUE SEARCHING THRU THE LIST 

LET R1 := R1 + #2 
UNTIL (R1 ) EO #ENDLST 



ADD 

CMP 
BNE 



#2,R1 

(R1 ) , tfENDLST 
50013$ 



THE END OF THE LIST HAS BEEN REACHED, SO UPDATE THE MAIN POINTER & CONTINUE 



LET RO := RO - #1 

LET R1 := DT.MLST(R2) 



ENDDO 



DEC RO 

MOV DT.MLST(R2),R1 

BR 50011$ 



50012$: 



NOW THAT THE BACKGROUND MODULES HAVE BEEN GROUPED TOGETHER AT THE END 
OF THE MODULE LIST, PUT THE ADDRESS OF THIS BACKGROUND LIST (IF THERE IS 
A BACKGROUND LIST) INTO THE DATA TABLE 
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797 








798 


000334' 






(4) 


000334' 


016201 


000032 


799 








800 








801 








802 








803 








804 


000340' 






(4) 


000340' 


005062 


000034 


805 


000344' 






(4) 


000344' 


012703 


177777 


806 


000350' 






(4) 


000350' 






(6) 


000350' 


021127 


000000 


(9) 


000354' 


001420 




(6) 


000356' 


005703 




(9) 


000360' 


001416 




807 


000362' 






(4) 


000362' 


01 1104 




808 


000364' 






(6) 


000364' 


032764 


000020 000026 


(9) 


000372' 


001406 




809 








810 








811 








812 








813 








814 


000374' 






(4) 


000374' 


010162 


000034 


815 


000400' 






(4) 


000400' 


012701 


000000 


816 


000404' 






(4) 


000404' 


005003 




817 


000406' 






(4) 


000406' 


000402 




(3) 


000410' 






818 








819 








820 








821 








822 








823 


000410' 






(6) 


000410' 


062701 


000002 


824 


000414' 






(4) 


000414' 






825 


000414 1 






(4) 


000414' 


000755 




(3) 


000416' 






826 








827 








828 








829 








830 








831 


000416' 






(3) 


000416' 


004767 


000000G 
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MOV 



SEQ 1107 



DT.MLST(R2) ,R1 



WORK THRU THE MODULE LIST UNTIL THE FIRST BACKGROUND MODULE IS FOUND 



#0 



LET DT.BLST(R2) 

LET R3 := #—\ 

WHILE (R1) NE #ENDLST AND R3 NE #0 DO 



LET R4 := <R1 ) 

IF #BKMOD SETIN STAT(R4) THEN 





CLR 


DT.BLST(R2) 




MOV 


#-1 ,R3 


0017$: 








CMP 


(R1 ) ,#ENDLST 




BEQ 


50020$ 




TST 


R3 




BEQ 


50020$ 



MOV (R1),R4 

BIT #BKM0D,STAT{R4) 
BEQ 50021$ 



A BACKGROUND MODULE HAS BEEN FOUND - SO THIS IS THE START OF THE BACKGROUND LIST 



LET DT.BLST(R2) : = R1. 
LET R1 := #ENDLST 
LET R3 := #0 



ELSE 



MOV R1 ,DT.BLST(R2) 

MOV 0ENDLST.R1 

CLR R3 

BR 50022$ 



50021$: 



UPDATE THE POINTER AND CONTINUE TO SEARCH THRU THE MODULE LIST 



LET R1 := R1 + #2 



ENDIF 



ENDDO 



50022$: 



>0020$: 



ADD #2,R1 



BR 50017$ 



NOW RETURN TO THE CALLER 



CALL RESREG 



JSR PC, RESREG 
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SEQ 1108 



832 


000422' 




(3) 


000422' 




(3) 


000422' 




(2) 


000422' 


000207 


833 






334 






835 






836 






837 






838 






839 






840 






841 






842 


000424' 


000120 


943 


000544' 




(2) 


000544' 




844 






845 






846 






847 






848 






849 






850 






851 






852 






853 






854 






855 






856 




000000' 


857 




000122' 


858 




000244' 


859 




000120' 


860 




000122 


861 




000242' 


862 




000024 


863 




000300 


864 




000000 


865 




000544' 


866 




000030 


867 






868 




000001 



ENDRTN 



;■+• 

; LABEL TYPE QUEUE HIGH LIMIT 



; + 

; ALLOW STORAGE FOR TQ 



. BLKB ~D<80> 
INLINE <OV.TQEND:> 



50000$: 
50001$: 



RTS 



PC 



OV.TQEND: 



• NOTE: THESE OVERLAY EQUATES MUST BE LEFT IN THIS POSITION 
; (THAT IS, AFTER SIZPOL AND TQ.END LABELS) 

;++++++++++++++++++++++++++++++++■+•+++++ 

; OVERLAY REGIONS EQUATES 

; +++++++++++++++++++++++++++++++++++++H 

OV.KBBUF = SIZPOL 

OV.CQ= OV.KBBUF + "D<82> 

OV.TQ = OV.CQ + "D<82> 

OV.HIKB = OV.CQ - 2 

OV.KBSIZ = OV.CQ - OV.KBBUF 

OV.HICQ = OV.TQ - 2 

OV.CQSIZ = <OV.TQ - 0V.CQ>/4 

OV.A = OV.TQEND - OV.TQ 

OV.REM = OV„ A - «OV. A/10>*10> 

OV.HITQ = OV.TQEND - OV.REM 

OV.TQSIZ = <OV.TQEND - OV.TQ - OV.REM> 

.END 



KEYBOARD BUFFER STARTING ADDRESS 
CONTROL QUEUE STARTING ADDRESS 
TYPE QUEUE STARTING ADDRESS 
KEYBOARD BUFFER HIGH LIMIT 
KEYBOARD BUFFER- SIZE 
CONTROL QUEUE HIGH LIMIT 
CONTROL QUEUE SIZE 
GET THE TQ SIZE 
GET ANY REMAINDER 
TYPE QUEUE HIGH LIMIT 
/10 ;TYPE QUEUE SIZE 
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ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTQST= 


020000 


AWAS = 


0001 10 


BITO * 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3- - 


000010 


BIT4 = 


000020 


BITS = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BI18 » 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CQOVF = 


000001 


CR 


000015 


CSRA - 


000100 


CSRC « 


000102 



CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO= 
DSEVNT= 
DTABLE= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.3LS= 
DT.CFO^ 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN=. 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
D.T.REL = 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 
ENBNUL= 
ENDLST= 



000003 
000017 
000025 
00001 1 
000400 
000000 
100000 
000014 
000000 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
000001 
000000 



EOPBIT= 

ERRTYP= 

EVNTBE= 

EVNTHD= 

EVNTKT= 

EVNTPE= 

EVNTRE= 

FATERR= 

HRDADR= 

HRDCNT= 

HRDPAS= 

ICONT = 

ICOUNT= 

IDNUM = 

IE 

INDPAR* 

INHDRP= 

INHEPR= 

INHREL= 

INHRRE= 

INIT = 

INTR = 

IOMOD = 

IOMODP= 

IOMODR* 

IOMODX= 

JACK = 

KIPAR0= 

KIPAR1= 

KIPAR2= 

KIPAR3= 

KIPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

KIPDR0= 

KIPDR1= 

KIPDR2= 

KIPDR3= 

KIPDR4= 

KIPDR5= 

KIPDR6= 

KIPDR7= 

KTERRO= 

KTPRES= 

KTSTAT= 

KTXTND= 

LF 

LPSTAT=: 

MAPSTA= 

MED 

MEMPAS= 

MODEXH^ 



000001 
000106 
000200 
000200 
000203 
000202 
000201 
100000 
****** 
000044 
000050 
000036 
000040 
000122 
000100 
000040 
040000 
020000 
001000 
000400 
000030 
000120 
100000 
102000 
112000 
1 10000 
035060 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
000040 
000400 
000020 
040000 
000012 
000001 
000200 
076600 
040000 
004000 
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SEQ 1109 


MODHOL= 


002000 


PRI7 = 


000340 




MODSEL= 


00!000 


PRO 


000000 




MSGCKD= 


000010 


PR4 


000200 




MSGCKS= 


00001 1 


PR5 


000240 




MSGDER= 


000005 


PR6 


000300 




MSGDRP= 


000017 


PR7 


000340 




MSGECH= 


177777 


PS 


177776 




MSGEOP= 


000013 


•PSW 


177 776 




MSGHDR= 


000004 


RANNUM= 


000054 




MSGHNG* 


000022 


RBUFEA= 


000130 




MSGHRD= 


000007 


RBUFPA= 


000126 




WISGMAP= 


000 021 


R'BUFSZ = 


000132 




MSGNUL= 


177775 


RBUFVA= 


000124 




MSGPQP= 


000002 


RD5ERV= 


000101 




MSGPR'M= 


177776 


RDWHMI= 


000022 




MSGRES= 


000001 


RELERR= 


000020 




MSGSFT= 


000006 


RELMOD= 


020000 




MSGSKE= 


000003 


RELTIM= 


010000 




MSGSMB= 


000015 


RESREG= 


****** Q 




MSGSMH= 


000014 


RES1 = 


000056 




MSGSMS= 


000016 


RES2 = 


000060 




MSGSTD= 


000000 


RICHAR= 


031060 




MSGSYS= 


000012 


RPTDAT= 


002000 




MSGVEC= 


000020 


RSTRT = 


0001 12 




NBKMOD= 


001000 


RU30UT= 


000177 




NCPUOP= 


00Q020 . 


RUNMOD= 


100000 




NDAPTY= 


000002 


R5VALU= 


001740 




NULU = 


000000 


SAM 


075464 




DV.A = 


000300 


SAVREG= 


****** Q 




•0V-. CO = 


000122RG 


SBADR » 


000102 




ov.cos= 


000024 G 


S BKMOD* 


000000 




OV.HIC= 


00 024 2 RG 


SBKSEL= 


010000 




OV.HIK= 


000120RG 


SC.ADR= 


000006 




OV.HIT= 


000544RG 


SC.ALC= 


000014 




OV.KBB= 


OOOOOORG 


SC.APC= 


000016 




OV.KBS= 


000122 G ■ 


SC.CKL= 


000002 




OV.REM= 


000000 


SC.CKP= 


000004 




OV.TQ = 


000244RG 


SC.CLO= 


000000 




OV.TQE 


000544R 


SC.HLD= 


000010 




OV.TQS= 


000030 G 


SC.SCA= 


000012 




OWEN = 


024020 


SENDLS= 


177 777 




PAERR = 


000010 


SIZPOL 


OOOOOORG 




PARPRE= 


002000 


SOFCNT= 


000042 




PARSTA^ 


000100 


SOFPAS= 


000046 




PASCNT= 


000034 


SPACE = 


000040 




PDPLSI= 


020000 


SPOINT= 


000032 




PDP60 = 


004000 


SPVALU= 


002200 




PDP70 = 


010000 


SRO 


177572 




PRIO = 


000000 


SR1 


177574 




PRI1 * 


000040 


SR2 


177576 




PRI4 = 


000200 


SR3 


172516 




PRI5 = 


000240 


SS.RFS= 


160000 




PRI6 = 


000300 


SS.OKC= 


004000 
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SS.28 = 


000034 


UIPAR7= 


177656 


STAT = 


000026 


UIPDRO= 


177600 


STATBI= 


064757 


UIPDR1= 


177602 


STAT1 = 


000027 


UIPDR2= 


177604 


SUSPND= 


000001 


UIPDR3= 


177606 


SVRO = 


000062 


UIPDR4= 


177610 


SVR1 x 


000064 


UIPDR5= 


177612 


SVR2 = 


000066 


UIPDR6= 


177614 


SVR3 = 


000070 


UIPDR7= 


177616 


SVR4 = 


000072 


WASADR= 


000104 


SVR5 r 


000074 


WBSTAT= 


000040 


SVR6 = 


000076 


WBUFEA= 


000136 


SYSCNT= 


000052 


WBUFPA* 


000134 


SYSERR= 


000100 


WBUFRQ= 


000140 


TMPIO = 


000002 


WBUFSZ= 


000142 


TQOVF = 


000002 


WDFR = 


0001 16 


UIPAR0= 


177640 


WDTO = 


0001 14 


UIPAR1= 


177642 


WTINRE= 


000352 


UIPAR2= 


177644 


WTWHMI= 


000222 


UIPAR3= 


177646 


XFLAG = 


000005 


UIPAR4= 


177650 


XOFF = 


000023 


UIPAR5= 


177652 


XON 


000021 


UIPAR6= 


177654 


$BGNLE= 


177777 


. ABS. 


000000 000 
000544 001 





;er.flg= 
;f$and= 
;f$bad= 
;.f$bla= 
;f$cas= 
;f$dec= 
;f$do = 
;f$fal= 
;f$goo= 
;f$if = 
;f$inc= 
;f$loo= 

iF$NAM = 

;f$no = 
;f$or = 
;f$rti = 
;f$rtn= 
;f$sel= 

iF$THE= 

;f$tru- 
;f$unt= 
;f$whi = 
>f$yes= 



000400 
000310 
000401 
000170 
000150 
000220 
000340 
000405 
000400 
0001 10 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
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SEQ 1110 


$IFLEV 


= 177777 


STSK4 = 


050015 




$ISKO 


= 000001 


STSK5 = 


050016 




$ISK1 


= 000001 


$$ARGC= 


000002 




$ISK2 


= 000001 


$$BYTE= 


000403 




SLOCTA 


= 177777 


$$CASE= 


000000 




SLSTIN 


= 000001 


$$DST = 


000000 




$LSTTA 


= 000001 


$$ELOC= 


000402 




SNESTL 


= 177777 


$$ERFL= 


000000 




$NSKO 


= 000300 


$$FLAG= 


000001 




SNSK1 


= 000120 


$$FROM= 


000000 




SNSK2 


= 000110 


$$LOC = 


000372R 




$NSK3 


= 000110 


$$LOCN= 


000000 




$NSK4 


= 000 110 


$$REG = 


177777 




$NSK5 


= 000110 


$$RETU= 


000000 




$SAVLE 


= 177777 


$$RTN1= 


050000 




SSSKO 


= 050020 


$$RFN2= 


050001 




$TAGLE 


= 177777 


$$SRC = 


000000 




$TAGNU 


= 050023 


$$TGSV= 


000000 




$TEMP 


= 000300 


$$TGS1= 


oocooo 




$TSKO 


= 050017 


$$TGS2= 


000000 




$TSK1 


= 050020 


$$T0 = 


000000 




$TSK2 


= 050022 


$$$TAG= 


050000 




$TSK3 


= 050014 


= 


000544R 





ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ : SIZPLA, DSKZ: SI ZPLA=SPMAC/ML, EQUATE, SIZPLA 
RUN-TIME: 18 8 .4 SECONDS 
RUN-TIME RATIO: 47/27=1.7 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:46 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 1111 

3 COMMON EQUATE MODULE 
561 COMMON DEFINITIONS AND REFERENCES 

564 OOOOOO 1 .PRINT ;SPMAC*. VERSION 1.1 

611 KERNEL - DETERMINE PROCESSOR TYPE 
683 KERNEL - DETERMINE IF CACHE OPTION AVAILABLE 
700 KERNEL - DETERMINE IF PARITY OR ECC MEMORY PRESENT 
744 KERNEL - DETERMINE SYSTEM SIZE 

797 KERNEL - WRITE GOOD PARITY IF ECC OR PARITY PRESENT 
868 KERNEL - SORT MODULE LIST 
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SEQ 1112 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 



TITLE SIZPLB SIZE AND POLL SYSTEM - FOR NON-KT MACHINES 
IDENT /VO.O/ 

++ 
MODULE NAME: 
SIZPLB 

FUNCTIONAL. DESCRIPTION". 

THIS MODULE WILL SIZE THE SYSTEM AND DETERMINE IF PARITY 

OR ECC IS PRESENT AND ALSO SORT THE 

MODQ LIST TO GENERATE A BACKGROUND LIST(QUEUE). 

INPUTS: 

DTABLE ADDRESS 

IMPLICIT INPUTS: 

CONFIGURATION WORD 
EXERCISER SIZE 
SYSTEM SIZE 
PARITY TABLE ADDRESS 
MODULE LIST 
BACKGROUND LIST 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS:' 

PARITY TABLE ADDRESS 
SYSTEM SIZE 
EXERCISE SIZE 
CONFIGURATION WORD 

PATHOLOGICAL CONNECTIONS: 

SUBORDINATE ROUTINES CALLED: 
SAVREG - SAVE REGISTERS 
RESREG - RESTORE REGISTERS 
HRDADRCHK - ILLEGAL ADDRESS CHECK 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL SIZPOL IN <A> 

A - DTABLE ADDRESS 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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SEQ 1113 



560 
561 
562 
563 
564 
(1) 
565 
566 
567 
568* 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 



.SBTTL COMMON DEFINITIONS AND REFERENCES 



000000' 
000000' 



000001 
000001 



172100 
172136 
004000 
000034 
177600 
160000 



.MCALL STRUCT 
STRUCT 

.PRINT ;SPMAC: 
$LSHN = 1 
SLSTTAG = 1 



VERSION 1.1 



**************** 

GLOBAL REFERENCES 



.GLOBL 


SAVREG 


.GLOBL 


RESREG 


.GLOBL 


HTPAER 


.GLOBL 


HRDADRCHK 


.GLOBL 


CPUCPE 


.GLOBL 


CCNTRL 


.GLOBL 


KONTRL 


• **************** 


; LOCAL 


EQUATES 


SS.PCSR 


= 172100 


SS.PCLS 


= 172136 


SS.OKC 


= 4000 


SS.28 


= "D28 


SS. IOP 


= 177600 


SS.RFS 


a 160000 



sit****))!*!!:!!:* ****** 

REFERENCED BY OTHER MODULES 
.GLOBL SIZPOL 



;+++++++++++++++++++++++++-r++++ 


; OV 


ERLAY REGION GLOBALS 


;++++++++++++++++++++++++++++++ 


.GLOBL 


OV.KBBUF 


.GLOBL 


OV.HIKB 


.GLOBL 


OV.KBSIZ 


.GLOBL 


OV.CQ 


.GLOBL 


OV.HICQ 


.GLOBL 


OV.CQSIZ 


.GLOBL 


OV . TQ 


•GLOBL 


OV.HITQ 


.GLOBL 


OV.TQSIZ 



SARE REGISTERS 

RESTORE REGISTERS 

PARITY VECTOR 

ILLEGAL ADDRESS CHECK 

CPU ERROR REGISTER 

CACHE CONTROL REGISTER 

TEMPORARY STORAGE FOR CACHE CONTROL REGISTER 



START OF PARITY CSRS 

LAST PARITY CSR 

ONE K CHUNK 

28 DECIMAL 

I/O PAGE 

RESERVED FOR DIAGNOSTIC USE IN I/O PAGE 



JMODULE ENTRY POINT 
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SEQ 1114 



611 
612 
613 
614 
615 
(2) 
616 
617 
618 
619 
620 
621 
622 
623 
624 
(4) 
625 
(4) 
626 
(3) 
627 
(4) 
628 
(4) 
629 
630 
631 
632 
633 
634 
635 
(3) 
(4) 
(3) 
(3) 
636 
637 
(6) 
638 
639 
640 
641 
642 
643 
(2) 
644 
(4) 
645 
(2) 
646 
(2) 
647 
(6) 
648 
(2) 
649 



000000 
000000 



000000' 

000000' 012737 OOOOOOG 000114 

000006' 

000006' 012737 000340 000116 

000014 1 

000014' 004767 OOOOOOG 

000020' 

000020' 016502 000000 

000024' 

000024' 005001 



000026' 
000026' 
000030' 
000034' 
000040' 



010546 
016745 
004767 
012605 



OOOOOOG 
OOOOOOG 



000042' 
000042' 103422 



000044' 

000044' 013746 000010 

000050' 

000050' 012737 000070' 000010 

000056' 

000056' 076600 

000060' 

000060' 000101 

000062' 

000062' 052701 004000 

000066' 

000066' 000405 



•SBTTL KERNEL - DETERMINE PROCESSOR TYPE 

ROUTINE SIZPOL <DTABLE> 

+ 



SIZPOL: 



STUFF PARITY VECTOR 

SAVE REGISTERS, GET DTABLE ADDRESS FROM R5 STACK AND CLEAR 

R1 



LET @#1 14 := #HTPAER 
LET @#116 :=: #PRI7 
CALL SAVREG 
LET R2 := DTABLE(R5) 
LET R1 := #0 



DETERMINE PROCESSOR TYPE; 11/70, 11/60 OR LSI-11, FIRST CHECK FOR 
CPU ERROR REGISTER 



MOV 


#HTPAER,@#1 14 


MOV 


#PRI7,@#1 16 


JSR 


PC, SAVREG 


MOV 


DTABLE (R5) , R2 


CLR 


R1 



CALL HRDADRCHK IN <CPUCPE> 



IF. NO. ERROR THEN 

SET UP ILLEGAL INSTRUCTION TRAP TO FIELD TRAP IF NOT 
1 1/60 

PUSH @#10 

LET @//10 := #1$ 

INLINE <MED> 

INLINE <RDSERV> 

LET R1 := R1 SET. BY #PDP60 

INLINE <BR 3$> 



MOV 
MOV 
JSR 
MOV 



BCS 



R5,-(SP) 
CPUCPE,-(R5) 
PC, HRDADRCHK 
(SP)+,R5 



50002$ 



MCV @#10,--(SP) 

MOV #1$,@#10 

MED 

RDSERV 

BIS #PDP60,R1 

BR 3$ 
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INLINE <1$:> 



SET RETURN TO 2$ TO RESTORE PSW 

LET (SP) := #2$ 
INLINE <RTI> 

h 

MUST BE AN 11/70, BECAUSE OF TRAP 

INLINE <2$:> 

LET R1 := R1 SET. BY 0PDP7O 

RESTORE RESERVED INSTRUCTION TRAP 

INLINE <3$:> 

POP @#10 
ELSE 

CHECK TO SEE IF LSI1 1 

CALL HRDADRCHK IN <#PSW> 



SEQ 1115 



650 


000070' 






(2) 


000070' 






651 








652 








653 








654 








655 








656 


000070' 






(4) 


000070' 


012716 


000076' 


657 


000074' 






(2) 


000074' 


000002 




658 








659 








660 








661 








662 








663 


000076' 






(2) 


000076' 






664 


000076' 






(6) 


000076' 


052701 


010000 


665 








666 








667 








668 








669 








670 


000102' 






(2) 


000102' 






671 


000102' 






(2) 


000102' 


012637 


000010 


672 


000106' 






(4) 


000106' 


000411 




(3) 


0001 10' 






673 








674 








675 








676 








677 








678 


0001 1C 






(3) 


0001 10' 


010546 




(4) 


0001 12' 


012745 


177776 


(3) 


0001 16' 


004767 


000000G 


(3) 


000122' 


012605 




679 


000124' 






(6) 


000124' 


103002 




680 


000126' 






(6) 


000126' 


052701 


020000 


681 








682 


000132' 






(4) 


000132' 






683 


000132' 






(4) 


000132' 






684 









MOV 
RTI 



#2$,(SP) 



2$: 

BIS 



#PDP70,R1 



3$: 
MOV 
BR 



(SP)+,@#10 
50003$ 



50002$ 



IF. ERROR THEN 
LET R1 

ENDIF 



.a R1 SET. BY #PDPLSI 



ENDIF 





MOV 


R5,-(SP) 




MOV 


#PSW,"(R5) 




JSR 


PC , HRDADRCHK 




MOV 


(SP)+ f R5 




BCC 


50004$ 




BIS 


0PDPLSI ,R1 


50004$: 






50003$: 
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SEQ 1116 



686 
687 
688 
689 
690 
691 
692 
693 
(3) 
(4) 
(3) 
(3) 
694 
(6) 
695 
(6) 
696 
(4) 
697 



000132' 
000132' 
000134' 
000140' 
000144' 
000146' 
000146' 
000150 1 
000150' 
000154' 
000154' 



OOOOOOG 
OOOOOOG 



010546 
016745 
004767 
012605 

103402 



052701 000004 



.SBTTL KERNEL - DETERMINE IF CACHE OPTION AVAILABLE 



DETERMINE IF CACHE MEMORY IS PRESENT BY CHECKING CACHE 
CONTROL REGISTER 



CALL HRDADRCHK IN <CCNTRL> 

IF. NO. ERROR THEN 

LET R1 := R1 SET. BY 0CAPRES 
ENDIF 



MOV 
MOV 
JSR 
MOV 

BCS 

BIS 



R5,-(SP) 
CCNTRL,-(R5) 
PC, HRDADRCHK 
(SP)+,R5 

50005$ 

#CAPRES,R1 



50005$: 



SIZPLB SIZE AND POLL SYSTEM - FOR NON-KT MACHINES MACY1 1 30A(1052) 20-SEP-78 10:46 PAGE 21-3 
SIZPLB.MAC 02-AUG-78 11:44 KERNEL - DETERMINE IF CACHE OPTION AVAILABLE 



SEQ 1117 



699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
(4) 
709 
710 
(4) 
711 
(4) 
(6) 
(9) 
712 
(3) 
(4) 
(3) 
(3) 
713 
(6) 
714 
(4) 
715 
716 
717 
718 
719 
720 
721 
(6) 
722 
(6) 
(9) 
723 
(6) 
724 
(4) 
(3) 
725 
(6) 
726 
(4) 
727 
(4) 
728 
(4) 
729 
730 
731 
732 
733 



000154' 
000154' 

000160' 
000160' 
000164' 
000164' 
000164' 
000170' 
000172' 
000172' 
000174' 
000176' 
000202' 
000204' 
000204' 
000206' 
000206' 



000210' 
000210' 
000214' 
000214' 
000220' 
000222' 
000222' 
000226' 
000226' 
000230' 
000230' 
000230' 
000234' 
000234' 
000234' 
000234' 
000236' 
000236' 



020327 
003035 

01 0546 
010345 
004767 
012605 

103414 

010320 



032713 
001403 



005013 



016200 000064 



012703 172100 



172136 



OOOOOOG 



052713 000002 



SBTTL KERNEL - DETERMINE' IF PARITY OR ECC MEMORY PRESENT 



GET STARTING ADDRESS OF PARITY TABLE, THEN DETERMINE IF 
PARITY CSR REGISTERS ARE AVAILABLE IF SO PLACE CSR ADDRESS 
IN PARITY TABLE. 



LET RO := DT.PTA(R2) 

LET R3 := #SS.PCSR 
WHILE R3 LE 0SS.PCLS DO 

CALL HRDADRCHK IN <R3> 

IF. NO. ERROR THEN 

LET (R0)+ := R3 



DETERMINE IF ECC MEMORY, IF IT IS SET ECC MEMORY BIT IN 
CONFIGURATION WORD ELSE SET PARITY PRESENT BIT IN 
CONFIGURATION WORD 0. CLEAR THE PARITY CSR ' S 

LET (R3) := (R3) SET. BY #BIT01 

IF #BIT01 SETIN (R3) THEN 



MOV 


DT.PTA(R2), RO 


MOV 


#SS.PCSR, R3 


50006$: 

CMP 
BGT 


R3,#SS.PCLS 
50007$ 


MOV 
MOV 
JSR 
MOV 


R5,-(SP) 
R3,-(R5) 
PCHRDADRCHK 
(SP)+,R5 


BCS 


50010$ 


MOV 


R3,(R0)+ 



BI! 



000002 



LET R1 := R1 SET. BY #ECCMEM 



052701 000100 



000402 



052701 002000 



ELSE 



LET R1 := R1 SET. BY #PARPRES 
ENDIF 
LET (R3) :^- #0 



ENDIF 



50011$: 



50012$ 



50010$ 



CLR 



IF 11/70 PROCESSOR THEN SET PARITY PRESENT IN CONFIGURATION 
WORD AND POINT TO PARITY CSR + 4, ELSE POINT TO 
PARITY CSR + 2 



#BIT01 , (R3) 



BIT 


#BIT01 , (R3) 


BEQ 


50011$ 


BIS 


#ECCMEM,R1 


BR 


50012$ 


BIS 


#PARPRES,R1 



(R3) 
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734 
735 
(6) 
(9) 
736 
(6) 
737 
(6) 
738 
(4) 
(3) 
739 
(6) 
740 
(4) 
741 
(4) 
(3) 
742 



000236 1 

000236' 032701 010000 

000242' 001405 

000244' 

000244' 052701 002000 

000250' 



000250' 
000254' 
000254' 
000256' 
000256' 
000256' 
000262' 
000262' 
000262' 
000262' 
000264' 



062703 000004 



000402 



062703 000002 



000740 



IF #PDP70 SETIN R1 THEN 



ELSE 



ENDIF 



LET R1 := R1 SET. BY #PARPRES 
LET R3 := R3 + #4 

LET R3 := R3 + #2 



ENDDO 





SEQ 1118 


BIT 


#PDP70,R1 


BEQ 


50013$ 


BIS 


#PARPRES,R1 


ADD 


#4,R3 


BR 


50014$ 



50013$ 



50014$: 



50007$: 



ADD 



BR 



#2, R3 



50006$ 
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;eq 1119 



744 
745 
746 
747 
748 
749 
750 
751 
(4) 
752 
753 
754 
755 
756 
757 
758 
759 
(4) 
760 
(4) 
761 
762 
763 
764 
765 
766 
(3) 
767 
(6) 
768 
(6) 
769 
(3) 
(4) 
(3) 
(3) 
770 
(6) 
771 
(2) 
772 
(4) 
773 
(3) 
(6) 
774 
775 
776 
777 
770 
779 
(2) 
780 
(6) 
(9) 
781 



000264' 
000264' 016762 



000000 000044 



000272' 

000272' 005000 
000274' 
000274' 005003 



000276' 
000276' 
000276' 
000276' 
000300' 
000300' 
000304' 
000304' 



005200 



062703 004000 



010546 



000306' 010345 
000310' 004767 
000314* 012605 
000316' 

000316' 103001 
000320' 

000320' 000403 
000322' 
000322' 
000322' 

000322' 020027 
000326' 001363 



000330' 
000330' 
000330' 

000330' 020027 
000334' 001011 
000336' 



000000G 



000034 



000034 



.SBTTL KERNEL - DETERMINE SYSTEM SIZE 

+ 
NOW TAKE THE CONTENTS OF LOC . (EXERCISER SIZE) 
AND LOAD IT INTO EXERCISER SIZE WORD 

LET DT.ESIZ(R2) := 



DETERMINE SYSTEM SIZE, WHICH CAN NOT BE GREATER 

THAN 28K. 

SET UP COUNTER OF 1K CHUNKS AND 1K BLOCK POINTER 



LET RO := #0 

LET R3 := #0 

REPEAT UNTIL NON-EXISTENT MEMORY OR 28K OF MEMORY IS FOUND 



MOV 



CLR 
CLR 



50015$ 



REPEAT 

LET RO := RO + #1 

LET R3 := R3 + #SS.0KC 

CALL HRDADRCHK IN <R3> 

IF. ERROR THEN 

INLINE <BR 4$> 
ENDIF 
UNTIL RO EQ #SS.28 



DETERMINE IF SYSTEM HAS 30K BY LOOKING AT FIRST ADDRESS IN I/O PAGE 



f DT.ESIZ(R2) 



RO 
R3 



INC 


RO 


ADD 


#SS.0KC,R3 


MOV 
MOV 
JSR 
MOV 


R5,-(SP) 
R3,-(R5) 
PCHRDADRCHK 
(SP)+,R5 


BCC 


50016$ 


BR 4$ 




50016$: 




CMP 
ENE 


R0 r #SS.28 

50015$ 



INLINE <4$:> 

IF RO EQ #SS.28 THEN 



4$: 

CMP 
6NE 



RO f #SS.28 
■50017$ 



CALL HRDADRCHK IN <£SS.RFS> 
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(3) 
(4) 
(3) 
(3) 
782 
(6) 
783 
(6) 
784 
(4) 
785 
(4) 
786 
787 
788 
789 
790 
791 
792 
793 
(4) 
794 
(4) 
(7) 
(7) 
(7) 
(7) 
(7) 
(7) 
795 



000336' 
000340' 
000344' 
000350' 
000352' 
000352' 
000354' 
000354' 
000360" 
000360' 
000360' 
000360' 



000360' 
000360' 
000362' 
000362' 
000366' 
000372' 
000376' 
000402' 
000406' 
000412' 



000241 

01 0362 
006062 
006062 
006062 
006062 
006062 
006062 



160000 
OOOOOOG 



010546 
012745 
004767 
012605 

103402 



062703 010000 



000046 
000046 
000046 
000046 
000046 
000046 
000046 



IF. NO. ERROR THEN 

LET R3 :« R3 + #10000 
ENDIF 



ENDIF 
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SEQ 1120 




MOV 
MOV 
JSR 
MOV 


R5,-(SP) 
#SS.RFS,-(R5) 

PC.HRDADRCHK 
(SP)+,R5 




BCS 


50020$ 




ADD 


£10000, R3 


50020$: 






50017$: 







NOW GET MEMORY SIZE IN "PAR" FORMAT BY SHIFTING R3, 6 TIMES 
TO THE RIGHT, ONCE THIS IS DONE LOAD INTO SYSTEM 
SIZE WORD. 



LET CARRY := #0 

LET DT.SSIZ(R2) := R3 ROTATE -6 



CLC 



MOV 


R3 


DT.SSIZ(R2) 


ROR 


DT 


SSIZ(R2) 


ROR 


DT 


SSIZ(R2) 


ROR 


DT 


SSIZ(R2) 


ROR 


DT 


SSIZ(R2) 


ROR 


DT 


SSIZ(R2) 


ROR 


DT 


SSI2(R2) 



SI2PLB 


SIZE AND 


POLL SYSTEM - FOR NON-K 


SI2PLB. 


MAC 02-AUG-78 


11 :44 


797 








798 








799 








800 








801 








802 








803 


000416' 






(6) 


000416' 


032701 


002000 


(8) 


000422' 


001003 




(6) 


000424' 


032701 


000100 


(9) 


000430' 


001424 




(6) 


000432' 






804 








805 








806 








807 








808 








809 








810 


000432' 






(6) 


000432' 


032701 


000004 


(9) 


000436' 


001406 




81 1 


000440' 






(4) 


000440' 


012767 


000003 00000OG 


812 


000446' 






(4) 


000446' 


016777 


OOOOOOG OOOOOOG 


813 


000454' 






(4) 


000454' 






814 








815 








816 








817 








818 








819 








820 








821 








822 








823 








824 








825 








826 








827 


000454' 






(4) 


000454' 


005000 




828 


000456' 






(2) 


000456' 


013746 


000004 


829 


000462' 






(4) 


000462' 


012737 


000474' 000004 


830 








831 








832 








833 








834 








835 


000470' 






(2) 


000470' 






836 


000470' 






. (4) 


000470' 


01 1020 




837 


000472' 







"MACHINES MACY11 30A(1052) 20-SEP-78 
KERNEL - WRITE GOOD PARITY IF ECC OR PARITY 



18:46 
PRESENT 



PAGE 21-7 



SEQ 1121 



.SBTTL KERNEL - WRITE GOOD PARITY IF ECC OR PARITY PRESENT 

+ 
DETERMINE IF PARITY OR ECC MEMORY IS PRESENT. 

IF #PARPRES SETIN R1 OR 0ECCMEM SETIN R1 THEN 





BIT 


#PARPRES,R1 




BNE 


50021$ 




BIT 


#ECCMEM,R1 




BEQ 


50022$ 


50021$: 







IF CACHE PRESENT, SET BIT AND 1 IN CACHE CONTROL REGISTER 
THIS WILL TURN CACHE OFF 



IF 0CAPRES SETIN R1 THEN 



LET KONTRL := #3 

LET ©CCNTRL := KONTRL 



BIT #CAPRES,R1 

BEQ 50023$ 

MOV #3 t K0NTRL 

MOV KONTRL ,@CCNTRL 



ENDIF 



50023$: 



SINCE PARITY OR ECC IS PRESENT AND TURNED OFF 
WILL NOW SET UP TO WRITE GOOD PARITY INTO ALL 
OF MEMORY 



SET UP POINTER AND SAVE BUSERR VECTOR 

LET RO := #0 

PUSH @#4 

LET @#4 := #6$ 

NOW WRITE GOOD PARITY 
INLINE<5$:> 

LET (R0)+ := (RO) 
INLINE <BR 5$> 



CLR 


RO 


MOV 


@#4,-(SP) 


MOV 


#6$,<M4 



5$: 
MOV 



(RO),(RO)+ 
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(2) 
838 
839 
840 
841 
842 
843 
844 
(2) 
845 
(2) 
846 
(2) 
847 
848 
849 
(4) 
850 
851 
852 
853 
854 
855 
(6) 
(9) 
856 
(6) 
857 
(4) 
858 
859 
860 
861 
862 
863 
864 
(6) 
865 
(6) 
866 



000472' 000776 



000474' 
000474' 
000474' 
000474' 
000476' 
000476' 



000502 
000502 



000502' 
000502' 
000506' 
000510' 
000510' 
000514' 
000514' 



022626 

012637 000004 



005737 
001402 



000042 



052701 000010 



000514' 

000514' 042701 075464 

000520' 

000520' 050162 000014 



SEQ 1122 



BR 5$ 



; + 

; WILL TRAP HERE WHEN THROUGH, CLEAN UP STACK AND RESTORE BUSERR 

INLINE <6$:> 

INLINE <CMP (SP)+,(SP)+> 

POP @#4 



6$: 

CMP (SP)+,(SP)+ 

MOV (SP)+,@#4 



ENDIF 



;■+• 



50022$: 



; IF AUTOMATIC MODE( ACT T SLIDE , XXDP , ETC .) , SET AUTO BIT IN CONFIGURATION WORDO 



IF @#42 NE #0 THEN 



LET R1 := R1 SET. BY #AUTO 



TST 

BEQ 

BIS 



ENDIF 



@#42 
50024$ 

#AUT0,R1 



50024$: 



CLEAN UP R1 BEFORE LOADING CONFIGURATION WORD 
LOAD UP CONFIGURATION WORD 



LET R1 := Rt CLR.BY #SAM 

LET DT.CF0(R2) := DT.CF0(R2) SET . BY R1 



BIG 
BIS 



#5AM,R1 

R1 ,DT.CF0(R2) 
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SEQ 1123 



868 
869 
870 
871 
872 
873 
874 
875 
(4) 
876 
(4) 
877 
(4) 
(6) 
(9) 
878 
(6) 
879 
(6) 
880 
(4) 
(3) 
881 
882 
883 
884 
885 
886 
887 
(4) 
888 
889 
890 
891 
892 
893 
(4) 
(6) 
(9) 
894 
(3) 
895 
896 
897 
898 
899 
900 
(4) 
901 
(6) 
(9) 
902 
903 
904 
905 
906 



000524' 
000524' 
000526' 
000526' 
000532' 
000532' 
000532' 
000536' 
000540' 
000540' 
000542' 
000542' 
000546' 
000546' 
000550' 



000550' 
000550' 



000554' 
000554' 
000554' 
000556' 
000560' 
000560' 



000560' 
000560' 
000562' 
000562' 
000570' 



005000 



016201 000032 



021127 000000 
001404 

005200 

062701 000002 

000771 



016201 000032 



005700 
003432 



01 1104 

032764 
001414 



000020 000026 



SBTTL KERNEL - SORT MODULE LIST 

COUNT THE MODULES 

LET RO := #0 

LET R1 := DT.MLST(R2) 

WHILE (R1) NE #ENDLST DO 

LET RO := RO + #1 
LET R1 := R1 + #2 
ENDDO 



START THE SORT OPERATION, AND SORT "BKMODS" TO BOTTOM OF 
MODQ LIST, DEVELOPING A "BKMOD QUEUE". 



LET R1 := DT.MLST(R2) 

WORK THRU THE LIST UNTIL THE END IS PEACHED 
WHILE RO GT #0 DO 

REPEAT 

IS THE CURRENT ENTRY A BKMOD MODULE? 

LET R4 := (R1) 

IF #BKMOD SETIN STAT(R4) THEN 

THE CURRENT ENTRY IS A BKMOD, WHAT ABOUT THE NEXT ENTRY? 





CLR 


RO 




MOV 


DT.MLST(R2) ,R1 


50025$: 


CMP 

BEO 


(R1 ) ,#ENDLST 
50026$ 




INC 


RO 




ADD 


#2,R1 


50026$: 


BR 


50025$ 



MOV 



50027$: 



50031$ 



1ST 

BLE 



MOV 

BIT 

BEO 



DT.MLST(R2) ,R1 



RO 
50030$ 



(R1),R4 

#BKM0D,STAT(R4) 
50032$ 
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LET R3 := 2(R1 ) 



MAKE SURE ITS NOT THE END OF THE LIST 



SEQ 1124 



907 


000572' 






(4) 


000572' 


016103 


000002 


908 








909 








910 








911 








912 








913 


000576' 






(6) 


000576' 


020327 


000000 


(9) 


000602' 


001407 




914 








915 








916 








917 








918 








919 


000604' 






(6) 


000604' 


032763 


000020 000026 


(9) 


000612' 


001003 




920 


000614' 






(4) 


000614' 


01 1 161 


000002 


921 


000620' 






(4) 


000620' 


010311 




922 


000622' 






(4) 


000622' 






923 


000622' 






(4) 


000622' 






924 


000622' 






(4) 


000622' 






925 








926 








927 








928 








929 








930 


000622' 






(6) 


000622' 


062701 


000002 


931 


000626 ' 






(3) 


000626' 


021127 


000000 


(6) 


000632' 


001352 




932 








933 








934 








935 








936 








937 


000634' 






(6) 


000634' 


005300 




938 


000636' 






(4) 


000636' 


016201 


000032 


939 


000642' 






(4) 


000642' 


000744 




(3) 


000644' 






940 








941 








942 








943 








944 








945 









MOV 2(R1),R3 



IF R3 NE #ENDLST THEN 



CMP 
BEQ 



R3,#ENDLST 
50033$ 



IF ITS NOT A BKMOD, SWAP THEM 



IF #BKMOD NOTSETIN STAT(R3) THEN 

BIT #BKM0D,STAT{R3) 
BNE 
LET 2(R1) := (R1 ) 

MOV 



ENDI 



ENDIF 



ENDIF 



LET (R1) := R3 

50034$: 
50033$: 
50032$: 



MOV 



50034$ 

(Rl ),2(R1) 

R3, (R1 ) 



UPDATE THE POINTER AND CONTINUE SEARCHING THRU THE LIST 

LET R1 := R1 + #2 
UNTIL (R1 ) EQ #ENDLST 



ADD 

CMP 
BNE 



#2,R1 

(R1 ) ,#ENDLST 
50031$ 



THE END OF THE LIST HAS BEEN REACHED, SO UPDATE THE MAIN POINTER & CONTINUE 



LET RO := RO - #1 
LET R1 := DT.MLST(R2) 



ENDDO 



DEC RO 

MOV DT.MLST(R2),R1 

BR 50027$. 



50030$: 



NOW THAT THE BACKGROUND MODULES HAVE BEEN GROUPED TOGETHER AT THE END 
OF THE MODULE LIST, PUT THE ADDRESS OF THIS BACKGROUND LIST (IF THERE IS 
A BACKGROUND LIST) INTO THE DATA TABLE 
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LET R1 := DT.MLST(R2) 



SEO 1125 



946 








947 


000644' 






(4) 


000644' 


016201 


000032 


948 








949 








950 








951 








952 








953 


000650' 






(4) 


000650' 


005062 


000034 


954 


000654' 






(4T 


000654' 


012703 


177777 


955 


000660' 






(4) 


000660' 






(6) 


000660' 


021 127 


000000 


(9) 


000664' 


001420 




(6) 


000666' 


005703 




(9) 


000670' 


001416 




956 


000672' 






(4) 


000672' 


01 1104 




957 


000674' 






(6) 


000674' 


032764 


000020 000026 


(9) 


000702' 


001406 




958 








959 








960 








961 








962 








963 


000704' 






(4) 


000704' 


01 0162 


000034 


964 


000710' 






(4) 


000710' 


012701 


000000 


965 


000714' 






(4) 


000714' 


005003 




966 


000716' 






(4) 


000716' 


000402 




(3) 


000720' 






967 








968 








969 








970 








971 








972 


000720' 






(6) 


000720' 


062701 


000002 


973 


000724' 






(4) 


000724' 






974 


000724' 






(4) 


000724' 


000755 




(3) 


000726' 






975 








976 








977 








978 








979 








980 


000726' 






(3) 


000726' 


004767 


OOOOOOG 



MOV 



DT.MLSHR2) ,R1 



WORK THRU THE MODULE LIST UNTIL THE FIRST BACKGROUND MODULE IS FOUND 

LET DT.BLST(R2) :» #0 

LET R3 := #-1 

WHILE (R1) NE #ENDLST AND R3 NE #0 DO 



LET R4 := (R1 ) 

IF #BKMOD SETIN STAT(R4) THEN 



A BACKGROUND MODULE HAS BEEN FOUND - SO THIS IS THE START OF THE BACKGROUND LIST 

LET DT.BLST(R2) := R1 

LET R1 := #ENDLST 

LET R3 := #0 
ELSE 



UPDATE THE POINTER AND CONTINUE TO SEARCH THRU THE MODULE LIST 



CLR 


DT.BLST(R2) 


MOV 


#-1 ,R3 


50035$: 

CMP 
BEQ 
TST 
BEO 


(R1 ) ,#ENDLST 

50036$ 

R3 

50036$ 


MOV 


(R1 ) ,R4 


BIT 
BEO 


#BKM0D,STAT(R4) 
50037$ 





MOV 


R1 ,DT.BLST(R2) 




MOV 


#ENDLST,R1 




CLR 


R3 




BR 


50040$ 


50037$: 







LET R1 := R1 + #2 



ENDIF 



ENDDO 



50040$: 



50036$: 



ADD #2,R1 



iR 50035$ 



NOW RETURN TO THE CALLER 



CALL RESREG 



JSR PC, RESREG 



SIZPLB SIZE 
SIZPLB.MAC 



AND POLL SYSTEM - FOR 
02-AUG-78 11:44 



981 

(3) 

(3) 

(2) 

982 

983 

984 

985 

986 

987 

(2) 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

100? 

1008 

1009 

1010 

1011 

1012 



000732' 
000732' 
000732' 
000732' 000207 



000734' 
000734' 



000000' 

000122' 

000314' 

000120' 

000122 

000312" 

000036 

000420 

000000 

000734' 

000042 

000001 



NON-KT MACHINES 

KERNEL - SORT 

ENDRTN 



MACY11 30A(1052) 
MODULE LIST 



20-SEP-78 18:46 PAGE 22-3 



50000$: 
50001$: 



SEQ 1126 



RTS 



PC 



LABEL TYPE QUEUE HIGH LIMIT 



INLINE <OV.TQEND:> 



OV.TQEND: 



Jlt******************^*****************:): 

: NOTE: THESE OVERLAY EQUATES MUST BE LEFT IN THIS POSITION 
(THAT IS, AFTER SIZPOL AND TQ.END LABELS) 



; OVERLAY REGIONS EQUATES 

; ++++++++++++++++++++++++++++++++++++++ 

OV.KBBUF = SIZPOL 

OV.CQ= OV.KBBUF + ~D<82> 

OV.TQ = OV.CQ + ~D<122> 

OV.HIKB = OV.CQ - 2 

OV.KBSIZ = OV.CQ - OV.KBBUF 

OV.HICQ = OV.TQ - 2 

OV.CQSIZ = <OV.TQ - 0V.CQ>/4 

OV.A = OV.TQEND - OV.TQ . 

OV.REM = OV.A - «OV.A/10>*10> 

OV.HITQ = OV.TQEND - OV.REM 



KEYBOARD BUFFER STARTING ADDRESS 
CONTROL QUEUE STARTING ADDRESS 
TYPE QUEUE STARTING ADDRESS 
KEYBOARD BUFFER HIGH LIMIT 
KEYBOARD BUFFER SIZE 
CONTROL QUEUE HIGH LIMIT 
CONTROL QUEUE SIZE 
GET THE TQ SIZE 
GET ANY REMAINDER 
TYPE QUEUE HIGH LIMIT 



OV.TQSIZ = <OV.TQEND - OV.TQ - OV.REM> /10 
.END 



;TYPE QUEUE SIZE 
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ACSR = 


000102 


ACTBIT* 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


0001 10 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT'02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 .= 


000040 


BIT06 = 


000100 


BIT'07 = 


000200 


BIT08 = 


000400 


BIT09 * 


001000 


BIT.1 = 


000002 


BIT10 = 


002000 


BIT-11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT.15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


3IT4 = 


000020 


BIT5 = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT = 


000004 


CCNTRL= 


****** 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CPUCPE= 


****** 


CQOVF = 


000001 


CR 


000015 



CSRA a 

CSRC = 
CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN- 
DIAGMC= 
DROPMO= 
DSEVNT= 
DTABLE= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CFO= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBF= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO^ 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 



000100 
00 010,2 
000003 
000017 
000025 
00001 1 
000400 
000000 
100000 
000014 
000000 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
00C0S6 
000106 
000006 
000046 
000010 
000012 
00 0056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
01 0000 













SEQ 1127 


ENBNUL= 


000001 


MAPSTA* 


0002.00 


PRI1 = 


000040 




ENDLST-- 


000000 


MED 


076600 


PRI4 = 


000200 




EOPBIT- 


000001 


MEMPAS= 


040000 


PRI5 = 


000240 




ERRTYP= 


000106 


MODEXH= 


004000 


■■PR 1 6 = 


000300 




EVNTBE = 


000200 


MODHOL= 


002000 


PR I 7 = 


000340 




EVNTHD= 


000200 


MODSEL^ 


001000 


PRO 


000000 




EVNTKT= 


000203 


MSGCKD== 


000010 


PR4 


000200 




EVNTPE= 


000202 


MSGCKS^ 


00001 1 


PR5 


000240 




EVNTRE= 


000201 


MSGDER= 


000005 


PR6 


000300 




FATERR= 


100000 


MSGDRP= 


000017 


PR7 


000340 




HRDADR= 


****** Q 


MSGECH= 


177777 


PS = 


177776 




HRDCNT= 


000044 


MSGEOP=: 


000013 


PSW 


177776 




HRDPAS= 


000050 


MSGHDR= 


000004 


RANNUM= 


000054 




HTPAER= 


****** Q 


MSGHNG= 


000022 


R3UFEA= 


000130 




ICONT s 


000036 


MSGHRD-- 


000007 


RBUFPA= 


000126 




ICOUNT= 


000040 


MSGMAP= 


000021 


RBUFSZ= 


000132 




IDNUM = 


000122 


MSGNUL== 


177775. 


RBUFVA= 


000124 




IE = 


000100 


MSGPOP= 


000002 i 


RDSERV= 


000101 




INDPAR= 


000040 


MSGPRM:= 


177776 


RDWHMI= 


000022 




INHDRP= 


040000 


MSGRES= 


000001 


RELERR^ 


000020 




INHEPR= 


020000 


MSGSFT= 


000006 


RELMQD= 


020000 




INHREL= 


001000 


MSGSKE== 


000003 


RELTIM= 


010000 




INHRRE= 


000400 


MSGSMB= 


000015 


R£SREG= 


****** G 




INIT = 


000030 


MSGSMH= 


000014 


RES1 = 


000056 




INTR = 


000120 


MSGSMS= 


000016 


RES2 = 


000060 




IQMOD = 


100000 


MSGSTD= 


000000 


RICHAR= 


031060 




IOMODP= 


102000 


MSGSYS= 


000012 


RPTDAT= 


002000 




IOMODR= 


1 12000 


M5GVEC= 


000020 


RSTRT = 


0001 12 




IOMODX= 


1 10000 


NBKMOD= 


001000 


RUBOUT= 


000177 




JACK = 


035060 


NCPUOP= 


000020 


R'JNWiOD = 


100000 




KIPARO= 


172340 


NOAPTY= 


000002 


R5VALU= 


001740 




KIPAR1= 


172342 


NULL = 


000000 


SAM = 


075464 




KIPAR2= 


172344 


OV.A = 


000420 


SAVREG= 


****** Q 




KIPAR3= 


172346 


OV.CQ = 


000122RG 


SBADR = 


000102 




KIPAR4= 


172350 


OV.C0S= 


000036 G 


SBKMOD= 


000000 




KIPAR5= 


172352 


OV.HIC= 


00031 2RG 


SBK5EL= 


010000 




KIPAR6= 


172354 


OV.HIK= 


000120RG 


SC.ADR= 


000006 




KIPAR7= 


172356 


OV.HIT= 


000734RG 


SC.ALC= 


000014 




KIPDRO= 


172300 


OV.KBB= 


OOOOOORG 


SC.APC= 


000016 




KIPDR1= 


172302 


OV.KBS= 


000122 G 


SC.CKL= 


000002 




KIPDR2= 


172304 


DV.REM= 


000000 


SC.CKP= 


000004 




KIPDR3= 


172306 


OV.TQ = 


00031 4RG 


SC.CLO= 


000000 




KIPDR4= 


172310 


OV.TGE 


000734R 


SC.HLD= 


000010 




KIPDR5= 


172.312 


OV.TQS= 


000042 G 


SC.SCA= 


000012 




KIPDR6= 


172314 


OWEN = 


024020 


SENDLS= 


177777 




KIPDR7= 


172316 


PAERR = 


000010 


SIZPOL 


OOOOOORG 




KONTRL= 


****** Q 


PARPRE= 


002000 


SOFCNT= 


000042 




KTERRO= 


000040 


PARSTA= 


000100 


SOFPAS= 


000046 




KTPRES= 


000400 


PASCNT= 


000034 


SPACE = 


000040 




KTSTAT= 


000020 


PDPLSI= 


020000 


SPOINT= 


000C32 




KTXTND= 


040000 


PDP60 = 


004000 


SPVALU= 


002200 




LF 


000012 


PDP70 = 


010000 


SRO 


177572 




LPSTAT= 


000001 


PRIO = 


000000 


SR1 


177574 
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SEQ 1128 



SR2 


177576 


UIPAR2= 


177644 


SR3 


172516 


UIPAR3= 


177646 


SS. IOP= 


177600 


UIPAR4= 


177650 


SS.PCL= 


172136 


UIPAR5= 


177652 


SS.PCS= 


172100 


UIPAR6= 


177654 


SS.RFS= 


160000 


UIPAR7= 


177656 


SS.OKC= 


004000 


UIPDRO= 


177600 


SS.28 = 


000034 


UIPDR1= 


177602 


STAT = 


000026 


UIPDR2= 


177604 


STATBI= 


064757 


UIPDR3= 


177606 


STAT1 = 


000027 


UIPDR4= 


177610 


sus;pnd= 


000001 


UIPDR5= 


177612 


SVRO = 


000062 


UIPDR6= 


177614 


SVR1 


000064 


UIPDR7= 


177616 


SVR2 = 


000066 


WASADR= 


000104 


SVR3 = 


000070 


WBSTAT= 


000040 


SVR4 = 


000072 


WBUFEA= 


000136 


SVR5 = 


000074 


WBUFPA= 


000134 


SVR6 = 


000076 


WBUFRQ= 


000140 


SYSCNT= 


000052 


WBUFSZ= 


000142 


SYSERR= 


000100 


WDFR = 


0001 16 


TMPIO = 


000002 


WDTO * 


0001 14 


TQOVF = 


000002 


WTINRE= 


000352 


UIPAR0= 


177640 


WTWHMI= 


000222 


UIPAR1= 


177642 


XFLAG = 


000005 


. ABS. 


000000 000 
000734 001 





XOFF = 

XON 

$BGNLE= 

$ERFLG= 

$F$AND= 

$F$BAD= 

$F$BLA= 

$F$CAS= 

$F$DEC= 

$F$DO = 

$F$FAL= 

$F$GOO= 

$F$IF = 

$F$INC= 

$F$LOO= 

$F$NAM= 

$F$NO = 

$F$OR = 

$F$RTI= 

$F$RTN= 

$F$SEL= 

$F$THE= 

$F$TRU= 

$F$UNT= 

$F$WHI= 



000023 
000021 
177777 
000400 
000310 
000401 
000170 
000150 
000220 
000340 
000405 
000400 
0001 10 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 
000130 
000120 



$F$YES 


-- 000402 


SIFLEV 


= 177777 


$ISK0 


= 000001 


$ISK1 


= 000001 


$ISK2 


= 000001 


SLOCTA 


= 177777 


$LSTIN 


= 000001 


$LSTTA 


= 000001 


$NESTL 


= 177777 


$NSKO 


= 000300 


$NSK1 


= 000120 


$NSK2 


= 000110 


$NSK3 


= 000110 


$NSK4 


= 000110 


$NSK5 


= 000110 


$SAVLE 


= 177777 


$SSKO 


= 050036 


$TAGLE 


= 177777 


STAGNU 


= 050041 


$TEMP 


= 000300 


$TSKO 


= 050035 


$TSK1 


= 050036 


$TSK2 


= 050040 


$TSK3 


= 050032 


$TSK4 


= 050033 



$TSK5 = 

$$ARGC= 
$$BYTE= 
$$CASE= 
$$DST = 
$$ELOC= 
$$ERFL= 
$$FLAG= 
$$FROM= 
$$LOC. = 
$$LOCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$STGS1= 
$$TGS2= 
$$T0 = 
$$$TAG= 



050034 

000002 

000403 

000000 

000000 

000402 

000000 

000001 

000000 

000702R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

oooooo 
oooooo 

050000 
000734R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ: SI ZPLB.DSKZ: SI ZPLB=SPMAC/ML, EQUATE, SIZPLB 
RUN-TIME: 23 14 .4 SECONDS 
RUN-TIME RATIO: 59/38=1.5 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:47 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 1129 

3 COMMON EQUATE MODULE 
S64 COMMON DEFINITIONS AND REFERENCES 

567 00OOO0' .PRINT ;SPMAC: VERSION 1.1 

618 KERNEL - DETERMINE PROCESSOR TYPE 
695 KERNEL - DETERMINE CPU OPTIONS 

726 KERNEL - DETERMINE IF PARITY OR ECC MEMORY PRESENT 
771 KERNEL - DETERMINE SYSTEM SIZE 

862 KERNEL - WRITE GOOD PARITY IF ECC OR PARITY PRESENT 
987 KERNEL - SORT MODULE LIST 



SI2PLC SIZE AND POLL SYSTEM - 
SIZPLC.MAC 08-SEP-78 09:35 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 



KT OPTIONS 



MACY11 30A(1052) 
COMMON EQUATE MODULE 



20-SEP-78 18:47 PAGE 19 



SEQ 1130 



.TITLE SIZPLC SIZE AND POLL SYSTEM - KT OPTIONS 
, IDENT /VO.O/ 

++ 
MODULE NAME: 
SIZPLC 

FUNCTIONAL DESCRIPTION: 

THIS MODULE WILL SIZE THE SYSTEM FOR CPU TYPE AND PROCESSOR 
OPTIONS. IT WILL ALSO SIZE MEMORY AND IF "PARITY" OR "ECC" MEMORY 
WILL WRITE GOOD PARITY. THE "MODQ" LIST WILL BE SORTED TO DEVELOP 
A BACKGROUND MODULE LIST (QUEUE) 
NOTE: IT WILL NOT SIZE FOR 22-BIT ADDRESSING 

INPUTS: 

DTABLE ADDRESS 

IMPLICIT INPUTS: 

CONFIGURATION WORD 
EXERCISER SIZE 
SYSTEM SIZE 
PARITY TABLE ADDRESS 
MODULE LIST 
BACKGROUND LIST 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

PARITY TABLE ADDRESS 
SYSTEM SIZE 
EXERCISE SIZE 
CONFIGURATION WORD 

PATHOLOGICAL CONNECTIONS: 

SUBORDINATE ROUTINES CALLED: 
SAVREG - SAVE REGISTERS 
RESREG - RESTORE REGISTERS 
KTSET - SET UP KT REGISTERS 
HRDADRCHK - ILLEGAL ADDRESS CHECK 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL SIZPOL IN <A> 

A - DTABLE ADDRESS 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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SEQ 1131 



563 
564 
565 
566 
567 
(D 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
,603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 



000000 
000000 



000001 
000001 



172100 
172136 
004000 
000034 
000040 
120000 
177600 
160000 



SBTTL COMMON DEFINITIONS AND REFERENCES 



.MCALL STRUCT 

STRUCT 

.PRINT 

SLSTIN 

SLSTTAG 



;SPMAC: 
= 1 
= 1 



VERSION 1 .1 



******#********* 

GLOBAL REFERENCES 



GLOBL 


HTPAER 


GLOBL 


HTKT 


GLOBL 


SAVREG 


GLOBL 


RESREG 


GLOBL 


KTSET 


GLOBL 


HRDADRCHK 


GLOBL 


CPUCPE 


GLOBL 


CCNTRL 


GLOBL 


KONTRL 



j(t* ****** ******** 

LOCAL EQUATES 



SS.PCSR 
SS..PCLS 
SS.OKC 
SS.28 
SS..1KP 
SS. 120K 
SS. IOP 
SS.RFS 



172100 

172136 

4000 

"D28 

40 

120000 

177600 

160000 



j|e* ******** ****** 

REFERENCED BY OTHER MODULES 
GLOBL SIZPOL 



; ++++++++++++++++++++ ++++++++++ 


; OVERLAY REGION GLOBALS 


; +++++++++++++++++++++++++■*-++++ 


.GLOBL 


OV.KBBUF 


.GLOBL 


OV.HIKB 


.GLOBL 


OV.KBSIZ 


.GLOBL 


OV . CO 


.GLOBL 


V.HI CO 


.GLOBL 


OV.CQSIZ 


.GLOBL 


OV.TQ 


.GLOBL 


OV.HITQ 


.GLOBL 


OV.TQSIZ 



PARITY VECTOR 

KT VECTOR 

SARE REGISTERS 

RESTORE REGISTERS 

SET UP KT 

ILLEGAL ADDRESS CHECK 

11/70 CPU ERROR REGISTER 

CACHE CONTROL REGISTER 

TEMPORARY STORAGE FOR CACHE CONTROL REGISTEf 



START OF PARITY CSRS 

LAST PARITY CSR 

ONE K CHUNK 

28 DECIMAL 

1K IN PAR FORMAT 

FIRST ADDRESS IN PAR5 MAP 

I/O PAGE 

RESERVED FOR DIAGNOSTIC USE IN I/O PAGE 



; MODULE ENTRY POINT 
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SEO 1132 



618 
619 
620 
621 
622 
(2) 
623 
624 
625 
(4) 
626 
(4) 
627 
628 
(4) 
629 
(4) 
630 
631 
632 
633 
634 
635 
636 
637 
(3) 
638 
(4) 
639 
(4) 
640 
641 
642 
643 
644 
645 
(3) 
(4) 
(3) 
(3) 
646 
647 
(6) 
648 
649 
650 
651 
652 
653 
(2) 
654 
(4) 
655 
(2) 
656 
(2) 



000000' 
000000' 



000000' 

000000' 012737 OOOQOOG 000114 

000006' 

000006' 012737 000340 000116 

000014' 

00G014' 012737 OOOOOOG 000250 

000022' 

000022 1 012737 000340 000252 



000030' 
000030' 
000034' 
000034' 
000040' 
000040' 



000042' 
000042' 
000044' 
000050' 
000054' 

000056' 
000056' 



000060' 
000060' 
000064' 
000064' 
000072" 
000072' 
000074' 
000074' 



004767 OOOOOOG 



016502 000000 



005001 



010546 
016745 
004767 
012605 



103422 



OOOOOOG 
OOOOOOG 



013746 000010 



012737 000104' 000010 



076600 



000101 



.SBTTL KERNEL - DETERMINE PROCESSOR TYPE 



ROUTINE SIZPOL <DTABLE> 



SIZPOL 



LET @#114 : 

LET @#116 : 

LET @#250 : 

LET @#252 : 



== /VHTPAER 

== #PRI7 

■■■■ #HTKT 

= #PRI7 



MOV #HTPAER,@#1 14 

MOV #PRI7,@#116 

MOV #HTKT,@#250 

MOV #PRI7,@#252 



STUFF PARITY AND KT VECTORS 

SAVE REGISTERS, GET DTABLE ADDRESS FROM R5 STACK AND CLEAR 

R1 



CALL SAVREG 

LET R2 := DTABLE(R5) 

LET R1 := #0 

DETERMINE PROCESSOR TYPE; 11/70, 11/60 OR LSI11 
CALL HRDADRCHK IN <CPUCPE> 



IF. NO. ERROR THEN 

+ 
SET UP ILLEGAL INSTRUCTION TRAP TO FIELD TRAP IF NOT 
11/60 

PUSH @#10 
LET @#10 := #1$ 
INLINE <MED> 
INLINE <RDSERV> 



JSR PC, SAVREG 
MOV DTABLE(R5), R2 
CLR R1 



MOV 
MOV 
USR 
MOV 



BCS 



R5 t -(SP) 
CPUCPE,-(R5) 
PC, HRDADRCHK 
(SP)+,R5 



50002$ 



MOV @#10,--(SP) 

MOV #1$,<M10 

MED 
RDSERV 
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LET R1 := R1 SET. BY #PDP60 

INLINE <BR 3$> 



INLINE <1$:> 

r 

SET RETURN TO 2$ TO RESTORE PSW 

LET (SP) := #2$ 
INLINE <RTI> 

MUST BE AN 11/70, BECAUSE OF TRAP 

INLINE <2$:> 

LET R1 := R1 SET. BY #PDP70 

RESTORE RESERVED INSTRUCTION TRAP 

INLINE <3$:> 

POP @#10 
ELSE 

CHECK TO SEE IF LS1 11 

CALL HRDADRCHK IN <#PSW> 



18:47 PAGE 21-1 



SEQ 1133 



657 


000076 1 






(6) 


000076' 


052701 


004000 


658 


000102' 






(2) 


000102' 


000405 




659 








660 


000104' 






(2) 


000104' 






661 








662 








663 








664 








665 








666 


000104' 






(4) 


000104' 


012716 


000112' 


667 


0001 10' 






(2) 


0001 10' 


000002 




668 








669 








670 








671 








672 








673 


0001 12' 






(2) 


0001 12' 






674 


0001 12' 






(6) 


0001 12' 


052701 


010000 


675 








676 








677 








678 








679 








680 


000116' 






(2) 


000116' 






681 


0001 16* 






(2) 


0001 16' 


012637 


000010 


682 


000122' 






(4) 


000122' 


000411 




(3) 


000124' 






683 








684 








685 








686 








687 








688 


000124' 






(3) 


000124' 


010546 




(4) 


000126' 


012745 


177776 


(3) 


000132' 


004767 


000000G 


(3) 


000136' 


012605 




689 


000140' 






(6) 


000140' 


103002 




690 


000142' 






(6) 


000142' 


052701 


020000 


691 








692 


000146' 






(4) 


000146' 






693 


000146' 






(4) 


000146' 







BIS #PDP60,R1 
BR 3$ 



MOV #2$,(SP) 
RTI 



2$: 
BIS 



#PDP70,R1 



3$: 
MOV 

BR 



(SP) + ,@//10 
50003$ 



50002$ 



IF. ERROR THEN 
LET R1 

ENDIF 



= R1 SET. BY #PDPLSI 



ENDIF 





MOV 
MOV 
USR 
MOV 


R5,-(SP) 
#PSW,~(R5) 
PC, HRDADRCHK 
(SP)+,R5 




BCC 


50004$ 




BIS 


0PDPLSI ,R1 


50004$: 






50003$: 
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SEQ 1134 



695 
696 
697 
698 
699 
700 
701 
702 
(3) 
(4) 
(3) 
(3) 
703 
(6) 
704 
(6) 
705 
(3) 
(4) 
(3) 
(3) 
706 
(6) 
707 
(6) 
708 
709 
(4) 
710 
(4) 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
(3) 
(4) 
(3) 
(3) 
721 
(S) 
722 
(6) 
723 
(4) 
724 



000146' 
000146' 
000150' 
000154' 
000160' 
000162' 
000162' 
000164' 
000164' 
000170' 
000170' 
000172' 
000176' 
000202' 
000204' 
000204' 
000206' 
000206' 

000212' 
000212' 
000212' 
000212' 



000212' 
000212' 
000214' 
000220' 
000224' 
000226' 
000226' 
000230' 
000230' 
000234' 
000234' 



01 0546 

012745 177572 

004767 000000G 

012605 

103413 

052701 000400 

010546 

012745 172516 

004767 OOOOOOG 

012605 

103402 

052701 040000 



OOOOOOG 
OOOOOOG 



010546 
01 6745 
004767 
012605 

103402 



052701 000004 



.SBTTL KERNEL - DETERMINE CPU OPTIONS 

+ 
DETERMINE IF "KT" IS PRESENT AND IF IT IS CHECK TO 
SEE IF EXTENDED KT" IS PRESENT 

CALL HRDADRCHK IN <#SRO> 

IF. NO. ERROR THEN 

LET R1 := R1 SET. BY #KTPRES 
CALL. HRDADRCHK IN <#SR3> 

IF. NO. ERROR THEN 

LET R1 := R1 SET. BY #KTXTND 

END IF 
ENDIF 



NOW DETERMINE IF CACHE MEMORY IS PRESENT BY CHECKING 
CACHE CONTROL REGISTER 



CALL HRDADRCHK IN <CCNTRL> 

IF. NO. ERROR THEN 

LET R1 := R1 SET. BY #CAPRES 
ENDIF 





MOV 
MOV 
JSR 
MOV 


R5,-(SP) 
#SR0,-(R5) 
PC.HRDADRCHK 
(SP)+,R5 




BCS 


50005$ 




BIS 


#KTPRES,R1 




MOV 
MOV 
JSR 
MOV 


R5,-(SP) 
#SR3 f -(R5) 
PC.HRDADRCHK 
(SP)+,R5 




BCS 


50006$ 




BIS 


#KTXTND,R1 


50006$: 






50005S*. 







MOV 
MOV 
JSR 
MOV 

BCS 

BIS 



R5,-(SP) 
CCNTRL,-(R5) 
PC.HRDADRCHK 
(SP)+,R5 

50007$ 

#CAPRES,R1 



50007$: 
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SEQ 1135 



726 
727 
728 
729 
730 
731 
732 
733 
734 
(4) 
735 
736 
(4) 
737 
(4) 
(6) 

(9) 
738 
(3) 
(4) 
(3). 
(3) 
739 
(6) 
740 
(4) 
741 
742 
743 
744 
745 
74S 
747 
(6) 
748 
(6) 
(9) 
749 
(6) 
750 
(4) 
(3) 
751 
(6) 
752 
(4) 
753 
(4) 
754 
(4) 
755 
756 
757 
758 
759 
760 



000234' 
000234' 

000240' 
000240' 
000244' 
000244' 
000244' 
000250' 
000252' 
000252' 
000254' 
000256' 
000262' 
000264' 
000264' 
000266' 
000266' 



000270' 
000270' 
000274' 
000274' 
000300' 
000302' 
000302' 
000306' 
000306' 
000310' 
000310' 
000310' 
000314' 
000314' 
000314' 
000314' 
000316' 
000316' 



016200 000064 



012703 

020327 
003035 

010546 
010345 
004767 
012605 

103414 

010320 



052713 

032713 
001403 

052701 

000402 



172100 
172136 

000000G 



000002 
000002 

000100 



052701 002000 



005013 



.SBTTL KERNEL - DETERMINE IF PARITY OR ECC MEMORY PRESENT 



GET STARTING ADDRESS OF PARITY TABLE, THEN DETERMINE IF 
PARITY CSR REGISTERS ARE AVAILABLE IF SO PLACE CSR ADDRESS 
IN PARITY TABLE. 



LET RO := DT.PTA(R2) 

LET R3 := #SS.PCSR 
WHILE R3 LE #SS.PCLS DO 

CALL. HRDADRCHK IN <R3> 

IF. NO. ERROR THEN 

LET (R0)+ := R3 



DETERMINE IF ECC MEMORY, IF IT IS SET ECC MEMORY BIT IN 
CONFIGURATION WORD ELSE SET PARITY PRESENT BIT IN 
CONFIGURATION WORD ,0. CLEAR THE PARITY CSR'S 

LET (R3) := (R3) SET. BY #BIT01 

IF #BIT01 SETIN (R3) THEN 



MOV 


DT.PTA(R2) f R0 


MOV 


#SS.PCSR,R3 


50010$: 

CMP 
BGT 


R3,#SS.PCLS 
5001 1$ 


MOV 
MOV 
JSR 
MOV 


R5,-(SP) 

R3,-(R5) 

PC, HRDADRCHK 

(SP)+,R5 


BCS 


50012$ 


MOV 


R3, (R0)+ 



BIS 



LET R1 := R1 SET. BY #ECCMEM 



ELSE 



LET R1 := R1 SET . BY #PARPRES 
ENDIF 
LET (R3) := #0 



ENDIF 



50013$: 



50014$: 



50012$: 



CLR 



IF 11/70 PROCESSOR THEN SET PARITY PRESENT IN CONFIGURATION 
WORD AND POINT TO PARITY CSR + 4, ELSE POINT TO 
PARITY CSR + 2 



#BIT01 , (R3) 



BIT 


0BITO1 , (R3) 


B£Q 


50013$ 


BIS 


#ECCMEM,R1 


BR 


50014$ 


BIS 


#PARPRES,R1 



(R3) 
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761 


000316' 






(6) 


000316' 


032701 


010000 


(9) 


000322' 


001405 




762 


000324' 






(6) 


000324' 


052701 


002000 


763 


000330' 






(6) 


000330' 


062703 


000004 


764 


000334' 






(4) 


000334' 


000402 




(3) 


000336' 






765 


000336' 






(6) 


000336' 


062703 


000002 


766 


000342' 






(4) 


000342' 






767 


000342' 






(4) 


000342' 


000740 




(3) 


000344' 






768 









ENDDO 



MACY11 30A(1052) 20-SEP-78 18:47 PAGE 21-4 
- DETERMINE IF PARITY OR ECC MEMORY PRESENT 

IF #PDP70 SETIN R1 THEN 



LET R1 := R1 SET. BY 0PARPRES 
LET R3 := R3 + #4 
ELSE. 



SEO 1136 



LET R3 := R3 + #2 



ENDIF 



50015$: 



50016$: 



50011$: 



BIT 

BEQ 

BIS 
ADD 
BR 

ADD 
BR 



#PDP70,R1 
50015$ 

#PARPRES, R1 

#4,R3 

50016$ 

#2,R3 
50010$ 
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SEQ 1137 



771 
772 
773 
774 
775 
776 
777 
778 
(4) 
779 
780 
781 
782 
783 
784 
785 
786 
(6) 
(9) 
787 
788 
789 
790 
791 
792 
(4) 
793 
(4) 
794 
795 
796 
797 
798 
799 
(3) 
800 
(6) 
801 
(6) 
802 
(3) 
(4) 
(3) 
(3) 
803 
(6) 
804 
(2) 
805 
(4) 
806 
(3) 
(6) 
807 
808 
809 



000344' 
000344' 016762 



000000 000044 



000352' 

000352' 032701 
000356' 001053 



000400 



000360' 
000360' 
000362' 
000362' 



000364' 
000364' 
000364' 
000364' 
000366' 
000366' 
000372' 
000372' 
000374' 
000376' 
000402' 
000404' 
000404' 
000406' 
000406' 
000410' 
000410' 
000410' 
000410' 
000414' 



005000 



005003 



SBTTL KERNEL - DETERMINE SYSTEM SIZE 

+ 
NOW TAKE THE CONTENTS OF LOC . (EXERCISER SIZE) 
AND LOAD IT INTO EXERCISER SIZE WORD 

LET DT.ESIZ(R2) := 



IF NO "KT" DETERMINE SYSTEM SIZE, WHICH CAN NOT BE GREATER 
THAN 28K. 



IF #KTPRES NOTSETIN R1 THEN 

SET UP COUNTER OF 1K CHUNKS AND 1K BLOCK POINTER 

LET RO := #0 
LET R3 := #0 

REPEAT UNTIL NON-EXISTENT MEMORY OR 28K 



MOV 



BIT 
BNE 



CLR 
CLR 



005200 



062703 004000 



010546 
01 0345 
004767 
012605 

103001 

000403 



OOOOOOG 



REPEAT 

LET RO := RO + #1 

LET R3 := R3 + #SS.OKC 

CALL HRDADRCHK IN <R3> 

IF. ERROR THEN 

INLINE <BR 4$> 
ENDIF 
UNTIL RO EQ #SS.28 



50020$ 



0,DT.ESIZ(R2) 



#KTPRES,R1 
50017$ 



RO 
R3 



020027 
001363 



000034 





INC 


RO 




ADD 


#SS.0KC,R3 




MOV 
MOV 
JSR 
MOV 


R5,-(SP) 

R3,-(R5) 

PC, HRDADRCHK 

(SP)+,R5 




BCC 


50021$ 




BR 4$ 




50021$: 








CMP 
BNE 


R0,#SS.28 
50020$ 



; + 



DETERMINE IF SYSTEM HAS 30K BY LOOKING AT FIRST ADDRESS IN I/O PAGE 
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SEQ 1138 



810 
811 
812 
(2) 
813 
(6) 
(9) 
814 
(3) 
(4) 
(3) 
(3) 
815 
(6) 
816 
(6) 
817 
(4) 
818 
(4) 
819 
820 
821 
822 
823 
824 
825 
826 
(4) 
827 
(4) 
(7) 
(7) 
(7) 
(7) 
(7) 
(7) 
828 
(4) 
(3) 
829 
830 
831 
832 
833 
(3) 
(4) 
(3) 
(3) 
834 
835 
836 
837 
838 
839 
840 



000416' 
000416' 
000416' 
000416' 
000422' 
000424' 
000424' 
000426' 
000432' 
000436' 
000440' 
000440' 
000442' 
000442' 
000446' 
000446' 
000446' 
000446' 



000446' 
000446' 
000450' 
000450' 
000454' 
000460' 
000464' 
000470 ' 
000474' 
000500' 
000504' 
000504' 
000506' 



000506' 
000506' 
000510' 
000512' 
000516' 



020027 
00101 1 

01 0546 
012745 
004767 
012605 

103402 



062703 010000 



000241 

010362 
006062 
006062 
006062 
006062 
006062 
006062 

000435 



010546 
01 0245 
004767 
012605 



000034 



160000 
OOOOOOG 



000046 
000046 
000046 
000046 
000046 
000046 
000046 



OOOOOOG 



INLINE <4$:> 

IF RO EQ #SS.28 THEN 



4$ 



CALL HRDADRCHK IN <#SS.RFS> 

IF. NO. ERROR THEN 

LET R3 := R3 + #10000 
ENDIF 



END IF 





CMP 
BNE 


RO, #SS.28 
500 22$ 




MOV 
MOV 
JSR 
MOV 


R5,-(SP) 
#SS.RF5,-(R5) 
PCHRDADRCHK 
(SP)+,R5 




BCS 


50023$ 




ADD 


#10000,R3 


50023$: 






50022$: 







NOW GET MEMORY SIZE IN "PAR" FORMAT BY SHIFTING R3, 6 TIMES 
TO THE RIGHT, ONCE THIS IS DONE LOAD INTO SYSTEM 
SIZE WORD. 



LET CARRY := #0 

LET DT.SSIZ(R2) := R3 ROTATE -6 



ELSE 



+ 



CLC 

MOV 
ROR 
ROR 
ROR 
ROR 
ROR 
ROR 

BR 



50017$: 



KT IS PRESENT, FIRST GO MAP APRS 
CALL KTSET IN <R2> 



WILL USE KIPAR5 TO SIZE MEMORY. TURN ON KT AND THEN 
SIZE UNTIL NON-EXISTENT MEMORY IS FOUND OR THE 
I/O PAGE IS FOUND. SIZING WILL BE DONE IN 
1K STEPS 



R3,DT.SSIZ(R2) 

DT„ SSIZ(R2) 

DT.SSIZ(R2) 

DT„ SSIZ(R2) 

DT.SSIZ(R2) 

DT.SSIZ(R2) 

DT„SSIZ(R2) 

50024$ 



MOV 


R5„-(SP) 


MOV 


R2,-(R5) 


JSR 


PC, KTSET 


MOV 


(SP)+,R5 
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SEQ 1139 



841 
(4) 
842 
843 
(6) 
844 
845 
(3) 
846 
(6) 
847 
(3) 
(4) 
(3) 
(3) 
848 
(6) 
849 
(2) 
850 
(4) 
851 
(3) 
(6) 
852 
853 
854 
855 
856 
857 
(2) 
858 
(4) 
859 
(4) 
860 



000520' 
000520' 

000526' 
000526' 

000534' 
000534' 
000534' 
000534' 
000542' 
000542" 
000544' 
000550' 
000554' 
000556' 
000556' 
000560' 
000560' 
000562' 
000562' 
000562' 
000562' 
000570' 



000572' 
000572' 
000572' 
000572' 
000600' 
000600' 



012737 000040 172352 



052737 000001 177572 



062737 000040 172352 



010546 
012745 
004767 
012605 

103001 

000404 



023727 
001361 



120000 
000000G 



172352 177600 



013762 172352 000046 



LET @#KIPAR5 



#SS.1KP 



LET @#SRO := @#SRO SET. BY #BIT00 



REPEAT 



LET @#KIPAR5 := @#KIPAR5 + #SS.1KP 
CALL HRDADRCHK IN <#SS.120K> 



IF. ERROR THEN 

INLINE <BR 5$> 



ENDIF 



UNTIL @#KIPAR5 EQ #SS.IOP 



LOAD SYSTEM SIZE WORD WITH CONTENTS OF KIPAR5 



INLINE <5$:> 



50025$ 



50026$ 



LET DT.SSIZ(R2) := @#KIPAR5 



ENDIF 



MOV 



BIS 



ADD 

MOV 
MOV 
JSR 
MOV 

BCC 

BR 5$ 



CMP 
BNE 



5$: 
MOV 



#SS. 1KP,@#KIPAR5 



#BITOO,<a#SRQ 



#SS.1KP,@#KIPAR5 

R5,-(SP) 
#SS.120K,-(R5) 
PC, HRDADRCHK 
(SP)+,R5 

50026$ 



©#KIPAR5,#SS. IOP 
50025$ 



<P#KIPAR5 f DT.SSIZ 



i0024$: 
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SEQ 1140 



862 
863 
864 
865 
866 
867 
868 
(6) 
(8) 
(6) 
(9) 
(6) 
869 
870 
871 
872 
873 
874 
875 
(6) 
(9) 
876 
(4) 
877 
(4) 
878 
(4) 
879 
880 
881 
882 
883 
884 
885 
886 
887 
(6) 
(9) 
888 
(3) 
889 
890 
891 
892 
893 
894 
895 
(4) 
896 
(4) 
897 
898 
899 
900 
901 
902 



000600' 

000600' 032701 

000604' 001003 

000606' 032701 



.SBTTL KERNEL - WRITE GOOD PARITY IF ECC OR PARITY PRESENT 

+ 
DETERMINE IF PARITY OR ECC MEMORY IS PRESENT. 

IF tfPARPRES SETIN R1 OR #ECCMEM SETIN R1 THEN 



002000 



000100 



000612 1 
000614 1 



001500 





BIT 


#PARPRES,R1 




BNE 


50027$ 




BIT 


#ECCMEM,R1 




BEQ 


50030$ 


i0027$: 







000614' 
000614' 
000620' 
000622' 
000622' 
000630' 
000630' 
000636' 
000636' 



IF CACHE PRESENT, SET BIT 0,1 IN CACHE CONTROL REGISTER 
THIS WILL TURN CACHE OFF 



IF #CAPRES SETIN R1 THEN 



032701 
001406 



000004 



012767 000003 OOOOOOG 
016777 OOOOOOG OOOOOOG 



LET KONTRL := #3 

LET ©CCNTRL := KONTRL 



BIT 
BEQ 

MOV 

MOV 



#CAPRES,R1 
50031$ 

#3, KONTRL 

KONTRL,@CCNTRL 



END IF 



50031$: 



000636' 
000636' 
000642' 
000644' 
000644' 



SINCE PARITY OR ECC IS PRESENT AND TURNED OFF 

WILL NOW SET UP TO WRITE GOOD PARITY INTO ALL 

OF MEMORY, FIRST DETERMINE IF KT IS PRESENT THEN SET 

UP KT REGISTERS. 



IF tfKTPRES SETIN R1 THEN 



032701 
001426 



000400 



004767 OOOOOOG 



000650' 

000650' 005037 172314 

000654' 

000654' 005037 172352 



CALL KTSET 



SET UP KIPDR6 TO TRAP WHEN ENTERING PAGE. AND 
SET UP KIPAR5 TO MAP TO 



LET (MKIPDRS := #0 
LET @#KIPAR5 := #0 



SAVE KT ERROR VECTOR AND SET UP KT ERROR VECTOR TO 
GO TO 7$. THEN TURN ON KT AND SET UP BUSERR VECTOR AT 
SET UP RO TO USE PAR5 



BIT 
BEQ 

JSR 



#KTPRES,R1 
50032$ 

PC,, KTSET 



CLR 
CLR 



@#KIPDR6 
@#KIPAR5 
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PUSH @#4 
LET @#4 := #8$ 
PUSH @#250 
LET @#250 := #7$ 

LET @#SRO := @#SRO SET. BY #BITOO 
LET RO := *SS.120K 
ELSE 



IF KT NOT PRESENT THEN SET UP POINTER AND SAVE BUSERR VECTOR 

LET RO := #0 

PUSH @#4 

LET MA :=#10$ 



903 










904 


000660' 








(2) 


000660' 


013746 


000004 




905 


000664' 








(4) 


000664' 


012737 


000760' 


000004 


906 


000672' 








(2) 


000672' 


013746 


000250 




907 


000676' 








(4) 


000676' 


012737 


000740' 


000250 


908 


000704' 








(6) 


000704' 


052737 


000001 


177572 


909 


000712' 








(4) 


000712' 


012700 


120000 




910 


000716' 








(4) 


000716' 


000406 






(3) 


000720' 








911 










912 










913 










914 










915 










916 


000720' 








(4) 


000720' 


005000 






917 


000722' 








(2) 


000722' 


013746 


000004 




918 


000726' 








(4) 


000726' 


012737 


001006' 


000004 


919 


000734' 








(4) 


000734' 








920 










921 










922 










923 










924 


000734' 






I 


(2) 


000734' 








925 


000734' 








(4) 


000734' 


01 1020 






926 


000736' 








(2) 


000736' 


000776 






927 










928 










929 










930 










931 










932 










933 










934 


000740' 






I 


(2) 


000740' 








935 


000740' 








(6) 


000740' 


062737 


000200 


172352 


936 


000746' 








(4) 


000746' 


012700 


120000 




937 


000752' 








(4) 


000752' 


012716 


000734' 




938 


000756' 








(2) 


000756' 


000002 











SEQ 11 




MOV 


<M4,-(SP) 




MOV 


#8$,@*4 




MOV 


@#250,-(SP) 




MOV 


#7$,@#250 




BIS 


#BITOO,@#SRO 




MOV 


#SS.120K,R0 




BR 


50033$ 


0032$: 







CLR RO 

MOV @#4,~(SP) 

MOV #10$,@#4 



END IF 

NOW WRITE GOOD PARITY 
INLINE<6$:> 

LET (R0)+ := (RO) 
INLINE <BR 6$> 



COME HERE BY WAY OF KT TRAP. 

UPDATE PAR5 TO NEXT 4K BLOCK AND RESET RO TO START 

OF BLOCK. LOAD RETURN PC WITH 6$ AND RTI 



INLINE <7$:> 

LET @#KIPAR5 := ®#KIPAR5 + #200 
LET RO := 0SS.12OK 
LET (SP) := #6$ 
INLINE <RTI> 



50033$: 



6$: 

MOV (RO),(RO)+ 

BR 6$ 



7$: 
ADD 


#200,@#KIPAR5 


MOV 


0SS.12OK.ro 


MOV 


#6$, (SP) 


RTI 
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SEQ 1142 



939 
940 
941 
942 
943 
944 
945 
946 
(2) 
947 
(6) 
948 
949 
(4) 
950 
(2) 
951 
952 
(2) 
953 
(2) 
954 
(2) 
955 
(2) 
956 
957 
958 
959 
960 
961 
962 
(2) 
963 
(2) 
964 
(2) 
965 
966 
(4) 
967 
968 
969 
970 
971 
972 
973 
(2) 
974 
(6) 
(9) 
975 
(6) 
976 
(4) 
977 



COME HERE BY WAY OF ILLEGAL ADDRESS TRAP. 

TOP OF MEMORY WAS FOUND, TURN OFF MEMORY MANAGEMENT, 

REMOVE TRAP PC AND PSW FROM STACK AND RESTORE BUS ERR AND MEMGMT VECTORS 



000760' 
000760' 
000760' 
000760' 042737 



000001 177572 



000766' 

000766' 012716 000774' 

000772' 

000772' 000002 



000774' 
000774' 
000774' 
000774' 
001000' 
001000' 
001004' 
001004' 



012637 000250 



012637 000004 



000403 



001006' 
001006' 
001006' 
001006' 
001010' 
001010' 

001014' 
001014' 



022626 



012637 000004 



INLINE <8$:> 

LET @#SR0 := @#SR0 CLR.BY #BIT00 

LET (SP) := #9$ 

INLINE <RTI> 

INLINE <9$:> 

POP @#250 

POP @#4 

INLINE <BR 11$> 



WILL TRAP HERE IF NO MEMORY MANAGEMENT, CLEAN UP 
STACK AND RESTORE BUSERR 



INLINE <10$:> 

INLINE <CMP (SP)+,(SP)+> 
POP @#4 

ENDIF 



8$: 

BIC #BITOO,0#SRO 



MOV 


#9$, (SP) 


RTI 




9$: 




MOV 


(SP)+,©#250 


MOV 


(SP)+,@#4 


BR 11$ 





10$: 

CMP (SP)+,(SP)+ 

MOV (SP)+,@#4 



50030$: 



IF AUTOMATIC MODE( ACT , SLIDE , XXDP , ETC. ) , SET AUTO BIT IN CONFIGURATION WORDO 



001014' 
001014' 
001014' 
001014' 
001020' 
001022' 
001022' 
001026' 
001026' 



INLINE <11$:> 

IF (M42 NE #0 THEN 



005737 
001402 



000042 



LET R1 :» R1 SET. BY #AUTO 



052701 000010 



11$: 

TST 

BEQ 

E1S 



©#42 
50034$ 

#AUT0,,R1 



ENDIF 



50034$: 
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SEO 1143 



978 
979 
980 
981 
982 
983 
(6) 
984 
(6) 
985 



001026' 

001026' 042701 035060 

001032' 

001032' 050162 000014 



CLEAN UP R1 BEFORE LOADING CONFIGURATION WORD 
LOAD UP CONFIGURATION WORD 



LET R1 := R1 CLR.BY #JACK 

LET DT.CF0(R2) :» DT.CF0(R2) SET. BY R1 



BIC #JACK,R1 

BIS R1 ,DT.CF0(R2) 
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.SBTTL KERNEL - SORT MODULE LIST 



COUNT THE MODULES 



SEQ 1144 



987 






988 






989 






990 






991 






992 






993 






994 


001036' 




(4) 


001036' 


005000 


995 


001040' 




(4) 


001040' 


016201 000032 


996 


001044' 




(4) 


001044' 




(6) 


001044' 


021127 000000 


(9) 


001050' 


001404 


997 


001052' 




(6) 


001052' 


005200 


998 


001054' 




(6) 


001054' 


062701 000002 


999 


001060' 




(4) 


001060' 


000771 


(3) 


001062' 




1000 






1001 






1002 






1003 






1004 






1005 






1006 


001062' 




(4) 


001062' 


016201 000032 


1007 






1008 






1009 






1010 






1011 






1012 


001066' 




(4) 


001066' 




(6) 


001066' 


005700 


(9) 


001070' 


003432 


1013 


001072' 




(3) 


001072' 




1014 






1015 






1016 






1017 






1018 






1019 


001072' 




(4) 


001072' 


01 1104 


1020 


001074' 




(6) 


001074' 


032764 000020 


(9) 


001102' 


001414 


1021 






1022 






1023 






1024 






1025 







LET RO := #0 

LET R1 := DT.MLST(R2) 

WHILE (R1 ) NE #ENDLST DO 

LET RO := RO + #1 
LET R1 := R1 + #2 

ENDDO 



START THE SORT OPERATION, AND SORT "BKMODS" TO BOTTOM OF MODQ 
LIST, DEVELOPING A " BKMOD QUEUE". 





CLR 


RO 




MOV 


DT.MLST(R2) ,R1 


50035$: 


CMP 

BEQ 


(R1 ) ,#ENDLST 
50036$ 




INC 


RO 




ADD 


#2,R1 


50036$: 


BR 


50035$ 



LET R1 := DT.MLST(R2) 



WORK THRU THE LIST UNTIL THE END IS REACHED 



WHILE RO GT #0 DO 



REPEAT 



MOV 



50037$: 



TST 
BLE 



50041$: 



000026 



IS THE CURRENT ENTRY A BKMOD MODULE? 

LET R4 := (R1 ) 

IF #BKMQD SETIN STAT(R4) THEN 

THE CURRENT ENTRY IS A BKMOD, WHAT ABOUT THE NEXT ENTRY? 



MOV 

BIT 
BEQ 



DT.MLST(R2) ,R1 



RO 
50040$ 



(R1 ),R4 

#BKM0D,STAT(R4) 
50042$ 
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LET R3 := 2(R1 ) 



MAKE SURE ITS NOT THE END OF THE LIST 



SEQ 1145 



1026 


001104' 






(4) 


001104' 


016103 


000002 


1027 








1028 








1029 








1030 








1031 








1032 


0011 10' 






(6) 


0011 10' 


020327 


000000 


(9) 


0011 14' 


001407 




1033 








1034 








1035 








1036 








1037 








1038 


001 1 16' 






(6) 


0011 16' 


032763 


000020 000026 


(9) 


001 124' 


001003 




1039 


001126' 






(4) 


001 126' 


01 1 161 


000002 


1040 


001132' 






(4) 


001132' 


010311 




1041 


001134' 






(4) 


001134' 






1042 


001134' 






(4) 


001134' 






1043 


001134' 






(4) 


001134' 






1044 








1045 








1046 








1047 








1048 








1049 


001134' 






(6) 


001134' 


062701 


000002 


1050 


001 140' 






(3) 


001 140' 


021 127 


000000 


(6) 


001144' 


001352 




1051 








1052 








1053 








1054 








1055 








1056 


001146' 






(6) 


001146' 


005300 




1057 


001150' 






(4) 


001150' 


016201 


000032 


1058 


001154' 






(4) 


001 154' 


000744 




(3) 


001156' 






1059 








1060 








1061 








1062 








1063 








1064 









MOV 



2(R1 ) ,R3 



IF R3 NE #ENDLST THEN 



CMP 
BEQ 



R3,#ENDLST 
50043$ 



IF ITS NOT A BKMOD, SWAP THEM 



IF 0BKMOD NOTSETIN STAT(R3) THEM 

BIT #BKMOD,STAT(R3) 

BNE 50044$ 
LET 2(R1 ) := (R1 ) 

MOV (R1),2(R1) 
LET (R1 ) := R3 

MOV R3,(R1) 



ENDIF 



ENDIF 



ENDIF 



50044$: 
50043$: 
50042$: 



UPDATE THE POINTER AND CONTINUE SEARCHING THRU THE LIST 

LET R1 := R1 + #2 
UNTIL (R1 ) EQ #ENDLST 



ADD 

CMP 
BNE 



#2, R1 

(R1 ) ,#ENDLST 
50041$ 



THE END OF THE LIST HAS BEEN REACHED, SO UPDATE THE MAIN POINTER & CONTINUE 

LET RO := RO - #1 
LET R1 := DT.MLST(R2) 
ENDDO 

50040$: 

NOW THAT THE BACKGROUND MODULES HAVE BEEN GROUPED TOGETHER AT THE END 
OF THE MODULE LIST, PUT THE ADDRESS OF THIS BACKGROUND LIST (IF ThERE IS 
A BACKGROUND LIST) INTO THE DATA TABLE 



DEC 


RO 


MOV 


DT.MLST(R2) ,R1 


BR 


50037$ 
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LET R1 :■ DT.MLST(R2) 



SEQ 1146 



1065 








1066 


001156' 






(4) 


001156' 


016201 


000032 


1067 








1068 








1069 








1070 








1071 








1072 


001162' 






(4) 


001 162' 


005062 


000034 


1073 


001 166' 






(4) 


001 166' 


012703 


177777 


1074 


001172' 






(4) 


001172' 






(6) 


001172' 


021 127 


000000 


(9) 


001176' 


001420 




(6) 


001200' 


005703 




(9) 


001202' 


001416 




1075 


001204' 






(4) 


001204' 


01 1104 




1076 


001206' 






(6) 


001206' 


032764 


000020 000026 


(9) 


001214' 


001406 




1077 








1078 








1079 








1030 








1081 








1082 


001216' 






(4) 


001216' 


010162 


000034 


1083 


001222' 






(4) 


001222' 


012701 


000000 


1084 


001226' 






(4) 


001226' 


005003 




1085 


001230' 






(4) 


001230' 


000402 




(3) 


001232' 






1086 








1087 








1088 








1089 








1090 








1091 


001232' 






(6) 


001232' 


062701 


000002 


1092 


001236' 






(4) 


001236' 






1093 


001236' 






(4) 


001236' 


000755 




(3) 


001240' 






1094 








1'095 








1096 








1097 








1098 








1099 


001240' 






(3) 


001240' 


004767 


OOOOOOG 



MOV 



DT.MLST(R2) t R1 



WORK THRU THE MODULE LIST UNTIL THE FIRST BACKGROUND MODULE IS FOUND 

LET DT.BLST(R2) := #0 

LET R3 := #-1 

WHILE (R1) NE #ENDLST AND R3 NE #0 DO 



LET R4 := (R1 ) 

IF #BKMOD SETIN STAT(R4) THEN 



A BACKGROUND MODULE HAS BEEN FOUND - SO THIS IS THE START OF THE BACKGROUND LIST 



CLR 


DT.BLST(R2) 


MOV 


#-1 ,R3 


50045$: 

CMP 
BEQ 
TST 
BEQ 


(R1 ) ,#ENDLST 

50046$ 

R3 

50046$ 


MOV 


(R1 ),R4 


BIT 
BEQ 


#BKM0D,STAT(R4) 
50047$ 



LET DT.BLST(R2) := R1 
LET R1 := tfENDLST 
LET R3 := #0 



ELSE 



MOV 
MOV 
CLR 
BR 



R1 ,DT.BLST(R2) 

#ENDLST,R1 

R3 

50050$ 



50047$: 



UPDATE THE POINTER AND CONTINUE TO SEARCH THRU THE MODULE LIST 



LET R1 := R1 + M2 



ENDIF 



ENDDO 



50050$: 



50046$: 



ADD 



BR 



#2,R1 



50045$ 



NOW RETURN TO THE CALLER 



CALL RESREG 



JSR 



PC .RESREG 



SIZPLC 


SIZE AND 


POLL SYSTEM - KT 


OPTIONS 


SIZPLC. 


MAC 08-SEP-78 09:35 




1100 


001244' 






(3) 


001244' 






(3) 


001244' 






(2) 


001244' 


000207 




1101 








1 102 








1103 








1 104 








1105 








1 106 


001246' 






(2) 


001246' 






1 107 








1108 








1109 








1110 








1111 








1112 








1113 








1 1 14 








1115 








11 16 








1117 








1118 








1119 




000000' 




1120 




000122' 




1121 




000364' 




1 122 




000120' 




11 23 




000122 




1 124 




000362' 




1125 




000050 




1 126 




000662 




1127 




000002 




1128 




001244' 




1129 




000066 




1130 








1131 




000001 
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KERNEL - SORT MODULE LIST 

ENDRTN 



LABEL TYPE. QUEUE HIGH LIMIT 



SEO 1147 



50000S: 
50001$: 



RTS 



PC 



INLINE <DV.TQEND:> 



OV.TQEND: 



•*:**************************** * ******** 

• NOTE: THESE OVERLAY EQUATES MUST BE LEFT IN THIS POSITION 
; (THAT IS, AFTER SIZPOL AND TQ.END LABELS) 



OVERLAY REGIONS EQUATES 
; +++++ + ++++++++'++++++++++++++++++++++++ 
OV.KBBUF = SIZPOL 
OV.CQ= OV.KBBUF + ~D<82> 
OV.TQ = OV.CQ + "D<162> 
OV.HIKB = OV.CQ - 2 
OV.KBSIZ = OV.CQ - OV.KBBUF 
OV.HICQ = OV.TQ - 2 
OV.CQSIZ = <OV.TQ - 0V.CQ>/4 
OV.A = OV.TQEND - OV.TQ 
OV.REM = OV.A - «OV.A/10>*10> 
OV.HITO = OV.TQEND - OV.REM 



KEYBOARD BUFFER STARTING ADDRESS 
CONTROL QUEUE STARTING ADDRESS 
TYPE QUEUE STARTING ADDRESS 
KEYBOARD BUFFER HIGH LIMIT 
KEYBOARD BUFFER SIZE 
CONTROL QUEUE HIGH LIMIT 
CONTROL QUEUE SIZE 
GET THE TQ SIZE 
GET ANY REMAINDER 
TYPE QUEUE HIGH' LIMIT 



OV.TQSIZ = <OV.TQEND - OV.TQ - OV.REM> /10 



END 



;TYPE QUEUE SIZE 



SIZPLC SIZE AND POLL SYSTEM - KT OPTIONS MACY11 30A(1052) 20-SEP-78 
SIZPLC.MAC 08-SEP-78 09:35 SYMBOL TABLE 



18:47 PAGE 23 



ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS" = 


0001 10 


BITO '= 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT.1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 » 


020000 


BIT 14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


000010 


BIT4 = 


000020 


BITS * 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BITS = 


000400 


BITS ' = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CCNTRL= 


* * * * * * 


CDERCTa 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CPUCPE= 


****** 


CQOVF = 


000001 


CR 


000015 



CSRA = 
CSRC = 
CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO= 
DSEVNT= 
DTABLE= 
DT.ADDa 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CF0= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXSa 
DT.FCH= 
DT.FCN= 
DT.HMXa 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT,ST0= 
DT.ST1= 
DT.SWRa 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 



000100 
000102 
000003 
000017 
000025 
000011 
000400 
000000 
100000 
000014 
000000 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 10 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 













SEQ 1148 


ENBNUL= 


000001 


LF 


000012 


PDP70 = 


010000 




ENDLSTa 


000000 


LPSTAT= 


000001 


PRIO = 


000000 




EOPBIT= 


000001 


MAPSTA= 


000200 


PRI1 = 


000040 




ERRTYP= 


000105 


MED = 


076600 


PR I 4 a 


000 200 




EVNTBE= 


000200 


MEMPAS= 


040000 


PRI5 = 


000240 




EVNTHD= 


000200 


MODEXH- 


004000 


PR 1 6 = 


000300 




EVNTKT= 


000203 


MODHOL = ' 


002000 


PRI7 = 


000340 




EVNTPE= 


000202 


MODSEL= 


001000 


PRO 


000000 




EVNTRE= 


000201 


MSGCKD= 


000010 


PR4 


000200 




FATERR= 


100000 


MSGCKS= 


00001 1 


PR5 a 


000240 




HRDADR= 


****** G 


MSGDER= 


000005 


PR6 


000300 




HRDCNT= 


000044 


MSGDRP= 


000017 


PR7 


000340 




HRDPAS= 


000050 


MSGECH= 


177777 


PS 


1-77776 




HTKT = 


****** Q 


MSGEOP= 


000013 


PSW 


177776 




HTPAER= 


****** Q 


MSGHDR= 


000004 


RANNUM= 


000054 




ICONT = 


000036 


MSGHNG= 


000022 


RBUFEA= 


000130 




ICOUNT= 


000040 


MSGHRD= 


000007 


RBUFPA= 


000126 




IDNUM = 


000122 , 


MSGMAP= 


000021 


RBUFSZ= 


000132 




IE 


000100 


MSGNUL= 


177775 


RBUFVA= 


000124 




INDPAR= 


000040' 


MSGPOP= 


000002 


RDSERV= 


000101 




INHDRP= 


040000 


MSGPRM= 


177776 


RDWHMI= 


000022 




INHEPR= 


020000 


MSGRESa 


000001 


RELERR= 


000020 




INHREL= 


001000 


MSGSFT= 


000006 


RELMOD= 


020000 




INHRRE= 


000400 


MSGSKE= 


000003 


RELTIM= 


010000 




INIT a 


000030 


MSGSM3= 


000015 


RESREG= 


****** g 




INTR = 


000120 


MSGSMH= 


000014 


RES1 = 


000056 




IOMOD = 


100000 


MSGSMS* 


000016 


RES2 = 


000060 




IOMODPa 


102000 


MSGSTD= 


000000 


RICHAR= 


031060 




I0M0DR= 


1 12000 


MSGSYS= 


000012 


RPTDAT= 


002000 




IOMODX= 


110000 


MSGVEC= 


000020 


RSTRT = 


0001 12 




JACK = 


035060 


NBKMOD= 


001000 


RUBGUT= 


000177 




KIPAROa 


172340 


NCPUOP= 


000020 


RUNMOD= 


100000 




KIPARIa 


172342 


NOAPTY= 


000002 


R5VALUa 


001740 




KIPAR2a 


172344 


NULL = 


000000 


SAM 


075464 




KIPAR3a 


172346 


OV.A = 


000662 


SAVREGa 


****** Q 




KIPAR4= 


172350 


OV.CQ = 


000122RG 


SBADR = 


000102 




KIPAR5= 


172352 


OV.CQS= 


000050 G 


SBKIVOD= 


000000 




KIPAR6= 


172354 


OV.HIC= 


000362RG 


SBKSEL= 


010000 




KIPAR7= 


172356 


OV.'HIK = 


000120RG 


SC.ADR= 


000006 




KIPDROa 


172300 


OV.HIT= 


001244RG 


SC.ALC= 


000014 




KIPDR1= 


172302 


OV.KBB= 


OOOOOORG 


SC.APC= 


000016 




KIPDR2= 


172304 


OV.KBSa 


000122 G 


SC.CKL= 


000002 




KIPDR3= 


172306 


OV.REM= 


000002 


SC.CKP= 


000004 




KIPDR4= 


172310 


OV.TQ = 


000364RG 


SC.CLO= 


000000 




KIPDR5= 


172312 


OV . TOE 


001246R 


SC.HLD= 


000010 




KIPDR6= 


172314 


OV.TQSa 


000066 G 


SC.SCA= 


000012 




KIPDR7= 


172316 


OWEN = 


024020 


SENDLS= 


177777 




KONTRL= 


****** G 


PAERR = 


000010 


SIZPOL 


OOOOOORG 




KTERRO= 


000040 


PARPRE= 


002000 


SOFCNTa 


000042 




KTPRES= 


000400 


PARSTA= 


000100 


SOFPAS= 


000046 




KTSET = 


****** Q 


PASCNT= 


000034 


SPACE = 


000040 




KTSTATa 


000020 


PDPLSI= 


020000 


SPOINT= 


000032 




KTXTND= 


040000 


PDP60 = 


0C4000 


SPVALU= 


002200 





SIZPLC 


SIZE AND POLL SYSTEM - KT 


OPTIONS 


SIZPLC. 


VIAC 08-SEP-78 


09:35 




SRO = 


177572 


TQOVF = 


000002 


SR1 


177574 


UIPARO= 


177640 


SR2 


177576 


UIPAR1= 


177642 


SR3 


172516 


UIPAR2= 


177644 


SS. IOP = 


177600 


UIPAR3= 


177646 


SS.PCL= 


172136 


UIPAR4= 


177650 


SS.PCS= 


172100 


UIPAR5= 


177652 


SS.RFS= 


160000 


UIPARS= 


177654 


SS.OKC= 


004000 


UIPAR7= 


177656 


SS. 1KP= 


000040 


UIPDRO= 


177600 


SS.120= 


120000 


UIPDR1= 


177602 


SS.28 = 


000034 


UIPDR2= 


177604 


STAT = 


000026 


UIPDR3^- 


177606 


STATBI= 


064757 


UIPDR4= 


177610 


STAT1 = 


000027 


UIPDR5= 


177612 


SUSPND= 


000001 


UIPDR6= 


177614 


SVRO = 


000062 


UIPDR7= 


177616 


SVR1 = 


000064 


WASADR= 


000104 


SVR2 = 


000066 


WBSTAT= 


000040 


SVR3 = 


000070 


WBUFEA= 


000136 


SVR4 = 


000072 


WBUFPA= 


000134 


SVR5 = 


000074 


WBUFRQ= 


000140 


SVR6 = 


000076 


WBUFSZ= 


000142 


SYSCNT= 


000052 


WDFR = 


0001 16 


SYSERR= 


000100 


WDTO = 


0001 14 


TMPIO = 


000002 


WTINRE= 


000352 


. ABS. 


000000 000 
001246 001 







SYMBOL 
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ABLE 








WTWHMI= 


000222 


$F$WHI= 


: 000120 


XFLAG = 


000005 


$F$YES= 


= 0004Q2 


XOFF = 


000023 


$IFLEV= 


= 177777 


XON 


000021 


$ISKO = 


: 000001 


$BGNLE= 


177777 


$ISK1 = 


^ 000001 


$ERFLG= 


000400 


$ISK2 = 


= 000001 


$F$AND= 


000310 


$LOCTA = 


= 177777 


$F$BAD= 


000401 


$LSTIN= 


= 000001 


$F$BLA= 


000170 


$LSTTA= 


-- 300001 


$F$CAS= 


000150 


SNESTL-- 


-- 177777 


$F$DEC= 


000220 


$NSKO = 


= 000300 


$F$DO = 


000340 


$NSK1 = 


= 000120 


$F$FAL= 


000405 


$NSK2 = 


= 000110 


$F$GOO= 


000400 


$NSK3 : 


= 000110 


$F$IF = 


0001 10 


$NSK4 : 


= 000110 


$F$INC= 


000210 


$NSK5 ■■ 


= 000110 


$F$LOO= 


000200 


$SAVLE: 


= 177777 


$F$NAM= 


000160 


$SSKO ■- 


' 050046 


$F$NO = 


000403 


$TAGLE: 


= 177777 


$F$OR = 


000320 


$TAGNU^ 


= 050051 


$F$RTI= 


000350 


$TEMP : 


= 000300 


$F$RTN= 


000300 


$TSKO i 


= 050045 


$F$SEL= 


000140 


$TSK1 : 


= 050046 


$F$THE= 


000330 


$TSK2 : 


= 050050 


$F$TRU= 


000404 


$TSK3 : 


= 050042 


$F$UNT= 


000130 


$TSK4 : 


= 050043 



!EQ 1 149 



$TSK5 = 
$$ARGC= 
$$BYTE= 
$$CASE= 
$$DST = 
$$ELOC= 
$$ERFL= 
$$FLAG= 
$$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RETU= 
$$RTN1= 
$SRTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG= 



050044 

000002 

000403 

000000 

000000 

000402 

000000 

000001 

000000 

001214R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

001246R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



DSKZ:SIZPLC,DSKZ:SIZPLC=SPMAC/ML, EQUATE, SIZPLC 
RUN-TIME: 28 19 .4 SECONDS 
RUN-TIME RATIO: 118/48=2.4 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:43 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS SEQ 1150 

3 COMMON EQUATE MODULE 
564 COMMON DEFINITIONS AND REFERENCES 

567 000000' .PRINT ;SPMAC: VERSION 1.1 

618 KERNEL - DETERMINE PROCESSOR TYPE 
696 KERNEL - DETERMINE CPU OPTIONS 

727 KERNEL - DETERMINE IF PARITY OR ECC MEMORY PRESENT 
772 KERNEL - DETERMINE SYSTEM SIZE 

863 KERNEL - WRITE GOOD PARITY IF ECC OR PARITY PRESENT 
987 KERNEL - SORT MODULE LIST 



SIZPLD SIZE AND POLL SYSTEM - KT OPTIONS AND 11/60 SUPPORT 
SIZPLD.MAC 08-SEP-78 09:35 COMMON EQUATE MODULE 
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SEQ 1151 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 



TITLE SIZPLD SIZE AND POLL SYSTEM - KT OPTIONS AND 11/60 SUPPORT 
IDENT /VO.O/ 

++ 
MODULE NAME: 
SIZPLD 

FUNCTIONAL DESCRIPTION: 

THIS MODULE WILL SIZE THE SYSTEM FOR CPU TYPE AND PROCESSOR 
OPTIONS. IT WILL ALSO SIZE MEMORY AND IF "PARITY" OR "ECC" MEMORY 
WILL WRITE GOOD PARITY. THE "MODQ" LIST WILL BE SORTED TO DEVELOP 
A BACKGROUND MODULE LIST (QUEUE) 
NOTE: IT WILL NOT SIZE FOR 22-BIT ADDRESSING BUT WILL SIZE FOR 11/60 

INPUTS: 

DTABLE ADDRESS 

IMPLICIT INPUTS: 

CONFIGURATION WORD 
EXERCISER SIZE 
SYSTEM SIZE 
PARITY TABLE ADDRESS 
MODULE LIST 
BACKGROUND LIST 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

PARITY TABLE ADDRESS 
SYSTEM SIZE 
EXERCISE SIZE 
CONFIGURATION WORD. 

PATHOLOGICAL CONNECTIONS: 

SUBORDINATE ROUTINES CALLED: 
SAVREG - SAVE REGISTERS 
RESREG - RESTORE REGISTERS 
KTSET - SET UP KT REGISTERS 
HRDADRCHK - ILLEGAL ADDRESS CHECK 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL SIZPOL IN <A> 

A - DTABLE ADDRESS 

VERSION: 
0.0 



CPU 



EDIT 



DATE 



BY 



REASON 



SIZPLD SIZE 
SIZPLD.MAC 



AND POLL SYSTEM - KT 
08-SEP-78 09:35 



OPTIONS AND 11/60 SUPPORT 

COMMON EQUATE MODULE 
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SEQ 1152 



563 
564 
565 
566 
567 
(D 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 



000000' 
000000' 



000001 
000001 



172100 
172136 
004000 
000034 
000040 
120000 
177600 
160000 



.SBTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

SLSTIN = 1 

$LSTTAG = 1 



ft*************** 
GLOBAL REFERENCES 



GLOBL 


HTKT 


GLOBL 


HTPAER 


GLOBL 


SAVREG 


GLOBL 


RESREG 


GLOBL 


KTSET 


GLOBL 


HRDADRCHK 


GLOBL 


CPUCPE 


GLOBL 


CCNTRL 


GLOBL 


KONTRL 



******#*****>!<*** 

LOCAL EQUATES 



SS 


PCSR 


= 


172100 


SS 


PCLS 


= 


172136 


SS 


OKC 


= 


.4000 


SS 


28 


= 


~D28 


SS 


1KP 


= 


40 


SS 


120K 


= 


120000 


SS 


IOP 


= 


177600 


SS 


RFS 


= 


160000 



Jit*************** 

REFERENCED BY OTHER MODULES 
.GLOBL SIZPOL 



++++++++++++++++++++++++++++++ 
OVERLAY REGION GLOBALS 

GLOBL OV.KBBUF 

GLOBL OV.HIKB 

GLOBL OV.KBSIZ 

GLOBL OV.CQ 

GLOBL OV.HICQ 

GLOBL OV.CQSIZ 

GLOBL OV.TQ 

GLOBL OV.HITQ 

GLOBL OV.TQSIZ 



SARE REGISTERS 

RESTORE REGISTERS 

SET UP KT 

ILLEGAL ADDRESS CHECK 

11/70 CPU ERROR REGISTER 

CACHE CONTROL REGISTER 

TEMPORARY STORAGE FOR CACHE CONTROL REGISTER 



START OF PARITY CSRS 

LAST PARITY CSR 

ONE K CHUNK 

28 DECIMAL 

1K IN PAR FORMAT 

FIRST ADDRESS IN PARS MAP 

I/O PAGE 

REVERSED FOR DIAGNOSTIC USE IN I/O PAGE 



{MODULE ENTRY POINT 
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,SBTTL KERNEL - DETERMINE PROCESSOR TYPE 



SEQ 1153 



618 










619 










620 










621 










622 


000000' 








(2) 


000000' 








623 










624 










625 










626 










627 










628 










629 










630 










631 


000000' 








(4) 


000000' 


012737 


000000G 


0001 14 


632 


000006' 








(4) 


000006' 


012737 


000340 


0001 16 


633 










634 


000014' 








(4) 


000014' 


012737 


OOOOOOG 


000250 


635 


000022' 








(4) 


000022' 


016737 


000340 


000252 


636 










637 


000030' 








(3) 


000030' 


004767 


OOOOOOG 




638 


000034' 








(4) 


000034' 


016502 


000000 




639 


000040' 








(4) 


000040* 


005001 






640 










641 










642 










643 










644 










645 


000042' 








(3) 


000042' 


010546 






(4) 


000044' 


016745 


OOOOOOG 




(3) 


000050' 


004767 


OOOOOOG 




(3) 


000054' 


012605 






646 










647 


000056' 








(6) 


000056' 


103422 






648 










649 










650 










651 










652 










653 


000060' 








(2) 


000060' 


013746 


000010 




654 


000064' 








(4) 


000064' 


012737 


000104' 


000010 


655 


000072' 








(2) 


000072' 


076600 






656 


000074' 








(2) 


000074' 


000101 







ROUTINE SIZPOL <DTABLE> 
+ 



SIZPOL: 



STUFF PARITY AND KT VECTORS 

SAVE REGISTERS, GET DTABLE ADDRESS FROM R5 STACK AND CLEAR 

R1 



LET $#114 := #HTPAER 
LET @#116 := #PRI7 

LET @#250 := #HTKT 
LET @#252 := PRI7 

CALL SAVREG 

LET R2 := DTABLE(R5) 

LET R1 := #0 

DETERMINE PROCESSOR TYPE; 11/70, 11/60 OR LSI11 
CALL HRDADRCHK IN <CPUCPE> 



IF. NO. ERROR THEN 

+ 
SET UP ILLEGAL INSTRUCTION TRAP TO FIELD TRAP IF NOT 
1 1/60 

PUSH @#10 
LET @/M0 := #1$ 
INLINE <MED> 
INLINE <RDSERV> 



MOV 


#HTPAER,@#114 


MOV 


#PRI7,@#1 16 


MOV 


#HTKT,@#250 


MOV 


PRI7,@#252 


JSR 


PC, SAVREG 


MOV 


DTABLE(R5) ,R2 


C.LR 


R1 



MOV 
MOV 
JSR 
MOV 



BCS 



R5,-(SP) 
CPUCPE,-(R5) 
PC, HRDADRCHK 
(SP)+,R5 



50002$ 



MOV 


©#10,-(SP) 


MOV 


#1$,M10 


MED 




RDSERV 
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LET R1 := R1 SET. BY *PDP60 
INLINE <BR 3$> 



INLINE <1$:> 

h 

SET RETURN TO 2$ TO RESTORE PSW 

LET (SP) :- #2$ 
INLINE <RTI> 

MUST BE AN 1 1/70 

INLINE <2$:> 

LET R1 :- R1 SET. BY #PDP70 

RESTORE RESERVED INSTRUCTION TRAP 

INLINE <3$:> 

POP @#10 
ELSE 

CHECK TO SEE IF LS1 11 

CALL HRDADRCHK IN <#PSW> 
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SEQ 1154 



657 


000076' 






(6) 


000076' 


052701 


004000 


658 


000102' 






(2) 


000102' 


000405 




659 








660 


000104' 






(2) 


000104' 






661 








662 








663 








664 








665 








666 


000104' 






(4) 


000104' 


012716 


000112' 


667 


0001 10' 






(2) 


0001 10' 


000002 




668 








669 








670 








671 








672 








673 


0001 12' 






(2) 


000112' 






674 


0001 12' 






(6) 


000112' 


052701 


010000 


675 








676 








677 








678 








679 








680 


0001 16' 






(2) 


0001 16' 






681 


0001 16' 






(2) 


0001 16' 


012637 


000010 


682 


000122' 






(4) 


000122' 


000411 




(3) 


000124' 






683 








684 








685 








686 








687 








688 


000124' 






(3) 


000124' 


010546 




(4) 


000126' 


01 2745 


177776 


(3) 


000132' 


004767 


OOOOOOG 


(3) 


000136' 


012605 




689 


000140' 






(6) 


000140' 


103002 




690 


000142' 






(6) 


000142' 


052701 


020000 


691 








692 


000146' 






(4) 


000146' 






693 


000146' 






(4) 


000146' 







BIS #PDP60,R1 

BR 3$ 

1$: 



MOV #2$,(SP) 
RTI 



2$: 

BIS 



#PDP70,R1 



3$: 
MOV 
BR 



(SP)+,@#10 
50003$ 



50002$: 



IF. ERROR THEN 
LET R1 

ENDIF 



= R1 SET. BY #PDPLSI 



ENDIF 





MOV 
MOV 
JSR 
MOV 


R5,-(SP) 

#PSW,-(R5) 

PC.HRDADRCHK 

(SP)+,R5 




BCC 


50004$ 




BIS 


#PDPLSI ,R1 


50004$: 






50003$: 
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694 
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SEQ 11 S6 



696 
697 
698 
699 
700 
701 
702 
703 
(3) 
(4) 
(3) 
(3) 
704 
(6) 
705 
(6) 
706 
(3) 
(4) 
(3) 
(3) 
707 
(6) 
708 
(6) 
709 
710 
(4) 
711 
(4)' 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 

(3) 
(4) 
(3) 
(3) 
722 
(6) 
723 
(6) 
724 
(4) 
725 



000146' 
000146' 
000150' 
000154' 
000160' 
000162' 
000162' 
000164' 
000164' 
000170' 
000170' 
000172' 
000176' 
000202' 
000204' 
000204' 
000206' 
000206' 

000212' 
000212' 
000212' 
000212' 



000212' 
000212' 
000214' 
000220' 
000224' 
000226' 
000226' 
000230' 
000230' 
000234' 
000234' 



010546 
012745 
004767 
012605 

10 3413 

052701 

010546 
012745 
004767 
012605 

103402 

052701 



177572 
000000G 



000400 



172516 
OOOOOOG 



040000 



OOOOOOG 
OOOOOOG 



010546 
016745 
004767 
012605 

103402 



052701 000004 



SBTTL KERNEL - DETERMINE CPU OPTIONS 

+ 
DETERMINE IF "KT" IS PRESENT AND IF IT IS CHECK TO 
SEE IF EXTENDED KT" IS PRESENT 

CALL HRDADRCHK IN <#SRO> 

IF. NO. ERROR THEN 

LET R1 := R1 SET. BY 0KTPRES 
CALL HRDADRCHK IN <#SR3> 

IF. NO. ERROR THEN 

LET R1 := R1 SET. BY 0KTXTND 

ENDIF 
ENDIF 



NOW DETERMINE IF CACHE MEMORY IS PRESENT BY CHECKING 
CACHE CONTROL REGISTER 



CALL HRDADRCHK IN <CCNTRL> 

IF. NO. ERROR THEN 

LET R1 := R1 SET. BY #CAPRES 
ENDIF 





MOV 
MOV 
J3R 
MOV 


R5,-(SP) 
#SR0,-(R5) 
PCHRDADRCHK 
(SP)+,R5 




BCS 


50005$ 




BIS 


#KTPRES,R1 




MOV 
MOV 
JSR 
MOV 


R5,-(SP) 

#SR3,-(R5) 

PCHRDADRCHK 

(SP)+,R5 




BCS 


50006$ 




BIS 


#KTXTND,R1 


50006$: 






50005$: 







MOV 
MOV 
JSR 
MOV 

BCS 

BIS 



R5»-(SP) 
CCNTRL,-(R5) 
PCHRDADRCHK 
(SP)+,R5 

50007$ 

#CAPRES f R1 



50007$: 
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SEO 1157 



727 
728 
729 
730 
731 
732 
733 
734 
735 
(4) 
736 
737 
(4) 
738 
(4) 
(6) 
(9) 
739 
(3) 
(4) 
(3) 
(3) 
740 
(6) 
741 
(4) 
742 
743 
744 
745 
746 
747 
748 
(6) 
749 
(6) 
(9) 
750 
(6) 
751 
(4) 
(3) 
752 
(6) 
753 
(4) 
754 
(4) 
755 
(4) 
756 
757 
758 
759 
760 
761 



000234' 
000234' 

000240' 
000240' 
000244' 
000244' 
000244' 
000250' 
000252' 
000252' 
000254' 
000256' 
000262' 
000264' 
000264' 
000266' 
000266' 



000270' 
000270' 
000274' 
000274' 
000300' 
000302' 
000302' 
000306' 
000306' 
000310' 
000310' 
000310' 
000314' 
000314' 
000314' 
000314' 
000316' 
000316' 



016200 000064 



012703 172100 



020327 
003035 

010546 
010345 
004767 
012605 

103414 

010320 



032713 
001403 



172136 



000000G 



052713 000002 



000002 



052701 000100 



000402 



052701 002000 



005013 



.SBTTL KERNEL - DETERMINE IF PARITY OR ECC MEMORY PRESENT 



GET STARTING ADDRESS OF PARITY TABLE, THEN DETERMINE IF 
PARITY CSR REGISTERS ARE AVAILABLE IF SO PLACE CSR ADDRESS 
IN PARITY TABLE. 



LET RO := DT.PTA(R2) 

LET R3 := 0SS.PCSR 
WHILE R3 LE #SS.PCLS DO 



50010$ 



CALL HRDADRCHK IN <R3> 

IF. NO. ERROR THEN 

LET (R0)+ := R3 



DETERMINE IF ECC MEMORY, IF IT IS SET ECC MEMORY BIT IN 
CONFIGURATION WORD ELSE SET PARITY PRESENT BIT IN 
CONFIGURATION WORD 0. CLEAR THE PARITY CSR'S 

LET (R3) '.-= (R3) SET. BY #BIT01 

IF #BIT01 SETIN (R3) THEN 



MOV 



MOV 



CMP 
BGT 

MOV 
MOV 
JSR 
MOV 

BCS 

MOV 



LET R1 := R1 SET. BY 0ECCMEM 



ELSE 

ENDIF 
LET (R3) 



LET R1 := R1 SET. BY #PARPRES 



#0 



ENDIF 



50013S 



50014S 



50012$ 



BIS 

BIT 
BEQ 

BIS 

BR 

BIS 
CLR 



IF 11/70 PROCESSOR THEN SET PARITY PRESENT IN CONFIGURATION 
WORD AND POINT TO PARITY CSR + 4, ELSE POINT TO 
PARITY CSR + 2 



DT.PTA(R2) ,R0 

#SS.PCSR,R3 

R3,#SS.PCLS 
50011$ 

R5,-(SP) 

R3,-(R5) 

PC, HRDADRCHK 

(SP)+,R5 

50012$ 

R3, (R0)+ 



#BIT01 , (R3) 

#BIT01 , (R3) 
50013$ 

#ECCMEM,R1 

50014$ 

#PARPRES,R1 



(R3) 
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SEQ 1158 



762 


000316' 






(6) 


000316' 


032701 


010000 


(9) 


000322' 


001405 




763 


000324' 






(6) 


000324' 


052701 


002000 


764 


000330' 






(6) 


000330' 


062703 


000004 


765 


000334' 






(4) 


000334' 


000402 




(3) 


000336' 






766 


000336' 






(6) 


000336' 


062703 


000002 


767 


000342' 






(4) 


000342' 






768 


000342' 






(4) 


000342' 


000740 




(3) 


000344* 






769 








770 









IF #PDP70 SETIN R1 THEN 



ELSE 



ENDIF 



LET R1 := R1 SET. BY tfPARPRES 
LET R3 := R3 + #4 

LET R3 := R3 + #2 



ENDDO 



50015$: 



500165: 



50011$: 



BIT 
BEO 

BIS 

ADD 

BR 

ADD 
BR 



#PDP70,R1 
50015$ 

#PARPRES,R1 

#4, R3 

50016$ 

#2,R3 
50010$ 
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SEQ 1 1 59 



772 
773 
774 
775 
776 
777 
778 
779 
(4) 
780 
781 
782 
783 
784 
785 
786 
787 
(6) 
(9) 
788 
789 
790 
791 
792 
793 
(4) 
794 
(4) 
795 
796 
797 
798 
799 
800 
(3) 
801 
(6) 
802 
(6) 
803 
(3) 
(4) 
(3) 
(3) 
804 
(6) 
805 
(2) 
806 
(4) 
807 
(3) 
(6) 
808 
809 
810 



000344' 
000344' 016762 



000352' 

000352' 032701 
000356' 001053 



000360' 

000360' 005000 
000362' 
000362' 005003 



000364' 
000364' 
000364' 
000364' 
000366' 
000366' 
000372' 
000372' 
000374' 
000376' 
000402 ' 
000404' 
000404' 
000406' 
000406' 
000410' 
000410' 
000410' 
000410' 
000414' 



010546 
010345 
004767 
012605 

103001 

000403 



020027 
001363 



000000 000044 



MOV 



000400 



BIT 
BNE 



CLR 
CLR 



005200 



062703 004000 



OOOOOOG 



000034 



SBTTL KERNEL - DETERMINE SYSTEM SIZE 

+ 
NOW TAKE THE CONTENTS OF LOC. (EXERCISER SIZE) 
AND LOAD IT INTO EXERCISER SIZE WORD 

LET DT.ESIZ(R2) : * 



IF NO "KT" DETERMINE SYSTEM SIZE, WHICH CAN NOT BE GREATER 
THAN 28K. 



IF #KTPRES NOTSETIN R1.THEN 

SET UP COUNTER OF 1K CHUNKS AND 1K BLOCK POINTER 

LET RO := #0 
LET R3 := #0 

REPEAT UNTIL NON-EXISTENT MEMORY OR 28K 

REPEAT 

LET RO := RO + #1 

LET R3 := R3 + #SS.OKC 

CALL HRDADRCHK IN <R3> 

IF. ERROR THEN 

INLINE <BR 4$> 
ENDIF 
UNTIL RO EQ #5S.28 



; + 

; DETERMINE IF SYSTEM HAS 30K BY LOOKING AT FIRST ADDRESS IN I/O PAGE 



0,DT.ESI2(R2) 



#KTPRES,R1 
50017$ 



RO 
R3 



50020S". 








INC 


RO 




ADD 


#SS.0KC,R3 




MOV 
MOV 
JSR 
MOV 


R5,-(SP) 

R3,-(R5) 

PC, HRDADRCHK 

(SP)+,R5 




BCC 


50021$ 




BR 4$ 




50021$: 








CMP 
BNE 


RO.0SS.28 
50020$ 
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SEQ 1160 



811 
812 
813 
(2) 
814 
(6) 
(9) 
815 
(3) 
(4) 
(3) 
(3) 
816 
(6) 
817 
(6) 
818 
(4) 
819 
(4) 
820 
821 
822 
823 
824 
825 
826 
827 
(4) 
828 
(4) 
(7) 
(7) 
(7) 
(7) 
(7) 
(7) 
829 
(4) 
(3) 
830 
831 
832 
833 
834 
(3) 
(4) 
(3) 
(3) 
835 
836 
837 
838 
839 
840 
841 



000416' 
000416' 
000416' 
000416' 
000422-' 
000424' 
000424' 
000426' 
000432' 
000436' 
000440' 
000440' 
000442' 
000442' 
000446' 
000446' 
000446' 
000446' 



000446' 
000446' 
000450' 
000450' 
000454' 
000460' 
000464' 
000470' 
000474' 
000500' 
000504' 
000504' 
000506' 



000506' 
000506' 
000510' 
000512' 
000516' 



020027 
001011 

010546 
012745 
004767 
012605 

103402 



062703 010000 



000241 

010362 
006062 
006062 
006062 
006062 
006062 
006062 

000435 



01 0546 
010245 
004767 
012605 



000034 



160000 
000000G 



000046 
000046 
000046 
000046 
000046 
000046 
000046 



OOOOOOG 



INLINE <4$:> 

IF RO EQ #SS.28 THEN 



4$: 



CALL HRDADRCHK IN <#SS.RFS> 

IF. NO. ERROR THEN 

LET R3 := R3 + #10000 
ENDIF 



ENDIF 





CMP 
BNE 


R0.//SS.28 
50022$ 




MOV 
MOV 
JSR 
MOV 


R5,-(3P) 
#SS.R'FS,-(R5) 
PC.HRDADRCHK 
(SP)+,R5 




BCS 


50023$ 




ADD 


#10000, R3 


50023$: 






50022$: 







NOW GET MEMORY SIZE IN "PAR" FORMAT BY SHIFTING R3, 6 TIMES 
TO THE RIGHT, ONCE THIS IS DONE LOAD INTO SYSTEM 
SIZE WORD. 



LET CARRY :•* #0 
LET DT.SSIZ(R2) 



R3 ROTATE 



ELSE 



CLC 

MOV 
ROR 
ROR 
ROR 
ROR 
ROR 
ROR 

BR 



50017$: 



KT IS PRESENT, FIRST GO MAP PAR'S AND PDR ' S 
CALL KTSET IN <R2> 



WILL USE KIPAR5 TO SIZE MEMORY. TURN ON KT AND THEN 
SIZE UNTIL NON-EXISTENT MEMORY IS FOUND OR THE 
I/O PAGE IS FOUND. SIZING WILL BE DONE IN 
1K STEPS 



R3,DT.SSIZ(R2) 

DT.SSIZ(R2) 

DT.SSIZ(R2) 

DT .SSIZ(R2) 

DT.SSIZ(R2) 

DT.SSIZ(R2) 

DT.SSIZ(R2) 

50024$ 



MOV 


R5,-(SP) 


MOV 


R2,-(R5) 


JSR 


PC, KTSET 


MOV 


(SP)+,R5 



SIZPLD 


SIZE AND 


POLL SYSTEM - KT OPTIONS AND 11/60 SUPPORT MACY11 30A(1052) 


SIZPLD. 


MAC 08-SEP-78 


09:35 


KERNEL - DETERMINE SYSTEM SIZE 


842 


000520' 






LET @#KIPAR5 : = #SS.1KP 


(4) 


000520' 


012737 


000040 


172352 


843 










844 


000526' 






LET @#SR0 :* ©#SRO SET. BY #BIT00 


(6) 


000526' 


052737 


000001 


177572 


845 










846 


000534' 






REPEAT 


(3) 


000534' 








847 


000534' 






LET @#KIPAR5 := @#KIPAR5 


(6) 


000534' 


062737 


000040 


172352 


848 


000542' 






CALL HRDADRCHK IN <#SS.1 


(3) 


000542' 


010546 






(4) 


000544' 


012745 


120000 




(3) 


000550' 


004767 


000000G 




(3) 


000554' 


012605 






849 


000556' 






IF. ERROR THEN 


(6) 


000556' 


103001 






850 


000560' 






INLINE <BR 5$> 


(2) 


000560' 


000404 






851 


000562' 






ENDIF 


(4) 


000562' 








852 


000562' 






UNTIL @#KIPAR5 EQ #SS.IOP 


(3) 


000562' 


023727 


172352 


177600 


(6) 


000570' 


001361 






853 










854 








; + 


855 








; LOAD SYSTEM SIZE WORD WITH CONTENTS OF 


856 








;~ 


857 










853 


000572' 






INLINE <5$:> 


(2) 


000572' 








859 


000572' 






LET DT.SSIZ(R2) := @#KIPAR5 


(4) 


000572' 


013762 


172352 


000046 


860 


000600* 






ENDIF 


(4) 


000600' 








861 
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MOV 



50025$: 



+ #SS.1KP 



120K> 



50026$ 



KIPAR5 



BIS 



ADD 

MOV 
MOV 
JSR 
MOV 

BCC 

BR 53 



CMP 
BNE 



5$: 

MOV 



SEQ 1161 



#SS.1KP,@#KIPAR5 



#BIT00,@#SR0 



#SS.1KP,@#KIPAR5 

R5,-(SP) 
#SS. 120K,-(R5) 
PC, HRDADRCHK 
(SP)+,R5 

50026$ 



@#KIPAR5,#SS. IOP 
50025$ 



GWKIPAR5.DT.SSIZ 



50024$: 



SIZPLD SIZE 
SIZPLO.MAC 



863 
864 
865 
866 
867 
868 
869 
(6) 
(8) 
(6) 
(9) 
(6) 
870 
871 
872 
873 
874 
875 
876 
(6) 
(9) 
877 
(4) 
878 
(4) 
879 
(4) 
880 
881 
882 
883 
884 
885 
886 
887 
888 
(6) 

(9) 
889 
(3) 
890 
891 
892 
893 
894 
895 
896 
(4) 
897 
(4) 
898 
899 
900 
901 
902 
903 
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000600' 
000600' 
000604' 
000606' 
000612' 
000614' 



000614' 
000614' 
000620' 
000622' 
000622' 
000630' 
000630' 
000636' 
000636' 



000636' 
000636' 
000642' 
000644' 
000644' 



000650 
000650 
000654 
000654 



.SBTTL KERNEL - WRITE GOOD PARITY IF ECC OR PARITY PRESENT 

DETERMINE IF PARITY OP ECC MEMORY IS PRESENT. 
IF tfPARPRES SETIN R1. OR #£CCMEM SETIN R1 THEN 



032701 
001003 
032701 
001500 



002000 
000100 



BIT 
BNE 
BIT 
BEQ 



50027$: 



IF CACHE PRESENT, SET BIT 0,1 IN CACHE CONTROL REGISTER 
THIS WILL TURN CACHE OFF 



IF #CAPRES SETIN R1 THEN 



032701 
001406 



000004 



012767 000003 OOOOOOG 
016777 OOOOOOG OOOOOOG 



LET KONTRL := #3 

LET @CCNTRL := KONTRL 



BIT 
BEQ 

MOV 

MOV 



ENDIF 



50031$: 



SINCE PARITY OR ECC IS PRESENT AND TURNED OFF 
WILL NOW SET UP TO WRITE GOOD PARITY INTO ALL 
OF MEMORY,, FIRST KT PRESENT THEN SET 
UP KT REGISTERS. 



IF tfKTPRES SETIN R1 THEN 



032701 
001426 



000400 



004767 OOOOOOG 



CALL KTSET 



SET UP KIPDR6 TO TRAP WHEN ENTERING PAGE. AND 
SET UP KIPAR5 TO MAP TO 



005037 



005037 



172314 
172352 



LET @#KIPDR6 := #0 
LET @#KIPAR5 := #0 



SAVE KT ERROR VECTOR AND SET UP KT ERROR VECTOR TO 

GO TO 7$. THEN TURN ON KT AND SET UP BUSERR VECTOR AT 8$ 

SET UP RO TO USE PAR5 



CLR 
CLR 



SEQ 1162 



#PARPRES,R1 
50027$ 
#ECCMEM,R1 
50030$ 



#CAPRES,R1 
50031$ 

#3, KONTRL 

KONTRL, @CCNTRL 



BIT 


#KTPRES,R1 


BEQ 


50032$ 


USR 


PC, KTSET 



@#KIPDR6 
(MKIPAR5 





MOV 


@#4,-(SP) 




MOV 


#8$,<M4 




MOV 


@#250,~(SP) 




MOV 


#7$,@#250 




BIS 


#BIT00,(MSR0 




MOV 


#SS. 120K, RO 




BR 


50033$ 


50032$: 
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PUSH @#4 
LET @#4 := #8$ 
PUSH @#250 
LET @#250 := #7$ 

LET (MSRO := @#SR0 SET. BY #BIT00 
LET RO := #SS.120K 
ELSE 



IF NOT KT THEN SET UP POINTER AND SAVE BUSERR VECTOR 

LET RO := #0 

PUSH @#4 

LET @#4 := #10$ 

END IF 

NOW WRITE GOOD PARITY 
INLINE<6$:> 

LET (R0)+ := (RO) 
INLINE <BR 6$> 



SEQ 1163 



904 








905 


000660' 






(2) 


000660' 


013746 


000004 


906 


000664' 






(4) 


000664' 


012737 


000760' 000004 


907 


000672' 






(2) 


000672' 


013746 


000250 


908 


000676' 






(4) 


000676' 


012737 


000740' 000250 


909 


000704' 






(6) 


000704' 


052737 


000001 177572 


910 


000712' 






(4) 


000712' 


012700 


120000 


911 


000716' 






(4) 


000716' 


000406 




(3) 


000720' 






912 








913 








914 








915 








916 








917 


000720' 






(4) 


000720' 


005000 




918 


000722' 






(2) 


000722' 


013746 


000004 


919 


000726' 






(4) 


000726' 


012737 


001006' 000004 


920 








921 


000734' 






(4) 


000734' 






922 








923 








924 








925 








926 


000734' 






(2) 


000734' 






927 


000734' 






(4) 


000734' 


01 1020 




928 


000736' 






(2) 


000736' 


000776 




929 








930 








931- 








932 








933 








934 








935 


000740' 






(2) 


000740' 






936 


000740' 






(6) 


000740' 


062737 


000200 172352 


937 


000746' 






(4) 


000746' 


012700 


120000 


938 


000752' 






(4) 


000752' 


012716 


000734 ' 


939 


000756' 






(2) 


000756' 


000002 





CLR 
MOV 
MOV 



50033$: 



6$: 
MOV 
BR 6$ 



UPDATE PARS TO NEXT 4K BLOCK AND RESET RO TO START 
OF BLOCK. LOAD RETURN PC WITH 6$ AND RTI 



INLINE <7$:> 

LET @#KIPAR5 := @#KIPAR5 + #200 
LET RO := #SS.120K 
LET (SP) := #6$ 
INLINE <RTI> 



RO 
@#4,-(SP) 

#10$,@#4 



(RO) , (R0)+ 



7$: 




ADD 


#200,@#KIPAR5 


MOV 


#SS.120K, RO 


MOV 


#6$, (SP) 


RTI 
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SEP 1164 



940 
941 
942 
943 
944 
945 
946 
(2) 
947 
(6) 
948 
949 
(4) 
950 
(2) 
951 
952 
(2) 
953 
(2) 
954 
(2) 
955 
(2) 
956 
957 
958 
959 
960 
961 
962 
(2) 
963 
(2) 
964 
(2) 
965 
866 
(4) 
967 
968 
969 
970 
.971 
972 
973 
(2) 
974 
(6) 
(9) 
975 
(6) 
976 
(4) 
977 
976 



000760' 
000760' 
000760' 
000760' 042737 000001 



177572 



000766' 

000766' 012716 
000772' 
000772' 000002 

000774' 
000774' 
000774' 

000774' 012637 
001000' 

001000' 012637 
001004' 
001Q04' 000403 



000774 



000250 
000004 



001006' 
001006' 
001006' 

001006' 022626 
001010' 
001010' 012637 

001014' 
001014' 



000004 



001014' 
001014' 
001014' 
001014' 



005737 000042 



001020' 001402 
001022' 

001022' 052701 
001026' 
001026' 



000010 



; + 

; TOP OF MEMORY WAS FOUND, TURN OFF MEMORY MANAGEMENT, 

; REMOVE TRAP PC AND PSW FROM STACK AND RESTORE 8USERR AND MEMGMT VECTORS 

INLINE <8$:> 

LET @#SR0 := @#SRQ CLR.BY #BIT00 

LET (SP) := #9$ 
INLINE <RTI> 

INLINE <9$:> 

POP @#250 

POP @#4 

INLINE <BR 11$> 



8$: 




BIC 


#BIT00,@#SRQ 


MOV 


#9$,(SP) 


RTI 




9$: 




MOV 


(SP)+,@#250 


MOV 


(SP) + t ,@#4 


BR 11$ 





; + 



WILL TRAP HERE IF NO MEMORY MANAGEMENT, CLEAN UP 
STACK AND RESTORE BUSERR 



INLINE <10$:> 

INLINE <CMP (SP)+,(SP)+> 
POP @#4 

ENDIF 

; + 

; IF SCRIPTING, SET AUTO BIT IN CONFIGURATION WORDO 

INLINE <11$:> 

IF @#42 NE #0 THEN 

LET R1 :« R1 SET. BY #AUTO 
ENDIF 



; + 



10$: 

CMP (SP)+,(SP)+ 

MOV (SP)+,@#4 



50030$: 



11$: 



TST 


@#42 


BEQ 


50034$ 


BIS 


#AUT0,R1 



50034$: 
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979 ; CLEAN UP R1 BEFORE LOADING CONFIGURATION WORD 

980 ; LOAD UP CONFIGURATION WORD 
961 ;- 

982 

983 001026' LET R1 := R1 CLR.BY #RICHARD 

(6) 001026' 042701 031060 BIC #RICHARD,R1 

984 001032' LET DT.CF0(R2) := DT.CF0(R2) SET . BY R1 

(6) 001032' 050162 000014 BIS R1 , DT . CFO (R2) 

985 
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SBTTL KERNEL - SORT MODULE LIST 



COUNT THE MODULES 

LET RO := #0 

LET R1 := DT.MLST(R2) 
WHILE (R1 ) NE #ENDLST DO 

LET RO := RO + #1 

LET R1 := R1 + #2 
ENDDO 



START THE SORT OPERATION. 

LET R1 :» DT.MLST(R2) 

r 
WORK THRU THE LIST UNTIL THE END IS REACHED 

WHILE RO GT #0 DO 
REPEAT 

IS THE CURRENT ENTRY A BKMOD MODULE? 

LET R4 := (R1) 

IF #BKMOD SETIN STAT(R4) THEN 

THE CURRENT ENTRY IS A BKMOD, WHAT ABOUT THE NEXT ENTRY? 

LET R3 := 2(R1 ) 



SEQ 1166 



987 








988 








989 








990 








991 








992 








993 








994 


001036' 






(4) 


001036' 


005000 




995 


001040' 






(4) 


001040' 


016201 


000032 


996 


001044' 






(4) 


001044' 






(6) 


001044' 


021127 


000000 


(9) 


001050' 


001404 




997 


001052' 






(6) 


001052' 


005200 




998 


001054' 






(6) 


001054' 


062701 


000002 


999 


001060' 






(4) 


001060' 


000771 




(3) 


001062' 






1000 








1001 








1002 








1003 








1004 








1005 


001062' 






(4) 


001062' 


016201 


000032 


1006 








1007 








1008 








1009 








1010 








1.011 


001066' 






(4) 


001066' 






(6) 


001066' 


005700 




(9) 


001070' 


003432 




1012 


001072' 






(3) 


001072' 






1013 








1014 








1015 








1 0+6 








1017 








1018 


001072' 






(4) 


001072' 


01 1 104 




1019 


001074' 






(6) 


001074' 


032764 


000020 000026 


(9) 


001102' 


001414 




1020 








1021 








1022 








1023 








1024 








1025 


001104' 









CLR 


RO 




MOV 


DT.MLST(R2) ,R1 


50035$: 


CMP 
BEO 


(R1 ) ,#ENDLST 
50036$ 




INC 


RO 




ADD 


#2,R1 


50036$: 


BR 


50035$ 



MOV 



DT.MLST(R2),R1 



50037$: 



50041$: 



TST 
BLE 



RO 
50040$ 



MOV 

BIT 
BEQ 



(R1 ) ,R4 

#BKM0D,STAT(R4) 
50042$ 
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MOV 



MAKE SURE ITS NOT THE END OF THE LIST 



5EQ 1167 



(4) 


001104' 


016103 


000002 


1026 








1027 








1028 








1029 








1030 








1031 


001110' 






(6) 


001110' 


020327 


000000 


(9) 


001114' 


001407 




1032 








1033 








1034 








1035 








1036 








1037 


001 1 16* 






(6) 


0011 16' 


032763 


000020 000026 


(9) 


001 124' 


001003 




1038 


001 126' 






(4) 


001126' 


01 1 161 


000002 


1039 


001132' 






(4) 


001132' 


010311 




1040 


001134' 






(4) 


001134' 






1041 


001134' 






(4) 


001134' 






1042 


001134' 






(4) 


001134' 






1043 








1044 








1045 








1046 








1047 








1048 


001134' 






(6) 


001 134' 


062701 


000002 


1049 


001140' 






(3) 


001140' 


021127 


000000 


(6) 


001144' 


001352 




1050 








1051 








1052 








1053 








1054 








1055 


001 146' 






(6) 


001146' 


005300 




1056 


001 150' 






(4) 


001 150' 


016201 


000032 


1057 


001154' 






(4) 


001154' 


000744 




(3) 


001156' 






1058 








1059 








1060 








1061 








1062 








1063 








1064 









2(R1) ,R3 



IF R3 NE #ENDLST THEN 



CMP R3.//ENDLST 
BEQ 50043$ 



IF ITS NOT A BKMOD, SWAP' THEM 



IF # BKMOD NOTSETIN STAT(R3) THEN 

BIT #BKM0D,STAT(R3) 

BNE 50044$ 
LET 2(R1 ) := (R1 ) 

MOV (R1),2(R1) 
LET (R1) := R3 

MOV R3,(R1) 



ENDII 



ENDIF 



ENDIF 



50044$: 
50043$: 
50042$: 



UPDATE THE POINTER AND CONTINUE SEARCHING THRU THE LIST 

LET R1 := R1 + #2 
UNTIL (R1 ) EQ 0ENDLST 



ADD 

CMP 
BNE 



#2, R1 

(R1 ) ,#ENDLST 
50041$ 



THE END OF THE LIST HAS BEEN REACHED, SO UPDATE THE MAIN POINTER & CONTINUE 



LET RO := RO - #1 
LET R1 := DT.MLST(R2) 



ENDDO 



DEC RO 

MOV DT.MLST(R2) ,R1 

BR 50037$ 



50040$: 



NOW THAT THE BACKGROUND MODULES HAVE BEEN GROUPED TOGETHER AT THE END 
OF THE MODULE LIST, PUT THE ADDRESS OF THIS BACKGROUND LIST (IF THERE IS 
A BACKGROUND LIST) INTO THE DATA TABLE 
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LET R1 := DT.MLST(R2) 



1065 


001156' 






(4) 


001156' 


016201 


000032 


1066 








1067 








1068 








1069 








1070 








1071 


001162' 






(4) 


001162' 


005062 


000034 


1072 


001 166' 






(4) 


001166' 


012703 


177777 


1073 


001172' 






(4) 


001172' 






(6) 


001172' 


021 127 


000000 


(9) 


001 176' 


001420 




(6) 


001200' 


005703 




(9) 


001202' 


001416 




1074 


001204' 






(4) 


001204' 


01 1104 




1075 


001206' 






(6) 


001206* 


032764 


000020 000026 


(9) 


001214' 


001406 




1076 








1077 








1078 








1079 








1080 








1081 


001216' 






(4) 


001216' 


010162 


000034 


1082 


001222' 






(4) 


001222' 


012701 


000000 


1083 


001226' 






(4) 


001226' 


005003 




1084 


001230' 






(4) 


001230' 


000402 




(3) 


001232' 






1085 








1086 






; 


1087 






; 


1088 






» 


1089 








1090 


001232' 






(6) 


001232' 


062701 


000002 


1094 


001236' 






(4) 


001236' 






1092 


001236' 






(4) 


001236' 


000755 




(3) 


001240' 






1093 








1094 








1095 








1096 








1097 








1098 


001240' 






(3) 


001240' 


004767 


000000G 


1099 


001244' 







18:49 PAGE 22-2 



MOV 



SEQ 1168 



DT.MLST(R2) ,R1 



WORK THRU THE MODULE LIST UNTIL THE FIRST BACKGROUND MODULE IS FOUND 

LET DT.BLST(R2) := #0 

LET R3 := #-1 

WHILE (R1) NE #ENDLST AND R3 NE #0 DO 



LET R4 := (R1) 

IF #BKMOD SETIN STAT(R4) THEN 



A BACKGROUND MODULE HAS BEEN FOUND - SO THIS IS THE START OF THE BACKGROUND LIST 

LET DT.BLST(R2) : = R1 

LET R1 := #ENDLST 

LET R3 := #0 
ELSE 



CLR 


DT.BLST(R2) 


MOV 


#-1 , R3 


50045$: 

CMP 
BEO 
TST 
BEO 


(R1 ) ,#ENDLST 

50046$ 

R3 

50046$ 


MOV 


(R1 ) ,R4 


BIT 
BEO 


#BKM0D,STAT(R4) 
50047$ 



MOV 


R1 ,DT.BLST(R2 


MOV 


#EMDLST,R1 


CLR 


R3 


BR 


50050$ 



; + 



50047$: 
; UPDATE THE POINTER AND CONTINUE TO SEARCH THRU THE MODULE LIST 

LET R1 := R1 + #2 



ENDIF 



ENDDO 



50050$: 



50046$: 



ADD 



BR 



#2»R1 



50045$ 



NOW RETURN TO THE CALLER 

CALL RESREG 
ENDRTN 



USR 



PC, RESREG 
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3fcQ 1169 



(3) 


001244' 




(3) 


001244' 




(2) 


001244' 


000207 


1100 






1101 






1 102 






1103 






1104 






1105 


001246' 




(2) 


001246' 




1106 






1 107 






1 108 






1 109 






11 10 






1111 






1112 






1113 






11 14 






11 15 






1116 






1117 






1118 




000000' 


1 1 19 




000122' 


1120 




000364' 


1 121 




000120' 


1 122 




000122 


1123 




000362' 


1124 




000050 


1 125 




000662 


1126 




000002 


1127 




001244' 


1 128 




000066 


1129 






1130 




000001 



50000$: 
50001$: 



RTS 



PC 



LABEL TYPE QUEUE HIGH LIMIT 



INLINE <OV.TQEND:> 



OV.TQEND: 



NOTE: THESE OVERLAY EQUATES MUST BE LEFT IN THIS POSITION 
(THAT IS, AFTER SIZPOL AND TQ.END LABELS) 



++++++++++++++++++++++++++++++++++++++ 
OVERLAY REGIONS EQUATES 

++++++++++++++++++++++++++++++++++++++ 
OV.KBBUF = SIZPOL 
OV.CQ= OV.KBBUF + "D<82> 
OV.TQ = OV.CQ + ~D<162> 
OV.HIKB = OV.CQ - 2 
OV.KBSIZ = OV.CQ - OV.KBBUF 
OV.HICQ = OV.TQ - 2 
OV.CQSIZ = <OV.TQ - 0V.CQ>/4 
OV.A = OV.TQEND - OV.TQ 
OV.RF.M = OV.A - «QV.A/10>*10> 
OV.HITQ = OV.TQEND - OV.REM 



KEYBOARD BUFFER STARTING ADDRESS 
CONTROL QUEUE STARTING ADDRESS 
TYPE QUEUE STARTING ADDRESS 
KEYBOARD BUFFER HIGH LIMIT 
KEYBOARD BUFFER SIZE 
CONTROL QUEUE HIGH LIMIT 
CONTROL QUEUE SIZE 
GET THE TQ SIZE 
GET ANY REMAINDER 
TYPE QUEUE HIGH LIMIT 



OV.TQSIZ = <OV.TQEND - OV.TQ - OV.REM> /10 
.END 



;TYPE QUEUE SIZE 
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ACSR = 


000102 


ACTBIT= 


004000 


ADDR22= 


001000 


ADR 


000006 


APTFER= 


000004 


APTPRE= 


000200 


ASB 


000106 


ASSEMB= 


000010 


ASTAT = 


000104 


AUTO = 


000010 


AUTOST= 


020000 


AWAS = 


0001 10 


BITO = 


000001 


BITOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


BIT03 = 


000010 


BIT04 = 


000020 


BIT05 = 


000040 


BIT06 = 


000100 


BIT07 s 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BIT1 = 


000002 


BIT10 = 


002000 


BIT11 = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


040000 


BIT15 = 


100000 


BIT2 = 


000004 


BIT3 = 


0C0010 


BIT4 = 


000020 


BIT5 = 


000040 


BIT6 = 


000100 


BIT7 = 


000200 


BIT8 = 


000400 


BIT9 = 


001000 


BKDEF = 


000002 


BKMOD = 


000020 


BKMODE= 


040000 


BKSLSH= 


000134 


CAPRES= 


000004 


CASTAT= 


000004 


CCNTRL= 


* * * * * * 


CDERCT= 


000146 


CDWDCT= 


000144 


CKTIM = 


100000 


CLKPRE= 


000001 


CONFIG= 


000056 


CPUCPE= 


****** 


CQOVF = 


000001 


CR 


000015 



CSRA = 
CSRC = 
CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO= 
DSEVNT= 
DTABLE= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CFO= 
DT.CF1= 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVIC1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 



000100 
000102 
000003 
000017 
000025 
00001 1 
000400 
000000 
100000 
000014 
000000 
000042 
000100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
0001 TO 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
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SEO 1170 


ENBNUL* 


000001 


LF 


== 000012 


POP 70 = 


010000 




ENDLST= 


000000 


LPSTAT 


■= 000001 


PR 10 = 


000000 




EOPBIT= 


000001 


MAPSTA 


= 000200 


PRI1 


000040 




ERRTYP= 


000106 


MED 


= 076600 


PRI4 = 


000200 




EVNTBE= 


000200 


MEMPAS 


= 040000 


PRI5 = 


000240 




EVNTHD= 


000200 


MODEXH 


= 004000 


PRI6 = 


000300 




EVNTKT= 


0Q0203 


MODHOL 


= 002000 


PRI7 = 


000340 




EVNTPEa 


000202 


MODSEL 


= 001000 


PRO 


000000 




EVNTRE= 


000201. 


MSGCKD 


= 000010 


PR4 


000200' 




FATERR= 


100000 


MSGCKS 


= 00C01 1 


PR5 


000240 




HRDADR= 


****** Q 


MSGDER 


= 000005 


PR6 


000300 




HRDCNT= 


000044 


MSGDRP 


= 000017 


PR7 


000340 




HRDPAS* 


000050 


MSGECH 


= 177777 


PS 


177776 




HTKT = 


****** Q 


MSGEOP 


= 000013 


PSW 


177 776 




HTPAER= 


****** G 


MSGHDR 


= 000004 


RANNUM= 


000054 




ICQNT = 


000036 


MSGHNG 


= 000022 


RBUFEA= 


000130 




ICOUNT= 


000040 


MSGHRD 


= 000007 


RBUFPA= 


000126 




IDNUM a 


000122 


MSGMAP 


= 000021 


RBUFSZ= 


000132 




IE 


000100 


MSGNUL 


-■ 177775 


RBUFVA= 


000124 




INDPAR= 


000040 


MSGPOP 


= 000002 


RDSERV= 


000101 




INHDRP= 


040000 


MSGPRM 


= 177776 


RDWHMI= 


000022 




INHEPR= 


020000 


MSGRES 


= 000001 


RELERR= 


000020 




INHREL= 


001000 


MSGSFT 


= 000006 


RELMOD= 


020000 




INHRRE= 


000400 


MSGS'KE 


= 000003 


RELTIM= 


010000 




INIT = 


00C030 


MSGSMB 


= 000015 


RESREG= 


****** g 




INTR = 


000120 


MSGSMH 


= 000014 


RES1 


000056 




IOMOD = 


100000 


MSGSMS 


= 000016 


RES2 = 


000060 




IOMODP= 


102000 


MSGSTD 


= 000000 


RICHAR= 


031060 




IOMODR= 


1 120C0 


MSGSYS 


= 000012 


RPTDAT= 


002.000 




IOMODX= 


1 10000 


MSGVEC 


= 000020 


RSTRT = 


0001 12 




JACK = 


035060 


NBKMOD 


= 001000 


RUBOUT= 


000177 




KIPARO= 


172340 


NCPUOP 


= 000020 


RUNMOD= 


100000 




KIPAR1= 


172342 


NOAPTY 


= 000002 


R5VALU= 


001740 




KIPAR2= 


172344 


NULL 


= 000000 


SAM 


075464 




KIPAR3= 


172346 


OV.A 


= 000662 


SAVREG= 


****** Q 




KIPAR4= 


172350 


OV.CQ 


= 000122RG 


SBADR = 


000102 




KIPAR5= 


172352 


OV.CQS 


= 000050 G 


SBKMOD= 


000000 




KIPAR6= 


172354 


OV.HIC 


= 000362RG 


SBKSEL= 


010000 




KIPAR7= 


172356 


OV.HIK 


= 000120RG 


SC.ADR= 


000006 




KIPDRO= 


172300 


OV.HIT 


= 001244RG 


SC.ALC= 


000014 




KIPDR1= 


172302 


OV.KBB 


= OOOOOORG 


SC.APCa 


000016 




KIPDR2= 


172304 


OV.KBS 


= 000122 G 


SC.CKL= 


000002 




KTPDR3 = 


172306 


OV.REM 


= 000002 


SC.CKP= 


000004 




KIPDR4= 


172310 


OV.TQ 


- 000364RG 


SC.CLO= 


000000 




KIPDR5= 


172312 


OV.TQE 


001246R 


SC.HLD= 


000010 




KIPDR6= 


172314 


OV.TQS 


= 000066 G 


SC.SCA= 


000012 




KIPDR7= 


172316 


OWEN 


= 024020 


SENDLS= 


177777 




KONTRL= 


****** g 


PAERR 


= 000010 


SIZPOL 


OOOOOORG 




KTERRO= 


000040 


PARPRE 


= 002000 


SOFCNT- 


000C42 




KTPRESa 


000400 


PARSTA 


= 000100 


SOFPAS= 


000046 




KTSET a 


****** Q 


PASCNT 


= 000034 


SPACE a 


000040 




KTSTAT= 


000020 


PDPLSI 


= 020000 


SPOINT= 


000032 




KTXTND= 


040000 


PDP60 


= 004000 


SPVALU= 


002200 





SIZPLD SIZE AND POLL SYSTEM.- KT OPTIONS AND 11/60 SUPPORT 
SIZPLD. MAC 08-SEP-78 09:35 SYMBOL TABLE 

WTWKMI= 
XFLAG = 
XOFF = 
XON 

$BGNLE = 
$ERFLG= 
$F$AND = 
$F$BAD = 
$F$BLA = 
$F$CAS = 
$F$DEC= 
$F$DO = 
$F$FAL= 
$F$GOQ= 
$F$IF : 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL = 
$F$THE = 
$F$TRU= 
$F$UNT= 
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SEO 1171 



SRO 


177572 


TQOVF = 


000002 


SR1 


177574 


UIPARO= 


177640 


SR2 


177576 


UIPAR1= 


177642 


SR3 


172516 


UIPAR2= 


177644 


SS. IOP = 


177600 


UIPAR3= 


177646 


SS.PCL= 


172136 


UIPAR4= 


177650 


SS.PCS= 


172100 


UIPAR5= 


177652 


SS.RFS= 


160000 


UIPAR6= 


177654 


SS.0KC= 


004000 


UIPAR7= 


177656 


SS.1KP= 


000040 


UIPDRO= 


177600 


SS.120= 


120000 


UIPDR1= 


177602 


SS.28 = 


000034 


UIPDR2= 


177604 


STAT = 


000026 


UIPDR3= 


177606 


STATBI= 


064757 


UIPDR4= 


177610 


STAT1 = 


000027 


UIPDR5= 


177612 


SUSPND= 


000001 


UIPDR6= 


177614 


SVRO = 


000062 


UIPDR7= 


177616 


SVR1 = 


000064 


WASADR= 


000104 


SVR2 = 


000066 


WBSTAT= 


000040 


SVR3 = 


000070 


WBUFEA= 


000136 


SVR4 = 


000072 


WBUFPA= 


000134 


SVR5 = 


000074 


WBUFRQ= 


000140 


SVR6 = 


000076 


WBUFSZ= 


000142 


SYSCNT= 


000052 


WDFR = 


000116 


SYSERR= 


000100 


WDTO = 


000114 


TMPIO = 


000002 


WTINRE= 


000352 


. ABS. 


000000 000 
001246 001 





000222 

000005 

000023 

000021 

177777 

000400 

000310 

000401 

000170 

000150 

000220 

000340 

000405 

000400 

000110 

000210 

000200 

000160 

000403 

000320 

000350 

000300 

000140 

000330 

000404. 

000130 



$F$WHI=: 

$F$YES=: 

$IFLEV---- 

$TSKO 

$ISK1 

$ISK2 

$LOCTA 

$LSTIN 

$LSTTA 

$NESTL 

$NSKO 

$NSK1 

$NSK2 

$NSK3 

$NSK4 

$NSK5 

$SAVLE 

$SSKO 

$TAGLE 

$TAGNU 

$TEMP 

$TSKO 

STSK1 

$TSK2 

$TSK3 

$TSK4 



000120 

000402 

177777 

000001 

000001 

000001 

177777 

000001 

000001 

177777. 

000300 

000120 

000110 

000110 

000110 

0001 10 

177777 

050046 

177777 

050051 

000300 

050045 

050046 

050050 

050042 

050043 



$TSK5 = 
$$ARGC= 
$$BYTE = 
$$CASE = 
$$DST = 
$$ELOC = 
$$ERFL = 
$$FLAG= 
$$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RETU= 
$SRTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG= 



050044 

000002 

000403 

000000 

000000 

000402 

000000 

000001 

000000 

001214R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

001246R 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 







DSKZ:SIZPLD,DSKZ: SI ZPLD=SPMAC/ML, EQUATE, SIZPLD 
RUN-TIME: 29 19 .4 SECONDS 
RUN-TIME RATIO: 281/49=5.6 
CORE USED: 14K (27 PAGES) 



.MAIN. MACY11 30A(1052) 20-SEP-78 18:54 

EQUATE. MAC 13-SEP-78 16:13 TABLE OF CONTENTS . SEQ 1172 

3 COMMON EQUATE MODULE 
565 COMMON DEFINITIONS AND REFERENCES 

.PRINT ;SPMAC: VERSION 1.1 
DETERMINE PROCESSOR TYPE 
DETERMINE CPU OPTIONS 

DETERMINE IF PARITY OR ECC MEMORY PRESENT 
DETERMINE SYSTEM SIZE 

WRITE GOOD PARITY IF ECC OR PARITY PRESENT 
SORT MODULE LIST 



568 


000000' 


620 


KERNEL 


698 


KERNEL 


738 


KERNEL 


791 


KERNEL 


883 


KERNEL 


1016 


KERNEL 
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SEQ 1173 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 



TITLE SIZPLE SIZE AND POLL SYSTEM - 11/70 SUPPORT ALONG WITH 22-BIT ADDRESSING 
IDENT /V0.0/ 

++ 
MODULE NAME: 
SIZPLE 

FUNCTIONAL DESCRIPTION: 

THIS MODULE WILL SIZE THE SYSTEM FOR CPU TYPE AND PROCESSOR 
OPTIONS. IT WILL ALSO SIZE MEMORY AND IF "PARITY" OR "ECC" MEMORY 
WILL WRITE GOOD PARITY. THE "MODQ" LIST WILL BE SORTED TO DEVELOP 
A BACKGROUND MODULE LIST (QUEUE) 
NOTE: SUPPORT 11/70 AND 22-BIT ADDRESSING 

INPUTS: 

DTABLE ADDRESS 

IMPLICIT INPUTS: 

CONFIGURATION WORD 
EXERCISER SIZE 
SYSTEM SIZE 
PARITY TABLE ADDRESS 
MODULE LIST 
BACKGROUND LIST 

OUTPUTS: 

NONE 

IMPLICIT OUTPUTS: 

PARITY TABLE ADDRESS 
SYSTEM SIZE 
EXERCISE SIZE 
CONFIGURATION WORD 

PATHOLOGICAL CONNECTIONS: 

SUBORDINATE ROUTINES CALLED: 
SAVREG - SAVE REGISTERS 
RESREG - RESTORE REGISTERS 
KTSET - SET UP KT REGISTERS 
HRDADRCHK - ILLEGAL ADDRESS CHECK 
ICSRSZ - INDIRECT ECC CSR SIZING 

FUNCTIONAL SIDE EFFECTS: 
NONE 

CALLING SEQUENCE: 

CALL SIZPOL IN <A> 

A - DTABLE ADDRESS 

VERSION: 
0.0 



EDIT 



DATE 



BY 



REASON 
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SEO 1174 



564 
565 
566 
567 
568 

(1) 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 



000000' 
000000' 



000001 
000001 



172100 
172136 
004000 
000034 
000040 
120000 
177600 
160000 



•SBTTL COMMON DEFINITIONS AND REFERENCES 

.MCALL STRUCT 

STRUCT 

.PRINT ;SPMAC: VERSION 1.1 

SLSTIN = 1 

SLSTTAG =1 



GLOBAL REFERENCES 



GLOBL 


HTPAER 


GLOBL 


HTKT 


GLOBL 


SAVREG 


GLOBL 


RESREG 


GLOBL 


KTSET 


GLOBL 


HRDADRCHK 


GLOBL 


ICSRSZ 


GLOBL 


CPUCPE 


GLOBL 


CCNTRL 


GLOBL 


KONTRL 



LOCAL EQUATES 



SS 


PCSR 


= 


172100 


SS 


PCLS 


= 


172136 


SS 


OKC 


= 


4000 


SS 


28 


=2 


"D28 


SS 


1KP 


= 


40 


SS 


1.20K 


S 


120000 


SS 


IOP 


= 


177600 


SS 


RFS 


- 


160000 



; REFERENCED BY OTHER MODULES 
!globl SIZPOL 



; OVERLAY REGION GLOBALS 

; ^ — i — 9 — i — i — t — e — i — t — t — i — i — i — f — i — I — i — I — i — i — i — t — f — i — i — t — I — i — l — t- 

. GLOBL QV.KBBUF 
.GLOBL OV.HIKB 
.GLOBL OV.KBSIZ 
.GLOBL OV.CQ 
.GLOBL OV.HICQ 
.GLOBL OV.CQSIZ 
.GLOBL OV.TQ 
.GL03L OV.HITQ 
.GLOBL OV.TQSIZ 



SARE REGISTERS 

RESTORE REGISTERS 

SET UP KT 

ILLEGAL ADDRESS CHECK 

INDIRECT ECC CSR SIZING 

11/70 CPU ERROR REGISTER 

CACHE CONTROL REGISTER 

TEMPORARY STORAGE FOR CACHE CONTROL REGISTER 



START OF PARITY CSRS 

LAST PARITY CSR 

ONE K CHUNK 

28 DECIMAL 

1K IN PAR FORMAT 

FIRST ADDRESS IN PAR5 MAP 

I/O PAGE 

RESERVED FOR DIAGNOSTIC USE IN I/O PAGE 



;MQDUL£ ENTRY POINT 



SI2PLE 
SI2PLE. 

620 
621 
622 
623 
624 
(2) 
625 
626 
627 
628 
629 
630 
631 
632 
633 
(4) 
634 
(4) 
635 
636 
(4) 
637 
(4) 
638 
639 
(3) 
640 
(4) 
641 
(4) 
642 
643 
644 
645 
646 
647 
(3) 
(4) 
(3) 
(3) 
648 
649 
(6) 
650 
651 
652 
653 
654 
655 
(2) 
656 
(4) 
657 
(2) 
658 
(2) 
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.SBTTL KERNEL - DETERMINE PROCESSOR TYPE 
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SEQ 1175 



000000' 
000000' 



000000' 

000000' 012737 OOOOOOG 000114 

000006' 

000006' 012737 000340 000116 

000014' 

000014' 012737 OOOOOOG 000250 

000022' 

000022' 012737 000340 000252 



000030' 

000030' 004767 
000034' 

000034' 016502 
000040' 
000040' 005001 



000042' 
000042' 010546 



OOOOOOG 
000000 



000044 
000050 
000054 



016745 
004767 
012605 



OOOOOOG 
OOOOOOG 



000056' 
000056' 103422 



000060' 

000060' 013746 
000064' 

000064' 012737 
000072' 

000072' 076600 
000074' 
000074' 000101 



000010 



000104' 000010 



ROUTINE SIZPOL <DTABLE> 
+ 



SIZPOL. 



STUFF PARITY AND KT VECTORS 

SAVE REGISTERS, GET DTABLE ADDRESS FROM R5 STACK AND CLEAR 

R1 



LET @#114 
LET $#116 



#HTPAER 
#PRI7 



LET <3>#250 := #HTKT 
LET @#252 := #PRI7 

CALL SAVREG 

LET R2 := DTABLE(R5) 

LET R1 := #0 

DETERMINE PROCESSOR TYPE; 11/70, 11/60 OR LSI11 
CALL HRDADRCHK IN <CPUCPE> 



IF. NO. ERROR THEN 

+ 
SET UP ILLEGAL INSTRUCTION TRAP TO FIELD TRAP IF NOT 
11/60 

PUSH @#10 
LET @#10 := #1$ 
INLINE <MED> 
INLINE <RDSERV> 



MOV 


#HTPAER,@#1 14 


MOV 


#PRI7,@#1 16 


MOV 


#HTKT ,@#250 


MOV 


#PRI7,@#252 


JSR 


PC, SAVREG 


MOV 


DTABLE(R5) , R2 


CLR 


R1 



MOV 
MOV 
JSR 
MOV 



BCS 



R5.,-(SP) 
CPUCPE,-(R5) 
PC, HRDADRCHK 
(SP)+,R5 



50002$ 



MOV @#10,~(SP) 

MOV #1$,@#10 

MED 
RDSERV 
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LET R1 := R1 SET.BV 0PDP6O 

INLINE <BR 3$> 

INLINE <1$:> 



SET RETURN TO 2$ TO RESTORE PSW 

LET (SP) := #2$ 
INLINE <RTI> 

h 

MUST BE AN 11/70, BECAUSE OF TRAP 

INLINE <2$:> 

LET R1 := R1 SET. BY #PDP70 

RESTORE RESERVED INSTRUCTION TRAP 

INLINE <3$:> 

POP @#10 
ELSE 

CHECK TO SEE IF LS1 11 

CALL HRDADRCHK IN <#PSW> 



659 


000076' 






(6) 


000076' 


052701 


004000 


660 


000102' 






(2) 


000102' 


000405 




661 








662 


000104' 






(2) 


000104' 






663 








664 








665 








666 








667 








668 


000104' 






(4) 


000104' 


012716 


000112' 


669 


0001 10' 






(2) 


0001 10' 


000002 




670 








671 








672 








673 








674 








675 


0001 12' 






(2) 


0001 12' 






676 


0001 12' 






(6) 


000112' 


052701 


010000 


677 








678 








679 








680 








681 








682 


0001 16' 






(2) 


0001 16' 






683 


0001 16' 






(2) 


0001 16' 


012637 


000010 


684 


000122' 






(4) 


000122' 


000411 




(3) 


000124' 






6B5 








686 








687 








688 








689 








690 


000124' 






(3) 


000124' 


010546 




(4) 


000126' 


012745 


177776 


(3) 


000132' 


004767 


OOOOOOG 


(3) 


000136' 


012605 




691 


000140' 






(6) 


000140' 


103002 




692 


000142' 






(6) 


000142' 


052701 


020000 


693 








694 


000146' 






(4) 


000146' 






695 


000146' 






(4) 


000146' 
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BIS 0PDP6O.R1 
BR 3$ 

1$: 



21 ~1 
SEQ 



1176 



MOV //2$,(SP) 
RTI 



2$: 
BIS 



#PDP70,R1 



3$: 
MOV 
BR 



(SP)+„@#10 
50003$ 



50002$: 



IF. ERROR THEN 
LET R1 

END IF 



R1 SET. BY #PDPLSI 



ENDIF 





MOV 
MOV 
JSR 
MOV 


R5,-(SP) 
*PSW,-(R5) 
PC, HRDADRCHK 
(SP)+„R5 




BCC 


50004$ 




BIS 


#PDPLSI ,R1 


50004$: 






50003$: 
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696 
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SEO 1178 



698 
699 
700 
701 
702 
703 
704 
705 
(3) 
(4) 
(3) 
(3) 
706 
(6) 
707 
(6) 
708 
(3) 
(4) 
(3) 
(3) 
709 
(6) 
710 
(6) 
711 
712 
713 
714 
715 
716 
717 
(4) 
718 
(6) 
(9) 
719 
(6) 
720 
(4) 
721 
(4) 
722 
(4) 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
(3) 
(4) 



000146" 
000146' 
000150' 
000154' 
000160' 
000162' 
000162' 
000164' 
000164' 
000170' 
000170' 
000172' 
000176' 
000202' 
000204' 
000204' 
000206' 
000206' 



000212' 
000212' 
000220' 
000220' 
000226' 
000230' 
000230' 
000234' 
000234' 
000234' 
000234' 
000234' 
000234' 



010546 
012745 
004767 
012605 

103424 

052701 

010546 
01 2745 
004767 
012605 

103413 

052701 



000234' 

000234' 010546 
000236' 016745 



177572 
OOOOOOG 



000400 



172516 
OOOOOOG 



040000 



.SBTTL KERNEL - DETERMINE CPU OPTIONS 

+ 
DETERMINE IF "KT" IS PRESENT AND IF IT IS CHECK TO 
SEE IF EXTENDED KT" IS PRESENT 

CALL HRDADRCHK IN <#SRO> 

IF. NO. ERROR THEN 

LET R1 := R1 SET. BY #KTPRES 
CALL HRDADRCHK IN <#SR3> 

IF. NO. ERROR THEN 

LET R1 := R1 SET. BY #KTXTND 



DETERMINE IF 22-ADDRESSING BY LOADING PAR5 WITH 16 BIT 
WORD AND READ PAR5 TO SEE IF WORD READ IS SAME AS WRITTEN 



MOV 
MOV 
JSR 
MOV 


R5,-(SP) 
#SR0,-(R5) 
PC, HRDADRCHK 
(SP)+,R5 


BCS 


50005$ 


BIS 


#KTPRES,R1 


MOV 
MOV 
JSR 
MOV 


R5,-(SP) 
#SR3,~-(R5) 
PCHRDADRCHK 
(SP)+, R5 


BCS 


50006$ 


BIS 


#KTXTND,R1 



012737 100000 172352 

023727 172352 100000 
001002 

052701 001000 



LET @#K1PAR5 := #100000 

IF @#KIPAR5 EQ #100000 THEN 



MOV 



LET R1 



R1 SET. BY #ADDR22 



ENDIF 



ENDIF 



ENDIF 



NOW DETERMINE IF CACHE MEMORY IS PRESENT BY CHECKING 
CACHE CONTROL REGISTER 



CALL HRDADRCHK IN <CCNTRL> 



#100000, @#KIPAR5 





CMP 


@#KIPAR5, #100000 




BNE 


50007$ 




BIS 


#ADDR22,R1 


50007$: 






50006$: 






50005$: 







OOOOOOG 



MOV 
MOV 



R5,-(SP) 
CCNTRL,-(R5) 
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MACY11 30A(1052) 



(3) 
(3) 
733 
(6) 
734 
(6) 
735 
(4) 
736 



000242' 
000246' 
000250' 
000250' 
000252' 
000252' 
000256' 
000256' 



OO0000G 



004767 
01 2605 

103402 



052701 000004 



IF. NO. ERROR THEN 

LET R1 := R1 SET. BY #CAPRES 
ENDIF 



20-SEP-78 


18 


:54 PAGE 21-4 

SEQ 1179 


JSR 




PC.HRDADRCHK 


MOV 




(SP)+,R5 


BCS 




50010$ 


BIS 




#CAPRES,R1 


50010$: 
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18:54 PAGE 2. o 

SEO 1180 



738 
739 
740 
741 
742 
743 
744 
745 
746 
(4) 
747 
748 
(4) 
749 
(4) 
(6) 
(9) 
750 
(3) 
(4) 
(3) 
(3) 
751 
(6) 
752 
(4) 
753 
754 
755 
756 
757 
758 
759 
(6) 
760 
(6) 
(9) 
761 
(6) 
762 
(4) 
(3) 
763 
(6) 
764 
(4) 
765 
(4) 
766 
(4) 
767 
768 
769 
770 
771 
772 



000256' 
000256' 

000262' 
000262' 
000266' 
000266' 
000266' 
000272' 
000274' 
000274' 
000276' 
000300' 
000304' 
000306' 
000306' 
000310' 
000310' 



000312' 
000312' 
000316' 
000316' 
000322' 
000324' 
000324' 
000330' 
000330' 
000332' 
000332' 
000332' 
000336' 
000336' 
000336' 
000336' 
000340' 
000340' 



020327 
003035 

010546 
010345 
004767 
012605 

103414 

010320 



032713 
001403 



005013 



016200 000064 



012703 172100 



172136 



OOOOOOG 



052713 000002 



.SBTTL KERNEL - DETERMINE IF PARITY OR ECC MEMORY PRESENT 



GET STARTING ADDRESS OF PARITY TABLE, THEN DETERMINE IF 
PARITY CSR REGISTERS ARE AVAILABLE IF SO PLACE CSR ADDRESS 
IN PARITY TABLE. 



LET RO := DT.PTA(R2) 

LET R3 := #SS.PCSR 

WHILE R3 LE 0SS.PCLS DO 

50011$: 

CALL. HRDADRCHK IN <R3> 

IF. NO. ERROR THEN 

LET (R0)+ := R3 



DETERMINE IF ECC MEMORY, IF IT IS SET ECC MEMORY BIT IN 
CONFIGURATION WORD ELSE SET PARITY PRESENT BIT IN 
CONFIGURATION WORD 0. CLEAR THE PARITY CSR'S 

LET (R3) := (R3) SET. BY #BIT01 

IF #BIT01 SETIN (R3) THEN 



MOV 



MOV 



BIS 



000002 



LET R1 := R1 SET. BY #ECCMEM 



052701 000100 



000402 



052701 002000 



ELSE 



LET R1 
ENDIF 
LET (R3) := #0 



R1 SET. BY #PARPRES 



ENDIF 



50014$ 



i0015$: 



50013$: 



BIS 



CLR 



IF 11/70 PROCESSOR THEN SET PARITY PRESENT IN CONFIGURATION 
WORD AND POINT TO PARITY CSR + 4, ELSE POINT TO 
PARITY CSR + 2 



DT.PTA(R2) f R0 



#SS.PCSR,R3 



CMP 
BGT 


R3.0SS.PCLS 
50012$ 


MOV 
MOV 
USR 
MOV 


R5,-(SP) 
R3, -(R5) 
PC, HRDADRCHK 
(SP)+,R5 


BCS 


50013$ 


MOV 


R3, (R0)+ 



#BIT01 , (R3) 



BIT 
BEQ 


0BITO1 , (R3) 
50014$ 


BIS 


#ECCMEM,R1 


BR 


50015$ 



#PARPRES,R1 



(R3) 
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IF #PDP70 SETIN R1 THEN 

LET R1 := R1 SET. BY #PARPRES 
LET R3 := R3 + #4 

LET R3 := R3 + #2 



773 


000340' 






(6) 


000340' 


032701 


010000 


(9) 


000344' 


001405 




774 


000346' 






(6) 


000346' 


052701 


002000 


775 


000352' 






(6) 


000352' 


062703 


000004 


776 


000356' 






(4) 


000356' 


000402 




(3) 


000360' 






777 


000360' 






(6) 


000360' 


062703 


000002 


778 


000364' 






(4) 


000364' 






779 


000364' 






(4) 


000364' 


000740 




(3) 


000366' 






780 








781 








782 








783 








784 








785 


000366* 






(6) 


000366' 


032701 


010000 


(9) 


000372' 


001410 




(6) 


000374' 


005772 


000064 


(9) 


000400' 


001005 




786 


000402' 






(3) 


000402' 


010546 




(4) 


000404' 


010245 




(3) 


000406' 


004767 


000000G 


(3) 


000412' 


012605 




787 


000414' 






(4) 


000414' 






788 








789 









ELSE 





BIT 


#PDP70,R1 




BEQ 


50016$ 




BIS 


#PARPRES,R1 




ADD 


#4,R3 




BR 


50017$ 


50016$: 







ENDIF 



ENDDO 



50017$ 



50012$: 



ADD 



BR 



#2,R3 



50011$ 



DETERMINE IF WE SHOULD CHECK FOR INDIRECT CSRS ON THE 11/70 



IF 0PDP7O SETIN R1 AND @DT.PTA(R2) EQ #0 THEN 



CALL ICSRSZ IN <R2> 



ENDIF 





BIT 


#PDP70,R1 




BEQ 


50020$ 




TST 


<3>DT.PTA(R2) 




BNE 


50020$ 




MOV 


R5,-(SP) 




MOV 


R2,-(R5) 




JSR 


PC, ICSRSZ 




MOV 


(SP)+,R5 


50020$: 
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iEQ 1182 



791 
792 
793 
794 
795 
796 
797 
798 
(4) 
799 
800 
801 
802 
803 
804 
805 
(6) 
(9) 
806 
807 
808 
809 
810 
811 
(4) 
812 
(4) 
813 
814 
815 
816 
817 
81B 
(3) 
819 
(6) 
820 
(6) 
821 
(3) 
(4) 
(30 
(3) 
822 
(6) 
823 
(2) 
824 
(4) 
825 
(3) 
(6) 
826 
827 
828 
829 



000414' 
000414' 016762 



000000 000044 



000422' 

000422' 032701 000400 

000426' 001053 



000430' 

000430' 005000 
000432' 
000432' 005003 



000434' 
000434' 
000434' 
000434' 
000436' 
000436' 
000442' 
000442' 
000444' 
000446' 
000452' 
000454' 
000454' 
000456' 
000456' 
000460' 
000460' 
000460' 
000460' 
000464' 



005200 



062703 004000 



010546 
010345 
004767 
012605 



000000G 



103001 



000403 



020027 
001363 



•SBTTL KERNEL - DETERMINE SYSTEM SIZE 

+ 
NOW TAKE THE CONTENTS OF LOC . (EXERCISER SIZE) 
AND LOAD IT INTO EXERCISER SIZE WORD 

LET DT.ESIZ(R2) := 



IF NO "KT" DETERMINE SYSTEM SIZE, WHICH CAN NOT BE GREATER 
THAN 28K. 



IF *KTPRES NOTSETIN R1 THEN 

SET UP COUNTER OF 1K CHUNKS AND 1K BLOCK POINTER 

LET RO := #0 
LET R3 := #0 

REPEAT UNTIL NON-EXISTENT MEMORY OR 28K 

REPEAT 

LET RO : = RO + #1 

LET R3 := R3 + #SS.0KC 

CALL HRDADRCHK IN <R3> 

IF. ERROR THEN 

INLINE <BR 4$> 
ENDIF 
UNTIL RO EQ 0SS.28 



MOV 



BIT 
BNE 



CLR 
CLR 



0,DT.ESIZ(R2) 



#KTPRES,R1 
50021$ 



RO 
R3 



50022$: 








INC 


RO 




ADD 


#SS.0KC,R3 




MOV 
MOV 
JSR 
MOV 


R5,-(SP) 

R3,-(R5) 

PC .HRDADRCHK 

(SP)+,R5 




BCC 


500 23$ 




BR 4$ 





50023$: 



000034 



CMP 

BNE 



RO.0SS.28 
50022$ 



DETERMINE IF SYSTEM HAS 30K BY LOOKING AT FIRST ADDRESS IN I/O PAGE 
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INLINE <4$:> 

IF RO EQ #SS.28 THEN 



830 








831 


000466' 






(2) 


000466' 






832 


000466' 






(6) 


000466' 


020027 


000034 


(9) 


000472' 


001011 




833 


000474' 






(3) 


000474' 


010546 




(4) 


000476' 


012745 


160000 


(3) 


000502' 


004767 


00000OG 


(3) 


000506' 


012605 




834 


000510' 






(6) 


000510' 


103402 




835 


000512' 






(6) 


000512' 


062703 


010000 


836 


000516' 






(4) 


000516' 






837 


000516' 






(4) 


000516' 






838 








839 








340 








841 








842 








843 








844 








845 


000516' 






(4) 


000516' 


000241 




846 


000520' 






(4) 


000520' 


01 0362 


000046 


(7) 


000524' 


006062 


000046 


(7) 


000530' 


006062 


000046 


(7) 


000534' 


006062 


000046 


(7) 


000540' 


006062 


000046 


(7) 


000544' 


006062 


000046 


(7) 


000550' 


006062 


000046 


847 


000554' 






(4) 


000554' 


000443 




(3) 


000556' 






848 








849 








850 








851 








852 


000556' 






(3) 


000556' 


010546 




(4) 


000560' 


010245 




(3) 


000562' 


004767 


OOOOOOG 


(3) 


000566' 


012605 




853 








854 








855 








856 








857 








858 








859 








860 


000570' 
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4$: 



■8 

;eq 



1183 



CALL HRDADRCHK IN <#SS.RFS> 

IF. NO. ERROR THEN 

LET R3 := R3 + #10000 
ENDIF 



ENDIF 





CMP 
BNE 


R0,#SS.28 
50024$ 




MOV 
MOV 
J3R 
MOV 


R5,-(SP) 
#SS.RFS,-(R5) 

PC, HRDADRCHK 
(SP)+,R5 




BCS 


50025$ 




ADD 


#10000, R3 


5 0025$: 






50024$: 







NOW GET MEMORY SIZE IN "PAR" FORMAT BY SHIFTING R3, 6 TIMES 
TO THE RIGHT, ONCE THIS IS DONE LOAD INTO SYSTEM 
SIZE WORD. 



LET CARRY := #0 

LET DT.SSIZ(R2) := R3 ROTATE -6 



ELSE 



KT IS PRESENT, FIRST GO MAP APRS 
CALL KTSET IN <R2> 



CLC 

MOV 
ROR 
RQR 
ROR 
RQR 
ROR 
ROR 

BR 



50021$: 



MOV 
MOV 
JSR 
MOV 



WILL USE KIPAR5 TO SIZE MEMORY. TURN ON KT AND THEN 
SIZE UNTIL NON-EXISTENT MEMORY IS FOUND'OR THE 
I/O PAGE IS FOUND. SIZING WILL BE DONE IN 
1K STEPS 

LET @#KIPAR5 •'= 0SS.1KP 



R3 
DT 
DT 
DT 
DT 
DT 



DT.SSIZ(R2) 

SSIZ(R2) 

SSIZ(R2) 

SSIZ(R2) 

SSIZ(R2) 

SSIZ(R2) 



DT.SSIZ(R2) 
50026$ 



R5,-(SP) 
R2,-(R5) 
PC, KTSET 
(SP)+,R5 
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21-9 

SEO 1184 



(4) 
861 
(6) 
862 
(6) 
(9) 
863 
(6) 
864 
(4) 
865 
866 
(3) 
367 
(6) 
868 
(3) 
(4) 
(3) 
(3) 
869 
(6) 
870 
(2) 
871 
(4) 
872 
(3) 
(6) 
873 
874 
875 
876 
877 
878 
(2) 
879 
(4) 
880 
(4) 
881 



000570 
000576 
000576 
000604 
000604 
000610 
000612 
000612 
000620 
000620 

000620 
000620 
000620 
000620 
000626 
000626 
000630 
000634 
000640 
000642 
000642 
000644 
000644 
000646 
000646 
000646 
000646 
000654 



000656' 
000656' 
000656' 
000656' 
000664' 
000664' 



012737 000040 172352 

052737 000001 177572 

032701 001000 
001403 

052737 000020 172516 



062737 000040 172352 



01 0546 
01 2745 
004767 
012605 

103001 

000404 



023727 
001361 



120000 
OOOOOOG 



172352 177600 



013762 172352 000046 



LET @#SRO :■- @#SRO SET. BY #BITOO 
IF #ADDR22 SETIN R1 THEN 

LET @#SR3 := @#SR3 SET. BY #BIT04 
ENDIF 

REPEAT 

LET @#KIPAR5 := @#KIPAR5 + #SS.1KP 
CALL HRDADRCHK IN <#SS.120K> 

IF. ERROR THEN 

INLINE <BR 5$> 
ENDIF 
UNTIL @#KIPAR5 EQ #SS.IDP 



; + 

; LOAD SYSTEM SIZE WORD WITH CONTENTS OF KIPAR5 

INLINE <5$:> 

LET DT.SSIZ(R2) := @#KIPAR5 
ENDIF 



50027$ 



50030$ 



50031$ 



MOV 

BIS 

BIT 
BEO 

BIS 



ADD 



CMP 
BNE 



5$: 

MOV 



#SS. 1KP,@#KIPAR5 

#BIT00,@#SR0' 

#ADDR22,R1 
50027$ 

#BIT04,@#SR3 



#SS. 1KP,<s>#KIPAR5 



MOV 


R5,-(SP) 


MOV 


#SS.120K,-(R5) 


JSR 


PC, HRDADRCHK 


MOV 


(SP)+,R5 


BCC 


50031$ 


BR 5$ 





©#KIPAR5 f #SS. IOP 
50030$ 



@#KIPAR5,DT.SSIZ 



>0026$: 
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.SBTTL KERNEL - WRITE GOOD PARITY IF ECC OR PARITY PRESENT 

+ 
DETERMINE IF PARITY OR ECC MEMORY IS PRESENT. 

IF #PARPRES SETIN R1 OR #£CCMEM SETIN R1 THEN 



883 








884 








885 








886 








887 








888 








889 


000664' 






(6) 


000664' 


032701 


002000 


(8) 


000670' 


001003 




(6) 


000672' 


032701 


000100 


(9) 


000676' 


001506 




(6) 


000700' 






890 








891 








892 








893 








894 








895 








896 


000700' 






(6) 


000700' 


032701 


000004 


(9) 


000704' 


001406 




897 


000706' 






(4) 


000706' 


012767 


000003 OOOOOOG 


898 


000714' 






(4) 


000714' 


016777 


OOOOOOG OOOOOOG 


899 


000722' 






(4) 


000722' 






900 








901 








902 








903 








904 








905 








906 








907 








908 


000722' 






(6) 


000722' 


032701 


000400 


(9) 


000726' 


001434 




909 


000730' 






(3) 


000730' 


004767 


OOOOOOG 


910 








911 








912 








913 








914 








915 








916 


000734' 






(4) 


000734' 


005037 


172314 


917 


000740' 






(4) 


000740' 


005037 


172352 


918 








919 








920 








921 








922 








923 











BIT 


#PARPRES,R1 




BNE 


50032$ 




BIT 


#ECCMEM,R1 




BEG 


50033$ 


50032$: 







IF CACHE PRESENT, SET BIT 0,1 IN CACHE CONTROL REGISTER 
THIS WILL TURN CACHE OFF 



IF tfCAPRES SETIN R1 THEN 



LET KONTRL : = #3 

LET @CCNTRL := KONTRL 



BIT 

BEG 

MOV 
MOV 



#CAPRES,R1 
50034$ 

#3, KONTRL 

KONTRL, ©CCNTRL 



ENDIF 



50034$: 



SINCE PARITY OR ECC IS PRESENT AND TURNED OFF 

WILL NOW SET UP TO WRITE GOOD PARITY INTO ALL 

OF MEMORY, FIRST DETERMINE IF KT IS PRESENT THEN SET 

UP KT REGISTERS. 



IF #KTPRES SETIN R1 THEN 



CALL KTSET 



SET UP KIPDR6 TO TRAP WHEN ENTERING PAGE. AND 
SET UP KIPAR5 TO MAP TO 



LET @#KIPDR6 : = #0 
LET @#KIPAR5 := #0 



SAVE KT ERROR VECTOR AND SET UP KT ERROR VECTOR TO 
GO TO 7$. THEN TURN ON KT AND SET UP BUSERR VECTOR AT 
SET UP RO TO USE PAR5 



BIT 
BEG 

JSR 



#KTPRES,R1 
50035$ 

PC, KTSET 



CLR 
CLR 



<a#KIPDR6 
(5>#KIPAR5 
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20--SEP 



924 
925 
(2) 
926 
(4) 
927 
(2) 
928 
(4) 
929 
(6) 
930 
(6) 
(9) 
931 
932 
933 
934 
935 
(6) 
936 
(4) 
937 
(4) 
938 
(4) 
(3) 
939 
940 
941 
942 
943 
944 
(4) 
945 
(2) 
946 
(4) 
947 
948 
(4> 
949 
950 
951 
952 
953 
(2) 
954 
(4) 
955 
(2) 
956 
957 
958 
959 
960 



000744' 
000744' 
000750' 
000750' 
000756' 
000756' 
000762' 
000762' 
000770' 
000770' 
000776' 
000776' 
001002' 



001004' 
001004' 
001012' 
001012' 
001012' 
001012' 
001016' 
001016' 
001020' 



001020* 
001020' 
001022' 
001022' 
001026' 
001026' 

001034' 
001034' 



001034 

001034 

001034 

001034 1 

001036 

001036 1 



013746 

012737 

013746 

012737 

052737 

032701 
001403 



000406 



01 1020 



000776 



000004 

001060' 000004 

000250 

001040' 000250 

000001 177572 

001000 



PUSH @#4 

LET @#4 := #8$ 

PUSH @#250 

LET @#250 := #7$ 

LET @#SRO := @#SR0 SET. BY #BIT0Q 

IF #ADDR22 SETIN R1 THEN 



-78 


18 


:54 PAGE 21-11 

SEQ 1186 


MOV 




@#4,-(SP) 


MOV 




#8$ T @#4 


MOV 




@#250,-(SP) 


MOV 




#7$,@#250 


BIS 




#BITOO,@#SRQ 


BIT 
BEQ 




#ADDR22,R1 
50036$ 



052737 000020 172516 



012700 120000 



LET @#SR3 := @#SR3 SET . BY #BIT04 
ENDIF 
LET RO := #SS.120K 



50036$: 



ELSE 



BIS 

MOV 

BR 



50035$: 



005000 

013746 000004 

012737 001106' 000004 



IF KT NOT PRESENT THEN SET UP POINTER AND SAVE BUSERR VECTOR 

LET RO := #0 

PUSH @#4 

LET @#4 := #10$ 

ENDIF 



NOW WRITE GOOD PARITY 
INLINE<6$:> 

LET (R0)+ := (RO) 
INLINE <BR 6$> 



COME HERE BY WAY OF KT TRAP 

UPDATE PAR5 TO NEXT 4K BLOCK AND RESET RO TO START 

OF BLOCK. LOAD RETURN PC WITH 6$ AND RTI 



6$: 
MOV 
BR 6$ 



#BIT04,@#SR3 

#SS.120K,R0 
50037$ 





CLR 


RO 




MOV 


<a#4,-(SP) 




MOV 


#10$,@#4 


50037$: 







(RO) , (R0)+ 
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SEQ 



1187 



961 
962 
963 
(2) 
964 
(6) 
965 
(4) 
966 
(4) 
967 
(2) 
968 
969 
970 
971 
972 
973 
974 
975 
(2) 
976 
(6) 
977 
978 
(4) 
979 
(2) 
980 
931 
(2) 
982 
(2) 
983 
(2) 
984 
(2) 
985 
986 
987 
"988 
989 
990 
991 
(2) 
992 
(2) 
993 
(2) 
994 
995 
(4) 
996 
997 
998 
999 



001040' 
001040' 
001040' 
001040' 
001046' 
001046' 
001052' 
001052' 
001056' 
001056' 



062737 000200 172352 
012700 120000 



012716 001034' 



000002 



001060' 
001060' 
001060' 
001060' 042737 



000001 177572 



001066' 

001066' 012716 001074' 

001072' 

001072' 000002 



001074' 
001074' 
001074' 
001074' 
001100' 
001100' 
001104' 
001104' 



012637 000250 



012637 000004 



000403 



001106' 
001 106' 
001106' 
001106' 
0011 10' 
0011 10' 

001114' 
001114' 



022626 



012637 000004 



INLINE <7$:> 

LET @#KIPAR5 := <a>,¥KIPAR5 + #200 
LET RO := #SS.120K 
LET (SP) := #6$ 
INLINE <RTI> 



COME HERE BY WAY OF ILLEGAL ADDRESS TRAP 

TOP OF MEMORY WAS FOUND, TURN OFF MEMORY MANAGEMENT, 

REMOVE TRAP PC AND PSW FROM STACK AND RESTORE BUSERR AND MEMGMT VECTORS 

INLINE <8$:> 

8$: 
LET @#SRO := @#SRO CLR.BY #BIT00 



LET (SP) := #9$ 
INLINE <RTI> 

INLINE <9$:> 

POP @#250 

POP @#4 

INLINE <BR 11$> 



WILL TRAP HERE IF NO MEMORY MANAGEMENT, CLEAN UP 
STACK AND RESTORE BUSERR 



INLINE <10$:> 

INLINE <CMP (SP)+,(SP)+> 
POP @#4 



7$: 




ADD 


#200,@#KIPAR5 


MOV 


#SS.120K,R0 


MOV 


*6$,(SP) 


RTI 





BIC 


#BIT00,<MSR0 


MOV 


#9$,(SP) 


RTI 




9$: 




MOV 


(SP) + ,@>#250 


MOV 


(SP) + „@>#4 


BR 11$ 





10$: 

CMP (SP)+,(SP)+ 

MOV (SP) + ,@>#4 



ENDIF 



; + 



50033$: 



; IF AUTOMATIC MODE( ACT f SLIDE , XXDP , ETC. ) , SET AUTO BIT IN CONFIGURATION WORDO 
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1000 
1001 
1002 

(2) 
1003 

(6) 

(9) 
1004 

(6) 
1005 

(4) 
1006 
1007 
1008 
1009 
1010 
1011 
1012 

(6) 
1013 

(6) 
1014 



0011 14' 
0011 14' 
0011 14' 
001 1 14' 
001120' 
001122' 
C01122' 
001126' 
001126' 



001126' 
001126' 
001132' 
001132' 



005737 
001402 



000042 



C52701 000010 



042701 024020 



050162 000014 



INLINE <1 1$:> 

IF @#42 NE #0 THEN 



11$ 



LET R1 := R1 SET. BY #AUTO 



ENDIF 



50040$: 



LOAD UP CONFIGURATION WORD 
CLEAN UP R1 BEFORE LOADING DT.CFO 



LET R1 := R1 CLR.BY #OWEN 

LET DT.CF0(R2) : = DT.CF0(R2) SET. BY R1 



PAGE 21-13 

SEQ 1188 



T3T 


@#42 


BEQ 


50040$ 


BIS 


#AUT0,R1 



BIC #0WEN,R1 

BIS R1 ,DT.CF0(R2) 
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SEQ 1189 



1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

(4) 

1024 

(4) 

1025 

(4) 

(6) 

(9) 

1026 

(6) 

1027 

(6) 

1028 

(4) 

(3) 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

(4) 

1036 

1037 

1038 

1039 

1040 

1041 

(4) 

(6) 

(9) 

1042 

(3) 

1043 

1044 

1045 

1046 

1047 

1048 

(4) 

1049 

(6) 

(9) 

1050 

1051 

1052 

1053 

1054 



001136' 
001136' 
001140' 
001140' 
001144' 
001144' 
001144' 
001150' 
001152' 
001152' 
001154' 
001154' 
001160' 
001160' 
001162' 



001162' 
001162' 



001166' 
001166' 
001166' 
001170' 
001172' 
001172' 



001172' 
001172' 
001174' 
001174' 
001202' 



005000 



016201 000032 



021127 000000 
001404 

005200 

062701 000002 

000771 



SBTTL KERNEL - SORT MODULE LIST 

COUNT THE MODULES 

LET RO := #0 

LET R1 := DT.MLST(R2) 

WHILE (R1) NE #ENDLST DO 

LET RO := RO + #1 
LET R1 := R1 + 02 
ENDDO 



50041$: 



CLR 


RO 


MOV 


DT.MLST(R2) ,R1 


CMP 
BEQ 


(R1 ) ,#ENDLST 
50042$ 


INC 


RO 


ADD 


#2 T R1 


BR 


50041$ 



50042$: 



START THE SORT OPERATION, AND SORT "BKMOD" TO BOTTOM OF MODQ LIST, 
DEVELOPING A "BKMOD QUEUE" 



016201 000032 



005700 
003432 



01 1104 

032764 
001414 



000020 000026 



LET R1 := DT.MLST(R2) 

h 

WORK THRU THE LIST UNTIL THE END IS REACHED 
WHILE RO GT #0 DO 

REPEAT 

- 
IS THE CURRENT ENTRY A BKMOD MODULE? 

LET R4 : = (R1) 

IF #BKMOD SETIN STAT(R4) THEN 

THE CURRENT ENTRY IS A BKMOD, WHAT ABOUT THE NEXT ENTRY? 



MOV 



DT.MLST(R2) ,R1 



50043$: 



50045$; 



TST 
BLE 



RO 
50044$ 



MOV 

BIT 
BEQ 



(R1 ) ,R4 

#BKM0D,STAT(R4) 
50046$ 
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SEQ 1190 



1055 


001204' 






(4) 


001204' 


016103 


000002 


1056 








1057 








1058 








1059 








1060 








1061 


001210' 






(6) 


001210' 


020327 


000000 


(9) 


001214' 


001407 




1062 








1063 








1064 








1065 








1066 








1067 


001216' 






(6) 


001216* 


032763 


000020 000026 


(9) 


001224' 


001003 




1068 


001226' 






(4) 


001226' 


01 1 161 


000002 


1069 


001232' 






(4) 


001232' 


010311 




1070 


001234' 






(4) 


001234' 






1071 


001234' 






(4) 


001234' 






1072 


001234' 






(4) 


001234' 






1073 








1074 








1075 








1076 








1077 








1078 


001234' 






(6) 


001234' 


062701 


000002 


1079 


001240' 






(3) 


001240' 


021127 


000000 


(6) 


001244' 


001352 




1080 








1081 








1082 








1083 








1084 








1085 


001246' 






(6) 


001246' 


005300 




1086 


001250' 






(4) 


001250' 


016201 


000032 


1087 


001254' 






(4) 


001254' 


000744 




(3) 


001256' 






1088 








1089 








1090 








1091 








1092 








1093 









LET R3 := 2(R1 ) 



MOV 2(R1 ) ,R3 



MAKE SURE ITS NOT THE END OF THE LIST 



IF R3 NE #ENDLST THEN 



CMP 
BEQ 



R3,#ENDLST 
50047$ 



IF ITS NOT A BKMOD, SWAP THEM 



IF #BKMOD NOTSETIN STAT(R3) THEN 

BIT #BKM0D,STAT(R3) 

BNE 50050$ 
LET 2(R1 ) := (R1 ) 

MOV (R1),2(R1) 
LET (R1 ) := R3 

MOV R3, (R1) 



ENDIF 



ENDIF 



ENDIF 



50050$: 
50047$: 
50046$: 



UPDATE THE POINTER AND CONTINUE SEARCHING THRU THE LIST 

LET R1 := R1 + #2 
UNTIL (R1 ) EQ #ENDLST 



ADD 

CMP 
BNE 



#2,R1 

(R1 ) ,#ENDLST 
50045$ 



THE END OF THE LIST HAS BEEN REACHED, SO UPDATE THE MAIN POINTER & CONTINUE 



LET RO := RO - #1 

LET R1 := DT.MLST{R2) 



ENDDO 



DEC RO 

MOV DT.MLST(R2) ,R1 

BR 50043$ 



50044$: 



NOW THAT THE BACKGROUND MODULES HAVE BEEN GROUPED TOGETHER AT THE END 
OF THE MODULE LIST, PUT THE ADDRESS OF THIS BACKGROUND LIST (IF THERE IS 
A BACKGROUND LIST) INTO THE DATA TABLE 
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LET R1 := DT.MtST(R2) 
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SEQ 



1191 



1094 








1095 


001256' 






(4) 


001256' 


016201 


000032 


1096 








1097 








1098 








1099 








11 00 








1101 


001262' 






(4) 


001262' 


005062 


000034 


1102 


001266' 






(4) 


001266' 


012703 


177777 


1103 


C01272' 






(4) 


001272' 






(6) 


001272' 


021127 


000000 


(9) 


001276' 


001420 




(6) 


001300' 


005703 




(9) 


001302' 


001416 




1 104 


001304' 






(4) 


001304' 


01 1104 




1105 


001306' 






(6) 


001306' 


032764 


000020 000026 


(9) 


001314' 


001406 




1106 








1 107 








1108 








1109 








1110 








1111 


001316' 






(4) 


001316' 


010162 


000034 


1112 


001322' 






(4) 


001322' 


012701 


000000 


1113 


001326' 






(4) 


001326' 


005003 




11 14 


001330' 






(4) 


001330' 


000402 




(3) 


001332' 






1115 








1116 








11 17 








11 18 








1119 


"•** 






1120 


001332' 






(6) 


001332' 


062701 


000002 


1121 


001336' 






(4) 


001336' 






1122 


001336' 






(4) 


001336' 


000755 




(3) 


001340' 






1 123 








1124 








1125 








1126 








1127 








1128 


001340' 






(3) 


001340' 


004767 


OOOOOOG 



MOV 



DT.MLST(R2) ,R1 



WORK THRU THE MODULE LIST UNTIL THE FIRST BACKGROUND MODULE IS FOUND 

LET DT.BLST(R2) := #0 

LET R3 := #-1 

WHILE (R1) NE #ENDL.ST AND R3 NE #0 DO 

50051 

LET R4 := (R1 ) 

IF 0BKMOD SETIN STAT(R4) THEN 

h 

A BACKGROUND MODULE HAS BEEN FOUND - SO THIS IS THE START OF THE BACKGROUND LIST 

LET DT.BLST(R2) := R1 

LET R1 := #ENDLST 

LET R3 := #0 
ELSE 

h 
UPDATE THE POINTER AND CONTINUE TO SEARCH THRU THE MODULE LIST 



CLR 


DT.BLST(R2) 


MOV 


#-1 ,R3 


CMP 
BEQ 
TST 
BEQ 


(R1 ) ,#ENDLST 

50052$ 

R3 

50052$ 


MOV 


(R1 ) ,R4 


BIT 

BEQ 


#BKM0D,STAT(R4) 
50053$ 





MOV 


R1 ,DT.BLST(R2) 




MOV 


#ENDLST,R1 




CLR 


R3 




BR 


50054$ 


50053$: 







LET R1 := R1 + #2 



ENDIF 



ENDDO 



50054$: 



50052$: 



ADD #2,R1 



BR 50051$ 



NOW RETURN TO THE CALLER 



CALL RESREG 



JSR PC, RESREG 
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ENDRTN 



LABEL TYPE QUEUE HIGH LIMIT 
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SEO 



1192 



1129 


001344' 




(3) 


001344' 




(3) 


001344' 




(2) 


001344' 


000207 


1130 






1131 






1 132 






1 133 






1134 






1135 


001346' 




(2) 


001346' 




1 136 






1137 






1 138 






1 1 39 






1140 






1141 






1142 






1143 






1144 






1145 






1146 






1147 






1148 




000000' 


1149 




000122' 


1150 




000364' 


1151 




000120' 


1152 




000122 


1153 




000362' 


1154 




000050 


1155 




000762 


1156 




000002 


1157 




001344' 


1158 




000076 


1159 






1160 




000001 



50000$: 
50001$: 



RTS 



PC 



INLINE <0V.TQEND:> 



ov.tqend: 



NOTE: THESE OVERLAY EQUATES MUST BE LEFT IN THIS POSITION 
(THAT IS, AFTER SIZPOL AND TQ.END LABELS) 

++++++++++++++++++++++++++++++++++++++ 
OVERLAY REGIONS EQUATES 

OV.KBBUF = SIZPOL 

OV.CQ= OV.KBBUF + ~D<82> 

OV.TQ = OV.CQ + ~D<162> 

OV.HIKB = OV.CQ - 2 

OV.KBSIZ = OV.CQ - OV.KBBUF 

OV.HICQ = OV.TQ - 2 

OV.CQSIZ = <OV.TQ - 0V.CQ>/4 

OV.A = OV.TQEND - OV.TQ 

OV.REM = OV„A - <<OV.A/10>*10> 

OV.HITQ = OV.TQEND - OV.REM 

OV.TQSIZ = <OV.TQEND - OV.TQ - OV , 

.END 



■+++++ 

KEYBOARD BUFFER STARTING ADDRESS 
CONTROL QUEUE STARTING ADDRESS 
TYPE QUEUE STARTING ADDRESS 
KEYBOARD BUFFER HIGH LIMIT 
KEYBOARD BUFFER SIZE 
CONTROL QUEUE HIGH LIMIT 
CONTROL QUEUE SIZE 
GET THE TO SIZE 
GET ANY REMAINDER 
TYPE QUEUE HIGH LIMIT 

REM> /10 ;TYPE QUEUE SIZE 
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ACSR = 
ACTBIT= 
ADDR22= 
ADR 

APTFER= 
APTPRE= 
ASB 

ASSEMB= 
ASTAT = 
AUTO = 
AUTOST= 
AWAS = 
BITO = 
BITOG = 
BIT01 = 
BIT02 = 
BIT03 = 
BIT04 - 
BIT05 = 
BIT06 = 
BIT07 = 
BIT08 = 
BIT09 = 
BIT1 = 
BIT10 = 
BIT11 = 
BIT12 = 
BIT13 = 
BIT14 = 
BIT15 = 
BIT2 = 
BIT3 = 
BIT4 = 
BIT5 = 
BIT6 = 
BIT7 = 
BIT8 = 
BIT9 = 
BKDEF = 
BKMOD = 
BKMODE= 
BKSLSH= 
CAPRES= 
CASTAT= 
CCNTRL= 
CDERCT= 
CDWDCT= 
CKTIM = 
CLKPRE= 
CONFIG= 
CPUCPE= 
CQOVF = 
CR 



000102 
004000 
001000 
000006 
000004 
000200 
000106 
000010 
000104 
000010 
020000 
0001 10 
000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 
100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
000020 
0.40000 
000134 
000004 
000004 
* * * * ** 

000146 
000144 
100000 
000001 
000056 

000001 
000015 



CSRA = 
CSRC = 
CTRLC = 
CTRLO = 
CTRLU = 
DCEVNT= 
DEFRTN= 
DIAGMC= 
DROPMO= 
DSEVNT= 
DTABLE= 
DT.ADD= 
DT.AP = 
DT.APK= 
DT.BLS= 
DT.CF0= 
DT.CF1 = 
DT.ERR= 
DT.ESI= 
DT.EVN= 
DT.EXS= 
DT.FCH= 
DT.FCN= 
DT.HMX= 
DT.KBE= 
DT.KBP= 
DT.KBR= 
DT.KBU= 
DT.MLS= 
DT.MTI= 
DT.OFF= 
DT.PAS= 
DT.PC = 
DT.PFL= 
DT.PSW= 
DT.PTA= 
DT.RCS= 
DT.REL= 
DT.SCT= 
DT.SMX= 
DT.SP = 
DT.SSI= 
DT.STO= 
DT.ST1= 
DT.SWR= 
DT.SYP= 
DT.WBU= 
DT.WHL= 
DT.WLL= 
DVID1 = 
ECCMEM= 
ECCSTA= 
ENBEOP= 



000100 
000102 
000003 
000017 
000025 
000011 
000400 
000000 
100000 
000014 
000000 
000042 
00 0100 
000076 
000034 
000014 
000016 
000020 
000044 
000000 
000060 
000037 
000036 
000104 
000024 
000026 
000022 
000030 
000032 
000110 
000070 
000074 
000002 
000062 
000004 
000064 
000102 
000040 
000066 
000106 
000006 
000046 
000010 
000012 
000056 
000072 
000050 
000054 
000052 
000014 
000100 
000010 
010000 
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SEQ 


1193 


ENBNUL= 


000001 


KTXTND 


= 040000 


PDP60 = 


004000 




ENDLST= 


000000 


L F . 


= 000012 


PDP70 = 


010000 




EOPBIT= 


000001 


LPSTAT 


= 000001 


PRIO s 


000000 




ERRTYP= 


000106 


MAPSTA 


= 000200 


PRI1 = 


000040 




EVNTBE= 


000200 


MED ■ 


= 076600 


PRI4 = 


000200 




EVNTHD= 


000200 


MEMPAS 


= 040000 


PRI5 = 


000240 




EVNTKT= 


000203 


MODEXH 


= 004000 


PRI6 = 


000300 




EVNTPE= 


000202 


MQDHOL 


-- 002000 


PR I 7 = 


000340 




EVNTRE= 


000201 


MODSEL 


= 001000 


PRO 


000000 




FATERR= 


100000 


MSGCKD 


= 000010 


PR4 


000200 




HRDADR= 


***** * G 


MSGCKS 


= 000011 


PR5 


000240 




HRDCNT= 


000044 


MSGDER 


= 000005 


PR6 


000300 




HRDPAS= 


000050 


MSGDRP'. 


= 000017 


PR7 


000340 




HTKT = 


****** G 


MSGECH 


= 177777 


PS 


177776 




HTPAER= 


****** Q 


MSGEOP 


= 000013 


PSW 


177776 




ICONT = 


000035 


MSGHDR 


= 000004 


RANNUM= 


000054 




ICOUNT= 


000040 


MSGHNG 


= 000022 


RBUFEA= 


000130 




ICSRSZ= 


****** G 


MSGHRD 


= 000007 


RBUFPA= 


000126 




IDNUM = 


000122 


MSGMAP 


= 000021 


RBUFSZ= 


000132 




IE 


000100 


MSGNUL 


= 177775 


RBUFVA= 


000124 




INDPAR= 


000040 


MSGPOP 


= 000002 


RDSERV= 


000101 




INHDRP* 


040000 


MSGPRM 


^ 177776 


RDWHMI= 


000022 




INHEPR= 


020000 


MSGRES 


= 000001 


RELERR= 


000020 




INHREL= 


001000 


MSGSFT 


= 000006 


RELMOD= 


020000 




INHRRE= 


000400 


MSGSKE 


= 000003 


RELTIM= 


010000 




INIT = 


000030 


MSGSMB 


= 000015 


RESREG= 


****** g 




INTR = 


000120 


MSGSMH 


= 000014 


RES1 = 


000 056 




IOMOD = 


100000 


MSGSMS 


= 000016 


RES2 = 


000060 




IOMODP= 


102000 


MSGSTD 


= 000000 


RICHAR= 


031060 




IOMODR= 


1 12000 


'■ MSGSYS 


= 000012 


RPTDAT= 


002000 




IOIVIODX = 


1 10000 


MSGVEC 


= 000020 


RSTRT = 


000112 




JACK - 


035060 


' NBKMOD 


= 001000 


RUBOUT= 


000177 




KIPARO= 


172340 


NCPUOP 


= 000020 


RUNMOD= 


100000 




KIPAR1= 


172342 


NOAPTY 


= 000002 


R5VALU= 


001740 




KIPAR2= 


172344 


NULL 


= 000000 


SAM 


075464 




KIPAR3= 


172346 


OV.A 


= 000762 


SAVREG= 


****** Q 




KIPAR4= 


172350 


ov.co 


= 000122RG 


SBADR = 


000102 




KIPAR5= 


172352 


OV.CQS 


= 000050 G 


SBKMOD= 


000000 




KIPAR6= 


172354 


OV.HIG 


= 000362RG 


SBKSEL= 


010000 




KIPAR7= 


172356 


OV.HIK 


= 000120RG 


SC.ADR= 


.000006 




KIPDRO= 


172300 


OV.HIT 


= 001344RG 


SC.ALC= 


000014 




KIPDR1= 


172302 


OV.KBB 


= OOOOOORG 


SC.APC= 


000016 




KIPDR2= 


172304 


OV.KBS 


= 000122 G 


SC.CKL= 


000002 




KIPDR3= 


172306 


OV.REM 


= 000002 


SC. CKP= 


000004 




KIPDR4= 


172310 


OV.TQ 


= 000364RG 


SC.CLO= 


000000 




KIPDR5= 


172312 


OV.TQE 


001346R 


SC.HLD= 


000010 




KIPDR6= 


172314 


OV.TQS 


= 000076 G 


SC.SCA= 


000012 




KIPDR7= 


172316 


OWEN 


= 024020 


SENDLS= 


177777 




KONTRL= 


****** g 


PAERR 


= 000010 


SIZPOL 


OOOOOORG 




KTERRO= 


000040 


PARPRE 


= 002000 


SOFCNT= 


000042 




KTPRES= 


000400 


PARSTA 


= 000100 


SOFPAS= 


000046 




KTSET = 


****** Q 


PASCNT 


= 000034 


SPACE = 


000040 




KTSTAT= 


000020 


PDPLSI 


= 020000 


SPOINT= 


000032 





SIZPLE SIZE AND POLL SYSTEM - 11/70 SUPPORT ALONG WITH 22-BIT ADDRESSING 
SIZPLE.MAC 08-SEP-78 09:33 SYMBOL TABLE 



MACY11 30A(1052) 20-SEP-78 18:54 



PAGE 23-1 

SEQ 1194 



SPVALU= 


002200 


TMPIO = 


000002 


SRO 


177572 


TQOVF = 


000002 


SR1 


177574 


UIPAR0= 


177640 


SR2 


177576 


UIPAR1= 


177642 


SR3 


172516 


UIPAR2= 


177644 


SS.IOP= 


177600 


UIPAR3= 


177646 


SS.PCL= 


172136 


UIPAR4= 


177650 


SS.PCS= 


172100 


UIPAR3= 


177652 


SS.RFS= 


160000 


, UIPAR6= 


17 7654 


SS.0KC= 


004000 


UIPAR7= 


177656 


SS.1KP= 


000040 


UIPDRO= 


177600 


SS. 120= 


120000 


UIPDR1= 


177602 


SS.28 = 


000034 


UIPDR2= 


177604 


STAT = 


000026 


UIPDR3= 


177606 


STATBI= 


064757 


UIPDR4= 


177610 


STAT1 = 


000027 


UIPDR5= 


177612 


SUSPND= 


000001 


UIPDR6= 


177614 


SVRO = 


000062 


UIPDR7= 


177616 


SVR1 = 


000064 


WASADR= 


000104 


SVR2 = 


000066 


WBSTAT= 


000040 


SVR3 = 


000070 


WBUFEA= 


000136 


SVR4 = 


000072 


WBUFPA= 


000134 


SVR5 = 


000074 


WBUFRQ= 


000140 


SVR6 = 


000076 


WBUFSZ= 


000142 


SYSCNT= 


000052 


WDFR = 


000116 


SYSERR= 


000100 


WDTO = 


000114 


. ABS. 


000000 000 
001346 001 





WTINRE= 
WTWHMI= 
XFLAG = 
XOFF =■ 
XON = 
$BGNLE= 
$ERFLG= 
$F$AND= 
$F$BAD= 
$F$BLA= 
$F$CAS= 
$F$DEC= 
$F$DO = 
$F$FAL= 
$F$GOQ= 
$F$IF = 
$F$INC= 
$F$LOO= 
$F$NAM= 
$F$NO = 
$F$OR = 
$F$RTI= 
$F$RTN= 
$F$SEL= 
$F$THE= 
$F$TRU= 



000352 
000222 
000005 
000023 
000021 
177777 
000400 
000310 
000401 
000170 
000150 
000220 
000340 
000405 
000400 
0001 10 
000210 
000200 
000160 
000403 
000320 
000350 
000300 
000140 
000330 
000404 



$F$UNT== 

$F$WHI-~ 

$F$Y£S= 

$IFLEV== 

$ISKO = 

SISK1 = 

$ISK2 = 

$LOCTA= 

$LSTIN 

$LSTTA 

SNESTL 

$NSKO 

$NSK1 

$NSK2 

SNSK3 

$NSK4 

$NSK5 

$SAVLE 

$SSKO 

$TAGLE 

$TAGNU= 

$TEMP = 

$TSKO = 

$TSK1 = 

$TSK2 = 

$TSK3 = 



000130 
000120 
000402 
177777 
000G01 
000001 
000001 
177777 
000001 
000001 
177777 
000300 
000120 
000110 
000110 
000110 
000110 
177777 
050052 
177777 
050055 
000300 
050051 
050052 
050054 
050046 



$TSK4 = 
$TSK5 = 
$$ARGC= 
$$BYTE= 
$$CASE= 
$$D5T = 
$$ELOC= 
$$ERFL= 
$$FLAG= 
$.$FROM= 
$$LOC = 
$$LOCN= 
$$REG = 
$$RETU= 
$SRTN1= 
$$RTN2= 
$$SRC = 
$$TGSV= 
$$TGS1= 
$$TGS2= 
$$T0 = 
$$$TAG= 



050047 

050050 

000002 

000403 

000000 

000000 

000402 

000000 

000001 

000000 

001314R 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

001346R 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

DSKZ: SI ZPLE,DSKZ: SI ZPLE=SPMAC/ML, EQUATE, SIZPLE 
RUN-TIME: 30 21 .4 SECONDS 
RUN-TIME RATIO: 257/53=4.8 
CORE USED: 14K (27 PAGES) 



**END** User CARPENTER, SA [400,4372] Job XMONA0 Seq. 4205 Date 25~Sep-78 12:23:45 Monitor IPC-F 603 [6B7] **END** 
**END** User CARPENTER, SA [400,4372] Job XMONA0 Seq. 4205 Date 25-Sep-78 12:28:45 Monitor IPC-F 603 [6B7] **END** 
**END** User CARPENTER, SA [400,4372] Job XM0NA0 Seq. 4205 Date 25-Sep-78 12:28:45 Monitor IPC-F 603 [687] **END** 

***XERSPLRunLog*** 

12:27:16 LPDAT [XERLSJ XERSPL version 1 02 ( 2263)/3(61 ) running on MTA061 , 25-Sep~78 12:27:16] 

12:27:16 LPDAT [XERSJS Starting Job XMONA0, Seq #4205, request created at 25-Sep-78 11:13:24] 

12:27:17 LPMSG [XERSTF Starting File DSKZ : XM0NA0 . SEQ<057>[400 , 3341 ] ] 

12:28:44 LPMSG [XERFPF Finished Printing File DSKZ :XMONA0.SEQ<057> [400 , 3341 ] ] 

12:28:45' LPSUM Spooler runtime 39 Seconds, 437 KCS, 4010 disk reads, 1194 pages printed 

/T0:ML21-4:CARPEN — Distribution to ML21-4, slot 133 

**END** User CARPENTER, SA [400,4372] Job XM0NA0 Seq. 4205 Date 25-Sep-78 12:28:45 Monitor IPC-F 603 [6B7] **END** 

/T0:ML21-4:CARPEN — Distribution to ML21-4, slot 133 

**END** User CARPENTER, SA [400,4372] Job XM0NA0 Seq. 4205 Date 25~Sep-78 12:28:45 Monitor IPC-F 603 [6B7] **END** 
/T0:MI21~4:CARPEN — Distribution to ML21-4, slot 133 

**E,HD** User CARPENTER, SA [400,4372] Job XMQNA0 Seq. 4205 Date 25-Sep-78 12:28:45 Monitor IPC-F 603 [687] **END** 
/T0:ML21-4:CARPEN — Distribution to ML21-4, slot 133 

**END*+ User CARPENTER, SA [400,4372] Job XM0NA0 Seq. 4205 Date 25-Sep-78 12:28:45 Monitor IPC-F 603 [6B7] **END** 
/TD:ML21-4:CARPEN — Distribution to ML21-4, slot 133 

**END** User CARPENTER, SA [400,4372] Job XMONA0 Seq. 4205 Date 25-Sep-78 12:28:45 Monitor IPC-F 603 [6B7] **END** 



